(real_lebesgue_scaf
(limit_TCC1 0
(limit_TCC1-1 nil 3396062613
("" (skosimp*)
(("" (expand "convergent" )
(("" (expand "convergent?" )
(("" (expand "convergence" )
(("" (split)
(("1" (skosimp*)
(("1" (inst + "l!1" )
(("1" (rewrite "metric_convergence_def" *)
(("1" (expand "metric_converges_to" )
(("1" (skosimp)
(("1" (inst - "r!1" )
(("1" (skosimp)
(("1" (inst + "n!1" )
(("1" (skosimp)
(("1"
(inst - "i!1" )
(("1"
(expand "ball" )
(("1" (grind) nil nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil )
("2" (skosimp*)
(("2" (inst + "l!1" )
(("2" (skosimp)
(("2" (rewrite "metric_convergence_def" *)
(("2" (expand "metric_converges_to" )
(("2" (inst - "epsilon!1" )
(("2" (skosimp)
(("2" (inst + "n!1" )
(("2" (skosimp)
(("2"
(inst - "i!1" )
(("2"
(expand "ball" )
(("2" (grind) nil nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil )
((convergent? const-decl "bool" topological_convergence "topology/" )
(convergent? const-decl "bool" convergence_sequences "analysis/" )
(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 )
(metric_converges_to const-decl "bool" metric_space_def
"metric_space/" )
(posreal nonempty-type-eq-decl nil real_types nil )
(> const-decl "bool" reals nil )
(minus_real_is_real application-judgement "real" reals nil )
(member const-decl "bool" sets nil )
(real_ge_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 )
(ball const-decl "set[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 )
(AND const-decl "[bool, bool -> bool]" booleans nil )
(nonneg_real nonempty-type-eq-decl nil real_types nil )
(>= const-decl "bool" reals nil )
(bool nonempty-type-eq-decl nil booleans nil )
(sequence type-eq-decl nil sequences nil )
(nat nonempty-type-eq-decl nil naturalnumbers nil )
(int nonempty-type-eq-decl nil integers nil )
(integer_pred const-decl "[rational -> boolean]" integers nil )
(rational nonempty-type-from-decl nil rationals nil )
(rational_pred const-decl "[real -> boolean]" rationals nil )
(metric_convergence_def formula-decl nil metric_space
"metric_space/" )
(convergence const-decl "bool" convergence_sequences "analysis/" )
(real_minus_real_is_real application-judgement "real" reals nil ))
nil ))
(lebesgue_outer_measure_TCC1 0
(lebesgue_outer_measure_TCC1-1 nil 3397030001
("" (skosimp)
(("" (skolem + ("n!1" ))
(("" (typepred "I!1(n!1)" )
(("" (expand "bounded_open_interval?" )
(("" (expand "bounded_interval?" ) (("" (flatten) nil nil ))
nil ))
nil ))
nil ))
nil ))
nil )
((bounded_interval? const-decl "bool" real_topology "metric_space/" )
(boolean nonempty-type-decl nil booleans nil )
(bool nonempty-type-eq-decl nil booleans nil )
(NOT const-decl "[bool -> bool]" booleans nil )
(number nonempty-type-decl nil numbers 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 )
(set type-eq-decl nil sets nil )
(bounded_open_interval? const-decl "bool" real_topology
"metric_space/" )
(rational_pred const-decl "[real -> boolean]" rationals nil )
(rational nonempty-type-from-decl nil rationals nil )
(integer_pred const-decl "[rational -> boolean]" integers nil )
(int nonempty-type-eq-decl nil integers nil )
(>= const-decl "bool" reals nil )
(nat nonempty-type-eq-decl nil naturalnumbers nil )
(bounded_open_interval nonempty-type-eq-decl nil real_topology
"metric_space/" )
(sequence type-eq-decl nil sequences nil ))
nil ))
(lebesgue_outer_measure_TCC2 0
(lebesgue_outer_measure_TCC2-1 nil 3407841244
(""
(name-replace "L" "(LAMBDA A:
x_inf({z |
EXISTS I:
x_le(x_sum(o[nat, interval, extended_nnreal]
(x_length, I)),
z)
AND subset?[real](A, IUnion[nat, real](I))}))")
(("1" (expand "outer_measure?" )
(("1" (case-replace "om_empty?(L)" )
(("1" (case-replace "om_increasing?(L)" )
(("1" (expand "om_countably_subadditive?" )
(("1" (skosimp)
(("1" (expand "x_le" )
(("1" (flatten)
(("1" (assert )
(("1" (case "forall (n:nat): L(X!1(n))`1" )
(("1"
(case "forall (n:nat,r:posreal): exists I: subset?[real](X!1(n),IUnion[nat,real](I)) & x_lt(x_sum(LAMBDA (n: nat):x_length(I(n))),x_add((TRUE,r/2^n),L(X!1(n))))" )
(("1"
(case "forall (r:posreal): EXISTS I:
subset?[real](IUnion(X!1), IUnion[nat, real](I)) &
x_lt(L(IUnion(X!1)),
x_add((TRUE, r),x_sum(L o X!1)))")
(("1" (hide -2)
(("1" (inst-cp - "1" )
(("1"
(skosimp)
(("1"
(expand "x_add" -3)
(("1"
(expand "x_lt" -3)
(("1"
(flatten)
(("1"
(assert )
(("1"
(case
"x_sum(L o X!1)`2<L(IUnion(X!1))`2" )
(("1"
(hide -3 -5 1)
(("1"
(inst
-
"L(IUnion(X!1))`2-x_sum(L o X!1)`2" )
(("1"
(skosimp)
(("1"
(expand "x_add" )
(("1"
(expand "x_lt" )
(("1"
(propax)
nil
nil ))
nil ))
nil ))
nil ))
nil ))
nil )
("2" (assert ) nil nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil )
("2" (hide 2)
(("2" (skosimp)
(("2"
(case
"EXISTS I:
subset?[real](IUnion(X!1), IUnion[nat, real](I)) &
x_lt(L(IUnion(X!1)),x_sum(LAMBDA n: x_add((TRUE, (r!1/2) / 2 ^ n), L(X!1(n)))))")
(("1"
(skosimp)
(("1"
(inst + "I!1" )
(("1"
(hide -3)
(("1"
(assert )
(("1"
(case
"x_eq(x_sum(LAMBDA n: x_add((TRUE, (r!1 / 2) / 2 ^ n), L(X!1(n)))),x_add((TRUE, r!1), x_sum(L o X!1)))" )
(("1"
(name-replace
"LHS"
"L(IUnion(X!1))" )
(("1"
(name-replace
"MID"
"x_sum(LAMBDA n: x_add((TRUE, (r!1 / 2) / 2 ^ n), L(X!1(n))))" )
(("1"
(name-replace
"RHS"
"x_add((TRUE, r!1), x_sum(L o X!1))" )
(("1"
(hide-all-but
(-1 -3 1))
(("1"
(expand "x_lt" )
(("1"
(expand "x_eq" )
(("1"
(flatten)
(("1"
(assert )
(("1"
(flatten)
(("1"
(assert )
nil
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil )
("2"
(hide -1 -2 2)
(("2"
(expand "x_add" )
(("2"
(expand "x_eq" )
(("2"
(expand "o " )
(("2"
(case-replace
"x_sum(LAMBDA n:
IF L(X!1(n))`1 THEN (TRUE, (r!1 / 2) / 2 ^ n + L(X!1(n))`2)
ELSE (FALSE, 0)
ENDIF)`1")
(("1"
(expand "x_sum" )
(("1"
(prop)
(("1"
(replace -3)
(("1"
(replace
-5)
(("1"
(replace
-3)
(("1"
(replace
-1)
(("1"
(lemma
"const_geometric_series"
("x"
"1/2"
"c"
"r!1/2" ))
(("1"
(case-replace
"r!1 / 2 / (1 - 1 / 2)=r!1" )
(("1"
(expand
"abs"
-2)
(("1"
(hide
-1)
(("1"
(expand
"convergent?" )
(("1"
(skosimp*)
(("1"
(lemma
"convergence_sequences.limit_def"
("v"
"series(LAMBDA (i:nat):
IF L(X!1(i))`1 THEN (r!1 / 2) / 2 ^ i + L(X!1(i))`2
ELSE 0
ENDIF)"
"l"
"l!2" ))
(("1"
(assert )
(("1"
(replace
-1)
(("1"
(hide
-1
-4
-7
-8)
(("1"
(lemma
"convergence_sequences.limit_def"
("v"
"series(LAMBDA (i:nat):
L(X!1(i))`2)"
"l"
"l!1" ))
(("1"
(assert )
(("1"
(replace
-1)
(("1"
(hide
-1)
(("1"
(lemma
"cnv_seq_sum"
("s1"
"series(LAMBDA (i:nat): L(X!1(i))`2)"
"l1"
"l!1"
"s2"
"series(r!1 / 2 * geometric(1 / 2))"
"l2"
"r!1" ))
(("1"
(assert )
(("1"
(rewrite
"series_sum" )
(("1"
(expand
"+"
-1)
(("1"
(case-replace
"(LAMBDA (i:nat):
IF L(X!1(i))`1
THEN (r!1 / 2) / 2 ^ i + L(X!1(i))`2
ELSE 0
ENDIF)=(LAMBDA (x: nat):
(r!1 / 2 * geometric(1 / 2))(x) + L(X!1(x))`2)")
(("1"
(hide
-1
-6)
(("1"
(lemma
"convergence_sequences.unique_limit"
("u"
"series(LAMBDA (x: nat):
(r!1 / 2 * geometric(1 / 2))(x) + L(X!1(x))`2)"
"l1"
"l!2"
"l2"
"l!1+r!1" ))
(("1"
(assert )
nil
nil ))
nil ))
nil )
("2"
(apply-extensionality
:hide?
t)
(("2"
(inst
-5
"x!1" )
(("2"
(assert )
(("2"
(expand
"geometric" )
(("2"
(expand
"*" )
(("2"
(rewrite
"inv_expt" )
(("2"
(assert )
nil
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil )
("2"
(hide-all-but
1)
(("2"
(assert )
nil
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil )
("2"
(hide 2)
(("2"
(expand
"x_sum" )
(("2"
(prop)
(("1"
(skosimp)
(("1"
(inst
-
"i!1" )
(("1"
(assert )
nil
nil ))
nil ))
nil )
("2"
(lemma
"geometric_conv"
("x"
"1/2" ))
(("2"
(expand
"abs" )
(("2"
(lemma
"series_scal"
("c"
"r!1/2"
"a"
"geometric(1 / 2)" ))
(("2"
(lemma
"convergent_scal"
("s1"
"series(geometric(1 / 2))"
"a"
"r!1/2" ))
(("2"
(assert )
(("2"
(replace
-2)
(("2"
(hide
-2
-3)
(("2"
(lemma
"convergent_sum"
("s1"
"series(LAMBDA n: r!1 / 2 * geometric(1 / 2)(n))"
"s2"
"series(LAMBDA n: L(X!1(n))`2)" ))
(("2"
(assert )
(("2"
(hide
-2
-3)
(("2"
(rewrite
"series_sum" )
(("2"
(expand
"+"
-1)
(("2"
(case-replace
"(LAMBDA (x: nat):
r!1 / 2 * geometric(1 / 2)(x) + L(X!1(x))`2)=(LAMBDA n:
IF L(X!1(n))`1
THEN (r!1 / 2) / 2 ^ n + L(X!1(n))`2
ELSE 0
ENDIF)")
(("2"
(apply-extensionality
:hide?
t)
(("2"
(inst
-
"x!1" )
(("2"
(assert )
(("2"
(expand
"geometric" )
(("2"
(rewrite
"inv_expt"
1)
(("2"
(assert )
nil
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil )
("2"
(hide 2)
(("2"
(lemma
"posreal_div_posreal_is_posreal"
("px" "r!1" "py" "2" ))
(("2"
(inst - "_" "r!1/2" )
(("2"
(name-replace "R" "r!1/2" )
(("2"
(name
"I_n"
"lambda n: choose({I | subset?[real](X!1(n), IUnion[nat, real](I)) &
x_lt(x_sum(LAMBDA (n: nat): x_length(I(n))),
x_add((TRUE, R / 2 ^ n), L(X!1(n))))})")
(("1"
(case
"forall n: subset?[real](X!1(n), IUnion[nat, real](I_n(n))) &
x_lt(x_sum(LAMBDA (m: nat): x_length(I_n(n)(m))),
x_add((TRUE, R / 2 ^ n), L(X!1(n))))")
(("1"
(lemma
"double_index_n_ij" )
(("1"
(lemma
"double_index_ij_n" )
(("1"
(name-replace
"NN"
"double_index_n" )
(("1"
(name-replace
"II"
"double_index_i" )
(("1"
(name-replace
"JJ"
"double_index_j" )
(("1"
(inst
+
"lambda (n:nat): I_n(II(n))(JJ(n))" )
(("1"
(case-replace
"subset?[real]
(IUnion(X!1),
IUnion[nat, real](LAMBDA (n: nat): I_n(II(n))(JJ(n))))")
(("1"
(hide -5)
(("1"
(case
"x_lt(x_sum(LAMBDA n:x_sum(LAMBDA (m: nat): x_length(I_n(n)(m)))),x_sum(LAMBDA n: x_add((TRUE, R/2^n), L(X!1(n)))))" )
(("1"
(case
"x_le(L(IUnion(X!1)),x_sum(LAMBDA n: x_sum(LAMBDA (m: nat): x_length(I_n(n)(m)))))" )
(("1"
(name-replace
"LHS"
"L(IUnion(X!1))" )
(("1"
(name-replace
"RHS"
"x_sum(LAMBDA n: x_add((TRUE, R / 2 ^ n), L(X!1(n))))" )
(("1"
(name-replace
"MID"
"x_sum(LAMBDA n: x_sum(LAMBDA (m: nat): x_length(I_n(n)(m))))" )
(("1"
(hide-all-but
(-1
-2
1))
(("1"
(expand
"x_le" )
(("1"
(expand
"x_lt" )
(("1"
(flatten)
(("1"
(assert )
(("1"
(flatten)
(("1"
(assert )
(("1"
(flatten)
(("1"
(assert )
nil
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil )
("2"
(hide
-1
2)
(("2"
(lemma
"double_x_sum"
("U"
"lambda (i,j:nat): x_length(I_n(i)(j))" ))
(("2"
(case
"x_le(L(IUnion(X!1)),x_sum(single_index(LAMBDA (i, j: nat): x_length(I_n(i)(j)))))" )
(("1"
(assert )
(("1"
(name-replace
"LHS"
"L(IUnion(X!1))" )
(("1"
(name-replace
"RHS"
"x_sum(LAMBDA n: x_sum(LAMBDA (m: nat): x_length(I_n(n)(m))))" )
(("1"
(name-replace
"MID"
"x_sum(single_index(LAMBDA (i, j: nat): x_length(I_n(i)(j))))" )
(("1"
(hide-all-but
(-1
-2
1))
(("1"
(expand
"x_eq" )
(("1"
(expand
"x_le" )
(("1"
(flatten)
(("1"
(assert )
(("1"
(flatten)
(("1"
(assert )
nil
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil )
("2"
(hide
-1
2)
(("2"
(case
"forall A,I: subset?(A,IUnion(I)) => x_le(L(A),x_sum(x_length o I))" )
(("1"
(expand
"single_index" )
(("1"
(inst
-
"IUnion(X!1)"
"lambda n: I_n(II(n))(JJ(n))" )
(("1"
(replace
-2)
(("1"
(expand
"o"
-1)
(("1"
(expand
"JJ" )
(("1"
(expand
"II" )
(("1"
(propax)
nil
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil )
("2"
(hide-all-but
1)
(("2"
(skosimp)
(("2"
(expand
"x_le" )
(("2"
(expand
"o " )
(("2"
(expand
"L" )
(("2"
(expand
"o " )
(("2"
(case-replace
"x_sum(LAMBDA (x: nat): x_length(I!1(x)))`1" )
(("1"
(case-replace
"x_inf({z |
EXISTS I:
x_le(x_sum(LAMBDA (x: nat): x_length(I(x))), z) AND
subset?[real](A!1, IUnion[nat, real](I))})`1")
(("1"
(expand
"x_inf" )
(("1"
(case-replace
"FORALL (x_1:
({z |
EXISTS I:
x_le(x_sum(LAMBDA (x: nat): x_length(I(x))), z)
AND subset?[real](A!1, IUnion[nat, real](I))})):
NOT x_1`1")
(("1"
(replace
1
2)
(("1"
(skosimp)
(("1"
(hide
-2)
(("1"
(typepred
"x!1" )
(("1"
(skosimp)
(("1"
(typepred
"glb({z_1: real |
EXISTS (x_1: extended_nnreal):
(EXISTS I:
x_le(x_sum(LAMBDA (x: nat): x_length(I(x))), x_1) AND
subset?[real](A!1, IUnion[nat, real](I)))
AND x_1`1 AND x_1`2 = z_1})")
(("1"
(name-replace
"GLB"
"glb({z_1: real |
EXISTS (x_1: extended_nnreal):
(EXISTS I:
x_le(x_sum(LAMBDA (x: nat): x_length(I(x))), x_1) AND
subset?[real](A!1, IUnion[nat, real](I)))
AND x_1`1 AND x_1`2 = z_1})")
(("1"
(expand
"greatest_lower_bound?" )
(("1"
(flatten)
(("1"
(expand
"lower_bound?" )
(("1"
(hide
-2)
(("1"
(inst
-
"x_sum(LAMBDA (x: nat): x_length(I!1(x)))`2" )
(("1"
(hide
2)
(("1"
(inst
+
"x_sum(LAMBDA (x: nat): x_length(I!1(x)))" )
(("1"
(replace
-4)
(("1"
(inst
+
"I!1" )
(("1"
(assert )
(("1"
(expand
"x_le" )
(("1"
(propax)
nil
nil ))
nil ))
nil ))
nil ))
nil )
("2"
(skosimp)
(("2"
(typepred
"I!1(x!2)" )
(("2"
(expand
"bounded_open_interval?" )
(("2"
(expand
"bounded_interval?" )
(("2"
(flatten)
nil
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil )
("2"
(skosimp)
(("2"
(typepred
"I!1(x!2)" )
(("2"
(expand
"bounded_open_interval?" )
(("2"
(expand
"bounded_interval?" )
(("2"
(flatten)
nil
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil )
("2"
(hide
2)
(("2"
(split
1)
(("1"
(expand
"nonempty?" )
(("1"
(expand
"empty?" )
(("1"
(expand
"member" )
(("1"
(inst
-
"x!1`2" )
(("1"
(inst
+
"x!1" )
(("1"
(assert )
nil
nil ))
nil ))
nil ))
nil ))
nil ))
nil )
("2"
(expand
"bounded_below?" )
(("2"
(inst
+
"0" )
(("2"
(expand
"lower_bound?" )
(("2"
(skosimp)
(("2"
(typepred
"s!1" )
(("2"
(skosimp)
(("2"
(skosimp)
(("2"
(assert )
nil
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil )
("3"
(hide-all-but
1)
(("3"
(skosimp)
(("3"
(typepred
"I!3(x!2)" )
(("3"
(expand
"bounded_open_interval?" )
(("3"
(expand
"bounded_interval?" )
(("3"
(flatten)
nil
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil )
("2"
(hide
2)
(("2"
(expand
"x_inf" )
(("2"
(prop)
(("2"
(inst
-
"x_sum(LAMBDA (x: nat): x_length(I!1(x)))" )
(("1"
(inst
+
"I!1" )
(("1"
(assert )
(("1"
(expand
"x_le" )
(("1"
(propax)
nil
nil ))
nil ))
nil ))
nil )
("2"
(skosimp)
(("2"
(typepred
"I!1(x!1)" )
(("2"
(expand
"bounded_open_interval?" )
(("2"
(expand
"bounded_interval?" )
(("2"
(flatten)
nil
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil )
("3"
(hide
2)
(("3"
(skosimp)
(("3"
(typepred
"I!2(x!1)" )
(("3"
(expand
"bounded_open_interval?" )
(("3"
(expand
"bounded_interval?" )
(("3"
(flatten)
nil
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil )
("2"
(replace
1)
(("2"
(propax)
nil
nil ))
nil )
("3"
(skosimp)
(("3"
(typepred
"I!1(x!1)" )
(("3"
(expand
"bounded_open_interval?" )
(("3"
(expand
"bounded_interval?" )
(("3"
(flatten)
nil
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil )
("3"
(skosimp)
(("3"
(skosimp)
(("3"
(typepred
"I!1(x1!1)" )
(("3"
(expand
"bounded_open_interval?" )
(("3"
(expand
"bounded_interval?" )
(("3"
(flatten)
nil
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil )
("2"
(hide
2)
(("2"
(expand
"x_sum"
1
3)
(("2"
(expand
"x_sum"
1
1)
(("2"
(expand
"x_lt"
1
1)
(("2"
(case-replace
"FORALL (i:nat): x_add((TRUE, R / 2 ^ i), L(X!1(i)))`1" )
(("1"
(case-replace
"FORALL (i:nat): x_sum(LAMBDA (m: nat): x_length(I_n(i)(m)))`1" )
(("1"
(flatten)
(("1"
(replace
-3)
(("1"
(case-replace
"convergence_sequences.convergent?(series(LAMBDA (i:nat):
x_add((TRUE, R / 2 ^ i), L(X!1(i)))`2))")
(("1"
(case-replace
"convergence_sequences.convergent?(series(LAMBDA (i:nat):
x_sum(LAMBDA
(m: nat):
x_length(I_n(i)(m)))`2))")
(("1"
(case
"forall (nna,nnb:sequence[nnreal]): convergence_sequences.convergent?(series(nna))&convergence_sequences.convergent?(series(nnb))&(forall n: nna(n)<nnb(n)) => convergence_sequences.limit(series(nna))<convergence_sequences.limit(series(nnb))" )
(("1"
(inst
-
"LAMBDA (i:nat): x_sum(LAMBDA (m: nat): x_length(I_n(i)(m)))`2"
"LAMBDA (i:nat): x_add((TRUE, R / 2 ^ i), L(X!1(i)))`2" )
(("1"
(replace
-2)
(("1"
(replace
-3)
(("1"
(split
-1)
(("1"
(propax)
nil
nil )
("2"
(hide
-1
-2
2)
(("2"
(skosimp)
(("2"
(inst
-6
"n!1" )
(("2"
(inst
-
"n!1" )
(("2"
(inst
-
"n!1" )
(("2"
(flatten)
(("2"
(expand
"x_lt" )
(("2"
(assert )
nil
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil )
("2"
(skosimp)
(("2"
(typepred
"I_n(i!1)(m!1)" )
(("2"
(expand
"bounded_open_interval?" )
(("2"
(expand
"bounded_interval?" )
(("2"
(flatten)
nil
nil ))
nil ))
nil ))
nil ))
nil ))
nil )
("2"
(hide-all-but
1)
(("2"
(skosimp)
(("2"
(rewrite
"series_first"
1)
(("2"
(rewrite
"series_first"
1)
(("2"
(case
"forall (nna:sequence[nnreal]):series(nna, 1)=series(lambda n: if n=0 then 0 else nna(n) endif)" )
(("1"
(inst-cp
-
"nna!1" )
(("1"
(inst
-
"nnb!1" )
(("1"
(replace
-1)
(("1"
(replace
-2)
(("1"
(lemma
"convergent_diff"
("s1"
"series(LAMBDA n: IF n = 0 THEN 0 ELSE nnb!1(n) ENDIF)"
"s2"
"series(LAMBDA n: IF n = 0 THEN 0 ELSE nna!1(n) ENDIF)" ))
(("1"
(case-replace
"convergence_sequences.convergent?(series(LAMBDA n: IF n = 0 THEN 0 ELSE nnb!1(n) ENDIF))" )
(("1"
(case-replace
"convergence_sequences.convergent?(series(LAMBDA n: IF n = 0 THEN 0 ELSE nna!1(n) ENDIF))" )
(("1"
(rewrite
"series_diff" )
(("1"
(lemma
"limit_nonneg"
("nna"
"series((LAMBDA n: IF n = 0 THEN 0 ELSE nnb!1(n) ENDIF) -
(LAMBDA n: IF n = 0 THEN 0 ELSE nna!1(n) ENDIF))"))
(("1"
(replace
-4)
(("1"
(rewrite
"series_diff"
-1
:dir
rl)
(("1"
(rewrite
"limit_diff"
-1)
(("1"
(inst
-
"0" )
(("1"
(assert )
nil
nil ))
nil ))
nil ))
nil ))
nil )
("2"
(hide-all-but
(-8
1))
(("2"
(skolem
+
("n!1" ))
(("2"
(expand
"series" )
(("2"
(lemma
"sigma_ge_0"
("low"
"0"
"high"
"n!1"
"F"
"LAMBDA (x: nat):
IF x = 0 THEN 0 ELSE nnb!1(x) ENDIF -
IF x = 0 THEN 0 ELSE nna!1(x) ENDIF"))
(("2"
(split
-1)
(("1"
(expand
"-" )
(("1"
(propax)
nil
nil ))
nil )
("2"
(hide
2)
(("2"
(skosimp)
(("2"
(inst
-
"n!2" )
(("2"
(lift-if
1)
(("2"
(assert )
nil
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil )
("2"
(hide-all-but
(-5
1
-4))
(("2"
(lemma
"end_series_conv"
("a"
"nna!1"
"m"
"1" ))
(("2"
(assert )
nil
nil ))
nil ))
nil ))
nil )
("2"
(lemma
"end_series_conv"
("a"
"nnb!1"
"m"
"1" ))
(("2"
(assert )
nil
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil )
("2"
(hide-all-but
1)
(("2"
(skosimp)
(("2"
(expand
"series" )
(("2"
(apply-extensionality
:hide?
t)
(("2"
(lemma
"sigma_first"
("high"
"x!1"
"low"
"0"
"F"
"LAMBDA n: IF n = 0 THEN 0 ELSE nna!2(n) ENDIF" ))
(("2"
(assert )
(("2"
(lemma
"sigma_eq"
("low"
"1"
"high"
"x!1"
"F"
"nna!2"
"G"
"LAMBDA n: IF n = 0 THEN 0 ELSE nna!2(n) ENDIF" ))
(("2"
(split
-1)
(("1"
(assert )
nil
nil )
("2"
(skosimp)
(("2"
(assert )
nil
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil )
("2"
(hide
2)
(("2"
(lemma
"comparison_test"
("b"
"LAMBDA (i: nat):
x_add((TRUE, R / 2 ^ i), L(X!1(i)))`2"
"a"
"LAMBDA (i: nat):
x_sum(LAMBDA (m: nat): x_length(I_n(i)(m)))`2"))
(("2"
(replace
-2)
(("2"
(split
-1)
(("1"
(propax)
nil
nil )
("2"
(hide
2)
(("2"
(skosimp)
(("2"
(expand
"abs"
1
1)
(("2"
(assert )
(("2"
(lift-if
1)
(("2"
(assert )
(("2"
(inst
-
"n!1" )
(("2"
(inst
-
"n!1" )
(("2"
(inst
-7
"n!1" )
(("2"
(flatten)
(("2"
(expand
"x_lt"
-8)
(("2"
(propax)
nil
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil )
("2"
(hide-all-but
(-3
1))
(("2"
(prop)
nil
nil ))
nil ))
nil ))
nil ))
nil )
("2"
(hide
2)
(("2"
(skosimp)
(("2"
(inst
-5
"i!1" )
(("2"
(flatten)
(("2"
(inst
-
"i!1" )
(("2"
(expand
"x_lt"
-6)
(("2"
(assert )
nil
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil )
("2"
(hide
2)
(("2"
(skosimp)
(("2"
(expand
"x_add"
1)
(("2"
(inst
-7
"i!1" )
(("2"
(assert )
nil
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil )
("3"
(skosimp)
(("3"
(typepred
"I_n(n!1)(m!1)" )
(("3"
(expand
"bounded_open_interval?" )
(("3"
(expand
"bounded_interval?" )
(("3"
(flatten)
nil
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil )
("2"
(hide 2)
(("2"
(expand
"subset?"
1)
(("2"
(skosimp)
(("2"
(expand
"member" )
(("2"
(expand
"IUnion"
(-1
1))
(("2"
(skolem
-
("n!1" ))
(("2"
(inst
-4
"n!1" )
(("2"
(flatten)
(("2"
(expand
"subset?"
-4)
(("2"
(inst
-4
"x!1" )
(("2"
(expand
"member" )
(("2"
(assert )
(("2"
(expand
"IUnion"
-4)
(("2"
(skosimp)
(("2"
(inst
+
"NN(n!1,i!1)" )
(("2"
(inst
-
"n!1"
"i!1" )
(("2"
(flatten)
(("2"
(assert )
nil
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil )
("2"
(hide 2)
(("2"
(skosimp)
(("2"
(inst - "n!1" )
(("2"
(skosimp)
(("2"
(hide -1)
(("2"
(expand "I_n" )
(("2"
(lemma
"choose_member"
("a"
"{I
|
subset?[real]
(X!1(n!1), IUnion[nat, real](I))
&
x_lt
(x_sum
(LAMBDA (n: nat): x_length(I(n))),
x_add
((TRUE, R / 2 ^ n!1), L(X!1(n!1))))}"))
(("1"
(split -1)
(("1"
(name-replace
"II"
"choose({I |
subset?[real](X!1(n!1), IUnion[nat, real](I)) &
x_lt(x_sum(LAMBDA (n: nat): x_length(I(n))),
x_add((TRUE, R / 2 ^ n!1), L(X!1(n!1))))})")
(("1"
(expand
"member" )
(("1"
(propax)
nil
nil ))
nil )
("2"
(hide
-1
2)
(("2"
(expand
"nonempty?" )
(("2"
(expand
"empty?" )
(("2"
(expand
"member" )
(("2"
(inst
-
"I!1" )
(("2"
(assert )
nil
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil )
("2"
(hide 1)
(("2"
(expand
"empty?" )
(("2"
(expand
"member" )
(("2"
(inst
-
"I!1" )
(("2"
(assert )
nil
nil ))
nil ))
nil ))
nil ))
nil ))
nil )
("2"
(hide 2)
(("2"
(skosimp)
(("2"
(skosimp)
(("2"
(typepred
"I!2(n!2)" )
(("2"
(expand
"bounded_open_interval?" )
(("2"
(expand
"bounded_interval?" )
(("2"
(flatten)
nil
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil )
("3"
(skosimp)
(("3"
(skosimp)
(("3"
(typepred
"I_n(n!1)(m!1)" )
(("3"
(expand
"bounded_open_interval?" )
(("3"
(expand
"bounded_interval?" )
(("3"
(flatten)
nil
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil )
("2"
(hide 2)
(("2"
(skosimp)
(("2"
(inst - "n!1" )
(("2"
(skosimp)
(("2"
(expand
"nonempty?" )
(("2"
(expand "empty?" )
(("2"
(expand
"member" )
(("2"
(inst
-
"I!1" )
(("2"
(assert )
nil
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil )
("2" (hide 2)
(("2" (skosimp)
(("2" (expand "x_lt" )
(("2"
(expand "x_add" )
(("2"
(inst - "n!1" )
(("2"
(replace -1)
(("2"
(expand "L" (-1 1))
(("2"
(expand "x_inf" )
(("2"
(prop)
(("2"
(replace 1 2)
(("2"
(skosimp)
(("2"
(expand "o " )
(("2"
(case
"nonempty?({z_1: real |
EXISTS (x: extended_nnreal):
(EXISTS I:
x_le(x_sum(LAMBDA (x: nat): x_length(I(x))), x) AND
subset?[real](X!1(n!1), IUnion[nat, real](I)))
AND x`1 AND x`2 = z_1})")
(("1"
(case
"bounded_below?({z_1: real |
EXISTS (x: extended_nnreal):
(EXISTS I:
x_le(x_sum(LAMBDA (x: nat): x_length(I(x))), x) AND
subset?[real](X!1(n!1), IUnion[nat, real](I)))
AND x`1 AND x`2 = z_1})")
(("1"
(typepred
"glb({z_1: real |
EXISTS (x: extended_nnreal):
(EXISTS I:
x_le(x_sum(LAMBDA (x: nat): x_length(I(x))),
x)
AND
subset?[real]
(X!1(n!1), IUnion[nat, real](I)))
AND x`1 AND x`2 = z_1})")
(("1"
(name-replace
"LIMIT"
"glb({z_1: real |
EXISTS (x: extended_nnreal):
(EXISTS I:
x_le(x_sum(LAMBDA (x: nat): x_length(I(x))),
x)
AND
subset?[real]
(X!1(n!1), IUnion[nat, real](I)))
AND x`1 AND x`2 = z_1})")
(("1"
(hide -2 -3)
(("1"
(expand
"greatest_lower_bound?" )
(("1"
(flatten)
(("1"
(lemma
"posreal_div_posreal_is_posreal"
("px"
"r!1"
"py"
"2^n!1" ))
(("1"
(inst
-3
"r!1 / 2 ^ n!1 + LIMIT" )
(("1"
(expand
"lower_bound?" )
(("1"
(assert )
(("1"
(skosimp)
(("1"
(case
"s!1<r!1 / 2 ^ n!1 + LIMIT" )
(("1"
(hide
1)
(("1"
(typepred
"s!1" )
(("1"
(skosimp)
(("1"
(skosimp)
(("1"
(inst
+
"I!1" )
(("1"
(assert )
(("1"
(expand
"x_le" )
(("1"
(flatten)
(("1"
(assert )
nil
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil )
("2"
(assert )
nil
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil )
("2"
(assert )
nil
nil ))
nil )
("2"
(hide 2)
(("2"
(expand
"bounded_below?" )
(("2"
(inst + "0" )
(("2"
(expand
"lower_bound?" )
(("2"
(skosimp)
(("2"
(typepred
"s!1" )
(("2"
(skosimp)
(("2"
(skosimp)
(("2"
(assert )
nil
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil )
("3"
(propax)
nil
nil ))
nil )
("2"
(hide 2)
(("2"
(expand
"nonempty?" )
(("2"
(expand
"empty?" )
(("2"
(expand
"member" )
(("2"
(inst
-
"x!1`2" )
(("2"
(inst
+
"x!1" )
(("2"
(assert )
(("2"
(typepred
"x!1" )
(("2"
(skosimp)
(("2"
(expand
"o" )
(("2"
(inst
+
"I!1" )
(("2"
(assert )
nil
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil )
("3"
(skosimp)
(("3"
(typepred
"I!1(x1!1)" )
(("3"
(expand
"bounded_open_interval?" )
(("3"
(expand
"bounded_interval?" )
(("3"
(flatten)
nil
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil )
("3" (skosimp)
(("3" (skosimp)
(("3" (typepred "I!1(n1!1)" )
(("3"
(expand "bounded_open_interval?" )
(("3"
(expand "bounded_interval?" )
(("3" (flatten) nil nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil )
("2" (hide 2)
(("2" (expand "o " )
(("2" (expand "x_sum" ) (("2" (prop) nil nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil )
("2" (hide 2)
(("2" (expand "om_increasing?" )
(("2" (skosimp)
(("2" (expand "x_le" )
(("2" (case-replace "L(a!1)`1" )
(("1" (expand "L" )
(("1" (expand "o" )
(("1" (expand "x_inf" )
(("1"
(case-replace "FORALL (x_1:
({z |
EXISTS I:
x_le(x_sum(LAMBDA (x: nat): x_length(I(x))), z)
AND subset?[real](a!1, IUnion[nat, real](I))})):
NOT x_1`1")
(("1" (replace 1)
(("1"
(skolem + ("AAX" ))
(("1"
(prop)
(("1"
(replace 1)
(("1"
(skolem + ("BBX" ))
(("1"
(hide -4)
(("1"
(case
"nonempty?({z_1: real |
EXISTS (x_1: extended_nnreal):
(EXISTS I:
x_le(x_sum(LAMBDA (x: nat): x_length(I(x))), x_1) AND
subset?[real](a!1, IUnion[nat, real](I)))
AND x_1`1 AND x_1`2 = z_1})")
(("1"
(case
"bounded_below?({z_1: real |
EXISTS (x_1: extended_nnreal):
(EXISTS I:
x_le(x_sum(LAMBDA (x: nat): x_length(I(x))), x_1) AND
subset?[real](a!1, IUnion[nat, real](I)))
AND x_1`1 AND x_1`2 = z_1})")
(("1"
(typepred
"glb({z_1: real |
EXISTS (x_1: extended_nnreal):
(EXISTS I:
x_le(x_sum(LAMBDA (x: nat): x_length(I(x))), x_1) AND
subset?[real](a!1, IUnion[nat, real](I)))
AND x_1`1 AND x_1`2 = z_1})")
(("1"
(name-replace
"GLBA"
"glb({z_1: real |
EXISTS (x_1: extended_nnreal):
(EXISTS I:
x_le(x_sum(LAMBDA (x: nat): x_length(I(x))), x_1) AND
subset?[real](a!1, IUnion[nat, real](I)))
AND x_1`1 AND x_1`2 = z_1})")
(("1"
(hide -2 -3)
(("1"
(case
"nonempty?({z_1: real |
EXISTS (x_1: extended_nnreal):
(EXISTS I:
x_le(x_sum(LAMBDA (x: nat): x_length(I(x))), x_1) AND
subset?[real](b!1, IUnion[nat, real](I)))
AND x_1`1 AND x_1`2 = z_1})")
(("1"
(case
"bounded_below?({z_1: real |
EXISTS (x_1: extended_nnreal):
(EXISTS I:
x_le(x_sum(LAMBDA (x: nat): x_length(I(x))), x_1) AND
subset?[real](b!1, IUnion[nat, real](I)))
AND x_1`1 AND x_1`2 = z_1})")
(("1"
(typepred
"glb({z_1: real |
EXISTS (x_1: extended_nnreal):
(EXISTS I:
x_le(x_sum(LAMBDA (x: nat): x_length(I(x))), x_1) AND
subset?[real](b!1, IUnion[nat, real](I)))
AND x_1`1 AND x_1`2 = z_1})")
(("1"
(name-replace
"GLBB"
"glb({z_1: real |
EXISTS (x_1: extended_nnreal):
(EXISTS I:
x_le(x_sum(LAMBDA (x: nat): x_length(I(x))), x_1) AND
subset?[real](b!1, IUnion[nat, real](I)))
AND x_1`1 AND x_1`2 = z_1})")
(("1"
(hide
-2
-3)
(("1"
(expand
"greatest_lower_bound?" )
(("1"
(expand
"lower_bound?" )
(("1"
(flatten)
(("1"
(inst
-2
"GLBA" )
(("1"
(assert )
(("1"
(skosimp)
(("1"
(case
"GLBB<GLBA" )
(("1"
(hide
2)
(("1"
(typepred
"s!1" )
(("1"
(skosimp*)
(("1"
(hide
-6
-8)
(("1"
(inst
-
"s!1" )
(("1"
(inst
+
"x!1" )
(("1"
(assert )
(("1"
(inst
+
"I!1" )
(("1"
(assert )
(("1"
(hide-all-but
(-2
-8
1))
(("1"
(expand
"subset?" )
(("1"
(skosimp)
(("1"
(inst
-
"x!2" )
(("1"
(inst
-
"x!2" )
(("1"
(expand
"member" )
(("1"
(assert )
nil
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil )
("2"
(assert )
nil
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil )
("2"
(assert )
nil
nil ))
nil )
("2"
(hide -2 2)
(("2"
(expand
"bounded_below?" )
(("2"
(inst
+
"0" )
(("2"
(expand
"lower_bound?" )
(("2"
(skosimp)
(("2"
(typepred
"s!1" )
(("2"
(skosimp*)
(("2"
(assert )
nil
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil )
("3"
(propax)
nil
nil ))
nil )
("2"
(hide -1 2)
(("2"
(expand
"nonempty?" )
(("2"
(expand
"empty?" )
(("2"
(expand
"member" )
(("2"
(inst
-
"BBX`2" )
(("2"
(inst
+
"BBX" )
(("2"
(assert )
nil
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil )
("2" (assert ) nil nil ))
nil )
("2"
(hide -1 2)
(("2"
(expand
"bounded_below?" )
(("2"
(inst + "0" )
(("2"
(expand
"lower_bound?" )
(("2"
(skosimp)
(("2"
(typepred
"s!1" )
(("2"
(skosimp*)
(("2"
(assert )
nil
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil )
("3" (propax) nil nil ))
nil )
("2"
(hide 2)
(("2"
(expand "nonempty?" )
(("2"
(expand "empty?" )
(("2"
(expand "member" )
(("2"
(inst - "AAX`2" )
(("2"
(inst + "AAX" )
(("2"
(assert )
nil
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil )
("3"
(skosimp)
(("3"
(typepred "I!1(x!1)" )
(("3"
(expand
"bounded_open_interval?" )
(("3"
(expand
"bounded_interval?" )
(("3"
(flatten)
nil
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil )
("2" (replace 1)
(("2" (hide -3)
(("2" (expand "L" )
(("2" (expand "o" )
(("2" (expand "x_inf" )
(("2"
(prop)
(("2"
(skosimp)
(("2"
(typepred "x!1" )
(("2"
(skosimp)
(("2"
(inst - "x!1" )
(("2"
(inst + "I!1" )
(("2"
(assert )
(("2"
(hide -1 -3)
(("2"
(expand "subset?" )
(("2"
(expand "member" )
(("2"
(skosimp)
(("2"
(inst - "x!2" )
(("2"
(inst - "x!2" )
(("2"
(assert )
nil
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil )
("2" (hide 2)
(("2" (expand "om_empty?" )
(("2" (expand "L" )
(("2" (expand "o" )
(("2" (expand "x_inf" )
(("2" (lift-if 1)
(("2" (assert )
(("2" (prop)
(("1" (inst - "(TRUE,0)" )
(("1" (inst + "lambda n: emptyset[real]" )
(("1" (split)
(("1"
(case-replace
"x_length(emptyset[real]) = (TRUE,0)" )
(("1"
(hide -1)
(("1"
(expand "x_le" )
(("1"
(expand "x_sum" )
(("1"
(rewrite "zero_series_conv" )
(("1"
(rewrite "zero_series_limit" )
(("1" (assert ) nil nil ))
nil ))
nil ))
nil ))
nil ))
nil )
("2"
(hide 2)
(("2"
(expand "x_length" )
(("2"
(case-replace
"length(emptyset[real])=0" )
(("1"
(lift-if)
(("1"
(assert )
(("1"
(prop)
(("1"
(hide -1)
(("1"
(expand
"bounded_interval?" )
(("1"
(split)
(("1"
(expand "emptyset" )
(("1"
(expand
"interval?" )
(("1"
(grind)
nil
nil ))
nil ))
nil )
("2"
(expand "bounded?" )
(("2"
(flatten)
(("2"
(hide 2)
(("2"
(grind)
nil
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil )
("2"
(rewrite "length_empty_rew" )
nil
nil )
("3"
(hide 2)
(("3"
(expand "bounded_interval?" )
(("3"
(split)
(("1"
(expand "emptyset" )
(("1"
(expand "interval?" )
(("1" (grind) nil nil ))
nil ))
nil )
("2"
(expand "bounded?" )
(("2"
(flatten)
(("2"
(hide 2)
(("2"
(grind)
nil
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil )
("3"
(hide 2)
(("3" (grind) nil nil ))
nil ))
nil )
("2"
(expand "subset?" )
(("2"
(expand "emptyset" )
(("2"
(expand "member" )
(("2" (propax) nil nil ))
nil ))
nil ))
nil ))
nil )
("2" (expand "bounded_open_interval?" )
(("2"
(expand "bounded_interval?" )
(("2"
(split)
(("1" (grind) nil nil )
("2"
(expand "bounded?" )
(("2"
(flatten)
(("2"
(hide 2)
(("2" (grind) nil nil ))
nil ))
nil ))
nil )
("3"
(lemma
"metric_open_def"
("S" "emptyset[real]" ))
(("3"
(assert )
(("3"
(hide 2)
(("3"
(typepred
"metric_induced_topology" )
(("3"
(expand "open?" )
(("3"
(expand "member" )
(("3"
(expand
"hausdorff_space?" )
(("3"
(expand "topology?" )
(("3"
(flatten)
(("3"
(expand
"topology_empty?" )
(("3"
(expand
"member" )
(("3"
(propax)
nil
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil )
("2" (skosimp)
(("2"
(case "nonempty?({z_1: real |
EXISTS (x_1: extended_nnreal):
(EXISTS I:
x_le(x_sum(LAMBDA (x: nat): x_length(I(x))), x_1) AND
subset?[real](emptyset[real], IUnion[nat, real](I)))
AND x_1`1 AND x_1`2 = z_1})")
(("1"
(case "bounded_below?({z_1: real |
EXISTS (x_1: extended_nnreal):
(EXISTS I:
x_le(x_sum(LAMBDA (x: nat): x_length(I(x))), x_1) AND
subset?[real](emptyset[real], IUnion[nat, real](I)))
AND x_1`1 AND x_1`2 = z_1})")
(("1"
(typepred
"glb({z_1: real |
EXISTS (x_1: extended_nnreal):
(EXISTS I:
x_le(x_sum(LAMBDA (x: nat): x_length(I(x))), x_1) AND
subset?[real](emptyset[real], IUnion[nat, real](I)))
AND x_1`1 AND x_1`2 = z_1})")
(("1"
(name-replace
"GLB"
"glb({z_1: real |
EXISTS (x_1: extended_nnreal):
(EXISTS I:
x_le(x_sum(LAMBDA (x: nat): x_length(I(x))), x_1) AND
subset?[real](emptyset[real], IUnion[nat, real](I)))
AND x_1`1 AND x_1`2 = z_1})")
(("1"
(hide -2 -3)
(("1"
(expand "greatest_lower_bound?" )
(("1"
(flatten)
(("1"
(expand "lower_bound?" )
(("1"
(inst -2 "0" )
(("1"
(split)
(("1"
(inst - "0" )
(("1" (assert ) nil nil )
("2"
(hide -1 -2 2)
(("2"
(inst + "(TRUE,0)" )
(("2"
(inst
+
"lambda n: emptyset[real]" )
(("1"
(case-replace
"x_length(emptyset[real])=(TRUE,0)" )
(("1"
(hide -1)
(("1"
(split)
(("1"
(expand
"x_le" )
(("1"
(expand
"x_sum" )
(("1"
(rewrite
"zero_series_conv" )
(("1"
(rewrite
"zero_series_limit" )
(("1"
(assert )
nil
nil ))
nil ))
nil ))
nil ))
nil )
("2"
(expand
"subset?" )
(("2"
(expand
"emptyset" )
(("2"
(expand
"member" )
(("2"
(propax)
nil
nil ))
nil ))
nil ))
nil ))
nil ))
nil )
("2"
(expand
"x_length" )
(("2"
(hide 2)
(("2"
(lift-if)
(("2"
(assert )
(("2"
(rewrite
"length_empty_rew" )
(("2"
(prop)
(("2"
(expand
"bounded_interval?" )
(("2"
(split)
(("1"
(grind)
nil
nil )
("2"
(expand
"bounded?" )
(("2"
(flatten)
(("2"
(hide
2)
(("2"
(grind)
nil
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil )
("3"
(hide 2)
(("3"
(grind)
nil
nil ))
nil ))
nil )
("2"
(expand
"bounded_open_interval?" )
(("2"
(expand
"bounded_interval?" )
(("2"
(split)
(("1"
(grind)
nil
nil )
("2"
(expand
"bounded?" )
(("2"
(flatten)
(("2"
(hide
2)
(("2"
(grind)
nil
nil ))
nil ))
nil ))
nil )
("3"
(typepred
"metric_induced_topology" )
(("3"
(rewrite
"metric_open_def"
1)
(("3"
(expand
"open?" )
(("3"
(expand
"hausdorff_space?" )
(("3"
(expand
"topology?" )
(("3"
(flatten)
(("3"
(expand
"topology_empty?" )
(("3"
(propax)
nil
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil )
("2"
(skosimp)
(("2"
(typepred "s!1" )
(("2"
(skosimp)
(("2"
(skosimp)
(("2"
(assert )
nil
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil )
("2" (assert ) nil nil ))
nil )
("2"
(hide 2 -1)
(("2"
(expand "bounded_below?" )
(("2"
(inst + "0" )
(("2"
(expand "lower_bound?" )
(("2"
(skosimp)
(("2"
(typepred "s!1" )
(("2"
(skosimp)
(("2"
(skosimp)
(("2" (assert ) nil nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil )
("3" (propax) nil nil ))
nil )
("2" (hide 2)
(("2"
(expand "nonempty?" )
(("2"
(expand "empty?" )
(("2"
(inst - "x!1`2" )
(("2"
(expand "member" )
(("2"
(inst + "x!1" )
(("2" (assert ) nil nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil )
("3" (skosimp)
(("3"
(typepred "I!1(x!2)" )
(("3"
(expand "bounded_open_interval?" )
(("3"
(expand "bounded_interval?" )
(("3" (flatten) nil nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil )
("2" (hide 2)
(("2" (skosimp)
(("2" (skosimp)
(("2" (typepred "I!1(x1!1)" )
(("2" (expand "bounded_open_interval?" )
(("2" (expand "bounded_interval?" )
(("2" (flatten) nil nil )) nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil )
((outer_measure? const-decl "bool" outer_measure_def
"measure_integration/" )
(emptyset const-decl "set" sets nil )
(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/" )
(setof type-eq-decl nil defined_types nil )
(setofsets type-eq-decl nil sets nil )
(hausdorff_space? const-decl "bool" topology_prelim "topology/" )
(metric_induced_topology const-decl "setofsets[T]" metric_space_def
"metric_space/" )
(hausdorff? const-decl "bool" topology_prelim "topology/" )
(second_countable? const-decl "bool" topology_def "topology/" )
(topology? const-decl "bool" topology_prelim "topology/" )
(topology_empty? const-decl "bool" topology_prelim "topology/" )
(open? const-decl "bool" topology "topology/" )
(- const-decl "[numfield -> numfield]" number_fields nil )
(metric_open_def formula-decl nil metric_space "metric_space/" )
(length const-decl "nnreal" real_intervals_aux nil )
(bounded_interval nonempty-type-eq-decl nil real_topology
"metric_space/" )
(bounded? const-decl "bool" real_topology "metric_space/" )
(length_empty_rew formula-decl nil real_intervals_aux nil )
(zero_series_limit formula-decl nil series "series/" )
(zero_series_conv formula-decl nil series "series/" )
(finite_emptyset name-judgement "finite_set" finite_sets nil )
(finite_emptyset name-judgement "finite_set[T]" countable_setofsets
"sets_aux/" )
(finite_emptyset name-judgement "finite_set[T]" countable_props
"sets_aux/" )
(emptyset_is_clopen name-judgement
"clopen[real, (metric_induced_topology)]" real_topology
"metric_space/" )
(emptyset_is_compact name-judgement
"compact[real, (metric_induced_topology)]" real_topology
"metric_space/" )
(om_increasing? const-decl "bool" outer_measure_def
"measure_integration/" )
(< 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 )
(real_minus_real_is_real application-judgement "real" reals nil )
(- const-decl "[numfield, numfield -> numfield]" number_fields nil )
(subset_is_partial_order name-judgement "(partial_order?[set[T]])"
sets_lemmas nil )
(real_lt_is_strict_total_order name-judgement
"(strict_total_order?[real])" real_props nil )
(posreal_plus_nnreal_is_posreal application-judgement "posreal"
real_types nil )
(nonempty? const-decl "bool" sets nil )
(choose const-decl "(p)" sets nil )
(choose_member formula-decl nil sets_lemmas nil )
(double_index_n_ij formula-decl nil code_product
"extended_nnreal/" )
(double_index_n const-decl "nat" code_product "extended_nnreal/" )
(double_index_j const-decl "nat" code_product "extended_nnreal/" )
(single_index const-decl "[nat -> T]" double_index
"extended_nnreal/" )
(II skolem-const-decl "[nat -> nat]" real_lebesgue_scaf nil )
(JJ skolem-const-decl "[nat -> nat]" real_lebesgue_scaf nil )
(NOT const-decl "[bool -> bool]" booleans nil )
(greatest_lower_bound? const-decl "bool" bounded_real_defs nil )
(bounded_below? const-decl "bool" bounded_real_defs nil )
(glb const-decl "{x | greatest_lower_bound?(x, SB)}"
bounded_real_defs nil )
(lower_bound? const-decl "bool" bounded_real_defs nil )
(I!1 skolem-const-decl "sequence[bounded_open_interval]"
real_lebesgue_scaf nil )
(A!1 skolem-const-decl "set[real]" real_lebesgue_scaf nil )
(bounded_interval? const-decl "bool" real_topology "metric_space/" )
(empty? const-decl "bool" sets nil )
(member const-decl "bool" sets nil )
(L skolem-const-decl "[set[real] -> extended_nnreal]"
real_lebesgue_scaf nil )
(double_x_sum formula-decl nil extended_nnreal "extended_nnreal/" )
(real_le_is_total_order name-judgement "(total_order?[real])"
real_props nil )
(series_first formula-decl nil series "series/" )
(series const-decl "sequence[real]" series "series/" )
(end_series_conv formula-decl nil series "series/" )
(series_diff formula-decl nil series "series/" )
(subrange type-eq-decl nil integers nil )
(T_low type-eq-decl nil sigma "reals/" )
(T_high type-eq-decl nil sigma "reals/" )
(<= const-decl "bool" reals nil )
(sigma_ge_0 formula-decl nil sigma "reals/" )
(limit_diff formula-decl nil convergence_ops "analysis/" )
(- const-decl "[T -> real]" real_fun_ops "reals/" )
(limit_nonneg formula-decl nil series_aux "series/" )
(convergent_diff formula-decl nil convergence_ops "analysis/" )
(sigma def-decl "real" sigma "reals/" )
(sigma_nnreal application-judgement "nnreal" sigma_nat "reals/" )
(sigma_eq formula-decl nil sigma "reals/" )
(sigma_first formula-decl nil sigma "reals/" )
(X!1 skolem-const-decl "[nat -> set[real]]" real_lebesgue_scaf nil )
(R skolem-const-decl "posreal" real_lebesgue_scaf nil )
(I_n skolem-const-decl "[n: nat ->
({I |
subset?[real](X!1(n), IUnion[nat, real](I)) &
x_lt(x_sum(LAMBDA (n: nat): x_length(I(n))),
x_add((TRUE, R / 2 ^ n), L(X!1(n))))})]"
real_lebesgue_scaf nil )
(limit const-decl "real" convergence_sequences "analysis/" )
(comparison_test formula-decl nil series "series/" )
(double_index_i const-decl "nat" code_product "extended_nnreal/" )
(double_index_ij_n formula-decl nil code_product
"extended_nnreal/" )
(posreal_div_posreal_is_posreal judgement-tcc nil real_types nil )
(x_eq const-decl "bool" extended_nnreal "extended_nnreal/" )
(convergent_scal formula-decl nil convergence_ops "analysis/" )
(convergent_sum formula-decl nil convergence_ops "analysis/" )
(* const-decl "[numfield, numfield -> numfield]" number_fields nil )
(real_times_real_is_real application-judgement "real" reals nil )
(series_scal formula-decl nil series "series/" )
(geometric_conv formula-decl nil series "series/" )
(posrat_div_posrat_is_posrat application-judgement "posrat"
rationals nil )
(const_geometric_series formula-decl nil series "series/" )
(abs const-decl "{n: nonneg_real | n >= m AND n >= -m}" real_defs
nil )
(convergent? const-decl "bool" convergence_sequences "analysis/" )
(limit_def formula-decl nil convergence_sequences "analysis/" )
(series const-decl "sequence[real]" series "series/" )
(cnv_seq_sum formula-decl nil convergence_ops "analysis/" )
(* const-decl "[T -> real]" real_fun_ops "reals/" )
(geometric const-decl "sequence[real]" series "series/" )
(series_sum formula-decl nil series "series/" )
(unique_limit formula-decl nil convergence_sequences "analysis/" )
(nzreal nonempty-type-eq-decl nil reals nil )
(inv_expt formula-decl nil exponentiation nil )
(posreal_times_posreal_is_posreal application-judgement "posreal"
real_types nil )
(posrat_exp application-judgement "posrat" exponentiation nil )
(nnrat_exp application-judgement "nnrat" exponentiation nil )
(+ const-decl "[T -> real]" real_fun_ops "reals/" )
(real_plus_real_is_real application-judgement "real" reals nil )
(nzreal_div_nzreal_is_nzreal application-judgement "nzreal"
real_types nil )
(rat_minus_rat_is_rat application-judgement "rat" rationals nil )
(IF const-decl "[boolean, T, T -> T]" if_def nil )
(+ const-decl "[numfield, numfield -> numfield]" number_fields nil )
(FALSE const-decl "bool" booleans nil )
(IMPLIES const-decl "[bool, bool -> bool]" booleans nil )
(posint_exp application-judgement "posint" exponentiation nil )
(posreal_div_posreal_is_posreal application-judgement "posreal"
real_types nil )
(nonneg_real nonempty-type-eq-decl nil real_types nil )
(> const-decl "bool" reals nil )
(posreal nonempty-type-eq-decl nil real_types nil )
(x_lt const-decl "bool" extended_nnreal "extended_nnreal/" )
(x_add const-decl "extended_nnreal" extended_nnreal
"extended_nnreal/" )
(TRUE const-decl "bool" booleans nil )
(numfield nonempty-type-eq-decl nil number_fields nil )
(/= const-decl "boolean" notequal nil )
(nznum nonempty-type-eq-decl nil number_fields nil )
(/ const-decl "[numfield, nznum -> numfield]" number_fields nil )
(OR const-decl "[bool, bool -> bool]" booleans nil )
(^ const-decl "real" exponentiation nil )
(om_countably_subadditive? const-decl "bool" outer_measure_def
"measure_integration/" )
(x!1 skolem-const-decl "({z |
EXISTS I:
x_le(x_sum(LAMBDA (x: nat): x_length(I(x))), z) AND
subset?[real](b!1, IUnion[nat, real](I))})" real_lebesgue_scaf
nil )
(s!1 skolem-const-decl "({z_1: real |
EXISTS (x_1: extended_nnreal):
(EXISTS I:
x_le(x_sum(LAMBDA (x: nat): x_length(I(x))), x_1) AND
subset?[real](b!1, IUnion[nat, real](I)))
AND x_1`1 AND x_1`2 = z_1})" real_lebesgue_scaf nil)
(b!1 skolem-const-decl "set[real]" real_lebesgue_scaf nil )
(a!1 skolem-const-decl "set[real]" real_lebesgue_scaf nil )
(om_empty? const-decl "bool" outer_measure_def
"measure_integration/" )
(IUnion const-decl "set[T]" indexed_sets nil )
(subset? const-decl "bool" sets nil )
(x_length const-decl "extended_nnreal" real_lebesgue_scaf nil )
(O const-decl "T3" function_props nil )
(interval nonempty-type-eq-decl nil real_topology "metric_space/" )
(interval? const-decl "bool" real_topology "metric_space/" )
(x_sum const-decl "extended_nnreal" extended_nnreal
"extended_nnreal/" )
(x_le const-decl "bool" extended_nnreal "extended_nnreal/" )
(AND const-decl "[bool, bool -> bool]" booleans nil )
(sequence type-eq-decl nil sequences nil )
(bounded_open_interval nonempty-type-eq-decl nil real_topology
"metric_space/" )
(bounded_open_interval? const-decl "bool" real_topology
"metric_space/" )
(nat nonempty-type-eq-decl nil naturalnumbers nil )
(int nonempty-type-eq-decl nil integers nil )
(integer_pred const-decl "[rational -> boolean]" integers nil )
(rational nonempty-type-from-decl nil rationals nil )
(rational_pred const-decl "[real -> boolean]" rationals nil )
(x_inf const-decl "extended_nnreal" extended_nnreal
"extended_nnreal/" )
(= const-decl "[T, T -> boolean]" equalities nil )
(extended_nnreal nonempty-type-eq-decl nil extended_nnreal
"extended_nnreal/" )
(nnreal type-eq-decl nil real_types nil )
(>= const-decl "bool" reals nil ) (set type-eq-decl nil sets 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 ))
nil ))
(lebesgue_outer_measure_singleton 0
(lebesgue_outer_measure_singleton-1 nil 3408170906
("" (skosimp)
(("" (expand "x_eq" )
(("" (expand "lebesgue_outer_measure" )
((""
(name "ZZ" "{z |
EXISTS I:
x_le(x_sum(x_length o I), z) AND
subset?[real](singleton[real](x!1), IUnion(I))}")
(("1" (replace -1)
(("1" (expand "x_inf" )
(("1" (hide -1)
(("1" (case "forall (r:posreal): ZZ(TRUE,r)" )
(("1" (case-replace "FORALL (x: (ZZ)): NOT x`1" )
(("1" (inst -2 "1" )
(("1" (inst - "(TRUE, 1)" ) nil nil )) nil )
("2" (replace 1 2)
(("2" (hide 1)
(("2"
(case "nonempty?({x | EXISTS z: ZZ(z) AND z`1 AND z`2 = x})" )
(("1"
(case "bounded_below?({x | EXISTS z: ZZ(z) AND z`1 AND z`2 = x})" )
(("1"
(typepred
"glb({x | EXISTS z: ZZ(z) AND z`1 AND z`2 = x})" )
(("1"
(name-replace
"GLB"
"glb({x | EXISTS z: ZZ(z) AND z`1 AND z`2 = x})" )
(("1"
(hide -2 -3)
(("1"
(expand "greatest_lower_bound?" )
(("1"
(flatten)
(("1"
(expand "lower_bound?" )
(("1"
(expand "<=" -2 2)
(("1"
(inst -2 "0" )
(("1"
(assert )
(("1"
(split -2)
(("1"
(hide 1)
(("1"
(inst -3 "GLB/2" )
(("1"
(inst - "GLB/2" )
(("1"
(assert )
nil
nil )
("2"
(inst
+
"(TRUE, GLB / 2)" )
(("2"
(assert )
nil
nil ))
nil ))
nil )
("2"
(assert )
nil
nil ))
nil ))
nil )
("2"
(skosimp)
(("2"
(typepred "s!1" )
(("2"
(skosimp)
(("2"
(assert )
nil
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil )
("2" (assert ) nil nil ))
nil )
("2" (hide 2)
(("2"
(expand "bounded_below?" )
(("2"
(inst + "0" )
(("2"
(expand "lower_bound?" )
(("2"
(skosimp)
(("2"
(typepred "s!1" )
(("2"
(skosimp)
(("2" (assert ) nil nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil )
("3" (propax) nil nil ))
nil )
("2" (hide 2)
(("2" (expand "nonempty?" )
(("2"
(expand "empty?" )
(("2"
(expand "member" )
(("2"
(inst - "1" )
(("2"
(inst - "1" )
(("2"
(inst + "(TRUE, 1)" )
nil
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil )
("2" (hide 2)
(("2" (skosimp)
(("2" (expand "ZZ" )
(("2"
(inst +
"lambda n: if n=0 then {x | x!1-r!1/2<x&x<x!1+r!1/2} else emptyset[real] endif" )
(("1" (split)
(("1" (expand "o" )
(("1"
(case-replace
"x_length(emptyset[real])=(TRUE,0)" )
(("1"
(hide -1)
(("1"
(case-replace
"x_length({x
|
x!1 - r!1 / 2 < x & x < r!1 / 2 + x!1})=(TRUE,r!1)")
(("1"
(hide -1)
(("1"
(expand "x_le" )
(("1"
(expand "x_sum" )
(("1"
(case-replace
"FORALL (i:nat): IF i = 0 THEN TRUE ELSE TRUE ENDIF" )
(("1"
(lemma
"zero_tail_series_conv"
("a"
"LAMBDA (i:nat): IF i = 0 THEN r!1 ELSE 0 ENDIF"
"n"
"0" ))
(("1"
(lemma
"zero_tail_series_limit"
("a"
"LAMBDA (i:nat): IF i = 0 THEN r!1 ELSE 0 ENDIF"
"n"
"0" ))
(("1"
(case-replace
"FORALL (m:nat):
0 < m => (LAMBDA (i: nat): IF i = 0 THEN r!1 ELSE 0 ENDIF)(m) = 0")
(("1"
(replace -3)
(("1"
(replace -2)
(("1"
(expand
"series" )
(("1"
(expand
"sigma" )
(("1"
(expand
"sigma" )
(("1"
(assert )
nil
nil ))
nil ))
nil ))
nil ))
nil ))
nil )
("2"
(hide-all-but 1)
(("2"
(skosimp)
(("2"
(assert )
nil
nil ))
nil ))
nil ))
nil ))
nil ))
nil )
("2" (skosimp) nil nil ))
nil ))
nil ))
nil ))
nil )
("2"
(hide 2)
(("2"
(expand "x_length" )
(("2"
(lift-if)
(("2"
(assert )
(("2"
(prop)
(("1"
(hide -1)
(("1"
(expand "length" )
(("1"
(lift-if)
(("1"
(assert )
(("1"
(prop)
(("1"
(expand
"empty?" )
(("1"
(inst
-
"x!1" )
(("1"
(grind)
nil
nil ))
nil ))
nil )
("2"
(typepred
"sup({x | x!1 - r!1 / 2 < x & x < r!1 / 2 + x!1}) " )
(("1"
(name-replace
"SUP"
"sup({x | x!1 - r!1 / 2 < x & x < r!1 / 2 + x!1})" )
(("1"
(case-replace
"SUP=x!1+r!1/2" )
(("1"
(hide
-2)
(("1"
(hide
-1)
(("1"
(typepred
"inf({x | x!1 - r!1 / 2 < x & x < r!1 / 2 + x!1})" )
(("1"
(case-replace
"inf({x | x!1 - r!1 / 2 < x & x < r!1 / 2 + x!1})=x!1-r!1/2" )
(("1"
(assert )
nil
nil )
("2"
(hide
2
3)
(("2"
(name-replace
"INF"
"inf({x | x!1 - r!1 / 2 < x & x < r!1 / 2 + x!1})" )
(("2"
(expand
"greatest_lower_bound" )
(("2"
(expand
"lower_bound" )
(("2"
(flatten)
(("2"
(inst
-2
"x!1 - r!1 / 2" )
(("2"
(expand
"<="
-2
2)
(("2"
(replace
1
-2)
(("2"
(split
-2)
(("1"
(hide
1)
(("1"
(case
"exists x: x<=x!1 & x<INF & x!1 - r!1 / 2 < x" )
(("1"
(skosimp)
(("1"
(inst
-
"x!2" )
(("1"
(assert )
nil
nil )
("2"
(assert )
nil
nil ))
nil ))
nil )
("2"
(name
"EPS"
"INF+r!1/2-x!1" )
(("2"
(case
"EPS>0" )
(("1"
(inst
+
"min(x!1,INF-EPS/2)" )
(("1"
(grind)
nil
nil ))
nil )
("2"
(assert )
nil
nil ))
nil ))
nil ))
nil ))
nil )
("2"
(assert )
nil
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil )
("2"
(expand
"nonempty?" )
(("2"
(assert )
(("2"
(expand
"below_bounded" )
(("2"
(inst
+
"x!1 - r!1 / 2" )
(("2"
(expand
"lower_bound" )
(("2"
(propax)
nil
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil )
("2"
(hide
2
3)
(("2"
(expand
"least_upper_bound" )
(("2"
(flatten)
(("2"
(expand
"upper_bound" )
(("2"
(inst
-2
"x!1+r!1/2" )
(("2"
(expand
"<="
-2
2)
(("2"
(replace
1
-2)
(("2"
(case
"EXISTS x: x > SUP & x < r!1 / 2 + x!1 & x!1 <= x" )
(("1"
(skosimp)
(("1"
(inst
-
"x!2" )
(("1"
(assert )
nil
nil )
("2"
(assert )
nil
nil ))
nil ))
nil )
("2"
(hide
-1
2)
(("2"
(name
"EPS"
"x!1+r!1/2-SUP" )
(("2"
(case
"EPS>0" )
(("1"
(inst
+
"max(x!1,SUP+EPS/2)" )
(("1"
(grind)
nil
nil ))
nil )
("2"
(assert )
nil
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil )
("2"
(expand
"nonempty?" )
(("2"
(assert )
(("2"
(expand
"above_bounded" )
(("2"
(inst
+
"x!1+r!1/2" )
(("2"
(expand
"upper_bound" )
(("2"
(propax)
nil
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil )
("2"
(expand
"bounded_interval?" )
(("2"
(expand "bounded?" )
(("2"
(expand
"nonempty?" )
(("2"
(split)
(("1"
(grind)
nil
nil )
("2"
(flatten)
(("2"
(assert )
(("2"
(split)
(("1"
(expand
"above_bounded" )
(("1"
(inst
+
"x!1+r!1/2" )
(("1"
(expand
"upper_bound" )
(("1"
(propax)
nil
nil ))
nil ))
nil ))
nil )
("2"
(expand
"below_bounded" )
(("2"
(inst
+
"x!1-r!1/2" )
(("2"
(expand
"lower_bound" )
(("2"
(propax)
nil
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil )
("3"
(hide 2)
(("3" (grind) nil nil ))
nil ))
nil ))
nil )
("2"
(hide 2)
(("2"
(expand "x_length" )
(("2"
(expand "bounded_interval?" )
(("2"
(lift-if)
(("2"
(assert )
(("2"
(expand "length" )
(("2"
(case-replace
"empty?[real](emptyset[real])" )
(("1"
(prop)
(("1" (grind) nil nil )
("2"
(ground)
(("2"
(grind)
nil
nil ))
nil ))
nil )
("2"
(hide 2)
(("2" (grind) nil nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil )
("3"
(hide 2)
(("3" (grind) nil nil ))
nil ))
nil ))
nil )
("2" (expand "emptyset" )
(("2"
(expand "IUnion" )
(("2"
(expand "singleton" )
(("2"
(expand "subset?" )
(("2"
(expand "member" )
(("2"
(skosimp)
(("2"
(replace -1)
(("2"
(inst + "0" )
(("2" (assert ) nil nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil )
("2" (skosimp)
(("2" (expand "bounded_open_interval?" )
(("2"
(rewrite "metric_open_def" )
(("2"
(rewrite "emptyset_is_open" )
(("2"
(expand "bounded_interval?" )
(("2"
(split)
(("1"
(expand "interval?" )
(("1" (grind) nil nil ))
nil )
("2"
(expand "bounded?" )
(("2" (grind) nil nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil )
("3" (skosimp)
(("3" (expand "bounded_open_interval?" )
(("3"
(split)
(("1"
(expand "bounded_interval?" )
(("1"
(split)
(("1" (grind) nil nil )
("2"
(expand "bounded?" )
(("2"
(flatten)
(("2"
(expand "nonempty?" )
(("2"
(replace 1 2)
(("2"
(split)
(("1"
(expand
"above_bounded" )
(("1"
(inst + "x!1+r!1/2" )
(("1"
(expand
"upper_bound" )
(("1"
(propax)
nil
nil ))
nil ))
nil ))
nil )
("2"
(expand
"below_bounded" )
(("2"
(inst + "x!1-r!1/2" )
(("2"
(expand
"lower_bound" )
(("2"
(propax)
nil
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil )
("2"
(lemma
"metric_open_ball"
("x" "x!1" "r" "r!1/2" ))
(("2"
(expand "ball" )
(("2"
(case-replace
"{y: real | abs(x!1 - y) < r!1 / 2}={x | x!1 - r!1 / 2 < x & x < r!1 / 2 + x!1}" )
(("2"
(apply-extensionality
1
:hide?
t)
(("2"
(hide-all-but 1)
(("2" (grind) nil nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil )
("2" (hide 2)
(("2" (skosimp)
(("2" (skosimp)
(("2" (typepred "I!1(x1!1)" )
(("2" (expand "bounded_open_interval?" )
(("2" (expand "bounded_interval?" )
(("2" (flatten) nil nil )) nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil )
((x_eq const-decl "bool" extended_nnreal "extended_nnreal/" )
(IUnion const-decl "set[T]" indexed_sets nil )
(singleton const-decl "(singleton?)" sets nil )
(singleton? const-decl "bool" sets nil )
(subset? const-decl "bool" sets nil )
(x_length const-decl "extended_nnreal" real_lebesgue_scaf nil )
(O const-decl "T3" function_props nil )
(interval nonempty-type-eq-decl nil real_topology "metric_space/" )
(interval? const-decl "bool" real_topology "metric_space/" )
(x_sum const-decl "extended_nnreal" extended_nnreal
"extended_nnreal/" )
(x_le const-decl "bool" extended_nnreal "extended_nnreal/" )
(AND const-decl "[bool, bool -> bool]" booleans nil )
(sequence type-eq-decl nil sequences nil )
(bounded_open_interval nonempty-type-eq-decl nil real_topology
"metric_space/" )
(bounded_open_interval? const-decl "bool" real_topology
"metric_space/" )
(set type-eq-decl nil sets nil )
(nat nonempty-type-eq-decl nil naturalnumbers nil )
(int nonempty-type-eq-decl nil integers nil )
(integer_pred const-decl "[rational -> boolean]" integers nil )
(rational nonempty-type-from-decl nil rationals nil )
(rational_pred const-decl "[real -> boolean]" rationals nil )
(= const-decl "[T, T -> boolean]" equalities nil )
(extended_nnreal nonempty-type-eq-decl nil extended_nnreal
"extended_nnreal/" )
(nnreal type-eq-decl nil real_types nil )
(>= const-decl "bool" reals 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 )
(number nonempty-type-decl nil numbers nil )
(bool nonempty-type-eq-decl nil booleans nil )
(boolean nonempty-type-decl nil booleans nil )
(x_inf const-decl "extended_nnreal" extended_nnreal
"extended_nnreal/" )
(nonneg_real nonempty-type-eq-decl nil real_types nil )
(> const-decl "bool" reals nil )
(posreal nonempty-type-eq-decl nil real_types nil )
(TRUE const-decl "bool" booleans nil )
(nonempty? const-decl "bool" sets nil )
(greatest_lower_bound? const-decl "bool" bounded_real_defs nil )
(glb const-decl "{x | greatest_lower_bound?(x, SB)}"
bounded_real_defs nil )
(<= const-decl "bool" reals 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 )
(GLB skolem-const-decl "{x_1 |
greatest_lower_bound?(x_1,
{x | EXISTS z: ZZ(z) AND z`1 AND z`2 = x})}"
real_lebesgue_scaf nil )
(/ const-decl "[numfield, nznum -> numfield]" number_fields nil )
(nznum nonempty-type-eq-decl nil number_fields nil )
(/= const-decl "boolean" notequal nil )
(numfield nonempty-type-eq-decl nil number_fields nil )
(real_div_nzreal_is_real application-judgement "real" reals nil )
(real_ge_is_total_order name-judgement "(total_order?[real])"
real_props nil )
(real_gt_is_strict_total_order name-judgement
"(strict_total_order?[real])" real_props nil )
(lower_bound? const-decl "bool" bounded_real_defs nil )
(bounded_below? const-decl "bool" bounded_real_defs nil )
(member const-decl "bool" sets nil )
(empty? const-decl "bool" sets nil )
(ZZ skolem-const-decl "[extended_nnreal -> boolean]"
real_lebesgue_scaf nil )
(NOT const-decl "[bool -> bool]" booleans nil )
(posreal_div_posreal_is_posreal application-judgement "posreal"
real_types 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 )
(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 )
(real_plus_real_is_real application-judgement "real" reals nil )
(real_minus_real_is_real application-judgement "real" reals nil )
(IMPLIES const-decl "[bool, bool -> bool]" booleans nil )
(< const-decl "bool" reals nil )
(- const-decl "[numfield, numfield -> numfield]" number_fields nil )
(x!1 skolem-const-decl "real" real_lebesgue_scaf nil )
(r!1 skolem-const-decl "posreal" real_lebesgue_scaf nil )
(+ const-decl "[numfield, numfield -> numfield]" number_fields nil )
(emptyset const-decl "set" sets nil )
(IF const-decl "[boolean, T, T -> T]" if_def nil )
(length const-decl "nnreal" real_intervals_aux nil )
(pred type-eq-decl nil defined_types nil )
(least_upper_bound const-decl "bool" bound_defs "reals/" )
(setof type-eq-decl nil defined_types nil )
(above_bounded const-decl "bool" bounded_reals "reals/" )
(sup_set type-eq-decl nil bounded_reals "reals/" )
(sup const-decl "{x | least_upper_bound(<=)(x, Su)}" bounded_reals
"reals/" )
(lower_bound const-decl "bool" bound_defs "reals/" )
(min const-decl "{p: real | p <= m AND p <= n}" real_defs nil )
(EPS skolem-const-decl "real" real_lebesgue_scaf nil )
(x!2 skolem-const-decl "real" real_lebesgue_scaf nil )
(inf const-decl "{x | greatest_lower_bound(<=)(x, Sl)}"
bounded_reals "reals/" )
(inf_set type-eq-decl nil bounded_reals "reals/" )
(below_bounded const-decl "bool" bounded_reals "reals/" )
(greatest_lower_bound const-decl "bool" bound_defs "reals/" )
(upper_bound const-decl "bool" bound_defs "reals/" )
(x!2 skolem-const-decl "real" real_lebesgue_scaf nil )
(max const-decl "{p: real | p >= m AND p >= n}" real_defs nil )
(minus_odd_is_odd application-judgement "odd_int" integers nil )
(bounded? const-decl "bool" real_topology "metric_space/" )
(bounded_interval? const-decl "bool" real_topology "metric_space/" )
(zero_tail_series_conv formula-decl nil series_aux "series/" )
(sigma def-decl "real" sigma "reals/" )
(int_minus_int_is_int application-judgement "int" integers nil )
(series const-decl "sequence[real]" series "series/" )
(zero_tail_series_limit formula-decl nil series_aux "series/" )
(metric_induced_topology const-decl "setofsets[T]" metric_space_def
"metric_space/" )
(setofsets type-eq-decl nil sets nil )
(emptyset_is_open judgement-tcc nil topology "topology/" )
(metric_open_def formula-decl nil metric_space "metric_space/" )
(- const-decl "[numfield -> numfield]" number_fields nil )
(abs const-decl "{n: nonneg_real | n >= m AND n >= -m}" real_defs
nil )
(metric_open_ball formula-decl nil metric_space "metric_space/" )
(minus_real_is_real application-judgement "real" reals nil )
(ball const-decl "set[T]" metric_space_def "metric_space/" )
(lebesgue_outer_measure const-decl "outer_measure"
real_lebesgue_scaf nil ))
shostak))
(lebesgue_outer_measure_closed_open_TCC1 0
(lebesgue_outer_measure_closed_open_TCC1-1 nil 3475908490
("" (subtype-tcc) nil nil )
((boolean nonempty-type-decl nil booleans nil )
(bool nonempty-type-eq-decl nil booleans nil )
(NOT const-decl "[bool -> bool]" booleans nil )
(number nonempty-type-decl nil numbers 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 )
(set type-eq-decl nil sets nil )
(bounded_interval? const-decl "bool" real_topology "metric_space/" )
(bounded_interval nonempty-type-eq-decl nil real_topology
"metric_space/" )
(interval? const-decl "bool" real_topology "metric_space/" )
(upper_bound const-decl "bool" bound_defs "reals/" )
(above_bounded const-decl "bool" bounded_reals "reals/" )
(bounded? const-decl "bool" real_topology "metric_space/" )
(member const-decl "bool" sets nil )
(empty? const-decl "bool" sets nil )
(nonempty? const-decl "bool" sets nil )
(lower_bound const-decl "bool" bound_defs "reals/" )
(below_bounded const-decl "bool" bounded_reals "reals/" ))
nil ))
(lebesgue_outer_measure_closed_open_TCC2 0
(lebesgue_outer_measure_closed_open_TCC2-1 nil 3475908490
("" (subtype-tcc) nil nil )
((boolean nonempty-type-decl nil booleans nil )
(bool nonempty-type-eq-decl nil booleans nil )
(NOT const-decl "[bool -> bool]" booleans nil )
(number nonempty-type-decl nil numbers 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 )
(set type-eq-decl nil sets nil )
(bounded_interval? const-decl "bool" real_topology "metric_space/" )
(bounded_interval nonempty-type-eq-decl nil real_topology
"metric_space/" )
(x!2 skolem-const-decl "real" real_lebesgue_scaf nil )
(inf const-decl "{x | greatest_lower_bound(<=)(x, Sl)}"
bounded_reals "reals/" )
(<= const-decl "bool" reals nil )
(greatest_lower_bound const-decl "bool" bound_defs "reals/" )
(pred type-eq-decl nil defined_types nil )
(inf_set type-eq-decl nil bounded_reals "reals/" )
(setof type-eq-decl nil defined_types nil )
(b!1 skolem-const-decl "bounded_interval" real_lebesgue_scaf nil )
(bounded? const-decl "bool" real_topology "metric_space/" )
(below_bounded const-decl "bool" bounded_reals "reals/" )
(lower_bound const-decl "bool" bound_defs "reals/" )
(interval? const-decl "bool" real_topology "metric_space/" )
(real_le_is_total_order name-judgement "(total_order?[real])"
real_props nil )
(member const-decl "bool" sets nil )
(empty? const-decl "bool" sets nil )
(nonempty? const-decl "bool" sets nil )
(upper_bound const-decl "bool" bound_defs "reals/" )
(above_bounded const-decl "bool" bounded_reals "reals/" ))
nil ))
(lebesgue_outer_measure_closed_open_TCC3 0
(lebesgue_outer_measure_closed_open_TCC3-1 nil 3475908490
("" (subtype-tcc) nil nil )
((boolean nonempty-type-decl nil booleans nil )
(bool nonempty-type-eq-decl nil booleans nil )
(NOT const-decl "[bool -> bool]" booleans nil )
(number nonempty-type-decl nil numbers 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 )
(set type-eq-decl nil sets nil )
(bounded_interval? const-decl "bool" real_topology "metric_space/" )
(bounded_interval nonempty-type-eq-decl nil real_topology
"metric_space/" )
(b!1 skolem-const-decl "bounded_interval" real_lebesgue_scaf nil )
(x!2 skolem-const-decl "real" real_lebesgue_scaf nil )
(bounded? const-decl "bool" real_topology "metric_space/" )
(below_bounded const-decl "bool" bounded_reals "reals/" )
(lower_bound const-decl "bool" bound_defs "reals/" )
(interval? const-decl "bool" real_topology "metric_space/" )
(real_lt_is_strict_total_order name-judgement
"(strict_total_order?[real])" real_props nil )
(member const-decl "bool" sets nil )
(empty? const-decl "bool" sets nil )
(nonempty? const-decl "bool" sets nil )
(upper_bound const-decl "bool" bound_defs "reals/" )
(above_bounded const-decl "bool" bounded_reals "reals/" ))
nil ))
(lebesgue_outer_measure_closed_open 0
(lebesgue_outer_measure_closed_open-1 nil 3408180824
("" (skosimp)
(("" (typepred "lebesgue_outer_measure" )
(("" (typepred "b!1" )
(("" (expand "bounded_interval?" )
(("" (flatten)
(("" (expand "bounded?" )
(("" (assert )
(("" (split -2)
(("1" (expand "nonempty?" ) (("1" (propax) nil nil ))
nil )
("2" (flatten)
(("2"
(lemma "x_le_antisymmetric"
("x"
"lebesgue_outer_measure({x | inf(b!1) <= x AND x <= sup(b!1)})"
"y"
"lebesgue_outer_measure({x | inf(b!1) < x AND x < sup(b!1)})" ))
(("1" (assert )
(("1" (hide 2)
(("1" (split)
(("1"
(lemma "pairwise_subadditive"
("y"
"{x | inf(b!1) <= x AND x <= sup(b!1)}"
"x"
"union[real](singleton[real](inf(b!1)),singleton[real](sup(b!1)))" ))
(("1"
(case-replace
"intersection
({x
|
inf(b!1) <= x AND x <= sup(b!1)},
complement
(union[real]
(singleton[real](inf(b!1)),
singleton[real](sup(b!1)))))= {x | inf(b!1) < x AND x < sup(b!1)}")
(("1"
(hide -1)
(("1"
(name-replace
"LHS"
"lebesgue_outer_measure({x | inf(b!1) <= x AND x <= sup(b!1)})" )
(("1"
(name-replace
"RHS"
"lebesgue_outer_measure({x | inf(b!1) < x AND x < sup(b!1)})" )
(("1"
(case-replace
"intersection
({x
|
inf(b!1) <= x AND x <= sup(b!1)},
union[real]
(singleton[real](inf(b!1)),
singleton[real](sup(b!1))))=union[real]
(singleton[real](inf(b!1)),
singleton[real](sup(b!1)))")
(("1"
(hide -1)
(("1"
(lemma
"lebesgue_outer_measure_singleton"
("x" "inf(b!1)" ))
(("1"
(lemma
"lebesgue_outer_measure_singleton"
("x" "sup(b!1)" ))
(("1"
(lemma
"outer_negligible_union"
("n1"
"singleton[real](inf(b!1))"
"n2"
"singleton[real](sup(b!1))" ))
(("1"
(expand
"outer_negligible?" )
(("1"
(replace -1)
(("1"
(hide-all-but
(-4 1))
(("1"
(expand
"x_add" )
(("1"
(expand
"x_le" )
(("1"
(flatten)
(("1"
(replace
-2)
(("1"
(propax)
nil
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil )
("2"
(expand
"outer_negligible?" )
(("2"
(hide-all-but
(-1 1))
(("2"
(expand "x_eq" )
(("2"
(flatten)
(("2"
(assert )
(("2"
(decompose-equality)
nil
nil ))
nil ))
nil ))
nil ))
nil ))
nil )
("3"
(hide-all-but (-2 1))
(("3"
(expand
"outer_negligible?" )
(("3"
(expand "x_eq" )
(("3"
(flatten)
(("3"
(assert )
(("3"
(decompose-equality)
nil
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil )
("2"
(hide -1 2)
(("2"
(apply-extensionality
:hide?
t)
(("2"
(expand "intersection" )
(("2"
(expand "member" )
(("2"
(case-replace
"union[real]
(singleton[real](inf(b!1)), singleton[real](sup(b!1)))(x!1)")
(("1"
(expand
"singleton" )
(("1"
(expand "union" )
(("1"
(expand
"member" )
(("1"
(split -1)
(("1"
(assert )
(("1"
(typepred
"sup(b!1)" )
(("1"
(expand
"least_upper_bound" )
(("1"
(expand
"upper_bound" )
(("1"
(flatten)
(("1"
(expand
"nonempty?" )
(("1"
(expand
"empty?" )
(("1"
(skosimp)
(("1"
(expand
"member" )
(("1"
(inst
-
"x!2" )
(("1"
(typepred
"inf(b!1)" )
(("1"
(expand
"greatest_lower_bound" )
(("1"
(flatten)
(("1"
(expand
"lower_bound" )
(("1"
(inst
-
"x!2" )
(("1"
(assert )
nil
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil )
("2"
(assert )
(("2"
(expand
"nonempty?" )
(("2"
(expand
"empty?" )
(("2"
(skosimp)
(("2"
(expand
"member" )
(("2"
(typepred
"inf(b!1)" )
(("2"
(expand
"greatest_lower_bound" )
(("2"
(expand
"lower_bound" )
(("2"
(flatten)
(("2"
(inst
-
"x!2" )
(("2"
(typepred
"sup(b!1)" )
(("2"
(expand
"least_upper_bound" )
(("2"
(flatten)
(("2"
(expand
"upper_bound" )
(("2"
(inst
-
"x!2" )
(("2"
(assert )
nil
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil )
("2"
(replace 1 2)
(("2"
(propax)
nil
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil )
("2"
(hide -1 2)
(("2"
(apply-extensionality :hide? t)
(("2"
(expand "singleton" )
(("2"
(expand "union" )
(("2"
(expand "complement" )
(("2"
(expand "intersection" )
(("2"
(expand "member" )
(("2"
(assert )
(("2"
(case-replace
"inf(b!1) < x!1 AND x!1 < sup(b!1)" )
(("1"
(flatten)
(("1"
(assert )
nil
nil ))
nil )
("2"
(replace 1 2)
(("2"
(assert )
(("2"
(flatten)
(("2"
(assert )
nil
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil )
("2" (expand "outer_measure?" )
(("2"
(flatten)
(("2"
(assert )
(("2"
(expand "om_increasing?" )
(("2"
(inst
-
"{x | inf(b!1) < x AND x < sup(b!1)}"
"{x | inf(b!1) <= x AND x <= sup(b!1)}" )
(("2"
(assert )
(("2"
(hide-all-but (-1 -2 -6 2))
(("2"
(expand "subset?" )
(("2"
(skosimp)
(("2"
(expand "member" )
(("2"
(flatten)
(("2"
(assert )
nil
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil )
("2" (skosimp) nil nil ) ("3" (skosimp) nil nil )
("4" (propax) nil nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil )
((lebesgue_outer_measure const-decl "outer_measure"
real_lebesgue_scaf nil )
(outer_measure nonempty-type-eq-decl nil outer_measure_def
"measure_integration/" )
(outer_measure? const-decl "bool" outer_measure_def
"measure_integration/" )
(extended_nnreal nonempty-type-eq-decl nil extended_nnreal
"extended_nnreal/" )
(nnreal type-eq-decl nil real_types nil )
(>= const-decl "bool" reals nil ) (set type-eq-decl nil sets 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 )
(number nonempty-type-decl nil numbers nil )
(NOT const-decl "[bool -> bool]" booleans nil )
(bool nonempty-type-eq-decl nil booleans nil )
(boolean nonempty-type-decl nil booleans nil )
(bounded? const-decl "bool" real_topology "metric_space/" )
(nonempty? const-decl "bool" sets nil )
(< const-decl "bool" reals nil )
(sup const-decl "{x | least_upper_bound(<=)(x, Su)}" bounded_reals
"reals/" )
(least_upper_bound const-decl "bool" bound_defs "reals/" )
(sup_set type-eq-decl nil bounded_reals "reals/" )
(above_bounded const-decl "bool" bounded_reals "reals/" )
(inf const-decl "{x | greatest_lower_bound(<=)(x, Sl)}"
bounded_reals "reals/" )
(greatest_lower_bound const-decl "bool" bound_defs "reals/" )
(pred type-eq-decl nil defined_types nil )
(inf_set type-eq-decl nil bounded_reals "reals/" )
(below_bounded const-decl "bool" bounded_reals "reals/" )
(setof type-eq-decl nil defined_types nil )
(<= const-decl "bool" reals nil )
(AND const-decl "[bool, bool -> bool]" booleans nil )
(x_le_antisymmetric formula-decl nil extended_nnreal
"extended_nnreal/" )
(IMPLIES const-decl "[bool, bool -> bool]" booleans nil )
(subset? const-decl "bool" sets nil )
(subset_is_partial_order name-judgement "(partial_order?[set[T]])"
sets_lemmas nil )
(om_increasing? const-decl "bool" outer_measure_def
"measure_integration/" )
(singleton const-decl "(singleton?)" sets nil )
(singleton? const-decl "bool" sets nil )
(union const-decl "set" sets nil )
(pairwise_subadditive formula-decl nil outer_measure_props
"measure_integration/" )
(real_lt_is_strict_total_order name-judgement
"(strict_total_order?[real])" real_props nil )
(upper_bound const-decl "bool" bound_defs "reals/" )
(b!1 skolem-const-decl "bounded_interval" real_lebesgue_scaf nil )
(x!2 skolem-const-decl "real" real_lebesgue_scaf nil )
(lower_bound const-decl "bool" bound_defs "reals/" )
(empty? const-decl "bool" sets nil )
(real_le_is_total_order name-judgement "(total_order?[real])"
real_props nil )
(x!2 skolem-const-decl "real" real_lebesgue_scaf nil )
(member const-decl "bool" sets nil )
(x_eq const-decl "bool" extended_nnreal "extended_nnreal/" )
(TRUE const-decl "bool" booleans nil )
(x_le const-decl "bool" extended_nnreal "extended_nnreal/" )
(x_add const-decl "extended_nnreal" extended_nnreal
"extended_nnreal/" )
(outer_negligible nonempty-type-eq-decl nil outer_measure_props
"measure_integration/" )
(outer_negligible? const-decl "bool" outer_measure_props
"measure_integration/" )
(outer_negligible_union judgement-tcc nil outer_measure_props
"measure_integration/" )
(singleton_is_compact application-judgement
"compact[real, metric_induced_topology]" real_intervals nil )
(singleton_is_closed application-judgement
"closed[real, (metric_induced_topology)]" convergence_aux
"metric_space/" )
(nonempty_singleton_finite application-judgement
"non_empty_finite_set[T]" bounded_nats "orders/" )
(lebesgue_outer_measure_singleton formula-decl nil
real_lebesgue_scaf nil )
(intersection2_preserves_bounded application-judgement
"(LAMBDA (S: set[T]):
bounded?(S, restrict[[real, real], [T, T], boolean](<=)))"
bounded_nats "orders/" )
(finite_intersection1 application-judgement "finite_set[T]"
bounded_nats "orders/" )
(nonempty_finite_union1 application-judgement
"non_empty_finite_set[T]" bounded_nats "orders/" )
(nonempty_union2 application-judgement "(nonempty?)" bounded_nats
"orders/" )
(union_is_closed application-judgement
"closed[real, metric_induced_topology]" real_intervals nil )
(union_is_compact application-judgement
"compact[real, metric_induced_topology]" real_intervals nil )
(complement_closed_is_open application-judgement
"open[real, metric_induced_topology]" real_intervals nil )
(= const-decl "[T, T -> boolean]" equalities nil )
(intersection const-decl "set" sets nil )
(complement const-decl "set" sets nil )
(bounded_interval nonempty-type-eq-decl nil real_topology
"metric_space/" )
(bounded_interval? const-decl "bool" real_topology
"metric_space/" ))
shostak))
(lebesgue_outer_measure_closed_open_rew 0
(lebesgue_outer_measure_closed_open_rew-1 nil 3408257030
("" (skosimp)
(("" (typepred "b!1" )
(("" (expand "<=" -1)
(("" (split)
(("1"
(lemma "lebesgue_outer_measure_closed_open"
("b" "{x | a!1 <= x AND x <= b!1}" ))
(("1"
(case-replace
"nonempty?[real]({x | a!1 <= x AND x <= b!1})" )
(("1"
(case "above_bounded[real]({x | a!1 <= x AND x <= b!1})" )
(("1"
(case "below_bounded[real]({x | a!1 <= x AND x <= b!1})" )
(("1"
(case-replace
"inf({x | a!1 <= x AND x <= b!1})=a!1" )
(("1"
(case-replace
"sup({x | a!1 <= x AND x <= b!1})=b!1" )
(("1" (hide-all-but (-3 -4 -6 1))
(("1"
(typepred "sup({x | a!1 <= x AND x <= b!1})" )
(("1" (expand "least_upper_bound" )
(("1" (flatten)
(("1"
(inst - "b!1" )
(("1"
(name-replace
"SUP"
"sup({x | a!1 <= x AND x <= b!1})" )
(("1"
(split -2)
(("1"
(expand "<=" -1)
(("1"
(split)
(("1"
(expand "upper_bound" )
(("1"
(inst - "b!1" )
(("1" (assert ) nil nil ))
nil ))
nil )
("2" (propax) nil nil ))
nil ))
nil )
("2" (propax) nil nil )
("3"
(expand "upper_bound" )
(("3" (propax) nil nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil )
("2" (assert ) nil nil ))
nil ))
nil )
("2" (assert ) nil nil ))
nil )
("2" (hide-all-but (-1 -3 -5 1))
(("2"
(typepred "inf({x | a!1 <= x AND x <= b!1})" )
(("1"
(name-replace "INF"
"inf({x | a!1 <= x AND x <= b!1})" )
(("1" (expand "greatest_lower_bound" )
(("1" (flatten)
(("1"
(expand "lower_bound" )
(("1"
(inst - "a!1" )
(("1"
(inst - "a!1" )
(("1" (assert ) nil nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil )
("2" (assert ) nil nil ))
nil ))
nil )
("3" (assert ) nil nil ))
nil )
("2" (expand "below_bounded" )
(("2" (inst + "a!1" )
(("2" (expand "lower_bound" )
(("2" (propax) nil nil )) nil ))
nil ))
nil ))
nil )
("2" (expand "above_bounded" )
(("2" (inst + " b!1" )
(("2" (expand "upper_bound" )
(("2" (propax) nil nil )) nil ))
nil ))
nil ))
nil )
("2" (hide -1 2)
(("2" (expand "nonempty?" )
(("2" (expand "empty?" )
(("2" (inst - "a!1" )
(("2" (expand "member" ) (("2" (propax) nil nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil )
("2" (hide 2)
(("2" (expand "bounded_interval?" )
(("2" (split)
(("1" (expand "interval?" ) (("1" (grind) nil nil ))
nil )
("2" (expand "bounded?" )
(("2" (expand "nonempty?" )
(("2" (flatten)
(("2" (assert )
(("2" (split)
(("1" (expand "above_bounded" )
(("1"
(inst + "b!1" )
(("1"
(expand "upper_bound" )
(("1" (propax) nil nil ))
nil ))
nil ))
nil )
("2" (expand "below_bounded" )
(("2"
(inst + "a!1" )
(("2"
(expand "lower_bound" )
(("2" (propax) nil nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil )
("2"
(case-replace "{x | a!1 < x AND x < b!1}=emptyset[real]" )
(("1"
(case-replace
"{x | a!1 <= x AND x <= b!1}=singleton[real](b!1)" )
(("1"
(lemma "lebesgue_outer_measure_singleton" ("x" "b!1" ))
(("1" (hide -2 -3)
(("1"
(name-replace "LHS"
"lebesgue_outer_measure(singleton[real](b!1))" )
(("1" (typepred "lebesgue_outer_measure" )
(("1" (expand "outer_measure?" )
(("1" (flatten)
(("1"
(case-replace
"lebesgue_outer_measure(emptyset[real])=(TRUE, 0)" )
(("1" (hide 2 -4)
(("1"
(hide-all-but 1)
(("1"
(expand "lebesgue_outer_measure" )
(("1"
(expand "x_inf" )
(("1"
(lift-if)
(("1"
(assert )
(("1"
(case-replace
"FORALL (x:
({z |
EXISTS I:
x_le(x_sum(x_length o I), z) AND
subset?[real](emptyset[real], IUnion(I))})):
NOT x`1")
(("1"
(inst - "(TRUE,0)" )
(("1"
(inst
+
"lambda (n:nat): emptyset[real]" )
(("1"
(split)
(("1"
(expand "o" )
(("1"
(case-replace
"x_length(emptyset[real])=(TRUE, 0)" )
(("1"
(hide -1)
(("1"
(expand
"x_sum" )
(("1"
(expand
"x_le" )
(("1"
(rewrite
"zero_series_limit" )
(("1"
(rewrite
"zero_series_conv" )
(("1"
(assert )
nil
nil ))
nil ))
nil ))
nil ))
nil ))
nil )
("2"
(hide 2)
(("2"
(expand
"x_length" )
(("2"
(lift-if)
(("2"
(rewrite
"length_empty_rew" )
(("2"
(assert )
(("2"
(prop)
(("2"
(expand
"bounded_interval?" )
(("2"
(split)
(("1"
(grind)
nil
nil )
("2"
(expand
"bounded?" )
(("2"
(flatten)
(("2"
(hide
2)
(("2"
(grind)
nil
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil )
("3"
(hide 2)
(("3"
(grind)
nil
nil ))
nil ))
nil ))
nil )
("2"
(expand "subset?" )
(("2"
(expand "emptyset" )
(("2"
(expand "member" )
(("2"
(propax)
nil
nil ))
nil ))
nil ))
nil ))
nil )
("2"
(expand
"bounded_open_interval?" )
(("2"
(expand
"bounded_interval?" )
(("2"
(split)
(("1"
(grind)
nil
nil )
("2"
(expand
"bounded?" )
(("2"
(flatten)
(("2"
(hide 2)
(("2"
(grind)
nil
nil ))
nil ))
nil ))
nil )
("3"
(typepred
"metric_induced_topology" )
(("3"
(expand
"metric_induced_topology" )
(("3"
(rewrite
"metric_open_def" )
(("3"
(expand
"open?" )
(("3"
(expand
"hausdorff_space?" )
(("3"
(expand
"topology?" )
(("3"
(flatten)
(("3"
(expand
"topology_empty?" )
(("3"
(expand
"member" )
(("3"
(rewrite
"metric_open_def" )
(("3"
(expand
"open?" )
(("3"
(expand
"member" )
(("3"
(propax)
nil
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil )
("2"
(replace 1)
(("2"
(skosimp)
(("2"
(case
"nonempty?({z_1: real |
EXISTS (x:extended_nnreal):
(EXISTS I:
x_le(x_sum(x_length o I), x) AND
subset?[real](emptyset[real], IUnion(I)))
AND x`1 AND x`2 = z_1})")
(("1"
(case
"below_bounded({z_1: real |
EXISTS (x:extended_nnreal):
(EXISTS I:
x_le(x_sum(x_length o I), x) AND
subset?[real](emptyset[real], IUnion(I)))
AND x`1 AND x`2 = z_1})")
(("1"
(typepred
"glb({z_1: real |
EXISTS (x: extended_nnreal):
(EXISTS I:
x_le(x_sum(x_length o I), x) AND
subset?[real](emptyset[real], IUnion(I)))
AND x`1 AND x`2 = z_1})")
(("1"
(name-replace
"GLB"
"glb({z_1: real |
EXISTS (x: extended_nnreal):
(EXISTS I:
x_le(x_sum(x_length o I), x) AND
subset?[real](emptyset[real], IUnion(I)))
AND x`1 AND x`2 = z_1})")
(("1"
(hide -2 -3)
(("1"
(expand
"greatest_lower_bound?" )
(("1"
(flatten)
(("1"
(inst
-
"0" )
(("1"
(split)
(("1"
(expand
"lower_bound?" )
(("1"
(inst
-
"0" )
(("1"
(assert )
nil
nil )
("2"
(inst
+
"(TRUE,0)" )
(("2"
(inst
+
"lambda (n:nat): emptyset[real]" )
(("1"
(assert )
(("1"
(split)
(("1"
(expand
"o"
1)
(("1"
(hide
-1
2)
(("1"
(case-replace
"x_length(emptyset[real])=(TRUE, 0)" )
(("1"
(hide
-1)
(("1"
(expand
"x_sum" )
(("1"
(expand
"x_le" )
(("1"
(rewrite
"zero_series_conv" )
(("1"
(rewrite
"zero_series_limit" )
(("1"
(assert )
nil
nil ))
nil ))
nil ))
nil ))
nil ))
nil )
("2"
(expand
"x_length" )
(("2"
(hide
2
-1)
(("2"
(lift-if)
(("2"
(assert )
(("2"
(rewrite
"length_empty_rew" )
(("2"
(prop)
(("2"
(expand
"bounded_interval?" )
(("2"
(split)
(("1"
(grind)
nil
nil )
("2"
(expand
"bounded?" )
(("2"
(flatten)
(("2"
(hide
2)
(("2"
(grind)
nil
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil )
("3"
(hide
-1
2)
(("3"
(grind)
nil
nil ))
nil ))
nil ))
nil ))
nil )
("2"
(hide
-1
-2
2)
(("2"
(expand
"subset?" )
(("2"
(expand
"emptyset" )
(("2"
(expand
"member" )
(("2"
(propax)
nil
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil )
("2"
(hide-all-but
1)
(("2"
(expand
"bounded_open_interval?" )
(("2"
(expand
"bounded_interval?" )
(("2"
(split)
(("1"
(grind)
nil
nil )
("2"
(expand
"bounded?" )
(("2"
(flatten)
(("2"
(hide
2)
(("2"
(grind)
nil
nil ))
nil ))
nil ))
nil )
("3"
(typepred
"metric_induced_topology" )
(("3"
(expand
"metric_induced_topology" )
(("3"
(expand
"hausdorff_space?" )
(("3"
(expand
"topology?" )
(("3"
(flatten)
(("3"
(expand
"topology_empty?" )
(("3"
(expand
"member" )
(("3"
(propax)
nil
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil )
("2"
(hide
2
-1
-2)
(("2"
(expand
"lower_bound?" )
(("2"
(skosimp)
(("2"
(typepred
"s!1" )
(("2"
(skosimp)
(("2"
(skosimp)
(("2"
(assert )
nil
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil )
("2"
(assert )
(("2"
(hide-all-but
1)
(("2"
(expand
"bounded_below?" )
(("2"
(inst
+
"0" )
(("2"
(expand
"lower_bound?" )
(("2"
(skosimp)
(("2"
(typepred
"s!1" )
(("2"
(skosimp)
(("2"
(assert )
nil
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil )
("2"
(hide -1 2 -2)
(("2"
(expand
"below_bounded" )
(("2"
(inst + "0" )
(("2"
(expand
"lower_bound" )
(("2"
(skosimp)
(("2"
(typepred
"z!1" )
(("2"
(skosimp)
(("2"
(assert )
nil
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil )
("2"
(hide 2)
(("2"
(expand
"nonempty?" )
(("2"
(expand "empty?" )
(("2"
(expand
"member" )
(("2"
(typepred
"x!1" )
(("2"
(skosimp)
(("2"
(inst
-
"x!1`2" )
(("2"
(inst
+
"x!1" )
(("2"
(assert )
nil
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil )
("3"
(skosimp)
(("3"
(skosimp)
(("3"
(typepred
"I!1(x1!1)" )
(("3"
(expand
"bounded_open_interval?" )
(("3"
(expand
"bounded_interval?" )
(("3"
(flatten)
nil
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil )
("2" (hide-all-but (-2 1))
(("2" (apply-extensionality :hide? t)
(("2" (expand "singleton" ) (("2" (grind) nil nil ))
nil ))
nil ))
nil ))
nil )
("2" (hide 2)
(("2" (apply-extensionality :hide? t)
(("2" (expand "emptyset" )
(("2" (flatten) (("2" (assert ) nil nil )) nil )) nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil )
((<= const-decl "bool" reals 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 )
(number nonempty-type-decl nil numbers nil )
(NOT const-decl "[bool -> bool]" booleans nil )
(bool nonempty-type-eq-decl nil booleans nil )
(boolean nonempty-type-decl nil booleans nil )
(real_minus_real_is_real application-judgement "real" reals nil )
(interval? const-decl "bool" real_topology "metric_space/" )
(bounded? const-decl "bool" real_topology "metric_space/" )
(nonempty? const-decl "bool" sets nil )
(below_bounded const-decl "bool" bounded_reals "reals/" )
(lower_bound const-decl "bool" bound_defs "reals/" )
(sup const-decl "{x | least_upper_bound(<=)(x, Su)}" bounded_reals
"reals/" )
(least_upper_bound const-decl "bool" bound_defs "reals/" )
(sup_set type-eq-decl nil bounded_reals "reals/" )
(upper_bound const-decl "bool" bound_defs "reals/" )
(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 )
(inf const-decl "{x | greatest_lower_bound(<=)(x, Sl)}"
bounded_reals "reals/" )
(greatest_lower_bound const-decl "bool" bound_defs "reals/" )
(pred type-eq-decl nil defined_types nil )
(inf_set type-eq-decl nil bounded_reals "reals/" )
(= const-decl "[T, T -> boolean]" equalities nil )
(above_bounded const-decl "bool" bounded_reals "reals/" )
(setof type-eq-decl nil defined_types nil )
(member const-decl "bool" sets nil )
(empty? const-decl "bool" sets nil )
(lebesgue_outer_measure_closed_open formula-decl nil
real_lebesgue_scaf nil )
(set type-eq-decl nil sets nil )
(bounded_interval? const-decl "bool" real_topology "metric_space/" )
(bounded_interval nonempty-type-eq-decl nil real_topology
"metric_space/" )
(AND const-decl "[bool, bool -> bool]" booleans nil )
(singleton const-decl "(singleton?)" sets nil )
(singleton? const-decl "bool" sets nil )
(singleton_is_compact application-judgement
"compact[real, metric_induced_topology]" real_intervals nil )
(singleton_is_closed application-judgement
"closed[real, (metric_induced_topology)]" convergence_aux
"metric_space/" )
(nonempty_singleton_finite application-judgement
"non_empty_finite_set[T]" bounded_nats "orders/" )
(IUnion const-decl "set[T]" indexed_sets nil )
(subset? const-decl "bool" sets nil )
(x_length const-decl "extended_nnreal" real_lebesgue_scaf nil )
(O const-decl "T3" function_props nil )
(interval nonempty-type-eq-decl nil real_topology "metric_space/" )
(x_sum const-decl "extended_nnreal" extended_nnreal
"extended_nnreal/" )
(x_le const-decl "bool" extended_nnreal "extended_nnreal/" )
(sequence type-eq-decl nil sequences nil )
(bounded_open_interval nonempty-type-eq-decl nil real_topology
"metric_space/" )
(bounded_open_interval? const-decl "bool" real_topology
"metric_space/" )
(nat nonempty-type-eq-decl nil naturalnumbers nil )
(int nonempty-type-eq-decl nil integers nil )
(integer_pred const-decl "[rational -> boolean]" integers nil )
(rational nonempty-type-from-decl nil rationals nil )
(rational_pred const-decl "[real -> boolean]" rationals nil )
(length_empty_rew formula-decl nil real_intervals_aux nil )
(zero_series_conv formula-decl nil series "series/" )
(zero_series_limit formula-decl nil series "series/" )
(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/" )
(setofsets type-eq-decl nil sets nil )
(hausdorff_space? const-decl "bool" topology_prelim "topology/" )
(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/" )
(hausdorff? const-decl "bool" topology_prelim "topology/" )
(second_countable? const-decl "bool" topology_def "topology/" )
(metric_open_def formula-decl nil metric_space "metric_space/" )
(topology_empty? const-decl "bool" topology_prelim "topology/" )
(topology? const-decl "bool" topology_prelim "topology/" )
(open? const-decl "bool" topology "topology/" )
(subset_is_partial_order name-judgement "(partial_order?[set[T]])"
sets_lemmas nil )
(lower_bound? const-decl "bool" bounded_real_defs nil )
(glb const-decl "{x | greatest_lower_bound?(x, SB)}"
bounded_real_defs nil )
(bounded_below? const-decl "bool" bounded_real_defs nil )
(greatest_lower_bound? const-decl "bool" bounded_real_defs nil )
(x_inf const-decl "extended_nnreal" extended_nnreal
"extended_nnreal/" )
(TRUE const-decl "bool" booleans nil )
(>= const-decl "bool" reals nil )
(nnreal type-eq-decl nil real_types nil )
(extended_nnreal nonempty-type-eq-decl nil extended_nnreal
"extended_nnreal/" )
(outer_measure? const-decl "bool" outer_measure_def
"measure_integration/" )
(outer_measure nonempty-type-eq-decl nil outer_measure_def
"measure_integration/" )
(lebesgue_outer_measure const-decl "outer_measure"
real_lebesgue_scaf nil )
(lebesgue_outer_measure_singleton formula-decl nil
real_lebesgue_scaf nil )
(finite_emptyset name-judgement "finite_set" finite_sets nil )
(finite_emptyset name-judgement "finite_set[T]" countable_setofsets
"sets_aux/" )
(finite_emptyset name-judgement "finite_set[T]" countable_props
"sets_aux/" )
(finite_emptyset name-judgement "finite_set[T]" bounded_nats
"orders/" )
(subset_algebra_emptyset name-judgement "(induced_sigma_algebra)"
real_lebesgue_scaf nil )
(outer_negligible_emptyset name-judgement
"outer_negligible[real, lebesgue_outer_measure]"
real_lebesgue_scaf nil )
(emptyset_is_clopen name-judgement
"clopen[real, (metric_induced_topology)]" real_topology
"metric_space/" )
(emptyset_is_compact name-judgement
"compact[real, (metric_induced_topology)]" real_topology
"metric_space/" )
(< const-decl "bool" reals nil )
(emptyset const-decl "set" sets nil ))
shostak))
(lebesgue_outer_measure_closed 0
(lebesgue_outer_measure_closed-1 nil 3408182751
("" (skosimp)
(("" (typepred "b!1" )
(("" (expand "bounded_interval?" )
(("" (expand "bounded?" )
(("" (assert )
(("" (flatten)
(("" (split)
(("1" (expand "nonempty?" ) (("1" (propax) nil nil ))
nil )
("2" (flatten)
(("2"
(lemma "lebesgue_outer_measure_closed_open"
("b" "b!1" ))
(("2" (assert )
(("2" (typepred "lebesgue_outer_measure" )
(("2" (expand "outer_measure?" )
(("2" (flatten)
(("2" (hide -1 -3)
(("2"
(expand "om_increasing?" )
(("2"
(inst-cp
-
"{x | inf(b!1) < x AND x < sup(b!1)}"
"b!1" )
(("2"
(inst
-
"b!1"
"{x | inf(b!1) <= x AND x <= sup(b!1)}" )
(("2"
(name-replace
"OPEN"
"lebesgue_outer_measure({x | inf(b!1) < x AND x < sup(b!1)})" )
(("2"
(name-replace
"CLOSED"
"lebesgue_outer_measure({x | inf(b!1) <= x AND x <= sup(b!1)})" )
(("2"
(name-replace
"INTERVAL"
"lebesgue_outer_measure(b!1)" )
(("2"
(split)
(("1"
(split)
(("1"
(hide-all-but
(-1 -2 -3 1))
(("1" (grind) nil nil ))
nil )
("2"
(hide -1 -2 2)
(("2"
(expand "subset?" )
(("2"
(expand "member" )
(("2"
(skosimp)
(("2"
(typepred
"sup(b!1)" )
(("2"
(expand
"least_upper_bound" )
(("2"
(expand
"upper_bound" )
(("2"
(flatten)
(("2"
(inst
-2
"x!1" )
(("2"
(assert )
(("2"
(skosimp)
(("2"
(typepred
"z!1" )
(("2"
(case
"x!1<z!1" )
(("1"
(hide
1)
(("1"
(typepred
"inf(b!1)" )
(("1"
(expand
"greatest_lower_bound" )
(("1"
(expand
"lower_bound" )
(("1"
(flatten)
(("1"
(inst
-2
"x!1" )
(("1"
(assert )
(("1"
(skosimp)
(("1"
(typepred
"z!2" )
(("1"
(case
"z!2<x!1" )
(("1"
(hide
1)
(("1"
(expand
"interval?" )
(("1"
(inst
-
"z!2"
"z!1"
"x!1" )
(("1"
(assert )
nil
nil ))
nil ))
nil ))
nil )
("2"
(assert )
nil
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil )
("2"
(assert )
nil
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil )
("2"
(hide-all-but
(-3 -4 -6 -5 1))
(("2"
(expand "subset?" )
(("2"
(expand "member" )
(("2"
(skosimp)
(("2"
(typepred
"sup(b!1)" )
(("2"
(typepred
"inf(b!1)" )
(("2"
(expand
"least_upper_bound" )
(("2"
(expand
"greatest_lower_bound" )
(("2"
(expand
"lower_bound" )
(("2"
(expand
"upper_bound" )
(("2"
(flatten)
(("2"
(inst
-
"x!1" )
(("2"
(inst
-3
"x!1" )
(("2"
(assert )
nil
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil )
((bounded_interval nonempty-type-eq-decl nil real_topology
"metric_space/" )
(bounded_interval? const-decl "bool" real_topology "metric_space/" )
(set type-eq-decl nil sets 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 )
(number nonempty-type-decl nil numbers nil )
(NOT const-decl "[bool -> bool]" booleans nil )
(bool nonempty-type-eq-decl nil booleans nil )
(boolean nonempty-type-decl nil booleans nil )
(bounded? const-decl "bool" real_topology "metric_space/" )
(AND const-decl "[bool, bool -> bool]" booleans nil )
(< const-decl "bool" reals nil )
(setof type-eq-decl nil defined_types nil )
(below_bounded const-decl "bool" bounded_reals "reals/" )
(inf_set type-eq-decl nil bounded_reals "reals/" )
(pred type-eq-decl nil defined_types nil )
(greatest_lower_bound const-decl "bool" bound_defs "reals/" )
(<= const-decl "bool" reals nil )
(inf const-decl "{x | greatest_lower_bound(<=)(x, Sl)}"
bounded_reals "reals/" )
(above_bounded const-decl "bool" bounded_reals "reals/" )
(sup_set type-eq-decl nil bounded_reals "reals/" )
(least_upper_bound const-decl "bool" bound_defs "reals/" )
(sup const-decl "{x | least_upper_bound(<=)(x, Su)}" bounded_reals
"reals/" )
(IMPLIES const-decl "[bool, bool -> bool]" booleans nil )
(= const-decl "[T, T -> boolean]" equalities nil )
(x!1 skolem-const-decl "real" real_lebesgue_scaf nil )
(b!1 skolem-const-decl "bounded_interval" real_lebesgue_scaf nil )
(real_minus_real_is_real application-judgement "real" reals nil )
(real_le_is_total_order name-judgement "(total_order?[real])"
real_props nil )
(x_le const-decl "bool" extended_nnreal "extended_nnreal/" )
(x_eq const-decl "bool" extended_nnreal "extended_nnreal/" )
(subset? const-decl "bool" sets nil )
(real_lt_is_strict_total_order name-judgement
"(strict_total_order?[real])" real_props nil )
(interval? const-decl "bool" real_topology "metric_space/" )
(lower_bound const-decl "bool" bound_defs "reals/" )
(upper_bound const-decl "bool" bound_defs "reals/" )
(member const-decl "bool" sets nil )
(om_increasing? const-decl "bool" outer_measure_def
"measure_integration/" )
(>= const-decl "bool" reals nil )
(nnreal type-eq-decl nil real_types nil )
(extended_nnreal nonempty-type-eq-decl nil extended_nnreal
"extended_nnreal/" )
(outer_measure? const-decl "bool" outer_measure_def
"measure_integration/" )
(outer_measure nonempty-type-eq-decl nil outer_measure_def
"measure_integration/" )
(lebesgue_outer_measure const-decl "outer_measure"
real_lebesgue_scaf nil )
(lebesgue_outer_measure_closed_open formula-decl nil
real_lebesgue_scaf nil )
(nonempty? const-decl "bool" sets nil ))
shostak))
(lebesgue_outer_measure_open 0
(lebesgue_outer_measure_open-1 nil 3408184157
("" (skosimp)
(("" (lemma "lebesgue_outer_measure_closed" ("b" "b!1" ))
(("" (lemma "lebesgue_outer_measure_closed_open" ("b" "b!1" ))
(("" (assert )
(("" (typepred "b!1" )
(("" (expand "bounded_interval?" )
(("" (expand "bounded?" )
(("" (flatten)
(("" (split)
(("1" (expand "nonempty?" ) (("1" (propax) nil nil ))
nil )
("2" (flatten)
(("2"
(name-replace "OPEN"
"lebesgue_outer_measure({x | inf(b!1) < x AND x < sup(b!1)})" )
(("1"
(name-replace "CLOSED"
"lebesgue_outer_measure({x | inf(b!1) <= x AND x <= sup(b!1)})" )
(("1"
(name-replace "INTERVAL"
"lebesgue_outer_measure(b!1)" )
(("1" (expand "x_eq" )
(("1"
(flatten)
(("1"
(assert )
(("1"
(flatten)
(("1" (assert ) nil nil ))
nil ))
nil ))
nil ))
nil ))
nil )
("2" (skosimp) nil nil ))
nil )
("2" (skosimp) nil nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil )
((bounded_interval nonempty-type-eq-decl nil real_topology
"metric_space/" )
(bounded_interval? const-decl "bool" real_topology "metric_space/" )
(set type-eq-decl nil sets 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 )
(lebesgue_outer_measure_closed formula-decl nil real_lebesgue_scaf
nil )
(x_eq const-decl "bool" extended_nnreal "extended_nnreal/" )
(sup const-decl "{x | least_upper_bound(<=)(x, Su)}" bounded_reals
"reals/" )
(least_upper_bound const-decl "bool" bound_defs "reals/" )
(sup_set type-eq-decl nil bounded_reals "reals/" )
(above_bounded const-decl "bool" bounded_reals "reals/" )
(inf const-decl "{x | greatest_lower_bound(<=)(x, Sl)}"
bounded_reals "reals/" )
(<= const-decl "bool" reals nil )
(greatest_lower_bound const-decl "bool" bound_defs "reals/" )
(pred type-eq-decl nil defined_types nil )
(inf_set type-eq-decl nil bounded_reals "reals/" )
(below_bounded const-decl "bool" bounded_reals "reals/" )
(setof type-eq-decl nil defined_types nil )
(< const-decl "bool" reals nil )
(AND const-decl "[bool, bool -> bool]" booleans nil )
(lebesgue_outer_measure const-decl "outer_measure"
real_lebesgue_scaf nil )
(outer_measure nonempty-type-eq-decl nil outer_measure_def
"measure_integration/" )
(outer_measure? const-decl "bool" outer_measure_def
"measure_integration/" )
(= const-decl "[T, T -> boolean]" equalities nil )
(extended_nnreal nonempty-type-eq-decl nil extended_nnreal
"extended_nnreal/" )
(nnreal type-eq-decl nil real_types nil )
(>= const-decl "bool" reals nil )
(IMPLIES const-decl "[bool, bool -> bool]" booleans nil )
(nonempty? const-decl "bool" sets nil )
(bounded? const-decl "bool" real_topology "metric_space/" )
(NOT const-decl "[bool -> bool]" booleans nil )
(lebesgue_outer_measure_closed_open formula-decl nil
real_lebesgue_scaf nil ))
shostak))
(lebesgue_outer_measure_le_length_TCC1 0
(lebesgue_outer_measure_le_length_TCC1-1 nil 3408184601
("" (subtype-tcc) nil nil )
((boolean nonempty-type-decl nil booleans nil )
(bool nonempty-type-eq-decl nil booleans nil )
(NOT const-decl "[bool -> bool]" booleans nil )
(number nonempty-type-decl nil numbers 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 )
(set type-eq-decl nil sets nil )
(bounded_interval? const-decl "bool" real_topology "metric_space/" )
(bounded_interval nonempty-type-eq-decl nil real_topology
"metric_space/" )
(real_le_is_total_order name-judgement "(total_order?[real])"
real_props nil )
(member const-decl "bool" sets nil )
(empty? const-decl "bool" sets nil )
(nonempty? const-decl "bool" sets nil )
(upper_bound const-decl "bool" bound_defs "reals/" )
(above_bounded const-decl "bool" bounded_reals "reals/" )
(lower_bound const-decl "bool" bound_defs "reals/" )
(below_bounded const-decl "bool" bounded_reals "reals/" )
(bounded? const-decl "bool" real_topology "metric_space/" )
(interval? const-decl "bool" real_topology "metric_space/" ))
nil ))
(lebesgue_outer_measure_le_length 0
(lebesgue_outer_measure_le_length-1 nil 3408184601
("" (skosimp)
(("" (case "nonempty?[real](b!1)" )
(("1" (lemma "lebesgue_outer_measure_open" ("b" "b!1" ))
(("1" (assert )
(("1" (lemma "length_open" ("b" "b!1" ))
(("1" (assert )
(("1" (typepred "b!1" )
(("1" (expand "bounded_interval?" )
(("1" (expand "bounded?" )
(("1" (flatten)
(("1" (split)
(("1" (expand "nonempty?" )
(("1" (propax) nil nil )) nil )
("2" (flatten)
(("2" (typepred "inf(b!1)" )
(("1" (name-replace "AA" "inf(b!1)" )
(("1"
(typepred "sup(b!1)" )
(("1"
(name-replace "BB" "sup(b!1)" )
(("1"
(case
"x_le(lebesgue_outer_measure({x | AA < x AND x < BB}), x_length({x | AA < x AND x < BB}))" )
(("1"
(name-replace
"LHS"
"lebesgue_outer_measure(b!1)" )
(("1"
(name-replace
"LHS1"
"lebesgue_outer_measure({x | AA < x AND x < BB})" )
(("1"
(expand "x_length" )
(("1"
(replace -7 * rl)
(("1"
(case-replace
"bounded_interval?({x | AA < x AND x < BB})" )
(("1"
(hide-all-but
(-2 -9 1))
(("1"
(expand "x_le" )
(("1"
(expand "x_eq" )
(("1"
(flatten)
(("1"
(assert )
nil
nil ))
nil ))
nil ))
nil ))
nil )
("2"
(hide-all-but
(1
-2
-3
-4
-5
-6
-9
1))
(("2"
(expand
"bounded_interval?" )
(("2"
(split)
(("1"
(expand
"interval?" )
(("1"
(skosimp)
(("1"
(typepred
"x!1" )
(("1"
(typepred
"y!1" )
(("1"
(assert )
nil
nil ))
nil ))
nil ))
nil ))
nil )
("2"
(expand
"bounded?" )
(("2"
(flatten)
(("2"
(expand
"nonempty?" )
(("2"
(assert )
(("2"
(split)
(("1"
(expand
"above_bounded" )
(("1"
(inst
+
"BB" )
(("1"
(expand
"upper_bound" )
(("1"
(propax)
nil
nil ))
nil ))
nil ))
nil )
("2"
(expand
"below_bounded" )
(("2"
(inst
+
"AA" )
(("2"
(expand
"lower_bound" )
(("2"
(propax)
nil
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil )
("2"
(hide 2 -7)
(("2"
(expand "x_length" )
(("2"
(case-replace
"bounded_interval?({x | AA < x AND x < BB})" )
(("1"
(expand "x_le" )
(("1"
(expand
"lebesgue_outer_measure" )
(("1"
(expand "o " )
(("1"
(expand "x_inf" )
(("1"
(prop)
(("1"
(inst
-
"(TRUE,length({x | AA < x AND x < BB}))" )
(("1"
(inst
+
"lambda (i:nat): if i=0 then {x | AA < x AND x < BB} else emptyset[real] endif" )
(("1"
(split 1)
(("1"
(expand
"x_le" )
(("1"
(expand
"x_sum" )
(("1"
(expand
"x_length"
1)
(("1"
(replace
-1)
(("1"
(case-replace
"bounded_interval?(emptyset[real])" )
(("1"
(case-replace
"length(emptyset[real])=0" )
(("1"
(case-replace
"FORALL (i:nat): IF i = 0 THEN TRUE ELSE TRUE ENDIF" )
(("1"
(hide
-1)
(("1"
(lemma
"zero_tail_series_conv"
("a"
"LAMBDA (i:nat):
IF i = 0 THEN length({x | AA < x AND x < BB})
ELSE 0
ENDIF"
"n"
"0" ))
(("1"
(lemma
"zero_tail_series_limit"
("a"
"LAMBDA (i:nat):
IF i = 0 THEN length({x | AA < x AND x < BB})
ELSE 0
ENDIF"
"n"
"0" ))
(("1"
(case-replace
"(FORALL (m:nat):
0 < m =>
(LAMBDA (i: nat):
IF i = 0 THEN length({x | AA < x AND x < BB}) ELSE 0 ENDIF)
(m)
= 0)")
(("1"
(replace
-3)
(("1"
(replace
-2)
(("1"
(expand
"series" )
(("1"
(expand
"sigma" )
(("1"
(expand
"sigma" )
(("1"
(assert )
nil
nil ))
nil ))
nil ))
nil ))
nil ))
nil )
("2"
(hide
-1
-2
2)
(("2"
(skosimp)
(("2"
(assert )
nil
nil ))
nil ))
nil )
("3"
(hide
2
-1
-2)
(("3"
(skosimp)
(("3"
(skosimp)
nil
nil ))
nil ))
nil ))
nil ))
nil )
("2"
(skosimp)
nil
nil ))
nil ))
nil )
("2"
(skosimp)
nil
nil ))
nil )
("2"
(expand
"length" )
(("2"
(hide-all-but
1)
(("2"
(case-replace
"empty?[real](emptyset[real])" )
(("2"
(hide
2)
(("2"
(grind)
nil
nil ))
nil ))
nil ))
nil ))
nil ))
nil )
("2"
(hide
2)
(("2"
(hide-all-but
1)
(("2"
(grind)
nil
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil )
("2"
(expand
"subset?" )
(("2"
(expand
"member" )
(("2"
(skosimp)
(("2"
(expand
"IUnion" )
(("2"
(inst
+
"0" )
(("2"
(assert )
nil
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil )
("2"
(skosimp)
(("2"
(expand
"bounded_open_interval?" )
(("2"
(rewrite
"metric_open_def" )
(("2"
(rewrite
"emptyset_is_open" )
(("2"
(expand
"bounded_interval?" )
(("2"
(hide-all-but
2)
(("2"
(grind)
nil
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil )
("3"
(skosimp)
(("3"
(assert )
(("3"
(expand
"bounded_open_interval?" )
(("3"
(case
"AA<BB" )
(("1"
(lemma
"metric_open_ball"
("x"
"(BB+AA)/2"
"r"
"(BB-AA)/2" ))
(("1"
(case-replace
"ball((BB + AA) / 2, (BB - AA) / 2)={x | AA < x AND x < BB}" )
(("1"
(hide
-1
2)
(("1"
(apply-extensionality
:hide?
t)
(("1"
(expand
"ball" )
(("1"
(hide-all-but
(-1
1))
(("1"
(grind)
nil
nil ))
nil ))
nil ))
nil ))
nil )
("2"
(assert )
nil
nil ))
nil )
("2"
(assert )
nil
nil ))
nil )
("2"
(case-replace
"{x | AA < x AND x < BB}=emptyset[real]" )
(("1"
(rewrite
"metric_open_def" )
(("1"
(rewrite
"emptyset_is_open" )
nil
nil ))
nil )
("2"
(hide-all-but
(1
2))
(("2"
(apply-extensionality
:hide?
t)
(("2"
(expand
"emptyset" )
(("2"
(flatten)
(("2"
(assert )
nil
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil )
("2"
(case-replace
"FORALL (x_1:
({z:extended_nnreal |
EXISTS I:
x_le(x_sum(LAMBDA (x: nat): x_length(I(x))), z)
AND
subset?[real]
({x | AA < x AND x < BB}, IUnion(I))})):
NOT x_1`1")
(("1"
(assert )
nil
nil )
("2"
(replace 1 2)
(("2"
(skosimp)
(("2"
(case
"nonempty?({z_1: real |
EXISTS (x_1: extended_nnreal):
(EXISTS I:
x_le(x_sum(LAMBDA (x: nat): x_length(I(x))), x_1) AND
subset?[real]({x | AA < x AND x < BB}, IUnion(I)))
AND x_1`1 AND x_1`2 = z_1})")
(("1"
(case
"bounded_below?({z_1: real |
EXISTS (x_1: extended_nnreal):
(EXISTS I:
x_le(x_sum(LAMBDA (x: nat): x_length(I(x))),
x_1)
AND
subset?[real]
({x | AA < x AND x < BB},
IUnion[nat, real](I)))
AND x_1`1 AND x_1`2 = z_1})")
(("1"
(typepred
"glb({z_1: real |
EXISTS (x_1: extended_nnreal):
(EXISTS I:
x_le(x_sum(LAMBDA (x: nat): x_length(I(x))), x_1) AND
subset?[real]({x | AA < x AND x < BB}, IUnion(I)))
AND x_1`1 AND x_1`2 = z_1})")
(("1"
(name-replace
"GLB"
"glb({z_1: real |
EXISTS (x_1: extended_nnreal):
(EXISTS I:
x_le(x_sum(LAMBDA (x: nat): x_length(I(x))), x_1) AND
subset?[real]({x | AA < x AND x < BB}, IUnion(I)))
AND x_1`1 AND x_1`2 = z_1})")
(("1"
(hide
-2
-3)
(("1"
(expand
"greatest_lower_bound?" )
(("1"
(flatten)
(("1"
(expand
"lower_bound?" )
(("1"
(inst
-
"length({x | AA < x AND x < BB})" )
(("1"
(inst
+
"(TRUE,length({x | AA < x AND x < BB}))" )
(("1"
(hide
-1
2)
(("1"
(inst
+
"lambda (i:nat): if i=0 then {x | AA < x AND x < BB} else emptyset[real] endif" )
(("1"
(split)
(("1"
(expand
"x_sum" )
(("1"
(expand
"x_le" )
(("1"
(case-replace
"x_length(emptyset[real])=(TRUE,0)" )
(("1"
(assert )
(("1"
(hide
-1)
(("1"
(expand
"x_length"
1)
(("1"
(replace
-2)
(("1"
(replace
-8
*
rl)
(("1"
(case-replace
"FORALL (i:nat): IF i = 0 THEN TRUE ELSE TRUE ENDIF" )
(("1"
(lemma
"zero_tail_series_conv"
("a"
"LAMBDA (i:nat):
IF i = 0 THEN length(b!1) ELSE 0 ENDIF"
"n"
"0" ))
(("1"
(lemma
"zero_tail_series_limit"
("a"
"LAMBDA (i:nat):
IF i = 0 THEN length(b!1) ELSE 0 ENDIF"
"n"
"0" ))
(("1"
(case-replace
"FORALL (m:nat):
0 < m =>
(LAMBDA (i: nat): IF i = 0 THEN length(b!1) ELSE 0 ENDIF)(m) = 0")
(("1"
(replace
-3)
(("1"
(replace
-2)
(("1"
(expand
"series" )
(("1"
(expand
"sigma" )
(("1"
(expand
"sigma" )
(("1"
(assert )
nil
nil ))
nil ))
nil ))
nil ))
nil ))
nil )
("2"
(hide-all-but
1)
(("2"
(skosimp)
(("2"
(assert )
nil
nil ))
nil ))
nil ))
nil ))
nil ))
nil )
("2"
(skosimp)
nil
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil )
("2"
(hide
2)
(("2"
(expand
"x_length" )
(("2"
(lift-if)
(("2"
(prop)
(("1"
(expand
"length" )
(("1"
(case-replace
"empty?[real](emptyset[real])" )
(("1"
(hide-all-but
1)
(("1"
(grind)
nil
nil ))
nil ))
nil ))
nil )
("2"
(hide-all-but
1)
(("2"
(grind)
nil
nil ))
nil ))
nil ))
nil ))
nil ))
nil )
("3"
(hide-all-but
1)
(("3"
(grind)
nil
nil ))
nil ))
nil ))
nil ))
nil )
("2"
(hide-all-but
1)
(("2"
(expand
"subset?" )
(("2"
(expand
"member" )
(("2"
(expand
"IUnion" )
(("2"
(skosimp)
(("2"
(inst
+
"0" )
(("2"
(assert )
nil
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil )
("2"
(skosimp)
(("2"
(expand
"bounded_open_interval?" )
(("2"
(rewrite
"metric_open_def" )
(("2"
(rewrite
"emptyset_is_open" )
(("2"
(hide-all-but
2)
(("2"
(grind)
nil
nil ))
nil ))
nil ))
nil ))
nil ))
nil )
("3"
(skosimp)
(("3"
(expand
"bounded_open_interval?" )
(("3"
(assert )
(("3"
(hide-all-but
1)
(("3"
(case
"AA<BB" )
(("1"
(lemma
"metric_open_ball"
("x"
"(AA+BB)/2"
"r"
"(BB-AA)/2" ))
(("1"
(case-replace
"ball((AA + BB) / 2, (BB - AA) / 2)={x | AA < x AND x < BB}" )
(("1"
(hide
-1
2)
(("1"
(expand
"ball" )
(("1"
(apply-extensionality
:hide?
t)
(("1"
(grind)
nil
nil ))
nil ))
nil ))
nil )
("2"
(assert )
nil
nil ))
nil )
("2"
(assert )
nil
nil ))
nil )
("2"
(case-replace
"{x | AA < x AND x < BB}=emptyset[real]" )
(("1"
(hide
-1)
(("1"
(rewrite
"metric_open_def" )
(("1"
(rewrite
"emptyset_is_open" )
nil
nil ))
nil ))
nil )
("2"
(hide
3)
(("2"
(apply-extensionality
:hide?
t)
(("2"
(expand
"emptyset" )
(("2"
(flatten)
(("2"
(assert )
nil
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil )
("2"
(assert )
nil
nil ))
nil )
("2"
(hide
2)
(("2"
(expand
"bounded_below?" )
(("2"
(inst
+
"0" )
(("2"
(expand
"lower_bound?" )
(("2"
(skosimp)
(("2"
(typepred
"s!1" )
(("2"
(skosimp)
(("2"
(assert )
nil
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil )
("3"
(propax)
nil
nil ))
nil )
("2"
(expand
"nonempty?"
1)
(("2"
(expand
"empty?"
-1)
(("2"
(expand
"member" )
(("2"
(inst
-
"x!1`2" )
(("2"
(inst
+
"x!1" )
(("2"
(assert )
nil
nil ))
nil ))
nil ))
nil ))
nil ))
nil )
("3"
(assert )
(("3"
(skosimp)
(("3"
(typepred
"I!1(x!2)" )
(("3"
(expand
"bounded_open_interval?" )
(("3"
(expand
"bounded_interval?" )
(("3"
(flatten)
nil
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil )
("2"
(hide -6 2)
(("2"
(expand
"bounded_interval?" )
(("2"
(split)
(("1"
(expand "interval?" )
(("1"
(skosimp)
(("1"
(assert )
nil
nil ))
nil ))
nil )
("2"
(expand "bounded?" )
(("2"
(flatten)
(("2"
(expand
"nonempty?" )
(("2"
(assert )
(("2"
(split)
(("1"
(expand
"above_bounded" )
(("1"
(inst
+
"BB" )
(("1"
(expand
"upper_bound" )
(("1"
(propax)
nil
nil ))
nil ))
nil ))
nil )
("2"
(expand
"below_bounded" )
(("2"
(inst
+
"AA" )
(("2"
(expand
"lower_bound" )
(("2"
(propax)
nil
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil )
("3"
(hide 2 -7 -6)
(("3"
(expand "interval?" )
(("3"
(skosimp)
(("3"
(typepred "z!1" )
(("3"
(typepred "x!1" )
(("3"
(inst
-
"x!1"
"y!1"
"z!1" )
(("1" (assert ) nil nil )
("2"
(typepred "y!1" )
(("2"
(assert )
nil
nil ))
nil )
("3"
(assert )
--> --------------------
--> maximum size reached
--> --------------------
Messung V0.5 in Prozent C=100 H=98 G=98
¤ Dauer der Verarbeitung: 0.943 Sekunden
(vorverarbeitet am 2026-04-26)
¤
*© Formatika GbR, Deutschland