(ae_continuous_def
(ae_continuous_def 0
(ae_continuous_def-1 nil 3451821924
("" (skosimp)
(("" (expand "*" )
(("" (expand "phi" )
(("" (expand "member" )
(("" (expand "ae_continuous?" )
((""
(case-replace "{x_1: real |
a!1 < x_1 AND
x_1 < b!1 AND
NOT continuous_at?(LAMBDA
(x: real):
IF closed(a!1, b!1)(x)
THEN 1
ELSE 0
ENDIF
*
f!1(x),
x_1)}={x | a!1 < x AND x < b!1 AND NOT continuous_at?(f!1, x)}")
(("1" (assert ) nil nil )
("2" (hide 2)
(("2" (apply-extensionality :hide? t)
(("2" (case-replace "a!1)
(("1" (case-replace "x!1)
(("1" (assert )
(("1" (rewrite "metric_continuous_at_def" )
(("1" (rewrite "metric_continuous_at_def" )
(("1" (expand "metric_continuous_at?" )
(("1"
(expand "member" )
(("1"
(case-replace
"IF closed(a!1, b!1)(x!1) THEN 1 ELSE 0 ENDIF *
f!1(x!1)=f!1(x!1)")
(("1"
(hide -1)
(("1"
(case-replace
"FORALL (epsilon:posreal):
EXISTS (delta:posreal):
FORALL (x: real):
ball(x!1, delta)(x) => ball(f!1(x!1), epsilon)(f!1(x))")
(("1"
(assert )
(("1"
(skosimp)
(("1"
(inst - "epsilon!1" )
(("1"
(skosimp)
(("1"
(name
"DEL"
"min(min(b!1-x!1,x!1-a!1),delta!1)" )
(("1"
(case
"0)
(("1"
(flatten)
(("1"
(inst + "DEL" )
(("1"
(skosimp)
(("1"
(inst
-4
"x!2" )
(("1"
(case-replace
"closed(a!1, b!1)(x!2)" )
(("1"
(assert )
(("1"
(hide
2)
(("1"
(grind)
nil
nil ))
nil ))
nil )
("2"
(hide
2
-4)
(("2"
(grind)
nil
nil ))
nil ))
nil ))
nil ))
nil )
("2"
(assert )
nil
nil ))
nil ))
nil )
("2"
(hide -2 2)
(("2"
(grind)
nil
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil )
("2"
(replace 1 2)
(("2"
(skosimp)
(("2"
(inst - "epsilon!1" )
(("2"
(skosimp)
(("2"
(name
"DEL"
"min(min(b!1-x!1,x!1-a!1),delta!1)" )
(("2"
(case
"0)
(("1"
(flatten)
(("1"
(inst + "DEL" )
(("1"
(skosimp)
(("1"
(inst
-7
"x!2" )
(("1"
(case-replace
"closed(a!1, b!1)(x!2)" )
(("1"
(assert )
(("1"
(hide
1)
(("1"
(expand
"ball" )
(("1"
(assert )
nil
nil ))
nil ))
nil ))
nil )
("2"
(hide
2
-7)
(("2"
(grind)
nil
nil ))
nil ))
nil ))
nil ))
nil )
("2"
(assert )
nil
nil ))
nil ))
nil )
("2"
(hide -4 2)
(("2"
(grind)
nil
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil )
("2"
(hide 2)
(("2" (grind) nil nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil )
("2" (assert ) nil nil ))
nil )
("2" (assert ) nil nil ))
nil ))
nil ))
nil )
("3" (skosimp) nil nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil )
((* const-decl "[T -> real]" real_fun_ops "reals/" )
(member const-decl "bool" sets nil )
(IMPLIES const-decl "[bool, bool -> bool]" booleans nil )
(real_times_real_is_real application-judgement "real" reals nil )
(real_minus_real_is_real application-judgement "real" reals nil )
(metric_space_is_hausdorff name-judgement "hausdorff[T]"
real_continuity "metric_space/" )
(metric_space_is_hausdorff? name-judgement "(hausdorff?)"
real_continuity "metric_space/" )
(metric_space_is_hausdorff name-judgement "hausdorff[real]"
real_topology "metric_space/" )
(metric_space_is_hausdorff? name-judgement "(hausdorff?)"
real_topology "metric_space/" )
(metric_induced_topology_is_second_countable name-judgement
"second_countable" real_topology "metric_space/" )
(number nonempty-type-decl nil numbers nil )
(boolean nonempty-type-decl nil booleans nil )
(number_field_pred const-decl "[number -> boolean]" number_fields
nil )
(number_field nonempty-type-from-decl nil number_fields nil )
(real_pred const-decl "[number_field -> boolean]" reals nil )
(real nonempty-type-from-decl nil reals nil )
(bool nonempty-type-eq-decl nil booleans nil )
(= const-decl "[T, T -> boolean]" equalities nil )
(AND const-decl "[bool, bool -> bool]" booleans nil )
(< const-decl "bool" reals nil )
(NOT const-decl "[bool -> bool]" booleans nil )
(setof type-eq-decl nil defined_types nil )
(setofsets type-eq-decl nil sets nil )
(>= const-decl "bool" reals nil )
(nonneg_real nonempty-type-eq-decl nil real_types nil )
(numfield nonempty-type-eq-decl nil number_fields nil )
(- const-decl "[numfield -> numfield]" number_fields nil )
(abs const-decl "{n: nonneg_real | n >= m AND n >= -m}" real_defs
nil )
(- const-decl "[numfield, numfield -> numfield]" number_fields nil )
(metric_induced_topology const-decl "setofsets[T]" metric_space_def
"metric_space/" )
(continuous_at? const-decl "bool" continuity_def "topology/" )
(* const-decl "[numfield, numfield -> numfield]" number_fields nil )
(IF const-decl "[boolean, T, T -> T]" if_def nil )
(<= const-decl "bool" reals nil ) (set type-eq-decl nil sets nil )
(nnreal type-eq-decl nil real_types nil )
(closed? const-decl "bool" topology "topology/" )
(closed nonempty-type-eq-decl nil topology "topology/" )
(closed_ball const-decl "closed" real_topology "metric_space/" )
(closed_interval nonempty-type-eq-decl nil real_topology
"metric_space/" )
(closed const-decl "closed_interval" real_topology "metric_space/" )
(real_le_is_total_order name-judgement "(total_order?[real])"
real_props nil )
(a!1 skolem-const-decl "real" ae_continuous_def nil )
(b!1 skolem-const-decl "real" ae_continuous_def nil )
(real_lt_is_strict_total_order name-judgement
"(strict_total_order?[real])" real_props nil )
(metric_continuous_at_def formula-decl nil metric_continuity
"metric_space/" )
(metric_continuous_at? const-decl "bool" metric_continuity
"metric_space/" )
(ball const-decl "set[T]" metric_space_def "metric_space/" )
(posreal nonempty-type-eq-decl nil real_types nil )
(> const-decl "bool" reals nil )
(real_gt_is_strict_total_order name-judgement
"(strict_total_order?[real])" real_props nil )
(real_ge_is_total_order name-judgement "(total_order?[real])"
real_props nil )
(x!1 skolem-const-decl "real" ae_continuous_def nil )
(delta!1 skolem-const-decl "posreal" ae_continuous_def nil )
(DEL skolem-const-decl
"{p: real | p <= min(b!1 - x!1, x!1 - a!1) AND p <= delta!1}"
ae_continuous_def nil )
(ball_is_metric_open application-judgement
"metric_open[real, (LAMBDA (x, y: real): abs(x - y))]"
convergence_aux "metric_space/" )
(closed_is_measurable application-judgement "measurable_set"
lebesgue_def nil )
(real_plus_real_is_real application-judgement "real" reals nil )
(real_div_nzreal_is_real application-judgement "real" reals nil )
(minus_real_is_real application-judgement "real" reals nil )
(min const-decl "{p: real | p <= m AND p <= n}" real_defs nil )
(delta!1 skolem-const-decl "posreal" ae_continuous_def nil )
(DEL skolem-const-decl
"{p: real | p <= min(b!1 - x!1, x!1 - a!1) AND p <= delta!1}"
ae_continuous_def nil )
(ae_continuous? const-decl "bool" ae_continuous_def nil )
(phi const-decl "nat" measure_space "measure_integration/" ))
shostak))
(continuous_at_is_ae_continuous 0
(continuous_at_is_ae_continuous-1 nil 3452491324
("" (skosimp)
(("" (expand "ae_continuous?" )
((""
(case-replace
"{x | a!1 < x AND x < b!1 AND NOT continuous_at?(f!1, x)}=emptyset[real]" )
(("1" (rewrite "null_emptyset" ) nil nil )
("2" (apply-extensionality :hide? t)
(("2" (expand "emptyset" )
(("2" (hide 1)
(("2" (flatten)
(("2" (inst - "x!1" ) (("2" (assert ) nil nil )) nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil )
((ae_continuous? const-decl "bool" ae_continuous_def nil )
(real_lt_is_strict_total_order name-judgement
"(strict_total_order?[real])" real_props nil )
(real_le_is_total_order name-judgement "(total_order?[real])"
real_props nil )
(lambda_ const-decl "complete_sigma_finite[real, cal_M]"
lebesgue_def nil )
(complete_sigma_finite type-eq-decl nil measure_def
"measure_integration/" )
(complete_sigma_finite? const-decl "bool" measure_def
"measure_integration/" )
(extended_nnreal nonempty-type-eq-decl nil extended_nnreal
"extended_nnreal/" )
(nnreal type-eq-decl nil real_types nil )
(cal_M const-decl "sigma_algebra" lebesgue_def nil )
(sigma_algebra nonempty-type-eq-decl nil subset_algebra_def
"measure_integration/" )
(sigma_algebra? const-decl "bool" subset_algebra_def
"measure_integration/" )
(null_emptyset judgement-tcc nil measure_theory
"measure_integration/" )
(emptyset const-decl "set" sets nil )
(set type-eq-decl nil sets nil )
(continuous_at? const-decl "bool" continuity_def "topology/" )
(metric_induced_topology const-decl "setofsets[T]" metric_space_def
"metric_space/" )
(- const-decl "[numfield, numfield -> numfield]" number_fields nil )
(abs const-decl "{n: nonneg_real | n >= m AND n >= -m}" real_defs
nil )
(- const-decl "[numfield -> numfield]" number_fields nil )
(numfield nonempty-type-eq-decl nil number_fields nil )
(nonneg_real nonempty-type-eq-decl nil real_types nil )
(>= const-decl "bool" reals nil )
(setofsets type-eq-decl nil sets nil )
(setof type-eq-decl nil defined_types nil )
(NOT const-decl "[bool -> bool]" booleans nil )
(< const-decl "bool" reals nil )
(AND const-decl "[bool, bool -> bool]" booleans nil )
(= const-decl "[T, T -> boolean]" equalities nil )
(bool nonempty-type-eq-decl nil booleans nil )
(real nonempty-type-from-decl nil reals nil )
(real_pred const-decl "[number_field -> boolean]" reals nil )
(number_field nonempty-type-from-decl nil number_fields nil )
(number_field_pred const-decl "[number -> boolean]" number_fields
nil )
(boolean nonempty-type-decl nil booleans nil )
(number nonempty-type-decl nil numbers nil )
(metric_induced_topology_is_second_countable name-judgement
"second_countable" real_topology "metric_space/" )
(metric_space_is_hausdorff? name-judgement "(hausdorff?)"
real_topology "metric_space/" )
(metric_space_is_hausdorff name-judgement "hausdorff[real]"
real_topology "metric_space/" )
(metric_space_is_hausdorff? name-judgement "(hausdorff?)"
real_continuity "metric_space/" )
(metric_space_is_hausdorff name-judgement "hausdorff[T]"
real_continuity "metric_space/" )
(real_minus_real_is_real application-judgement "real" reals nil )
(finite_emptyset name-judgement "finite_set[real]" measure_space
"measure_integration/" )
(subset_algebra_emptyset name-judgement "(cal_M)" lebesgue_def nil )
(emptyset_is_compact name-judgement
"compact[real, (metric_induced_topology)]" real_topology
"metric_space/" )
(emptyset_is_clopen name-judgement
"clopen[real, (metric_induced_topology)]" real_topology
"metric_space/" )
(outer_negligible_emptyset name-judgement
"outer_negligible[real, lebesgue_outer_measure]"
real_lebesgue_scaf nil )
(subset_algebra_emptyset name-judgement "(induced_sigma_algebra)"
real_lebesgue_scaf nil )
(subset_algebra_emptyset name-judgement "(lebesgue_measurable)"
real_lebesgue_scaf nil )
(finite_emptyset name-judgement "finite_set[T]" sigma_countable
"sigma_set/" )
(finite_emptyset name-judgement "finite_set[T]" bounded_nats
"orders/" )
(finite_emptyset name-judgement "finite_set[T]" countable_props
"sets_aux/" )
(finite_emptyset name-judgement "finite_set[T]" countable_setofsets
"sets_aux/" )
(finite_emptyset name-judgement "finite_set" finite_sets nil ))
shostak))
(continuous_is_ae_continuous 0
(continuous_is_ae_continuous-1 nil 3452491205
("" (skosimp)
(("" (expand "ae_continuous?" )
((""
(case-replace
"{x | a!1 < x AND x < b!1 AND NOT continuous_at?(f!1, x)}=emptyset[real]" )
(("1" (rewrite "null_emptyset" ) nil nil )
("2" (hide 2)
(("2" (apply-extensionality :hide? t)
(("2" (expand "emptyset" )
(("2" (flatten)
(("2" (expand "continuous?" )
(("2" (inst - "x!1" ) nil nil )) nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil )
((ae_continuous? const-decl "bool" ae_continuous_def nil )
(continuous? const-decl "bool" continuity_def "topology/" )
(real_le_is_total_order name-judgement "(total_order?[real])"
real_props nil )
(real_lt_is_strict_total_order name-judgement
"(strict_total_order?[real])" real_props nil )
(lambda_ const-decl "complete_sigma_finite[real, cal_M]"
lebesgue_def nil )
(complete_sigma_finite type-eq-decl nil measure_def
"measure_integration/" )
(complete_sigma_finite? const-decl "bool" measure_def
"measure_integration/" )
(extended_nnreal nonempty-type-eq-decl nil extended_nnreal
"extended_nnreal/" )
(nnreal type-eq-decl nil real_types nil )
(cal_M const-decl "sigma_algebra" lebesgue_def nil )
(sigma_algebra nonempty-type-eq-decl nil subset_algebra_def
"measure_integration/" )
(sigma_algebra? const-decl "bool" subset_algebra_def
"measure_integration/" )
(null_emptyset judgement-tcc nil measure_theory
"measure_integration/" )
(emptyset const-decl "set" sets nil )
(set type-eq-decl nil sets nil )
(continuous_at? const-decl "bool" continuity_def "topology/" )
(metric_induced_topology const-decl "setofsets[T]" metric_space_def
"metric_space/" )
(- const-decl "[numfield, numfield -> numfield]" number_fields nil )
(abs const-decl "{n: nonneg_real | n >= m AND n >= -m}" real_defs
nil )
(- const-decl "[numfield -> numfield]" number_fields nil )
(numfield nonempty-type-eq-decl nil number_fields nil )
(nonneg_real nonempty-type-eq-decl nil real_types nil )
(>= const-decl "bool" reals nil )
(setofsets type-eq-decl nil sets nil )
(setof type-eq-decl nil defined_types nil )
(NOT const-decl "[bool -> bool]" booleans nil )
(< const-decl "bool" reals nil )
(AND const-decl "[bool, bool -> bool]" booleans nil )
(= const-decl "[T, T -> boolean]" equalities nil )
(bool nonempty-type-eq-decl nil booleans nil )
(real nonempty-type-from-decl nil reals nil )
(real_pred const-decl "[number_field -> boolean]" reals nil )
(number_field nonempty-type-from-decl nil number_fields nil )
(number_field_pred const-decl "[number -> boolean]" number_fields
nil )
(boolean nonempty-type-decl nil booleans nil )
(number nonempty-type-decl nil numbers nil )
(metric_induced_topology_is_second_countable name-judgement
"second_countable" real_topology "metric_space/" )
(metric_space_is_hausdorff? name-judgement "(hausdorff?)"
real_topology "metric_space/" )
(metric_space_is_hausdorff name-judgement "hausdorff[real]"
real_topology "metric_space/" )
(metric_space_is_hausdorff? name-judgement "(hausdorff?)"
real_continuity "metric_space/" )
(metric_space_is_hausdorff name-judgement "hausdorff[T]"
real_continuity "metric_space/" )
(real_minus_real_is_real application-judgement "real" reals nil )
(finite_emptyset name-judgement "finite_set[real]" measure_space
"measure_integration/" )
(subset_algebra_emptyset name-judgement "(cal_M)" lebesgue_def nil )
(emptyset_is_compact name-judgement
"compact[real, (metric_induced_topology)]" real_topology
"metric_space/" )
(emptyset_is_clopen name-judgement
"clopen[real, (metric_induced_topology)]" real_topology
"metric_space/" )
(outer_negligible_emptyset name-judgement
"outer_negligible[real, lebesgue_outer_measure]"
real_lebesgue_scaf nil )
(subset_algebra_emptyset name-judgement "(induced_sigma_algebra)"
real_lebesgue_scaf nil )
(subset_algebra_emptyset name-judgement "(lebesgue_measurable)"
real_lebesgue_scaf nil )
(finite_emptyset name-judgement "finite_set[T]" sigma_countable
"sigma_set/" )
(finite_emptyset name-judgement "finite_set[T]" bounded_nats
"orders/" )
(finite_emptyset name-judgement "finite_set[T]" countable_props
"sets_aux/" )
(finite_emptyset name-judgement "finite_set[T]" countable_setofsets
"sets_aux/" )
(finite_emptyset name-judgement "finite_set" finite_sets nil ))
shostak)))
quality 100%
¤ Dauer der Verarbeitung: 0.23 Sekunden
(vorverarbeitet)
¤
*© Formatika GbR, Deutschland