(fubini_tonelli_scaf
(product_measure_contraction_TCC1 0
(product_measure_contraction_TCC1-1 nil 3459570741
("" (skosimp)
(("" (expand "measurable_set?" )
(("" (rewrite "cross_product_is_sigma_times" ) nil nil )) nil ))
nil )
((measurable_set? const-decl "bool" measure_space_def nil )
(S2 formal-const-decl "sigma_algebra[T2]" fubini_tonelli_scaf nil )
(S1 formal-const-decl "sigma_algebra[T1]" fubini_tonelli_scaf nil )
(sigma_algebra nonempty-type-eq-decl nil subset_algebra_def nil )
(sigma_algebra? const-decl "bool" subset_algebra_def nil )
(setofsets type-eq-decl nil sets nil )
(setof type-eq-decl nil defined_types nil )
(bool nonempty-type-eq-decl nil booleans nil )
(boolean nonempty-type-decl nil booleans nil )
(T2 formal-type-decl nil fubini_tonelli_scaf nil )
(T1 formal-type-decl nil fubini_tonelli_scaf nil )
(cross_product_is_sigma_times formula-decl nil product_sigma nil ))
nil ))
(product_measure_contraction_TCC2 0
(product_measure_contraction_TCC2-1 nil 3459570741
("" (skosimp)
(("" (expand "measurable_set?" ) (("" (propax) nil nil )) nil )) nil )
((measurable_set? const-decl "bool" measure_space_def nil )) nil ))
(product_measure_contraction_TCC3 0
(product_measure_contraction_TCC3-1 nil 3459570741
("" (skosimp)
(("" (expand "measurable_set?" ) (("" (propax) nil nil )) nil )) nil )
((measurable_set? const-decl "bool" measure_space_def nil )) nil ))
(product_measure_contraction 0
(product_measure_contraction-1 nil 3460776966
("" (skosimp)
(("" (lemma "cross_product_is_sigma_times" ("X" "X!1" "Y" "Y!1" ))
((""
(lemma "measurable_intersection"
("a" "cross_product(X!1, Y!1)" "b" "E!1" ))
(("1" (expand "contraction" 1 1)
(("1"
(name "F"
"lambda j: fm_contraction[T2, S2](nu, A_of(nu)(j)) o
x_section(intersection
(cross_product(X!1, Y!1),
E!1))")
(("1" (case "forall j,x: F(j)(x)>=0" )
(("1"
(name "MU" "lambda i: fm_contraction[T1, S1]
(mu, A_of(mu)(i))")
(("1"
(case "forall (E:(S1)): x_eq(mu(E),
x_sum(LAMBDA i: to_measure(MU(i))(E)))")
(("1"
(case "forall i,j: integrable?[T1,S1,to_measure(MU(i))](F(j))" )
(("1"
(case "forall x: measurable_set?(x_section(intersection(cross_product(X!1, Y!1), E!1),x))" )
(("1"
(name "EE"
"intersection(cross_product(X!1, Y!1),
E!1)")
(("1" (replace -1)
(("1"
(case "forall x: x_eq(x_sum(lambda j: F(j)(x)),nu(x_section(EE,x)))" )
(("1" (hide -6 -8)
(("1"
(case
"forall x: measurable_set?(x_section(E!1,x))" )
(("1"
(name
"G"
"lambda j: (fm_contraction[T2, S2]
(contraction(nu, Y!1),
A_of(contraction(nu, Y!1))(j))
o x_section(E!1))")
(("1"
(case "forall j,x: G(j)(x)>=0" )
(("1"
(name
"NU"
"lambda i: fm_contraction[T1, S1]
(contraction(mu, X!1),
A_of
(contraction(mu, X!1))(i))")
(("1"
(case
"forall i,j: integrable?[T1,S1,to_measure(NU(i))](G(j))" )
(("1"
(hide -2 -4)
(("1"
(case
"FORALL (E: (S1)): x_eq(contraction(mu, X!1)(E), x_sum(LAMBDA i: to_measure(NU(i))(E)))" )
(("1"
(case
"FORALL x: x_eq(x_sum(LAMBDA j: G(j)(x)), contraction(nu, Y!1)(x_section(E!1, x)))" )
(("1"
(case
"forall x: X!1(x)=> x_eq(contraction(nu, Y!1)(x_section(E!1, x)), nu(x_section(EE, x)))" )
(("1"
(case
"x_eq(x_sum(LAMBDA i:
x_sum(LAMBDA j:
(TRUE,
integral
[T1, S1,
to_measure(MU(i))]
(F(j))))),
x_sum(LAMBDA i:
x_sum(LAMBDA j:
(TRUE,
integral
[T1, S1,
to_measure(NU(i))]
(G(j))))))")
(("1"
(expand "m_times" )
(("1"
(expand
"to_measure"
1)
(("1"
(expand
"product_measure_approx" )
(("1"
(expand
"fm_times" )
(("1"
(lemma
"x_sum_eq"
("S"
"LAMBDA i:
x_sum(LAMBDA j:
(TRUE,
integral[T1, S1, to_measure(MU(i))](F(j))))"
"T"
"LAMBDA i:
x_sum(LAMBDA j:
(TRUE,
integral
[T1, S1,
to_measure(fm_contraction[T1, S1]
(mu, A_of(mu)(i)))]
(fm_contraction[T2, S2](nu, A_of(nu)(j)) o
x_section(EE))))"))
(("1"
(split
-1)
(("1"
(lemma
"x_sum_eq"
("S"
"LAMBDA i:
x_sum(LAMBDA j:
(TRUE,
integral
[T1, S1,
to_measure(fm_contraction[T1, S1]
(contraction(mu, X!1),
A_of
(contraction(mu, X!1))(i)))]
(fm_contraction[T2, S2]
(contraction(nu, Y!1),
A_of(contraction(nu, Y!1))(j))
o x_section(E!1))))"
"T"
"LAMBDA i:
x_sum(LAMBDA j:
(TRUE,
integral[T1, S1, to_measure(NU(i))](G(j))))"))
(("1"
(split
-1)
(("1"
(hide-all-but
(-1
-2
-3
1))
(("1"
(expand
"x_eq" )
(("1"
(flatten)
(("1"
(assert )
(("1"
(flatten)
(("1"
(assert )
nil
nil ))
nil ))
nil ))
nil ))
nil ))
nil )
("2"
(hide
2
-1
-2)
(("2"
(assert )
(("2"
(skolem
+
"i!1" )
(("2"
(lemma
"x_sum_eq"
("S"
"LAMBDA j:
(TRUE,
integral
[T1, S1,
to_measure(fm_contraction[T1, S1]
(contraction(mu, X!1),
A_of(contraction(mu, X!1))(i!1)))]
(fm_contraction[T2, S2]
(contraction(nu, Y!1),
A_of(contraction(nu, Y!1))(j))
o x_section(E!1)))"
"T"
"LAMBDA j:
(TRUE, integral[T1, S1, to_measure(NU(i!1))](G(j)))"))
(("1"
(split)
(("1"
(propax)
nil
nil )
("2"
(hide
2)
(("2"
(assert )
(("2"
(skolem
+
"j!1" )
(("2"
(expand
"x_eq"
1)
(("2"
(inst
-4
"i!1"
"j!1" )
(("2"
(lemma
"measure_eq_integral[T1,S1]"
("mu"
"to_measure(fm_contraction[T1, S1]
(contraction(mu, X!1),
A_of(contraction(mu, X!1))(i!1)))"
"nu"
"to_measure(NU(i!1))"
"f"
"G(j!1)" ))
(("2"
(assert )
(("2"
(expand
"G" )
(("2"
(assert )
(("2"
(hide-all-but
(1
-6
-8
-9
-13))
(("2"
(skosimp)
(("2"
(expand
"to_measure" )
(("2"
(expand
"x_eq" )
(("2"
(expand
"NU" )
(("2"
(propax)
nil
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil )
("2"
(hide
2)
(("2"
(skosimp)
(("2"
(inst
-4
"i!1"
"j!1" )
(("2"
(inst
-5
"j!1"
"_" )
(("2"
(lemma
"integral_nonneg[T1, S1, to_measure[T1, S1](NU(i!1))]"
("f"
"G(j!1)" ))
(("2"
(assert )
nil
nil ))
nil ))
nil ))
nil ))
nil ))
nil )
("3"
(skosimp)
(("3"
(inst
-4
"i!1"
"j!1" )
nil
nil ))
nil )
("4"
(hide
2)
(("4"
(skosimp)
(("4"
(inst
-4
"i!1"
"j!1" )
(("4"
(inst
-5
"j!1"
"_" )
(("4"
(lemma
"integral_nonneg[T1, S1, to_measure(NU(i!1))]"
("f"
"G(j!1)" ))
(("1"
(replace
-6)
(("1"
(lemma
"measure_eq_integral[T1,S1]"
("mu"
"to_measure[T1, S1]
(fm_contraction[T1, S1]
(contraction[T1, S1](mu, X!1),
A_of[T1, S1](contraction[T1, S1](mu, X!1))(i!1)))"
"nu"
"to_measure(NU(i!1))"
"f"
"G(j!1)" ))
(("1"
(assert )
(("1"
(expand
"G"
-1
1)
(("1"
(hide-all-but
1)
(("1"
(skosimp)
(("1"
(expand
"to_measure" )
(("1"
(expand
"NU" )
(("1"
(expand
"x_eq" )
(("1"
(propax)
nil
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil )
("2"
(expand
"measurable_set?" )
(("2"
(rewrite
"A_of_def2" )
nil
nil ))
nil ))
nil ))
nil )
("2"
(propax)
nil
nil ))
nil ))
nil ))
nil ))
nil ))
nil )
("5"
(expand
"measurable_set?" )
(("5"
(rewrite
"A_of_def2" )
nil
nil ))
nil )
("6"
(skosimp)
(("6"
(inst
-4
"i!1"
"j!1" )
(("6"
(hide
2)
(("6"
(lemma
"measure_eq_integrable?[T1,S1]"
("mu"
"to_measure(NU(i!1))"
"nu"
"to_measure(fm_contraction[T1, S1]
(contraction(mu, X!1),
A_of(contraction(mu, X!1))(i!1)))"
"f"
"G(j!1)" ))
(("1"
(split
-1)
(("1"
(assert )
(("1"
(expand
"G" )
(("1"
(propax)
nil
nil ))
nil ))
nil )
("2"
(hide-all-but
1)
(("2"
(skosimp)
(("2"
(expand
"to_measure" )
(("2"
(expand
"x_eq" )
(("2"
(expand
"NU" )
(("2"
(propax)
nil
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil )
("2"
(expand
"measurable_set?" )
(("2"
(rewrite
"A_of_def2" )
nil
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil )
("2"
(hide
-1
-2
2)
(("2"
(skosimp)
(("2"
(inst
-4
"i!1"
"j!1" )
(("2"
(inst
-5
"j!1"
"_" )
(("2"
(lemma
"integral_nonneg[T1, S1, to_measure(NU(i!1))]"
("f"
"G(j!1)" ))
(("1"
(replace
-6)
(("1"
(lemma
"measure_eq_integral[T1,S1]"
("mu"
"to_measure[T1, S1]
(fm_contraction[T1, S1]
(contraction[T1, S1](mu, X!1),
A_of[T1, S1](contraction[T1, S1](mu, X!1))(i!1)))"
"nu"
"to_measure(NU(i!1))"
"f"
"G(j!1)" ))
(("1"
(split
-1)
(("1"
(expand
"G"
-1
1)
(("1"
(assert )
nil
nil ))
nil )
("2"
(hide-all-but
1)
(("2"
(skosimp)
(("2"
(expand
"to_measure" )
(("2"
(expand
"x_eq" )
(("2"
(expand
"NU" )
(("2"
(propax)
nil
nil ))
nil ))
nil ))
nil ))
nil ))
nil )
("3"
(flatten)
nil
nil ))
nil )
("2"
(expand
"measurable_set?" )
(("2"
(rewrite
"A_of_def2" )
nil
nil ))
nil )
("3"
(expand
"measurable_set?" )
(("3"
(propax)
nil
nil ))
nil ))
nil ))
nil )
("2"
(propax)
nil
nil ))
nil ))
nil ))
nil ))
nil ))
nil )
("3"
(expand
"measurable_set?" )
(("3"
(propax)
nil
nil ))
nil )
("4"
(hide
-1
-2
2)
(("4"
(skosimp)
(("4"
(inst
-4
"i!1"
"j!1" )
(("4"
(lemma
"measure_eq_integrable?[T1,S1]"
("mu"
"to_measure(fm_contraction[T1, S1]
(contraction(mu, X!1),
A_of(contraction(mu, X!1))(i!1)))"
"nu"
"to_measure(NU(i!1))"
"f"
"G(j!1)" ))
(("1"
(assert )
(("1"
(expand
"G" )
(("1"
(assert )
(("1"
(hide-all-but
1)
(("1"
(skosimp)
(("1"
(expand
"to_measure" )
(("1"
(expand
"x_eq" )
(("1"
(expand
"NU" )
(("1"
(propax)
nil
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil )
("2"
(expand
"measurable_set?" )
(("2"
(rewrite
"A_of_def2" )
nil
nil ))
nil )
("3"
(expand
"measurable_set?" )
(("3"
(propax)
nil
nil ))
nil ))
nil ))
nil ))
nil ))
nil )
("5"
(expand
"measurable_set?" )
(("5"
(propax)
nil
nil ))
nil ))
nil )
("2"
(hide
2
-1)
(("2"
(assert )
(("2"
(skolem
+
"i!1" )
(("2"
(lemma
"x_sum_eq"
("S"
"LAMBDA j:
(TRUE, integral[T1, S1, to_measure(MU(i!1))](F(j)))"
"T"
"LAMBDA j:
(TRUE,
integral
[T1, S1,
to_measure(fm_contraction[T1, S1]
(mu, A_of(mu)(i!1)))]
(fm_contraction[T2, S2](nu, A_of(nu)(j)) o
x_section(EE)))"))
(("1"
(assert )
(("1"
(skolem
+
"j!1" )
(("1"
(hide
-1
2)
(("1"
(expand
"x_eq"
1)
(("1"
(lemma
"measure_eq_integral[T1,S1]"
("mu"
"to_measure(fm_contraction[T1, S1](mu, A_of(mu)(i!1)))"
"nu"
"to_measure(MU(i!1))"
"f"
"F(j!1)" ))
(("1"
(inst
-10
"i!1"
"j!1" )
(("1"
(assert )
(("1"
(expand
"F"
-1
1)
(("1"
(hide-all-but
1)
(("1"
(skosimp)
(("1"
(expand
"MU" )
(("1"
(expand
"to_measure" )
(("1"
(expand
"x_eq" )
(("1"
(propax)
nil
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil )
("2"
(skosimp)
(("2"
(inst
-10
"i!1"
"j!1" )
(("2"
(inst
-12
"j!1"
"_" )
(("2"
(lemma
"integral_nonneg[T1, S1, to_measure(MU(i!1))]"
("f"
"F(j!1)" ))
(("1"
(replace
-13)
(("1"
(lemma
"measure_eq_integral[T1,S1]"
("mu"
"to_measure[T1, S1]
(fm_contraction[T1, S1](mu, A_of[T1, S1](mu)(i!1)))"
"nu"
"to_measure(MU(i!1))"
"f"
"F(j!1)" ))
(("1"
(replace
-12)
(("1"
(expand
"F"
-1
1)
(("1"
(assert )
(("1"
(hide-all-but
1)
(("1"
(skosimp)
(("1"
(expand
"MU" )
(("1"
(expand
"to_measure" )
(("1"
(expand
"x_eq" )
(("1"
(propax)
nil
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil )
("2"
(expand
"measurable_set?" )
(("2"
(rewrite
"A_of_def2" )
nil
nil ))
nil ))
nil ))
nil )
("2"
(propax)
nil
nil ))
nil ))
nil ))
nil ))
nil )
("3"
(expand
"measurable_set?" )
(("3"
(rewrite
"A_of_def2" )
nil
nil ))
nil )
("4"
(skosimp)
(("4"
(inst
-10
"i!1"
"j!1" )
(("4"
(lemma
"measure_eq_integrable?[T1,S1]"
("mu"
"to_measure(fm_contraction[T1, S1](mu, A_of(mu)(i!1)))"
"nu"
"to_measure(MU(i!1))"
"f"
"F(j!1)" ))
(("1"
(expand
"F"
-1
1)
(("1"
(expand
"EE" )
(("1"
(assert )
(("1"
(hide-all-but
1)
(("1"
(skosimp)
(("1"
(expand
"MU" )
(("1"
(expand
"to_measure" )
(("1"
(expand
"x_eq" )
(("1"
(propax)
nil
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil )
("2"
(expand
"measurable_set?" )
(("2"
(rewrite
"A_of_def2" )
nil
nil ))
nil ))
nil ))
nil ))
nil )
("5"
(skosimp)
(("5"
(inst
-10
"i!1"
"j!1" )
(("5"
(inst
-12
"j!1"
"_" )
(("5"
(lemma
"integral_nonneg[T1, S1, to_measure[T1, S1](MU(i!1))]"
("f"
"F(j!1)" ))
(("5"
(assert )
nil
nil ))
nil ))
nil ))
nil ))
nil )
("6"
(skosimp)
(("6"
(inst
-10
"i!1"
"j!1" )
nil
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil )
("2"
(skosimp)
(("2"
(hide
-1
2)
(("2"
(inst
-10
"i!1"
"j!1" )
(("2"
(inst
-12
"j!1"
"_" )
(("2"
(lemma
"measure_eq_integral[T1,S1]"
("mu"
"to_measure[T1, S1]
(fm_contraction[T1, S1](mu, A_of[T1, S1](mu)(i!1)))"
"nu"
"to_measure(MU(i!1))"
"f"
"F(j!1)" ))
(("1"
(lemma
"integral_nonneg[T1,S1,to_measure(MU(i!1))]"
("f"
"F(j!1)" ))
(("1"
(assert )
(("1"
(replace
-14)
(("1"
(split
-2)
(("1"
(assert )
(("1"
(expand
"F" )
(("1"
(assert )
nil
nil ))
nil ))
nil )
("2"
(hide-all-but
1)
(("2"
(skosimp)
(("2"
(expand
"to_measure" )
(("2"
(expand
"MU" )
(("2"
(expand
"x_eq" )
(("2"
(propax)
nil
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil )
("2"
(propax)
nil
nil ))
nil )
("2"
(expand
"measurable_set?" )
(("2"
(rewrite
"A_of_def2" )
nil
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil )
("3"
(skosimp)
(("3"
(hide
-1
2)
(("3"
(inst
-10
"i!1"
"j!1" )
(("3"
(lemma
"measure_eq_integrable?[T1,S1]"
("mu"
"to_measure(fm_contraction[T1, S1](mu, A_of(mu)(i!1)))"
"nu"
"to_measure(MU(i!1))"
"f"
"F(j!1)" ))
(("1"
(expand
"F" )
(("1"
(assert )
(("1"
(hide-all-but
1)
(("1"
(skosimp)
(("1"
(expand
"MU" )
(("1"
(expand
"to_measure" )
(("1"
(expand
"x_eq" )
(("1"
(propax)
nil
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil )
("2"
(expand
"measurable_set?" )
(("2"
(rewrite
"A_of_def2" )
nil
nil ))
nil ))
nil ))
nil ))
nil ))
nil )
("4"
(skosimp)
(("4"
(inst
-10
"x1!1" )
(("4"
(expand
"measurable_set?" )
(("4"
(assert )
(("4"
(expand
"x_section"
1)
(("4"
(propax)
nil
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil )
("2"
(hide 2)
(("2"
(case
"x_eq(x_sum(LAMBDA j:
x_sum(LAMBDA i:
(TRUE,
integral[T1, S1, to_measure(MU(i))](F(j))))),
x_sum(LAMBDA j:
x_sum(LAMBDA i:
(TRUE,
integral[T1, S1, to_measure(NU(i))](G(j))))))")
(("1"
(lemma
"double_x_sum_eq"
("U"
"lambda i,j: (TRUE,
integral[T1, S1, to_measure(MU(i))](F(j)))"))
(("1"
(lemma
"double_x_sum_eq"
("U"
"lambda i,j: (TRUE,
integral[T1, S1, to_measure(NU(i))](G(j)))"))
(("1"
(assert )
(("1"
(hide-all-but
(-1
-2
-3
1))
(("1"
(expand
"x_eq" )
(("1"
(flatten)
(("1"
(assert )
(("1"
(flatten)
(("1"
(assert )
nil
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil )
("2"
(hide 2)
(("2"
(case
"forall (E:(S1),i): x_eq(contraction(mu,A_of(mu)(i))(E),to_measure(MU(i))(E))" )
(("1"
(case
"forall j: integrable?[T1,S1,mu](F(j)) <=> convergent?(series(lambda i: integral[T1, S1, to_measure(MU(i))](F(j))))" )
(("1"
(lemma
"x_sum_eq"
("S"
"LAMBDA j:
x_sum(LAMBDA i:
(TRUE,
integral[T1, S1, to_measure(MU(i))](F(j))))"
"T"
"lambda j: if integrable?[T1,S1,mu](F(j)) then (TRUE,integral[T1,S1,mu](F(j))) else (FALSE,0) endif" ))
(("1"
(split
-1)
(("1"
(case
"x_eq(x_sum(LAMBDA j:
IF integrable?[T1, S1, mu](F(j))
THEN (TRUE, integral[T1, S1, mu](F(j)))
ELSE (FALSE, 0)
ENDIF), x_sum(LAMBDA j:
x_sum(LAMBDA i:
(TRUE,
integral[T1, S1, to_measure(NU(i))](G(j))))))")
(("1"
(hide-all-but
(-1
-2
1))
(("1"
(expand
"x_eq" )
(("1"
(flatten)
(("1"
(assert )
(("1"
(flatten)
(("1"
(assert )
nil
nil ))
nil ))
nil ))
nil ))
nil ))
nil )
("2"
(hide
-1
2)
(("2"
(hide
-1
-2
-12
-13)
(("2"
(case
"measurable_set?[T1, S1](X!1)" )
(("1"
(case
"FORALL j:
integrable?[T1, S1, contraction(mu, X!1)](G(j))=>integral[T1, S1, contraction[T1, S1](mu, X!1)](G(j)) >= 0")
(("1"
(case
"x_eq(x_sum(LAMBDA j:
IF integrable?[T1, S1, mu](F(j))
THEN (TRUE, integral[T1, S1, mu](F(j)))
ELSE (FALSE, 0)
ENDIF),
x_sum(LAMBDA j:IF integrable?[T1, S1, contraction(mu,X!1)](G(j))
THEN (TRUE, integral[T1, S1, contraction(mu,X!1)](G(j)))
ELSE (FALSE, 0)
ENDIF))")
(("1"
(lemma
"x_sum_eq"
("S"
"LAMBDA j:
IF integrable?[T1, S1, contraction(mu, X!1)](G(j))
THEN (TRUE,
integral[T1, S1, contraction(mu, X!1)](G(j)))
ELSE (FALSE, 0)
ENDIF"
"T"
"LAMBDA j:
x_sum(LAMBDA i:
(TRUE,
integral[T1, S1, to_measure(NU(i))](G(j))))"))
(("1"
(split
-1)
(("1"
(hide-all-but
(-1
-2
1))
(("1"
(expand
"x_eq" )
(("1"
(flatten)
(("1"
(assert )
(("1"
(flatten)
(("1"
(assert )
nil
nil ))
nil ))
nil ))
nil ))
nil ))
nil )
("2"
(hide
-1
2)
(("2"
(assert )
(("2"
(skolem
+
"j!1" )
(("2"
(case
"forall (E:(S1),i): x_eq(contraction(contraction(mu, X!1),A_of(contraction(mu,X!1))(i))(E),to_measure(NU(i))(E))" )
(("1"
(case
"forall j: integrable?[T1,S1,contraction(mu, X!1)](G(j)) <=> convergent?(series(lambda i: integral[T1, S1, to_measure(NU(i))](G(j))))" )
(("1"
(expand
"x_eq"
1)
(("1"
(case-replace
"integrable?[T1, S1, contraction(mu, X!1)](G(j!1))" )
(("1"
(inst
-
"j!1" )
(("1"
(assert )
(("1"
(expand
"x_sum"
1)
(("1"
(lemma
"sfm_integral[T1,S1,contraction(mu, X!1)]"
("f"
"G(j!1)" ))
(("1"
(case-replace
"(LAMBDA i:
integral
[T1, S1,
contraction(contraction(mu, X!1),
A_of(contraction(mu, X!1))(i))]
(G(j!1)))=(LAMBDA i:
integral[T1, S1, to_measure(NU(i))](G(j!1)))")
(("1"
(hide
-1)
(("1"
(name-replace
"DRL1"
"(series(LAMBDA (i_1: nat):
integral[T1, S1, to_measure(NU(i_1))]
(G(j!1))))")
(("1"
(name-replace
"LHS"
"integral[T1, S1, contraction(mu, X!1)](G(j!1))" )
(("1"
(hide-all-but
(-1
1))
(("1"
(assert )
(("1"
(rewrite
"metric_convergence_def" )
(("1"
(lemma
"convergence_sequences.limit_def"
("l"
"LHS"
"v"
"DRL1" ))
(("1"
(assert )
(("1"
(expand
"metric_converges_to" )
(("1"
(expand
"convergence" )
(("1"
(skosimp)
(("1"
(lift-if
1)
(("1"
(case-replace
"convergence_sequences.convergent?(DRL1)" )
(("1"
(hide
-2)
(("1"
(assert )
(("1"
(skosimp)
(("1"
(inst
-
"epsilon!1" )
(("1"
(skosimp)
(("1"
(inst
+
"n!1" )
(("1"
(skosimp)
(("1"
(inst
-
"i!1" )
(("1"
(assert )
(("1"
(hide-all-but
(-3
1))
(("1"
(grind)
nil
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil )
("2"
(replace
1
2)
(("2"
(expand
"convergent?" )
(("2"
(inst
+
"LHS" )
(("2"
(expand
"convergence" )
(("2"
(hide
-1
-2)
(("2"
(skosimp)
(("2"
(inst
-
"epsilon!1" )
(("2"
(skosimp)
(("2"
(inst
+
"n!1" )
(("2"
(skosimp)
(("2"
(inst
-
"i!1" )
(("2"
(grind)
nil
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil )
("2"
(replace
1)
(("2"
(expand
"convergent?" )
(("2"
(inst
+
"LHS" )
(("2"
(expand
"metric_converges_to" )
(("2"
(expand
"convergence" )
(("2"
(skosimp)
(("2"
(inst
-
"epsilon!1" )
(("2"
(skosimp)
(("2"
(inst
+
"n!1" )
(("2"
(skosimp)
(("2"
(inst
-
"i!1" )
(("2"
(grind)
nil
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil )
("2"
(skosimp)
(("2"
(inst
-10
"i!1"
"j!1" )
nil
nil ))
nil ))
nil ))
nil )
("2"
(apply-extensionality
:hide?
t)
(("1"
(hide
-1
2)
(("1"
(lemma
"measure_eq_integral[T1,S1]"
("mu"
"contraction(contraction(mu, X!1),
A_of(contraction(mu, X!1))(x!1))"
"nu"
"to_measure(NU(x!1))"
"f"
"G(j!1)" ))
(("1"
(assert )
(("1"
(inst
-9
"x!1"
"j!1" )
(("1"
(replace
-9)
(("1"
(inst
-3
"_"
"x!1" )
nil
nil ))
nil ))
nil ))
nil )
("2"
(expand
"measurable_set?" )
(("2"
(propax)
nil
nil ))
nil ))
nil ))
nil )
("2"
(skosimp)
(("2"
(inst
-10
"i!1"
"j!1" )
nil
nil ))
nil )
("3"
(expand
"measurable_set?" )
(("3"
(propax)
nil
nil ))
nil )
("4"
(hide
-1
2)
(("4"
(skosimp)
(("4"
(inst
-3
"_"
"i!1" )
(("4"
(inst
-9
"i!1"
"j!1" )
(("4"
(lemma
"measure_eq_integrable?[T1,S1]"
("mu"
"contraction(contraction(mu, X!1),
A_of(contraction(mu, X!1))(i!1))"
"nu"
"to_measure(NU(i!1))"
"f"
"G(j!1)" ))
(("1"
(replace
-4)
(("1"
(replace
-1)
(("1"
(propax)
nil
nil ))
nil ))
nil )
("2"
(hide-all-but
1)
(("2"
(typepred
"A_of[T1, S1](contraction[T1, S1](mu, X!1))(i!1)" )
(("2"
(expand
"measurable_set?" )
(("2"
(propax)
nil
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil )
("3"
(skosimp)
(("3"
(inst
-10
"i!1"
"j!1" )
nil
nil ))
nil )
("4"
(expand
"measurable_set?" )
(("4"
(propax)
nil
nil ))
nil )
("5"
(skosimp)
(("5"
(hide
2
-1
-3)
(("5"
(inst
-2
"_"
"i!1" )
(("5"
(inst
-8
"i!1"
"j!1" )
(("5"
(lemma
"measure_eq_integrable?[T1,S1]"
("mu"
"contraction(contraction(mu, X!1),
A_of(contraction(mu, X!1))(i!1))"
"nu"
"to_measure(NU(i!1))"
"f"
"G(j!1)" ))
(("1"
(assert )
nil
nil )
("2"
(expand
"measurable_set?" )
(("2"
(propax)
nil
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil )
("2"
(hide-all-but
(-1
1
-10))
(("2"
(lemma
"nn_integrable_is_nn_integrable[T1, S1, contraction[T1, S1](mu, X!1)]"
("f"
"G(j!1)" ))
(("2"
(assert )
(("2"
(skosimp)
(("2"
(inst
-
"j!1"
"x!1" )
nil
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil )
("2"
(replace
1)
(("2"
(assert )
(("2"
(expand
"x_sum"
-3)
(("2"
(prop)
(("2"
(inst
-
"j!1" )
(("2"
(name-replace
"DRL1"
"series(LAMBDA (i_1: nat):
integral[T1, S1, to_measure(NU(i_1))](G(j!1)))")
(("1"
(replace
-2)
(("1"
(hide-all-but
(-1
1))
(("1"
(expand
"convergent?" )
(("1"
(skosimp)
(("1"
(inst
+
"l!1" )
(("1"
(expand
"convergence" )
(("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"
(grind)
nil
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil )
("2"
(skosimp)
(("2"
(inst
-10
"i!1"
"j!1" )
nil
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil )
("2"
(hide
2)
(("2"
(skosimp)
(("2"
(case
"nn_measurable?[T1,S1](G(j!2))" )
(("1"
(lemma
"sfm_integrable[T1, S1, contraction(mu, X!1)]"
("h"
"G(j!2)" ))
(("1"
(case-replace
"(LAMBDA i:
integral
[T1, S1,
contraction(contraction(mu, X!1),
A_of
(contraction(mu, X!1))(i))]
(G(j!2)))=(LAMBDA i:
integral[T1, S1, to_measure(NU(i))](G(j!2)))")
(("1"
(hide
-1)
(("1"
(case-replace
"(FORALL i:
integrable?
[T1, S1,
contraction(contraction(mu, X!1),
A_of(contraction(mu, X!1))(i))]
(G(j!2)))")
(("1"
(assert )
(("1"
(replace
-2
1
rl)
(("1"
(name-replace
"UU"
"(series((LAMBDA i: integral[T1, S1, to_measure(NU(i))](G(j!2)))))" )
(("1"
(hide-all-but
1)
(("1"
(split)
(("1"
(flatten)
nil
nil )
("2"
(flatten)
nil
nil ))
nil ))
nil )
("2"
(inst
-10
"_"
"j!2" )
nil
nil ))
nil ))
nil ))
nil )
("2"
(skosimp)
(("2"
(inst
-4
"_"
"i!1" )
(("2"
(inst
-10
"i!1"
"j!2" )
(("2"
(lemma
"measure_eq_integrable?[T1,S1]"
("mu"
"contraction(contraction(mu, X!1),
A_of(contraction(mu, X!1))(i!1))"
"nu"
"to_measure(NU(i!1))"
"f"
"G(j!2)" ))
(("1"
(assert )
nil
nil )
("2"
(expand
"measurable_set?" )
(("2"
(propax)
nil
nil ))
nil ))
nil ))
nil ))
nil ))
nil )
("3"
(expand
"measurable_set?" )
(("3"
(propax)
nil
nil ))
nil ))
nil ))
nil )
("2"
(hide
-1
2)
(("2"
(apply-extensionality
:hide?
t)
(("1"
(lemma
"measure_eq_integral[T1,S1]"
("mu"
"contraction(contraction(mu, X!1),
A_of(contraction(mu, X!1))(x!1))"
"nu"
"to_measure(NU(x!1))"
"f"
"G(j!2)" ))
(("1"
(inst
-9
"x!1"
"j!2" )
(("1"
(inst
-3
"_"
"x!1" )
(("1"
(assert )
nil
nil ))
nil ))
nil )
("2"
(expand
"measurable_set?" )
(("2"
(propax)
nil
nil ))
nil ))
nil )
("2"
(skosimp)
(("2"
(inst
-8
"i!1"
"j!2" )
nil
nil ))
nil )
("3"
(expand
"measurable_set?" )
(("3"
(propax)
nil
nil ))
nil )
("4"
(skosimp)
(("4"
(inst
-8
"i!1"
"j!2" )
(("4"
(inst
-2
"_"
"i!1" )
(("4"
(lemma
"measure_eq_integrable?[T1,S1]"
("mu"
"contraction(contraction(mu, X!1),
A_of(contraction(mu, X!1))(i!1))
"
"nu"
"to_measure(NU(i!1))"
"f"
"G(j!2)" ))
(("1"
(replace
-3)
(("1"
(replace
-1)
(("1"
(propax)
nil
nil ))
nil ))
nil )
("2"
(expand
"measurable_set?" )
(("2"
(propax)
nil
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil )
("3"
(skosimp)
(("3"
(inst
-10
"i!1"
"j!2" )
nil
nil ))
nil )
("4"
(expand
"measurable_set?" )
(("4"
(propax)
nil
nil ))
nil )
("5"
(skosimp)
(("5"
(inst
-
"_"
"i!1" )
(("5"
(inst
-10
"i!1"
"j!2" )
(("5"
(lemma
"measure_eq_integrable?[T1,S1]"
("mu"
"contraction(contraction(mu, X!1),
A_of(contraction(mu, X!1))(i!1))"
"nu"
"to_measure(NU(i!1))"
"f"
"G(j!2)" ))
(("1"
(assert )
nil
nil )
("2"
(expand
"measurable_set?" )
(("2"
(propax)
nil
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil )
("2"
(propax)
nil
nil ))
nil )
("2"
(expand
"nn_measurable?" )
(("2"
(split)
(("1"
(expand
"G" )
(("1"
(hide-all-but
(1
-9))
(("1"
(lemma
"x_section_measurable"
("nu"
"fm_contraction[T2, S2]
(contraction(nu, Y!1),
A_of(contraction(nu, Y!1))(j!2))"
"M"
"E!1" ))
(("1"
(propax)
nil
nil ))
nil ))
nil ))
nil )
("2"
(skosimp)
(("2"
(inst
-8
"j!2"
"x!1" )
(("2"
(assert )
nil
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil )
("2"
(hide-all-but
1)
(("2"
(skosimp)
(("2"
(expand
"NU" )
(("2"
(typepred
"contraction(mu, X!1)" )
(("2"
(name-replace
"MU1"
"contraction(mu, X!1)" )
(("2"
(expand
"to_measure" )
(("2"
(expand
"fm_contraction" )
(("2"
(expand
"contraction" )
(("2"
(expand
"x_eq" )
(("2"
(lemma
"A_of_def2"
("mu"
"MU1"
"n"
"i!1" ))
(("2"
(lemma
"m_monotone[T1,S1,MU1]"
("a"
"intersection(A_of(MU1)(i!1), E!2)"
"b"
"A_of(MU1)(i!1)" ))
(("1"
(expand
"x_le" )
(("1"
(assert )
(("1"
(expand
"intersection" )
(("1"
(expand
"subset?" )
(("1"
(expand
"member" )
(("1"
(skosimp)
nil
nil ))
nil ))
nil ))
nil ))
nil ))
nil )
("2"
(expand
"measurable_set?" )
(("2"
(propax)
nil
nil ))
nil )
("3"
(expand
"measurable_set?" )
(("3"
(propax)
nil
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil )
("3"
(expand
"measurable_set?" )
(("3"
(propax)
nil
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil )
("2"
(hide
2)
(("2"
(case
"forall (l:real): ((forall j: integrable?[T1, S1, mu](F(j)))&convergence(series(LAMBDA j:integral[T1, S1, mu](F(j))),l)) <=> ((forall j: integrable?[T1, S1, contraction(mu, X!1)](G(j)))&convergence(series(LAMBDA j:integral[T1, S1, contraction(mu, X!1)](G(j))),l))" )
(("1"
(expand
"x_sum"
1)
(("1"
(case-replace
"(FORALL i:
IF integrable?[T1, S1, mu](F(i)) THEN TRUE
ELSE FALSE
ENDIF)
AND
convergence_sequences.convergent?(series(LAMBDA i:
IF integrable?[T1, S1, mu](F(i))
THEN integral[T1, S1, mu](F(i))
ELSE 0
ENDIF))")
(("1"
(flatten
-1)
(("1"
(case-replace
"FORALL j: integrable?[T1, S1, mu](F(j))" )
(("1"
(case-replace
"(LAMBDA i:
IF integrable?[T1, S1, mu](F(i))
THEN integral[T1, S1, mu](F(i))
ELSE 0
ENDIF)=(LAMBDA j: integral[T1, S1, mu](F(j)))")
(("1"
(hide
-1)
(("1"
(lemma
"convergence_sequences.limit_lemma"
("v"
"series(LAMBDA j: integral[T1, S1, mu](F(j)))" ))
(("1"
(inst
-5
"convergence_sequences.limit
(series(LAMBDA j: integral[T1, S1, mu](F(j))))")
(("1"
(replace
-1)
(("1"
(case-replace
"(FORALL i:
IF integrable?[T1, S1, contraction(mu, X!1)](G(i))
THEN TRUE
ELSE FALSE
ENDIF)
AND
convergence_sequences.convergent?(series(LAMBDA i:
IF integrable?
[T1, S1, contraction(mu, X!1)]
(G(i))
THEN integral
[T1, S1, contraction(mu, X!1)]
(G(i))
ELSE 0
ENDIF))")
(("1"
(expand
"x_eq"
1)
(("1"
(case-replace
"(LAMBDA i:
IF integrable?[T1, S1, contraction(mu, X!1)](G(i))
THEN integral[T1, S1, contraction(mu, X!1)](G(i))
ELSE 0
ENDIF)=(LAMBDA j:
integral[T1, S1, contraction(mu, X!1)]
(G(j)))")
(("1"
(flatten)
(("1"
(rewrite
"convergence_sequences.limit_def"
-9
:dir
rl)
(("1"
(assert )
nil
nil ))
nil ))
nil )
("2"
(hide
2)
(("2"
(apply-extensionality
:hide?
t)
(("1"
(flatten)
(("1"
(inst
-
"x!1" )
(("1"
(prop)
(("1"
(assert )
nil
nil ))
nil ))
nil ))
nil )
("2"
(skosimp)
(("2"
(inst
-
"j!1" )
(("2"
(assert )
nil
nil ))
nil ))
nil ))
nil ))
nil )
("3"
(skosimp)
(("3"
(inst
-
"j!1" )
(("3"
(assert )
nil
nil ))
nil ))
nil ))
nil ))
nil )
("2"
(hide
2)
(("2"
(flatten)
(("2"
(split)
(("1"
(skosimp)
(("1"
(inst
-5
"i!1" )
(("1"
(assert )
nil
nil ))
nil ))
nil )
("2"
(case-replace
"(LAMBDA i:
IF integrable?[T1, S1, contraction(mu, X!1)]
(G(i))
THEN integral[T1, S1, contraction(mu, X!1)]
(G(i))
ELSE 0
ENDIF)=(LAMBDA j:
integral[T1, S1, contraction(mu, X!1)](G(j)))")
(("1"
(expand
"convergence_sequences.convergent?" )
(("1"
(inst
+
"convergence_sequences.limit
(series(LAMBDA j: integral[T1, S1, mu](F(j))))")
nil
nil ))
nil )
("2"
(apply-extensionality
:hide?
t)
(("2"
(inst
-5
"x!1" )
(("2"
(assert )
nil
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil )
("3"
(expand
"measurable_set?" )
(("3"
(propax)
nil
nil ))
nil )
("4"
(expand
"measurable_set?" )
(("4"
(propax)
nil
nil ))
nil ))
nil ))
nil ))
nil )
("2"
(propax)
nil
nil ))
nil ))
nil )
("2"
(hide
2)
(("2"
(apply-extensionality
:hide?
t)
(("2"
(inst
-
"x!1" )
(("2"
(assert )
nil
nil ))
nil ))
nil ))
nil ))
nil )
("2"
(hide
2)
(("2"
(skosimp)
(("2"
(inst
-
"j!1" )
(("2"
(assert )
nil
nil ))
nil ))
nil ))
nil ))
nil ))
nil )
("2"
(replace
1
2)
(("2"
(expand
"x_eq"
2)
(("2"
(case-replace
"FORALL j: integrable?[T1, S1, contraction(mu, X!1)](G(j))" )
(("1"
(case-replace
"(LAMBDA i:
IF integrable?[T1, S1, contraction(mu, X!1)]
(G(i))
THEN integral[T1, S1, contraction(mu, X!1)]
(G(i))
ELSE 0
ENDIF)=(LAMBDA j:
integral[T1, S1, contraction(mu, X!1)]
(G(j)))")
(("1"
(case-replace
"convergence_sequences.convergent?(series(LAMBDA j:
integral[T1, S1, contraction(mu, X!1)]
(G(j))))")
(("1"
(hide
-5)
(("1"
(lemma
"convergence_sequences.limit_lemma"
("v"
"series(LAMBDA j: integral[T1, S1, contraction(mu, X!1)](G(j)))" ))
(("1"
(inst
-5
"convergence_sequences.limit(series(LAMBDA j:
integral[T1, S1, contraction(mu, X!1)]
(G(j))))")
(("1"
(replace
-1)
(("1"
(hide-all-but
(-4
-5
1))
(("1"
(flatten)
(("1"
(split)
(("1"
(skosimp)
(("1"
(inst
-2
"i!1" )
(("1"
(assert )
nil
nil ))
nil ))
nil )
("2"
(case-replace
"(LAMBDA i:
IF integrable?[T1, S1, mu](F(i))
THEN integral[T1, S1, mu](F(i))
ELSE 0
ENDIF)=(LAMBDA j: integral[T1, S1, mu](F(j)))")
(("1"
(hide
-1)
(("1"
(expand
"convergence_sequences.convergent?" )
(("1"
(inst
+
"convergence_sequences.limit
(series(LAMBDA j:
integral[T1, S1, contraction(mu, X!1)]
(G(j))))")
(("1"
(expand
"measurable_set?" )
(("1"
(propax)
nil
nil ))
nil ))
nil ))
nil ))
nil )
("2"
(apply-extensionality
:hide?
t)
(("2"
(inst
-2
"x!1" )
(("2"
(assert )
nil
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil )
("2"
(propax)
nil
nil )
("3"
(propax)
nil
nil ))
nil ))
nil )
("2"
(replace
1
-4)
(("2"
(propax)
nil
nil ))
nil ))
nil )
("2"
(apply-extensionality
1
:hide?
t)
(("2"
(inst
-1
"x!1" )
(("2"
(assert )
nil
nil ))
nil ))
nil ))
nil )
("2"
(hide-all-but
(-2
1))
(("2"
(prop)
(("2"
(skosimp)
(("2"
(inst
-
"j!1" )
(("2"
(assert )
nil
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil )
("2"
(hide
2)
(("2"
(skosimp)
(("2"
(split
1)
(("1"
(flatten)
(("1"
(name
"FF"
"lambda j: lambda x: series(lambda i: F(i)(x))(j)" )
(("1"
(case
"forall j: integrable?[T1, S1, mu](FF(j))" )
(("1"
(case
"forall (n:nat): series(LAMBDA j: integral[T1, S1, mu](F(j)))(n) = (integral[T1, S1, mu] o FF)(n)" )
(("1"
(lemma
"extensionality_postulate"
("f"
"series(LAMBDA j: integral[T1, S1, mu](F(j)))"
"g"
"integral[T1, S1, mu] o FF" ))
(("1"
(replace
-2
-1)
(("1"
(assert )
(("1"
(replace
-1)
(("1"
(hide
-1
-2
-4)
(("1"
(lemma
"monotone_convergence[T1, S1, mu]"
("F"
"FF" ))
(("1"
(case-replace
"ae_increasing?(FF)" )
(("1"
(case-replace
"real_fun_preds.bounded?(integral[T1,S1,mu] o FF)" )
(("1"
(assert )
(("1"
(flatten)
(("1"
(skosimp)
(("1"
(inst
-
"f!1" )
(("1"
(assert )
(("1"
(typepred
"f!1" )
(("1"
(case
"forall x: x_eq(x_limit(LAMBDA j: (TRUE,FF(j)(x))), nu(x_section(EE, x)))" )
(("1"
(case
"ae?(lambda x: x_eq((TRUE,plus(f!1)(x)),nu(x_section(EE, x))))" )
(("1"
(hide
-2)
(("1"
(case-replace
"FORALL j: integrable?[T1, S1, contraction(mu, X!1)](G(j))" )
(("1"
(name
"GG"
"lambda j: lambda x: series(LAMBDA i: G(i)(x))(j)" )
(("1"
(hide
-1)
(("1"
(case
"FORALL j: integrable?[T1, S1, contraction(mu, X!1)](GG(j))" )
(("1"
(case
"forall j,x: GG(j)(x) >= 0" )
(("1"
(case
"forall j: series(LAMBDA i:
integral[T1, S1, contraction(mu, X!1)](G(i)))(j)=(integral[T1, S1, contraction(mu, X!1)] o GG)(j)")
(("1"
(case-replace
"series(LAMBDA j:
integral[T1, S1, contraction(mu, X!1)](G(j)))=integral[T1, S1, contraction(mu, X!1)] o GG")
(("1"
(case-replace
"l!1=integral[T1,S1,mu](f!1)" )
(("1"
(hide
-1)
(("1"
(case
"ae_nonneg?(f!1)" )
(("1"
(case
"ae_eq?(f!1,*[T1](phi(X!1),f!1))" )
(("1"
(hide
-4
-3)
(("1"
(name
"HH"
"lambda j: *[T1](phi(X!1),GG(j))" )
(("1"
(case
"forall j: integrable?[T1, S1, mu](HH(j))" )
(("1"
(case
"FORALL j, x: HH(j)(x) >= 0" )
(("1"
(hide
-3
-6)
(("1"
(case
"forall j: (integral[T1, S1, contraction(mu, X!1)] o GG)(j) = (integral[T1,S1,mu] o HH)(j)" )
(("1"
(case-replace
"integral[T1, S1, contraction(mu, X!1)] o GG=integral[T1, S1, mu] o HH" )
(("1"
(hide
-1
-2)
(("1"
(lemma
"monotone_convergence[T1, S1, mu]"
("F"
"HH" ))
(("1"
(case-replace
"ae_increasing?(HH)" )
(("1"
(flatten)
(("1"
(hide
-2
-3)
(("1"
(lemma
"indefinite_integrable[T1, S1, mu]"
("f"
"f!1"
"E"
"X!1" ))
(("1"
(inst
-3
"*[T1](phi(X!1), f!1)" )
(("1"
(split
-3)
(("1"
(expand
"converges_upto?" )
(("1"
(flatten)
(("1"
(name-replace
"SS"
"integral[T1, S1, mu] o HH" )
(("1"
(lemma
"integral_ae_eq[T1,S1,mu]"
("f"
"f!1"
"h"
"*[T1](phi(X!1), f!1)" ))
(("1"
(assert )
(("1"
(replace
-1
*
rl)
(("1"
(name-replace
"LIMIT"
"integral[T1, S1, mu](f!1)" )
(("1"
(hide-all-but
(-2
1))
(("1"
(expand
"convergence" )
(("1"
(rewrite
"metric_convergence_def" )
(("1"
(expand
"metric_converges_to" )
(("1"
(skosimp)
(("1"
(inst
-
"epsilon!1" )
(("1"
(skosimp)
(("1"
(inst
+
"n!1" )
(("1"
(skosimp)
(("1"
(inst
-
"i!1" )
(("1"
(grind)
nil
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil )
("2"
(hide
2)
(("2"
(hide-all-but
(-6
-9
-20
-21
1))
(("2"
(expand
"HH" )
(("2"
(expand
"ae_convergence?" )
(("2"
(expand
"ae_convergence_in?" )
(("2"
(expand
"ae_nonneg?" )
(("2"
(expand
"pointwise_ae?" )
(("2"
(expand
"ae?" )
(("2"
(expand
"fullset" )
(("2"
(expand
"ae_in?" )
(("2"
(skosimp*)
(("2"
(inst
+
"union(E!2,E!3)" )
(("2"
(skosimp)
(("2"
(expand
"union" )
(("2"
(inst
-
"x!1" )
(("2"
(inst
-
"x!1" )
(("2"
(assert )
(("2"
(flatten)
(("2"
(assert )
(("2"
(expand
"plus" )
(("2"
(expand
"max" )
(("2"
(expand
"*" )
(("2"
(expand
"phi" )
(("2"
(expand
"member" )
(("2"
(rewrite
"metric_convergence_def" )
(("2"
(expand
"x_eq"
-2)
(("2"
(flatten)
(("2"
(inst
-
"x!1" )
(("2"
(inst
-
"x!1" )
(("2"
(case-replace
"X!1(x!1)" )
(("1"
(expand
"x_eq" )
(("1"
(flatten)
(("1"
(assert )
(("1"
(lemma
"x_limit_to_sum"
("S"
"LAMBDA j: (TRUE,GG(j)(x!1))"
"T"
"LAMBDA j: (TRUE,G(j)(x!1))" ))
(("1"
(split
-1)
(("1"
(expand
"x_eq" )
(("1"
(flatten)
(("1"
(assert )
(("1"
(expand
"x_sum" )
(("1"
(case-replace
"convergence_sequences.convergent?(series(LAMBDA j: G(j)(x!1)))" )
(("1"
(replace
-10)
(("1"
(replace
-7
*
rl)
(("1"
(replace
-9)
(("1"
(expand
"x_limit" )
(("1"
(case-replace
"convergence_sequences.convergent?(LAMBDA i: GG(i)(x!1))" )
(("1"
(case
"convergence(LAMBDA j: GG(j)(x!1),f!1(x!1))" )
(("1"
(hide-all-but
(-1
3))
(("1"
(expand
"metric_converges_to" )
(("1"
(expand
"convergence" )
(("1"
(skosimp)
(("1"
(inst
-
"r!1" )
(("1"
(skosimp)
(("1"
(inst
+
"n!1" )
(("1"
(skosimp)
(("1"
(inst
-
"i!1" )
(("1"
(grind)
nil
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil )
("2"
(lemma
"convergence_sequences.limit_def"
("v"
"LAMBDA i: GG(i)(x!1)"
"l"
"f!1(x!1)" ))
(("1"
(assert )
nil
nil )
("2"
(propax)
nil
nil ))
nil ))
nil )
("2"
(assert )
nil
nil ))
nil ))
nil ))
nil ))
nil ))
nil )
("2"
(assert )
nil
nil ))
nil ))
nil ))
nil ))
nil ))
nil )
("2"
(hide-all-but
1)
(("2"
(skosimp)
(("2"
(expand
"GG" )
(("2"
(expand
"series" )
(("2"
(expand
"x_sigma" )
(("2"
(expand
"x_eq" )
(("2"
(propax)
nil
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil )
("2"
(hide-all-but
1)
(("2"
(expand
"GG" )
(("2"
(expand
"series" )
(("2"
(induct
"j" )
(("1"
(expand
"sigma" )
(("1"
(assert )
nil
nil ))
nil )
("2"
(skosimp)
(("2"
(expand
"sigma"
1)
(("2"
(assert )
nil
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil )
("2"
(assert )
(("2"
(hide-all-but
4)
(("2"
(expand
"metric_converges_to" )
(("2"
(skosimp)
(("2"
(inst
+
"0" )
(("2"
(skosimp)
(("2"
(grind)
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 ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil )
("2"
(hide-all-but
(1
-23))
(("2"
(expand
"ae_increasing?" )
(("2"
(expand
"HH" )
(("2"
(expand
"*" )
(("2"
(expand
"phi" )
(("2"
(expand
"member" )
(("2"
(inst
+
"emptyset" )
(("2"
(skosimp)
(("2"
(hide
1)
(("2"
(skosimp)
(("2"
(lift-if
1)
(("2"
(assert )
(("2"
(prop)
(("2"
(expand
"GG" )
(("2"
(expand
"series" )
(("2"
(inst
-
"_"
"x!1" )
(("2"
(lemma
"sigma_split"
("low"
"0"
"high"
"j!1"
"z"
"i!1"
"F"
"LAMBDA i: G(i)(x!1)" ))
(("2"
(assert )
(("2"
(replace
-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 )
("2"
(apply-extensionality
1
:hide?
t)
nil
nil ))
nil )
("2"
(hide
2)
(("2"
(skosimp)
(("2"
(expand
"o" )
(("2"
(expand
"HH" )
(("2"
(inst
-5
"j!1" )
(("2"
(lemma
"contraction_integral[T1,S1]"
("A"
"X!1"
"f"
"GG(j!1)"
"mu"
"mu" ))
(("2"
(propax)
nil
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil )
("3"
(propax)
nil
nil ))
nil ))
nil )
("2"
(expand
"HH" )
(("2"
(expand
"*" )
(("2"
(hide-all-but
(-5
1))
(("2"
(skosimp)
(("2"
(inst
-
"j!1"
"x!1" )
(("2"
(expand
"phi" )
(("2"
(lift-if
1)
(("2"
(assert )
nil
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil )
("2"
(hide-all-but
(1
-5))
(("2"
(skosimp)
(("2"
(inst
-
"j!1" )
(("2"
(lemma
"contraction_integrable[T1,S1]"
("mu"
"mu"
"A"
"X!1"
"f"
"GG(j!1)" ))
(("1"
(expand
"HH" )
(("1"
(assert )
nil
nil ))
nil )
("2"
(lemma
"integrable_is_measurable[T1, S1, contraction(mu, X!1)]" )
(("2"
(inst
-
"GG(j!1)" )
nil
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil )
("2"
(hide-all-but
(1
-7
-1))
(("2"
(expand
"ae_nonneg?" )
(("2"
(expand
"ae_eq?" )
(("2"
(expand
"restrict" )
(("2"
(expand
"pointwise_ae?" )
(("2"
(expand
"ae?" )
(("2"
(expand
"fullset" )
(("2"
(expand
"ae_in?" )
(("2"
(skosimp*)
(("2"
(inst
+
"union(E!2,E!3)" )
(("2"
(skosimp)
(("2"
(inst
-
"x!1" )
(("2"
(inst
-
"x!1" )
(("2"
(expand
"union" )
(("2"
(expand
"member" )
(("2"
(flatten)
(("2"
(assert )
(("2"
(expand
"plus" )
(("2"
(expand
"max" )
(("2"
(expand
"x_eq" )
(("2"
(flatten)
(("2"
(expand
"*" )
(("2"
(expand
"phi" )
(("2"
(expand
"member" )
(("2"
(lift-if
3)
(("2"
(assert )
(("2"
(prop)
(("2"
(expand
"EE" )
(("2"
(expand
"cross_product" )
(("2"
(expand
"intersection" )
(("2"
(expand
"x_section" )
(("2"
(expand
"member" )
(("2"
(assert )
(("2"
(typepred
"nu" )
(("2"
(expand
"sigma_finite_measure?" )
(("2"
(expand
"measure?" )
(("2"
(flatten)
(("2"
(expand
"measure_empty?" )
(("2"
(expand
"emptyset" )
(("2"
(assert )
(("2"
(replace
-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 ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil )
("2"
(hide-all-but
(1
-9
-10
-26))
(("2"
(expand
"ae_increasing?" )
(("2"
(expand
"ae_convergence?" )
(("2"
(expand
"ae_convergence_in?" )
(("2"
(expand
"ae_nonneg?" )
(("2"
(expand
"pointwise_ae?" )
(("2"
(expand
"ae?" )
(("2"
(expand
"fullset" )
(("2"
(expand
"ae_in?" )
(("2"
(skosimp*)
(("2"
(inst
+
"union(E!2,E!3)" )
(("2"
(skosimp)
(("2"
(inst
-
"x!1" )
(("2"
(inst
-
"x!1" )
(("2"
(expand
"union" )
(("2"
(expand
"member" )
(("2"
(flatten)
(("2"
(assert )
(("2"
(rewrite
"metric_convergence_def" )
(("2"
(expand
"metric_converges_to" )
(("2"
(inst
-3
"0"
"x!1" )
(("2"
(inst
-
"F(0)(x!1)-f!1(x!1)" )
(("1"
(skosimp)
(("1"
(inst
-
"0"
"n!1" )
(("1"
(inst
-
"n!1" )
(("1"
(expand
"FF"
-1
1)
(("1"
(expand
"series" )
(("1"
(expand
"sigma" )
(("1"
(assert )
(("1"
(expand
"ball" )
(("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 ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil )
("2"
(expand
"converges_upto?" )
(("2"
(flatten)
(("2"
(name-replace
"SS"
"integral[T1, S1, mu] o FF" )
(("2"
(name-replace
"RHS"
"integral[T1, S1, mu](f!1)" )
(("2"
(hide-all-but
(1
-11
-15))
(("2"
(lemma
"convergence_sequences.unique_limit"
("u"
"SS"
"l1"
"l!1"
"l2"
"RHS" ))
(("2"
(assert )
(("2"
(hide
-2
2)
(("2"
(expand
"convergence" )
(("2"
(rewrite
"metric_convergence_def" )
(("2"
(expand
"metric_converges_to" )
(("2"
(skosimp)
(("2"
(inst
-
"epsilon!1" )
(("2"
(skosimp)
(("2"
(inst
+
"n!1" )
(("2"
(skosimp)
(("2"
(inst
-
"i!1" )
--> --------------------
--> maximum size reached
--> --------------------
Messung V0.5 in Prozent C=100 H=96 G=97
¤ Dauer der Verarbeitung: 0.464 Sekunden
(vorverarbeitet am 2026-04-28)
¤
*© Formatika GbR, Deutschland