Impressum product_finite_measure.prf
Sprache: Lisp
(product_finite_measure
(x_section_bounded_TCC1 0
(x_section_bounded_TCC1-1 nil 3450064167
("" (skosimp)
(("" (expand "x_section" )
((""
(lemma "x_section_measurable[T1,T2]"
("Z" "M!1" "x" "x1!1" "S1" "S1" "S2" "S2" ))
(("" (expand "member" ) (("" (propax) nil nil )) nil )) nil ))
nil ))
nil )
((x_section const-decl "[T1 -> set[T2]]" cross_product "topology/" )
(member const-decl "bool" sets nil )
(x_section_measurable formula-decl nil product_sigma_def nil )
(boolean nonempty-type-decl nil booleans nil )
(bool nonempty-type-eq-decl nil booleans nil )
(setof type-eq-decl nil defined_types nil )
(setofsets type-eq-decl nil sets nil )
(sigma_algebra? const-decl "bool" subset_algebra_def nil )
(sigma_algebra nonempty-type-eq-decl nil subset_algebra_def nil )
(S1 formal-const-decl "sigma_algebra[T1]" product_finite_measure
nil )
(S2 formal-const-decl "sigma_algebra[T2]" product_finite_measure
nil )
(set type-eq-decl nil sets nil )
(sigma_times const-decl "sigma_algebra[[T1, T2]]" product_sigma_def
nil )
(T1 formal-type-decl nil product_finite_measure nil )
(T2 formal-type-decl nil product_finite_measure nil ))
nil ))
(x_section_bounded 0
(x_section_bounded-1 nil 3450064365
("" (skosimp)
(("" (expand "o " )
(("" (split)
(("1" (assert ) nil nil )
("2" (expand "x_section" )
(("2"
(lemma "x_section_measurable[T1,T2]"
("Z" "M!1" "x" "x!1" "S1" "S1" "S2" "S2" ))
(("2" (expand "member" )
(("2"
(lemma "fm_monotone[T2,S2,nu!1]"
("A" "x_section(M!1, x!1)" "B" "fullset[T2]" ))
(("2" (split)
(("1" (propax) nil nil )
("2" (expand "subset?" )
(("2" (skosimp)
(("2" (expand "member" )
(("2" (expand "fullset" )
(("2" (propax) nil nil )) nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil )
((O const-decl "T3" function_props nil )
(x_section const-decl "[T1 -> set[T2]]" cross_product "topology/" )
(member const-decl "bool" sets nil )
(subset? const-decl "bool" sets nil )
(subset_algebra_fullset name-judgement "(S)" product_finite_measure
nil )
(fm_monotone formula-decl nil finite_measure nil )
(x_section const-decl "set[T2]" cross_product "topology/" )
(fullset const-decl "set" sets 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 )
(>= const-decl "bool" reals nil )
(nnreal type-eq-decl nil real_types nil )
(finite_measure? const-decl "bool" generalized_measure_def nil )
(finite_measure nonempty-type-eq-decl nil generalized_measure_def
nil )
(x_section_measurable formula-decl nil product_sigma_def nil )
(boolean nonempty-type-decl nil booleans nil )
(bool nonempty-type-eq-decl nil booleans nil )
(setof type-eq-decl nil defined_types nil )
(setofsets type-eq-decl nil sets nil )
(sigma_algebra? const-decl "bool" subset_algebra_def nil )
(sigma_algebra nonempty-type-eq-decl nil subset_algebra_def nil )
(S1 formal-const-decl "sigma_algebra[T1]" product_finite_measure
nil )
(S2 formal-const-decl "sigma_algebra[T2]" product_finite_measure
nil )
(set type-eq-decl nil sets nil )
(sigma_times const-decl "sigma_algebra[[T1, T2]]" product_sigma_def
nil )
(T1 formal-type-decl nil product_finite_measure nil )
(T2 formal-type-decl nil product_finite_measure nil )
(real_le_is_total_order name-judgement "(total_order?[real])"
real_props nil ))
shostak))
(y_section_bounded_TCC1 0
(y_section_bounded_TCC1-1 nil 3450064167
("" (skosimp)
(("" (expand "y_section" )
((""
(lemma "y_section_measurable[T1,T2]"
("Z" "M!1" "y" "x1!1" "S1" "S1" "S2" "S2" ))
(("" (expand "member" ) (("" (propax) nil nil )) nil )) nil ))
nil ))
nil )
((y_section const-decl "[T2 -> set[T1]]" cross_product "topology/" )
(member const-decl "bool" sets nil )
(y_section_measurable formula-decl nil product_sigma_def nil )
(boolean nonempty-type-decl nil booleans nil )
(bool nonempty-type-eq-decl nil booleans nil )
(setof type-eq-decl nil defined_types nil )
(setofsets type-eq-decl nil sets nil )
(sigma_algebra? const-decl "bool" subset_algebra_def nil )
(sigma_algebra nonempty-type-eq-decl nil subset_algebra_def nil )
(S1 formal-const-decl "sigma_algebra[T1]" product_finite_measure
nil )
(S2 formal-const-decl "sigma_algebra[T2]" product_finite_measure
nil )
(set type-eq-decl nil sets nil )
(sigma_times const-decl "sigma_algebra[[T1, T2]]" product_sigma_def
nil )
(T1 formal-type-decl nil product_finite_measure nil )
(T2 formal-type-decl nil product_finite_measure nil ))
nil ))
(y_section_bounded 0
(y_section_bounded-1 nil 3450064193
("" (skosimp)
(("" (expand "o" )
(("" (split)
(("1" (assert ) nil nil )
("2" (expand "y_section" )
(("2"
(lemma "y_section_measurable[T1,T2]"
("Z" "M!1" "y" "y!1" "S1" "S1" "S2" "S2" ))
(("2" (expand "member" )
(("2"
(lemma "m_monotone[T1,S1,to_measure(mu!1)]"
("a" "y_section(M!1, y!1)" "b" "fullset[T1]" ))
(("1" (split)
(("1" (expand "to_measure" )
(("1" (expand "x_le" ) (("1" (propax) nil nil ))
nil ))
nil )
("2" (expand "subset?" )
(("2" (expand "fullset" )
(("2" (expand "member" ) (("2" (propax) nil nil ))
nil ))
nil ))
nil ))
nil )
("2" (assert )
(("2" (expand "measurable_set?" )
(("2" (propax) nil nil )) nil ))
nil )
("3" (expand "measurable_set?" )
(("3" (propax) nil nil )) nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil )
((O const-decl "T3" function_props nil )
(y_section const-decl "[T2 -> set[T1]]" cross_product "topology/" )
(member const-decl "bool" sets nil )
(x_le const-decl "bool" extended_nnreal "extended_nnreal/" )
(subset? const-decl "bool" sets nil )
(subset_algebra_fullset name-judgement "(S)" product_finite_measure
nil )
(m_monotone formula-decl nil measure_props nil )
(measurable_set? const-decl "bool" measure_space_def nil )
(measurable_set nonempty-type-eq-decl nil measure_space_def nil )
(y_section const-decl "set[T1]" cross_product "topology/" )
(fullset const-decl "set" sets 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 )
(>= const-decl "bool" reals nil )
(nnreal type-eq-decl nil real_types nil )
(finite_measure? const-decl "bool" generalized_measure_def nil )
(finite_measure nonempty-type-eq-decl nil generalized_measure_def
nil )
(extended_nnreal nonempty-type-eq-decl nil extended_nnreal
"extended_nnreal/" )
(measure? const-decl "bool" generalized_measure_def nil )
(measure_type nonempty-type-eq-decl nil generalized_measure_def
nil )
(to_measure const-decl "measure_type" generalized_measure_def nil )
(y_section_measurable formula-decl nil product_sigma_def nil )
(boolean nonempty-type-decl nil booleans nil )
(bool nonempty-type-eq-decl nil booleans nil )
(setof type-eq-decl nil defined_types nil )
(setofsets type-eq-decl nil sets nil )
(sigma_algebra? const-decl "bool" subset_algebra_def nil )
(sigma_algebra nonempty-type-eq-decl nil subset_algebra_def nil )
(S1 formal-const-decl "sigma_algebra[T1]" product_finite_measure
nil )
(S2 formal-const-decl "sigma_algebra[T2]" product_finite_measure
nil )
(set type-eq-decl nil sets nil )
(sigma_times const-decl "sigma_algebra[[T1, T2]]" product_sigma_def
nil )
(T1 formal-type-decl nil product_finite_measure nil )
(T2 formal-type-decl nil product_finite_measure nil )
(real_le_is_total_order name-judgement "(total_order?[real])"
real_props nil ))
shostak))
(x_section_measurable 0
(x_section_measurable-1 nil 3430980741
("" (skosimp)
(("" (name "F" "lambda M: nu!1 o x_section(M)" )
(("1" (case-replace "nu!1 o x_section(M!1) = F(M!1)" )
(("1" (hide-all-but 1)
(("1"
(case "forall x,M: 0 <= F(M)(x) & F(M)(x) <= nu!1(fullset[T2])" )
(("1"
(name "U"
"{M:set[[T1,T2]] | sigma_times(S1,S2)(M) & measurable_function?[T1,S1](F(M))}" )
(("1"
(case "forall (R:measurable_rectangle(S1,S2)): U(R)" )
(("1"
(case "FORALL (a, b: (U)): disjoint?(a,b) => U(union(a, b))" )
(("1" (case "FORALL (a: (U)): U(complement(a))" )
(("1" (case "monotone?(U)" )
(("1" (lemma "monotone_class" ("C" "U" ))
(("1" (typepred "rectangle_algebra" )
(("1" (typepred "M!1" )
(("1" (inst -3 "rectangle_algebra" )
(("1"
(split -3)
(("1"
(expand "subset?" )
(("1"
(inst - "M!1" )
(("1"
(expand "member" )
(("1"
(split)
(("1"
(expand "U" )
(("1" (propax) nil nil ))
nil )
("2"
(hide 2)
(("2"
(expand "sigma_times" -1)
(("2"
(lemma
"generated_sigma_algebra_subset2"
("X"
"extend
[setof[[T1, T2]],
measurable_rectangle[T1, T2](S1, S2),
bool, FALSE]
(fullset
[measurable_rectangle
[T1, T2](S1, S2)])"
"Y"
"generated_sigma_algebra(rectangle_algebra)" ))
(("2"
(name-replace
"SA"
"generated_sigma_algebra(extend
[setof[[T1, T2]],
measurable_rectangle[T1, T2](S1, S2),
bool, FALSE]
(fullset
[measurable_rectangle
[T1, T2](S1, S2)]))")
(("2"
(split -1)
(("1"
(expand "subset?" )
(("1"
(inst - "M!1" )
(("1"
(assert )
nil
nil ))
nil ))
nil )
("2"
(hide 2)
(("2"
(expand
"subset?" )
(("2"
(expand
"fullset" )
(("2"
(expand
"extend" )
(("2"
(expand
"member" )
(("2"
(skosimp)
(("2"
(prop)
(("2"
(lemma
"generated_sigma_algebra_subset1"
("X"
"rectangle_algebra" ))
(("2"
(expand
"subset?" )
(("2"
(inst
-
"x!1" )
(("2"
(assert )
(("2"
(hide-all-but
(-1
1))
(("2"
(expand
"rectangle_algebra" )
(("2"
(expand
"finite_disjoint_unions" )
(("2"
(expand
"fullset" )
(("2"
(expand
"extend" )
(("2"
(prop)
(("2"
(expand
"finite_disjoint_union?" )
(("2"
(inst
+
"lambda (i:nat): if i = 0 then x!1 else emptyset[[T1,T2]] endif"
"1" )
(("2"
(split)
(("1"
(hide
-1)
(("1"
(grind)
nil
nil ))
nil )
("2"
(apply-extensionality
:hide?
t)
(("2"
(expand
"IUnion" )
(("2"
(case-replace
"x!1(x!2, x!3)" )
(("1"
(inst
+
"0" )
nil
nil )
("2"
(assert )
(("2"
(skosimp)
(("2"
(expand
"emptyset" )
(("2"
(propax)
nil
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil )
("3"
(skosimp)
(("3"
(case-replace
"i!1=0" )
(("1"
(assert )
nil
nil )
("2"
(assert )
(("2"
(rewrite
"emptyset_is_empty?" )
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 )
("3"
(assert )
nil
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil )
("2"
(hide 2)
(("2"
(expand "subset?" )
(("2"
(skosimp)
(("2"
(expand "member" )
(("2"
(expand "rectangle_algebra" )
(("2"
(expand
"finite_disjoint_unions" )
(("2"
(hide -3)
(("2"
(expand "fullset" )
(("2"
(expand "extend" )
(("2"
(prop)
(("2"
(expand
"finite_disjoint_union?" )
(("2"
(skosimp)
(("2"
(case
"forall (n:nat): U(IUnion(n,E!1))" )
(("1"
(case-replace
"IUnion(E!1)=IUnion(n!1,E!1)" )
(("1"
(inst
-
"n!1" )
(("1"
(assert )
nil
nil ))
nil )
("2"
(hide-all-but
(1 -4))
(("2"
(apply-extensionality
:hide?
t)
(("2"
(expand
"IUnion" )
(("2"
(expand
"image" )
(("2"
(expand
"Union" )
(("2"
(case-replace
"EXISTS (i: nat): E!1(i)(x!2, x!3)" )
(("1"
(skosimp)
(("1"
(inst
-
"i!1" )
(("1"
(flatten)
(("1"
(case-replace
"i!1<n!1" )
(("1"
(inst
+
"E!1(i!1)" )
(("1"
(inst
+
"i!1" )
(("1"
(assert )
nil
nil ))
nil ))
nil )
("2"
(assert )
(("2"
(expand
"empty?" )
(("2"
(inst
-3
"(x!2,x!3)" )
(("2"
(assert )
nil
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil )
("2"
(replace
1
2)
(("2"
(assert )
(("2"
(skosimp)
(("2"
(typepred
"a!1" )
(("2"
(skolem
-
"n!2" )
(("2"
(inst
+
"n!2" )
(("2"
(assert )
nil
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil )
("2"
(hide-all-but
(1
-7
-1
-8
-3))
(("2"
(induct
"n" )
(("1"
(rewrite
"IUnion_0_def" )
(("1"
(inst
-
"0" )
(("1"
(flatten)
(("1"
(inst
-5
"E!1(0)" )
(("1"
(assert )
(("1"
(rewrite
"emptyset_is_empty?" )
(("1"
(replace
-2)
(("1"
(hide-all-but
1)
(("1"
(expand
"measurable_rectangle?" )
(("1"
(inst
+
"emptyset"
"emptyset" )
(("1"
(split)
(("1"
(apply-extensionality
:hide?
t)
(("1"
(grind)
nil
nil ))
nil )
("2"
(typepred
"S1" )
(("2"
(expand
"sigma_algebra?" )
(("2"
(flatten)
(("2"
(expand
"subset_algebra_empty?" )
(("2"
(expand
"member" )
(("2"
(propax)
nil
nil ))
nil ))
nil ))
nil ))
nil ))
nil )
("3"
(typepred
"S2" )
(("3"
(expand
"sigma_algebra?" )
(("3"
(flatten)
(("3"
(expand
"subset_algebra_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"
(rewrite
"IUnion_n_def" )
(("2"
(inst
-5
"E!1(1 + j!1)" )
(("1"
(inst
-4
"IUnion(j!1, E!1)"
"E!1(1 + j!1)" )
(("1"
(split)
(("1"
(propax)
nil
nil )
("2"
(hide-all-but
(-2
1))
(("2"
(expand
"disjoint?" )
(("2"
(expand
"disjoint?" )
(("2"
(expand
"intersection" )
(("2"
(expand
"IUnion" )
(("2"
(expand
"empty?" )
(("2"
(skosimp)
(("2"
(expand
"member" )
(("2"
(flatten)
(("2"
(expand
"image" )
(("2"
(expand
"Union" )
(("2"
(skosimp)
(("2"
(typepred
"a!1" )
(("2"
(skolem
-
"n!2" )
(("2"
(inst
-
"n!2"
"1+j!1" )
(("2"
(assert )
(("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"
(inst
-
"1+j!1" )
(("2"
(assert )
(("2"
(flatten)
(("2"
(assert )
(("2"
(rewrite
"emptyset_is_empty?" )
(("2"
(replace
-3)
(("2"
(hide-all-but
1)
(("2"
(expand
"measurable_rectangle?" )
(("2"
(inst
+
"emptyset"
"emptyset" )
(("2"
(split)
(("1"
(apply-extensionality
:hide?
t)
(("1"
(grind)
nil
nil ))
nil )
("2"
(typepred
"S1" )
(("2"
(expand
"sigma_algebra?" )
(("2"
(flatten)
(("2"
(expand
"subset_algebra_empty?" )
(("2"
(expand
"member" )
(("2"
(propax)
nil
nil ))
nil ))
nil ))
nil ))
nil ))
nil )
("3"
(typepred
"S2" )
(("3"
(expand
"sigma_algebra?" )
(("3"
(flatten)
(("3"
(expand
"subset_algebra_empty?" )
(("3"
(expand
"member" )
(("3"
(propax)
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" (propax) nil nil ))
nil )
("2" (hide-all-but 1)
(("2" (expand "monotone?" )
(("2" (skosimp)
(("2" (expand "member" )
(("2"
(split)
(("1"
(flatten)
(("1"
(expand "U" 1)
(("1"
(split)
(("1"
(lemma
"sigma_algebra_IUnion[[T1,T2],sigma_times(S1, S2)]"
("SS" "E!1" ))
(("1" (assert ) nil nil )
("2"
(skosimp)
(("2"
(inst - "x1!1" )
(("2"
(expand "U" )
(("2" (flatten) nil nil ))
nil ))
nil ))
nil ))
nil )
("2"
(lemma
"pointwise_measurable[T1, S1]"
("f"
"F(IUnion(E!1))"
"u"
"lambda (n:nat): F(E!1(n))" ))
(("1"
(assert )
(("1"
(hide 2)
(("1"
(expand
"pointwise_convergence?" )
(("1"
(skosimp)
(("1"
(expand "U" )
(("1"
(lemma
"fm_IUnion[T2,S2,nu!1]"
("X"
"lambda (n:nat): x_section(E!1(n),x!1)" ))
(("1"
(split -1)
(("1"
(expand "o " )
(("1"
(expand "F" )
(("1"
(expand
"o " )
(("1"
(expand
"x_section"
1)
(("1"
(name-replace
"LHS"
"LAMBDA (n_1: nat): nu!1(x_section(E!1(n_1), x!1))" )
(("1"
(case-replace
"IUnion(LAMBDA (n: nat): x_section(E!1(n), x!1))=x_section(IUnion(E!1), x!1)" )
(("1"
(name-replace
"RHS"
"nu!1(x_section(IUnion(E!1), x!1))" )
(("1"
(hide-all-but
(-2
1))
(("1"
(rewrite
"metric_convergence_def" )
(("1"
(expand
"convergence" )
(("1"
(expand
"metric_converges_to" )
(("1"
(skosimp)
(("1"
(inst
-
"r!1" )
(("1"
(skosimp)
(("1"
(inst
+
"n!1" )
(("1"
(skosimp)
(("1"
(inst
-
"i!1" )
(("1"
(assert )
(("1"
(grind)
nil
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil )
("2"
(hide-all-but
1)
(("2"
(apply-extensionality
:hide?
t)
(("2"
(expand
"x_section" )
(("2"
(expand
"IUnion" )
(("2"
(propax)
nil
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil )
("2"
(hide -2 2)
(("2"
(expand
"increasing?" )
(("2"
(skosimp)
(("2"
(inst
-
"x!2"
"y!1" )
(("2"
(assert )
(("2"
(expand
"subset?" )
(("2"
(expand
"x_section" )
(("2"
(expand
"member" )
(("2"
(skosimp)
(("2"
(inst
-
"(x!1,x!3)" )
(("2"
(assert )
nil
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil )
("2"
(skosimp)
(("2"
(inst - "n!1" )
(("2"
(flatten)
(("2"
(lemma
"x_section_measurable"
("S1"
"S1"
"S2"
"S2"
"Z"
"E!1(n!1)"
"x"
"x!1" ))
(("2"
(assert )
nil
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil )
("2"
(skosimp)
(("2"
(inst - "n!1" )
(("2"
(expand "U" )
(("2" (flatten) nil nil ))
nil ))
nil ))
nil )
("3"
(skosimp)
(("3"
(inst - "n!1" )
(("3"
(expand "U" )
(("3" (flatten) nil nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil )
("2"
(flatten)
(("2"
(expand "U" )
(("2"
(split)
(("1"
(lemma
"sigma_algebra_IIntersection[[T1,T2],sigma_times(S1, S2)]"
("SS" "E!1" ))
(("1" (assert ) nil nil )
("2"
(skosimp)
(("2"
(inst - "x1!1" )
(("2" (flatten) nil nil ))
nil ))
nil ))
nil )
("2"
(lemma
"pointwise_measurable[T1, S1]"
("f"
"F(IIntersection(E!1))"
"u"
"lambda (n:nat): F(E!1(n))" ))
(("1"
(assert )
(("1"
(hide 2)
(("1"
(expand
"pointwise_convergence?" )
(("1"
(skosimp)
(("1"
(expand "F" )
(("1"
(expand "o " )
(("1"
(lemma
"fm_IIntersection[T2,S2,nu!1]"
("X"
"lambda (n:nat): x_section(E!1(n),x!1)" ))
(("1"
(split)
(("1"
(expand "o " )
(("1"
(expand
"x_section"
1)
(("1"
(name-replace
"LHS"
"LAMBDA (n_1: nat): nu!1(x_section(E!1(n_1), x!1))" )
(("1"
(case-replace
"IIntersection(LAMBDA
(n: nat):
x_section(E!1(n), x!1))=x_section(IIntersection(E!1), x!1)")
(("1"
(name-replace
"RHS"
"nu!1(x_section(IIntersection(E!1), x!1))" )
(("1"
(hide-all-but
(-2
1))
(("1"
(rewrite
"metric_convergence_def" )
(("1"
(expand
"convergence" )
(("1"
(expand
"metric_converges_to" )
(("1"
(skosimp)
(("1"
(inst
-
"r!1" )
(("1"
(skosimp)
(("1"
(inst
+
"n!1" )
(("1"
(skosimp)
(("1"
(inst
-
"i!1" )
(("1"
(assert )
(("1"
(grind)
nil
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil )
("2"
(hide-all-but
(-3
1))
(("2"
(apply-extensionality
:hide?
t)
(("2"
(expand
"IIntersection" )
(("2"
(expand
"x_section" )
(("2"
(propax)
nil
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil )
("2"
(hide-all-but
(-1 1))
(("2"
(expand
"decreasing?" )
(("2"
(skosimp)
(("2"
(inst
-
"x!2"
"y!1" )
(("2"
(assert )
(("2"
(expand
"subset?" )
(("2"
(expand
"x_section" )
(("2"
(skosimp)
(("2"
(expand
"member" )
(("2"
(inst
-
"(x!1,x!3)" )
(("2"
(assert )
nil
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil )
("2"
(skosimp)
(("2"
(inst
-
"n!1" )
(("2"
(flatten)
(("2"
(lemma
"x_section_measurable"
("S1"
"S1"
"S2"
"S2"
"Z"
"E!1(n!1)"
"x"
"x!1" ))
(("2"
(assert )
nil
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil )
("2"
(skosimp)
(("2"
(inst - "n!1" )
(("2" (flatten) nil nil ))
nil ))
nil )
("3"
(skosimp)
(("3"
(inst - "n!1" )
(("3" (flatten) nil nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil )
("2" (hide-all-but 1)
(("2" (skosimp)
(("2" (typepred "a!1" )
(("2" (expand "U" )
(("2" (flatten)
(("2"
(lemma
"sigma_algebra_complement[[T1,T2],sigma_times(S1, S2)]"
("x" "a!1" ))
(("2"
(assert )
(("2"
(lemma
"const_measurable[T1,S1]"
("c" "nu!1(fullset[T2])" ))
(("2"
(lemma
"diff_measurable[T1,S1]"
("g1"
"LAMBDA (x: T1): nu!1(fullset[T2])"
"g2"
"F(a!1)" ))
(("1"
(expand "-" )
(("1"
(case-replace
"(LAMBDA (x_1: T1):
nu!1(fullset[T2]) - F(a!1)(x_1))=F(complement(a!1))")
(("1"
(apply-extensionality
:hide?
t)
(("1"
(hide 2 -1 -2 -5)
(("1"
(expand "F" )
(("1"
(expand "o " )
(("1"
(lemma
"fm_disjointunion[T2,S2,nu!1]"
("A"
"x_section(a!1)(x!1)"
"B"
"x_section(complement(a!1))(x!1)" ))
(("1"
(expand
"x_section" )
(("1"
(split)
(("1"
(case-replace
"union(x_section(a!1, x!1), x_section(complement(a!1), x!1))=fullset[T2]" )
(("1"
(assert )
nil
nil )
("2"
(apply-extensionality
:hide?
t)
(("2"
(hide-all-but
1)
(("2"
(grind)
nil
nil ))
nil ))
nil ))
nil )
("2"
(hide-all-but
1)
(("2"
(grind)
nil
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil )
("2" (propax) nil nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil )
("2" (hide 2)
(("2" (skosimp)
(("2" (hide -3)
(("2" (typepred "b!1" )
(("2" (typepred "a!1" )
(("2" (expand "U" )
(("2"
(flatten)
(("2"
(lemma
"sigma_algebra_union[[T1,T2],sigma_times(S1, S2)]"
("x" "a!1" "y" "b!1" ))
(("2"
(assert )
(("2"
(lemma
"sum_measurable[T1, S1]"
("g1" "F(a!1)" "g2" "F(b!1)" ))
(("2"
(expand "+" -1)
(("2"
(case-replace
"(LAMBDA (x: T1): F(a!1)(x) + F(b!1)(x))=F(union(a!1, b!1))" )
(("2"
(apply-extensionality
:hide?
t)
(("2"
(hide-all-but
(-2 -3 -4 -7 1))
(("2"
(expand "F" )
(("2"
(expand "o " )
(("2"
(expand
"x_section" )
(("2"
(lemma
"fm_disjointunion[T2,S2,nu!1]"
("A"
"x_section(a!1, x!1)"
"B"
"x_section(b!1, x!1)" ))
(("2"
(rewrite
"x_section_union" )
(("2"
(assert )
(("2"
(hide-all-but
(-4 1))
(("2"
(lemma
"x_section_disjoint"
("X"
"a!1"
"Y"
"b!1"
"a"
"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 )
("2" (hide 2)
(("2" (skosimp)
(("2" (expand "U" )
(("2" (hide -1)
(("2" (typepred "R!1" )
(("2" (expand "measurable_rectangle?" )
(("2" (skosimp)
(("2"
(split)
(("1"
(assert )
(("1"
(expand "sigma_times" )
(("1"
(lemma
"generated_sigma_algebra_subset1"
("X"
"extend
[setof[[T1, T2]],
measurable_rectangle[T1, T2](S1, S2),
bool, FALSE]
(fullset
[measurable_rectangle
[T1, T2](S1, S2)])"))
(("1"
(name-replace
"SA"
"generated_sigma_algebra(extend
[setof[[T1, T2]],
measurable_rectangle[T1, T2](S1, S2),
bool, FALSE]
(fullset
[measurable_rectangle
[T1, T2](S1, S2)]))")
(("1"
(expand "subset?" )
(("1"
(expand "fullset" )
(("1"
(expand "extend" )
(("1"
(expand "member" )
(("1"
(inst - "R!1" )
(("1"
(assert )
nil
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil )
("2"
(expand "F" )
(("2"
(expand "o " )
(("2"
(expand "x_section" )
(("2"
(hide -4)
(("2"
(lemma
"phi_is_simple[T1,S1]"
("X" "X!1" ))
(("1"
(expand "simple?" )
(("1"
(flatten)
(("1"
(hide -2)
(("1"
(lemma
"scal_measurable[T1,S1]"
("c"
"nu!1(Y!1)"
"g"
"phi[T1,S1](X!1)" ))
(("1"
(expand "*" )
(("1"
(expand "phi" )
(("1"
(expand
"member" )
(("1"
(case-replace
"(LAMBDA (x: T1):
nu!1(Y!1) * IF X!1(x) THEN 1 ELSE 0 ENDIF)=(LAMBDA (x: T1): nu!1(x_section(R!1, x)))")
(("1"
(apply-extensionality
:hide?
t)
(("1"
(replace
-3)
(("1"
(expand
"cross_product" )
(("1"
(expand
"x_section" )
(("1"
(hide-all-but
(-4
-5
1))
(("1"
(case-replace
"X!1(x!1)" )
(("1"
(case-replace
"{b: T2 | Y!1(b)}=Y!1" )
(("1"
(assert )
nil
nil )
("2"
(apply-extensionality
:hide?
t)
nil
nil ))
nil )
("2"
(assert )
(("2"
(typepred
"nu!1" )
(("2"
(expand
"finite_measure?" )
(("2"
(flatten)
(("2"
(expand
"emptyset" )
(("2"
(assert )
nil
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil )
("2"
(skosimp)
(("2"
(replace
-3)
(("2"
(expand
"cross_product" )
(("2"
(expand
"x_section" )
(("2"
(case-replace
"X!1(x!1)" )
(("1"
(case-replace
"{b: T2 | Y!1(b)}=Y!1" )
(("1"
(apply-extensionality
:hide?
t)
nil
nil ))
nil )
("2"
(assert )
(("2"
(typepred
"S2" )
(("2"
(expand
"sigma_algebra?" )
(("2"
(flatten)
(("2"
(expand
"subset_algebra_empty?" )
(("2"
(expand
"member" )
(("2"
(expand
"emptyset" )
(("2"
(propax)
nil
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil )
("2"
(skosimp)
(("2"
(expand
"x_section" )
(("2"
(replace
-3)
(("2"
(expand
"cross_product" )
(("2"
(case-replace
"X!1(x!1)" )
(("1"
(case-replace
"{b: T2 | Y!1(b)}=Y!1" )
(("1"
(apply-extensionality
:hide?
t)
nil
nil ))
nil )
("2"
(assert )
(("2"
(typepred
"S2" )
(("2"
(expand
"sigma_algebra?" )
(("2"
(expand
"subset_algebra_empty?" )
(("2"
(flatten)
(("2"
(expand
"member" )
(("2"
(expand
"emptyset" )
(("2"
(propax)
nil
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil )
("3"
(skosimp)
nil
nil ))
nil ))
nil ))
nil ))
nil )
("2"
(propax)
nil
nil )
("3"
(propax)
nil
nil ))
nil ))
nil ))
nil ))
nil )
("2" (propax) nil nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil )
("2" (hide 2)
(("2" (expand "F" )
(("2" (skosimp)
(("2"
(lemma "x_section_bounded"
("nu" "nu!1" "M" "M!2" "x" "x!1" ))
(("2" (propax) nil nil )) nil ))
nil ))
nil ))
nil ))
nil ))
nil )
("2" (expand "F" ) (("2" (propax) nil nil )) nil ))
nil )
("2" (skosimp)
(("2" (skosimp)
(("2" (expand "x_section" )
(("2"
(lemma "x_section_measurable"
("S1" "S1" "S2" "S2" "Z" "M!2" "x" "x1!1" ))
(("2" (assert ) nil nil )) nil ))
nil ))
nil ))
nil ))
nil ))
nil )
((x_section const-decl "[T1 -> set[T2]]" cross_product "topology/" )
(set type-eq-decl nil sets nil )
(finite_measure nonempty-type-eq-decl nil generalized_measure_def
nil )
(finite_measure? const-decl "bool" generalized_measure_def nil )
(O const-decl "T3" function_props nil )
(= const-decl "[T, T -> boolean]" equalities nil )
(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 )
(S2 formal-const-decl "sigma_algebra[T2]" product_finite_measure
nil )
(S1 formal-const-decl "sigma_algebra[T1]" product_finite_measure
nil )
(sigma_times const-decl "sigma_algebra[[T1, T2]]" product_sigma_def
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 product_finite_measure nil )
(T1 formal-type-decl nil product_finite_measure nil )
(x_section_bounded formula-decl nil product_finite_measure nil )
(measurable_function? const-decl "bool" measure_space_def nil )
(phi_is_simple judgement-tcc nil measure_space nil )
(scal_measurable judgement-tcc nil measure_space_def nil )
(phi const-decl "nat" measure_space nil )
(* const-decl "[numfield, numfield -> numfield]" number_fields nil )
(nnreal_times_nnreal_is_nnreal application-judgement "nnreal"
real_types nil )
(sigma_algebra_IUnion_rew application-judgement "(S)" sigma_algebra
nil )
(Y!1 skolem-const-decl "set[T2]" product_finite_measure nil )
(R!1 skolem-const-decl "measurable_rectangle[T1, T2](S1, S2)"
product_finite_measure nil )
(* const-decl "[T -> real]" real_fun_ops "reals/" )
(simple? const-decl "bool" measure_space nil )
(IMPLIES const-decl "[bool, bool -> bool]" booleans nil )
(disjoint? const-decl "bool" sets nil )
(union const-decl "set" sets nil )
(diff_measurable judgement-tcc nil measure_space_def nil )
(nnreal_plus_nnreal_is_nnreal application-judgement "nnreal"
real_types nil )
(fm_disjointunion formula-decl nil finite_measure nil )
(- const-decl "[T -> real]" real_fun_ops "reals/" )
(const_measurable formula-decl nil measure_space nil )
(sigma_algebra_complement formula-decl nil sigma_algebra nil )
(monotone? const-decl "bool" subset_algebra_def nil )
(NOT const-decl "[bool -> bool]" booleans nil )
(subset_algebra? const-decl "bool" subset_algebra_def nil )
(subset_algebra nonempty-type-eq-decl nil subset_algebra_def nil )
(rectangle_algebra const-decl "subset_algebra[[T1, T2]]"
product_sigma nil )
(IUnion const-decl "set[T]" nat_indexed_sets "sets_aux/" )
(Union const-decl "set" sets nil )
(n!1 skolem-const-decl "nat" product_finite_measure nil )
(E!1 skolem-const-decl "sequence[set[[T1, T2]]]"
product_finite_measure nil )
(i!1 skolem-const-decl "nat" product_finite_measure nil )
(real_le_is_total_order name-judgement "(total_order?[real])"
real_props nil )
(< const-decl "bool" reals nil )
(image const-decl "set[R]" function_image nil )
(pred type-eq-decl nil defined_types nil )
(nat_induction formula-decl nil naturalnumbers nil )
(subset_algebra_empty? const-decl "bool" subset_algebra_def nil )
(cross_product const-decl "set[[T1, T2]]" cross_product
"topology/" )
(subset_algebra_emptyset name-judgement "(S)"
product_finite_measure nil )
(subset_algebra_emptyset name-judgement "(S)"
product_finite_measure nil )
(IUnion_0_def formula-decl nil nat_indexed_sets "sets_aux/" )
(IUnion_n_def formula-decl nil nat_indexed_sets "sets_aux/" )
(int_minus_int_is_int application-judgement "int" integers nil )
(nnint_plus_posint_is_posint application-judgement "posint"
integers nil )
(j!1 skolem-const-decl "nat" product_finite_measure nil )
(+ const-decl "[numfield, numfield -> numfield]" number_fields nil )
(numfield nonempty-type-eq-decl nil number_fields nil )
(posint_plus_nnint_is_posint application-judgement "posint"
integers nil )
(subset? const-decl "bool" sets nil )
(member const-decl "bool" sets nil )
(generated_sigma_algebra_subset2 formula-decl nil
subset_algebra_def nil )
(FALSE const-decl "bool" booleans nil )
(extend const-decl "R" extend nil )
(generated_sigma_algebra const-decl "sigma_algebra"
subset_algebra_def nil )
(generated_sigma_algebra_subset1 formula-decl nil
subset_algebra_def nil )
(finite_disjoint_unions const-decl "setofsets[T]"
subset_algebra_def nil )
(finite_disjoint_union? const-decl "bool" subset_algebra_def nil )
(real_minus_real_is_real application-judgement "real" reals nil )
(/= const-decl "boolean" notequal nil )
(intersection const-decl "set" sets nil )
(empty? const-decl "bool" sets nil )
(disjoint? const-decl "bool" indexed_sets_aux "sets_aux/" )
(real_ge_is_total_order name-judgement "(total_order?[real])"
real_props nil )
(IUnion const-decl "set[T]" indexed_sets nil )
(real_lt_is_strict_total_order name-judgement
"(strict_total_order?[real])" real_props nil )
(emptyset_is_empty? formula-decl nil sets_lemmas nil )
(finite_emptyset name-judgement "finite_set" finite_sets nil )
(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[T]" sigma_countable
"sigma_set/" )
(subset_algebra_emptyset name-judgement "(S)"
product_finite_measure nil )
(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 )
(nat nonempty-type-eq-decl nil naturalnumbers nil )
(sequence type-eq-decl nil sequences nil )
(IF const-decl "[boolean, T, T -> T]" if_def nil )
(emptyset const-decl "set" sets nil )
(subset_algebra_complement application-judgement "(S)"
sigma_algebra nil )
(subset_algebra_union application-judgement "(S)" sigma_algebra
nil )
(U skolem-const-decl "[set[[T1, T2]] -> boolean]"
product_finite_measure nil )
(monotone_class nonempty-type-eq-decl nil subset_algebra_def nil )
(monotone_class formula-decl nil subset_algebra_def nil )
(sigma_algebra_IIntersection formula-decl nil sigma_algebra nil )
(fm_IIntersection formula-decl nil finite_measure nil )
(decreasing? const-decl "bool" fun_preds_partial "structures/" )
(IIntersection const-decl "set[T]" indexed_sets nil )
(sigma_algebra_IUnion formula-decl nil sigma_algebra nil )
(pointwise_convergence? const-decl "bool" pointwise_convergence
nil )
(x_section_measurable formula-decl nil product_sigma_def nil )
(F skolem-const-decl "[(sigma_times(S1, S2)) -> [T1 -> nnreal]]"
product_finite_measure nil )
(convergence const-decl "bool" convergence_sequences "analysis/" )
(ball_is_metric_open application-judgement
"metric_open[real, (LAMBDA (x, y: real): abs(x - y))]"
convergence_aux "metric_space/" )
(ball const-decl "set[T]" metric_space_def "metric_space/" )
(> const-decl "bool" reals nil )
(posreal nonempty-type-eq-decl nil real_types nil )
(metric_converges_to const-decl "bool" metric_space_def
"metric_space/" )
(metric_convergence_def formula-decl nil metric_space
"metric_space/" )
(nonneg_real nonempty-type-eq-decl nil real_types 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 )
(increasing? const-decl "bool" fun_preds_partial "structures/" )
(subset_is_partial_order name-judgement "(partial_order?[set[T]])"
sets_lemmas nil )
(subset_is_partial_order name-judgement "(partial_order?[set[T]])"
sets_lemmas_aux nil )
(x_section const-decl "set[T2]" cross_product "topology/" )
(fm_IUnion formula-decl nil finite_measure nil )
(measurable_function nonempty-type-eq-decl nil measure_space_def
nil )
(pointwise_measurable formula-decl nil measure_space nil )
(complement const-decl "set" sets nil )
(sigma_algebra_union formula-decl nil sigma_algebra nil )
(sum_measurable judgement-tcc nil measure_space_def nil )
(x_section_disjoint formula-decl nil product_sections nil )
(x_section_union formula-decl nil product_sections nil )
(+ const-decl "[T -> real]" real_fun_ops "reals/" )
(measurable_rectangle nonempty-type-eq-decl nil product_sigma_def
nil )
(measurable_rectangle? const-decl "bool" product_sigma_def nil )
(fullset const-decl "set" sets nil )
(<= const-decl "bool" reals nil )
(AND const-decl "[bool, bool -> bool]" booleans nil )
(subset_algebra_fullset name-judgement "(S)" product_finite_measure
nil ))
shostak))
(y_section_measurable 0
(y_section_measurable-1 nil 3455615935
("" (skosimp)
(("" (name "F" "lambda M: mu!1 o y_section(M)" )
(("1" (case-replace "mu!1 o y_section(M!1) = F(M!1)" )
(("1" (hide-all-but 1)
(("1"
(case "forall y,M: 0 <= F(M)(y) & F(M)(y) <= mu!1(fullset[T1])" )
(("1"
(name "U"
"{M:set[[T1,T2]] | sigma_times(S1,S2)(M) & measurable_function?[T2,S2](F(M))}" )
(("1"
(case "forall (R:measurable_rectangle(S1,S2)): U(R)" )
(("1"
(case "FORALL (a, b: (U)): disjoint?(a,b) => U(union(a, b))" )
(("1" (case "FORALL (a: (U)): U(complement(a))" )
(("1" (case "monotone?(U)" )
(("1" (lemma "monotone_class" ("C" "U" ))
(("1" (typepred "rectangle_algebra" )
(("1" (typepred "M!1" )
(("1" (inst -3 "rectangle_algebra" )
(("1"
(split)
(("1"
(expand "subset?" )
(("1"
(inst - "M!1" )
(("1"
(expand "member" )
(("1"
(split)
(("1"
(expand "U" )
(("1" (propax) nil nil ))
nil )
("2"
(hide 2)
(("2"
(expand "sigma_times" -1)
(("2"
(lemma
"generated_sigma_algebra_subset2"
("X"
"extend
[setof[[T1, T2]],
measurable_rectangle[T1, T2](S1, S2),
bool, FALSE]
(fullset
[measurable_rectangle
[T1, T2](S1, S2)])"
"Y"
"generated_sigma_algebra(rectangle_algebra)" ))
(("2"
(assert )
(("2"
(split -1)
(("1"
(name-replace
"SA"
"generated_sigma_algebra(extend
[setof[[T1, T2]],
measurable_rectangle[T1, T2](S1, S2),
bool, FALSE]
(fullset
[measurable_rectangle
[T1, T2](S1, S2)]))")
(("1"
(expand
"subset?" )
(("1"
(inst - "M!1" )
(("1"
(expand
"member" )
(("1"
(propax)
nil
nil ))
nil ))
nil ))
nil ))
nil )
("2"
(hide 2)
(("2"
(expand
"subset?" )
(("2"
(skosimp)
(("2"
(expand
"fullset" )
(("2"
(expand
"extend" )
(("2"
(expand
"member" )
(("2"
(prop)
(("2"
(lemma
"generated_sigma_algebra_subset1"
("X"
"rectangle_algebra" ))
(("2"
(expand
"subset?" )
(("2"
(expand
"member" )
(("2"
(inst
-
"x!1" )
(("2"
(assert )
(("2"
(hide-all-but
(-1
1))
(("2"
(expand
"rectangle_algebra" )
(("2"
(rewrite
"finite_disjoint_rectangles" )
(("2"
(inst
+
"singleton[(measurable_rectangle?(S1, S2))](x!1)" )
(("2"
(assert )
(("2"
(split)
(("1"
(apply-extensionality
:hide?
t)
(("1"
(expand
"singleton" )
(("1"
(expand
"extend" )
(("1"
(expand
"Union" )
(("1"
(case-replace
"x!1(x!2,x!3)" )
(("1"
(inst
+
"x!1" )
nil
nil )
("2"
(assert )
(("2"
(skosimp)
(("2"
(typepred
"a!1" )
(("2"
(assert )
nil
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil )
("2"
(skosimp)
(("2"
(typepred
"x!2" )
(("2"
(typepred
"y!1" )
(("2"
(expand
"singleton" )
(("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"
(expand "subset?" )
(("2"
(skosimp)
(("2"
(expand "member" )
(("2"
(hide -2)
(("2"
(expand
"rectangle_algebra" )
(("2"
(hide -2)
(("2"
(expand
"finite_disjoint_unions" )
(("2"
(expand "fullset" )
(("2"
(expand "extend" )
(("2"
(prop)
(("2"
(expand
"finite_disjoint_union?" )
(("2"
(skosimp)
(("2"
(expand
"member" )
(("2"
(case
"forall (n:nat): U(IUnion(n,E!1))" )
(("1"
(case-replace
"IUnion(E!1)=IUnion(n!1, E!1)" )
(("1"
(inst
-
"n!1" )
(("1"
(assert )
nil
nil ))
nil )
("2"
(hide
2)
(("2"
(apply-extensionality
:hide?
t)
(("2"
(case-replace
"IUnion(E!1)(x!2, x!3)" )
(("1"
(expand
"IUnion" )
(("1"
(skosimp)
(("1"
(case
"i!1>=n!1" )
(("1"
(inst
-6
"i!1" )
(("1"
(flatten)
(("1"
(assert )
(("1"
(expand
"empty?" )
(("1"
(inst
-7
"(x!2,x!3)" )
(("1"
(assert )
nil
nil ))
nil ))
nil ))
nil ))
nil ))
nil )
("2"
(inst
-5
"i!1" )
(("2"
(flatten)
(("2"
(assert )
(("2"
(expand
"image" )
(("2"
(expand
"Union" )
(("2"
(inst
+
"E!1(i!1)" )
(("2"
(inst
+
"i!1" )
nil
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil )
("2"
(assert )
(("2"
(expand
"IUnion" )
(("2"
(expand
"image" )
(("2"
(expand
"Union" )
(("2"
(skosimp)
(("2"
(typepred
"a!1" )
(("2"
(skosimp)
(("2"
(inst
+
"x!4" )
(("2"
(assert )
nil
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil )
("2"
(hide-all-but
(-1
-6
1
-7
-3))
(("2"
(induct
"n" )
(("1"
(rewrite
"IUnion_0_def" )
(("1"
(inst
-
"0" )
(("1"
(flatten)
(("1"
(case-replace
"n!1>0" )
(("1"
(assert )
(("1"
(inst
-6
"E!1(0)" )
nil
nil ))
nil )
("2"
(assert )
(("2"
(rewrite
"emptyset_is_empty?" )
(("2"
(replace
-2)
(("2"
(inst
-4
"emptyset" )
(("2"
(hide-all-but
1)
(("2"
(expand
"measurable_rectangle?" )
(("2"
(inst
+
"emptyset"
"emptyset" )
(("2"
(split)
(("1"
(apply-extensionality
:hide?
t)
(("1"
(expand
"cross_product" )
(("1"
(grind)
nil
nil ))
nil ))
nil )
("2"
(typepred
"S1" )
(("2"
(expand
"sigma_algebra?" )
(("2"
(expand
"subset_algebra_empty?" )
(("2"
(flatten)
(("2"
(expand
"member" )
(("2"
(propax)
nil
nil ))
nil ))
nil ))
nil ))
nil ))
nil )
("3"
(typepred
"S2" )
(("3"
(expand
"sigma_algebra?" )
(("3"
(expand
"subset_algebra_empty?" )
(("3"
(flatten)
(("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"
(skosimp)
(("2"
(rewrite
"IUnion_n_def" )
(("2"
(inst
-4
"IUnion(j!1, E!1)"
"E!1(1 + j!1)" )
(("1"
(split
-4)
(("1"
(propax)
nil
nil )
("2"
(hide-all-but
(-2
1))
(("2"
(expand
"disjoint?" )
(("2"
(expand
"disjoint?" )
(("2"
(expand
"intersection" )
(("2"
(expand
"empty?" )
(("2"
(expand
"member" )
(("2"
(skosimp)
(("2"
(expand
"IUnion" )
(("2"
(expand
"image" )
(("2"
(expand
"Union" )
(("2"
(skosimp)
(("2"
(typepred
"a!1" )
(("2"
(skolem
-
"n!2" )
(("2"
(typepred
"n!2" )
(("2"
(inst
-
"n!2"
"1+j!1" )
(("2"
(assert )
(("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 )
("2"
(hide
-1
2)
(("2"
(inst
-
"1+j!1" )
(("2"
(inst
-
"E!1(1+j!1)" )
(("2"
(hide
2
-1)
(("2"
(case-replace
"1 + j!1 < n!1" )
(("1"
(flatten)
nil
nil )
("2"
(assert )
(("2"
(rewrite
"emptyset_is_empty?" )
(("2"
(replace
-1)
(("2"
(hide-all-but
2)
(("2"
(expand
"measurable_rectangle?" )
(("2"
(inst
+
"emptyset"
"emptyset" )
(("2"
(split)
(("1"
(apply-extensionality
:hide?
t)
(("1"
(grind)
nil
nil ))
nil )
("2"
(typepred
"S1" )
(("2"
(expand
"sigma_algebra?" )
(("2"
(flatten)
(("2"
(expand
"subset_algebra_empty?" )
(("2"
(expand
"member" )
(("2"
(propax)
nil
nil ))
nil ))
nil ))
nil ))
nil ))
nil )
("3"
(typepred
"S2" )
(("3"
(expand
"sigma_algebra?" )
(("3"
(flatten)
(("3"
(expand
"subset_algebra_empty?" )
(("3"
(expand
"member" )
(("3"
(propax)
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" (propax) nil nil ))
nil )
("2" (hide 2)
(("2" (expand "monotone?" )
(("2" (skosimp)
(("2" (expand "member" )
(("2"
(split)
(("1"
(flatten)
(("1"
(lemma
"sigma_algebra_IUnion[[T1,T2],sigma_times(S1,S2)]"
("SS" "E!1" ))
(("1"
(expand "member" )
(("1"
(expand "U" 1)
(("1"
(assert )
(("1"
(lemma
"pointwise_measurable[T2, S2]"
("f"
"F(IUnion(E!1))"
"u"
"lambda (n:nat): F(E!1(n))" ))
(("1"
(assert )
(("1"
(hide 2)
(("1"
(expand
"pointwise_convergence?" )
(("1"
(skolem + "y!1" )
(("1"
(expand "F" )
(("1"
(expand "o " )
(("1"
(expand
"y_section" )
(("1"
(hide -7)
(("1"
(typepred
"mu!1" )
(("1"
(expand
"finite_measure?" )
(("1"
(flatten)
(("1"
(lemma
"disjoint_IUnion"
("A"
"E!1" ))
(("1"
(skosimp)
(("1"
(case
"forall (n:nat): sigma_times(S1, S2)(B!1(n))" )
(("1"
(inst
-8
"lambda (n:nat): y_section(B!1(n), y!1)" )
(("1"
(case-replace
"(IUnion(LAMBDA (n: nat): y_section(B!1(n), y!1)))=y_section(IUnion(E!1), y!1)" )
(("1"
(hide
-1)
(("1"
(name-replace
"RHS"
"mu!1(y_section(IUnion(E!1), y!1))" )
(("1"
(expand
"o " )
(("1"
(case
"forall (n:nat): IUnion(n, E!1)=E!1(n)" )
(("1"
(case
"forall (n:nat): series(LAMBDA (x: nat): mu!1(y_section(B!1(x), y!1)))(n)= mu!1(y_section(E!1(n), y!1))" )
(("1"
(lemma
"extensionality_postulate"
("f"
"series(LAMBDA (x: nat): mu!1(y_section(B!1(x), y!1)))"
"g"
"lambda (n:nat): mu!1(y_section(E!1(n), y!1))" ))
(("1"
(flatten
-1)
(("1"
(hide
-2)
(("1"
(split
-1)
(("1"
(hide
-2)
(("1"
(replace
-1)
(("1"
(name-replace
"LHS"
"LAMBDA (n: nat): mu!1(y_section(E!1(n), y!1))" )
(("1"
(hide-all-but
(-10
1))
(("1"
(rewrite
"metric_convergence_def" )
(("1"
(expand
"convergence" )
(("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
"member" )
(("1"
(expand
"ball" )
(("1"
(assert )
(("1"
(grind)
nil
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil )
("2"
(skosimp)
(("2"
(inst
-
"x!1" )
nil
nil ))
nil ))
nil ))
nil ))
nil ))
nil )
("2"
(hide
2)
(("2"
(induct
"n" )
(("1"
(expand
"series" )
(("1"
(expand
"sigma" )
(("1"
(expand
"sigma" )
(("1"
(replace
-5)
(("1"
(propax)
nil
nil ))
nil ))
nil ))
nil ))
nil )
("2"
(skosimp*)
(("2"
(expand
"series" )
(("2"
(expand
"sigma"
1)
(("2"
(replace
-1)
(("2"
(hide
-1)
(("2"
(inst
-6
"j!1" )
(("2"
(replace
-6)
(("2"
(inst
-1
"j!1" )
(("2"
(replace
-1)
(("2"
(lemma
"fm_disjointunion[T1,S1,mu!1]"
("A"
"y_section(difference(E!1(j!1 + 1), E!1(j!1)), y!1)"
"B"
"y_section(E!1(j!1), y!1)" ))
(("2"
(split
-1)
(("1"
(case-replace
"union(y_section(difference(E!1(j!1 + 1), E!1(j!1)), y!1),
y_section(E!1(j!1), y!1))=y_section(E!1(1 + j!1), y!1)")
(("1"
(assert )
nil
nil )
("2"
(hide-all-but
(-12
1))
(("2"
(apply-extensionality
:hide?
t)
(("2"
(expand
"difference" )
(("2"
(expand
"y_section" )
(("2"
(expand
"union" )
(("2"
(expand
"member" )
(("2"
(case-replace
"E!1(1 + j!1)(x!1, y!1)" )
(("1"
(flatten)
nil
nil )
("2"
(assert )
(("2"
(expand
"increasing?" )
(("2"
(inst
-
"j!1"
"1+j!1" )
(("2"
(assert )
(("2"
(expand
"subset?" )
(("2"
(inst
-
"(x!1,y!1)" )
(("2"
(assert )
nil
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil )
("2"
(hide-all-but
(1
-11))
(("2"
(expand
"difference" )
(("2"
(expand
"y_section" )
(("2"
(expand
"disjoint?" )
(("2"
(expand
"intersection" )
(("2"
(expand
"increasing?" )
(("2"
(expand
"subset?" )
(("2"
(expand
"empty?" )
(("2"
(expand
"member" )
(("2"
(skosimp)
nil
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil )
("3"
(skosimp)
(("3"
(inst
-12
"n!2" )
(("3"
(expand
"U" )
(("3"
(flatten)
(("3"
(lemma
"y_section_measurable"
("S1"
"S1"
"S2"
"S2"
"Z"
"E!1(n!2)"
"y"
"y!1" ))
(("3"
(assert )
nil
nil ))
nil ))
nil ))
nil ))
nil ))
nil )
("4"
(skosimp)
(("4"
(inst
-
"x!1" )
(("4"
(lemma
"y_section_measurable"
("S1"
"S1"
"S2"
"S2"
"Z"
"B!1(x!1)"
"y"
"y!1" ))
(("4"
(assert )
nil
nil ))
nil ))
nil ))
nil ))
nil ))
nil )
("3"
(skosimp)
(("3"
(inst
-12
"n!1" )
(("3"
(expand
"U"
-12)
(("3"
(flatten)
(("3"
(lemma
"y_section_measurable"
("S1"
"S1"
"S2"
"S2"
"Z"
"E!1(n!1)"
"y"
"y!1" ))
(("3"
(assert )
nil
nil ))
nil ))
nil ))
nil ))
nil ))
nil )
("4"
(skosimp)
(("4"
(inst
-2
"x!1" )
(("4"
(lemma
"y_section_measurable"
("S1"
"S1"
"S2"
"S2"
"Z"
"B!1(x!1)"
"y"
"y!1" ))
(("4"
(assert )
nil
nil ))
nil ))
nil ))
nil ))
nil )
("2"
(hide-all-but
(-10
1))
(("2"
(skosimp)
(("2"
(apply-extensionality
:hide?
t)
(("2"
(expand
"IUnion" )
(("2"
(expand
"image" )
(("2"
(expand
"Union" )
(("2"
(case-replace
"E!1(n!1)(x!1, x!2)" )
(("1"
(inst
+
"E!1(n!1)" )
(("1"
(inst
+
"n!1" )
nil
nil ))
nil )
("2"
(assert )
(("2"
(skosimp)
(("2"
(typepred
"a!1" )
(("2"
(skolem
-
"n!2" )
(("2"
(expand
"increasing?" )
(("2"
(inst
-
"n!2"
"n!1" )
(("2"
(assert )
(("2"
(expand
"subset?" )
(("2"
(inst
-
"(x!1,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 )
("2"
(apply-extensionality
:hide?
t)
(("2"
(replace
-6)
(("2"
(expand
"IUnion" )
(("2"
(expand
"y_section" )
(("2"
(propax)
nil
nil ))
nil ))
nil ))
nil ))
nil ))
nil )
("2"
(expand
"disjoint_indexed_measurable?" )
(("2"
(hide-all-but
(-2
1))
(("2"
(expand
"disjoint?" )
(("2"
(skosimp)
(("2"
(inst
-
"i!1"
"j!1" )
(("2"
(assert )
(("2"
(lemma
"y_section_disjoint"
("X"
"B!1(i!1)"
"Y"
"B!1(j!1)"
"b"
"y!1" ))
(("2"
(assert )
nil
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil )
("3"
(skosimp)
(("3"
(inst
-
"n!1" )
(("3"
(lemma
"y_section_measurable"
("S1"
"S1"
"S2"
"S2"
"Z"
"B!1(n!1)"
"y"
"y!1" ))
(("3"
(assert )
nil
nil ))
nil ))
nil ))
nil ))
nil )
("2"
(hide
-7
2
-14)
(("2"
(induct
"n" )
(("1"
(replace
-3)
(("1"
(assert )
(("1"
(inst
-9
"0" )
(("1"
(expand
"U" )
(("1"
(propax)
nil
nil ))
nil ))
nil ))
nil ))
nil )
("2"
(skosimp)
(("2"
(inst
-5
"j!1" )
(("2"
(replace
-5)
(("2"
(case-replace
"IUnion(j!1, E!1)=E!1(j!1)" )
(("1"
(inst-cp
-11
"j!1" )
(("1"
(inst
-11
"j!1+1" )
(("1"
(expand
"U" )
(("1"
(flatten)
(("1"
(lemma
"sigma_algebra_difference[[T1,T2],sigma_times(S1, S2)]"
("x"
"E!1(j!1 + 1)"
"y"
"E!1(j!1)" ))
(("1"
(expand
"member" )
(("1"
(assert )
nil
nil ))
nil )
("2"
(propax)
nil
nil ))
nil ))
nil ))
nil ))
nil ))
nil )
("2"
(hide-all-but
(1
-9))
(("2"
(assert )
(("2"
(apply-extensionality
:hide?
t)
(("2"
(case-replace
"E!1(j!1)(x!1, x!2)" )
(("1"
(expand
"IUnion" )
(("1"
(expand
"image" )
(("1"
(expand
"Union" )
(("1"
(inst
+
"E!1(j!1)" )
(("1"
(inst
+
"j!1" )
nil
nil ))
nil ))
nil ))
nil ))
nil )
("2"
(assert )
(("2"
(expand
"IUnion" )
(("2"
(expand
"image" )
(("2"
(expand
"Union" )
(("2"
(skosimp)
(("2"
(typepred
"a!1" )
(("2"
(skolem
-
"n!1" )
(("2"
(replace
-1)
(("2"
(hide
-1)
(("2"
(expand
"increasing?" )
(("2"
(typepred
"n!1" )
(("2"
(inst
-
"n!1"
"j!1" )
(("2"
(assert )
(("2"
(expand
"subset?" )
(("2"
(inst
-
"(x!1,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 ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil )
("2"
(skosimp)
(("2"
(inst -3 "n!1" )
(("2"
(expand "U" )
(("2"
(flatten)
nil
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil )
("2"
(skosimp)
(("2"
(inst - "x1!1" )
(("2"
(expand "U" )
(("2" (flatten) nil nil ))
nil ))
nil ))
nil ))
nil ))
nil )
("2"
(flatten)
(("2"
(expand "U" 1)
(("2"
(split)
(("1"
(lemma
"sigma_algebra_IIntersection[[T1,T2],sigma_times(S1,S2)]"
("SS" "E!1" ))
(("1" (assert ) nil nil )
("2"
(skosimp)
(("2"
(inst - "x1!1" )
(("2"
(expand "U" )
(("2" (flatten) nil nil ))
nil ))
nil ))
nil ))
nil )
("2"
(lemma
"pointwise_measurable[T2, S2]"
("f"
"F(IIntersection(E!1))"
"u"
"lambda (n:nat): F(E!1(n))" ))
(("1"
(assert )
(("1"
(hide 2)
(("1"
(expand
"pointwise_convergence?" )
(("1"
(skolem + "y!1" )
(("1"
(expand "F" )
(("1"
(expand "o " )
(("1"
(lemma
"fm_IIntersection[T1,S1,mu!1]"
("X"
"lambda (n:nat): y_section(E!1(n),y!1)" ))
(("1"
(expand
"y_section"
1)
(("1"
(expand "o " )
(("1"
(name-replace
"LHS"
"LAMBDA (x: nat): mu!1(y_section(E!1(x), y!1))" )
(("1"
(split)
(("1"
(case-replace
"IIntersection(LAMBDA
(n: nat):
y_section(E!1(n), y!1))=y_section(IIntersection(E!1), y!1)")
(("1"
(hide-all-but
(-2
1))
(("1"
(name-replace
"RHS"
"mu!1(y_section(IIntersection(E!1), y!1))" )
(("1"
(rewrite
"metric_convergence_def" )
(("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 ))
nil ))
nil )
("2"
(hide-all-but
1)
(("2"
(apply-extensionality
:hide?
t)
(("2"
(expand
"IIntersection" )
(("2"
(expand
"y_section" )
(("2"
(propax)
nil
nil ))
nil ))
nil ))
nil ))
nil ))
nil )
("2"
(hide-all-but
(-1
1))
(("2"
(expand
"decreasing?" )
(("2"
(skosimp)
(("2"
(inst
-
"x!1"
"y!2" )
(("2"
(assert )
(("2"
(expand
"subset?" )
(("2"
(expand
"y_section" )
(("2"
(expand
"member" )
(("2"
(skosimp)
(("2"
(inst
-
"(x!2,y!1)" )
(("2"
(assert )
nil
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil )
("2"
(skosimp)
(("2"
(inst
-
"n!1" )
(("2"
(expand
"U" )
(("2"
(flatten)
(("2"
(lemma
"y_section_measurable"
("S1"
"S1"
"S2"
"S2"
"Z"
"E!1(n!1)"
"y"
"y!1" ))
(("2"
(assert )
nil
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil )
("2"
(skosimp)
(("2"
(inst - "n!1" )
(("2"
(expand "U" )
(("2" (flatten) nil nil ))
nil ))
nil ))
nil )
("3"
(skosimp)
(("3"
(inst - "n!1" )
(("3"
(expand "U" )
(("3" (flatten) nil nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil )
("2" (hide 2)
(("2" (skosimp)
(("2" (typepred "a!1" )
(("2" (expand "U" )
(("2" (flatten)
(("2"
(split)
(("1"
(lemma
"sigma_algebra_complement[[T1,T2],sigma_times(S1, S2)]"
("x" "a!1" ))
(("1" (assert ) nil nil ))
nil )
("2"
(expand "F" )
(("2"
(expand "y_section" )
(("2"
(hide -5)
(("2"
(expand "o " )
(("2"
(lemma
"const_measurable[T2,S2]"
("c" "mu!1(fullset[T1])" ))
(("2"
(lemma
"diff_measurable[T2, S2]"
("g1"
"(LAMBDA (x: T2): mu!1(fullset[T1]))"
"g2"
"(LAMBDA (x: T2): mu!1(y_section(a!1, x)))" ))
(("1"
(expand "-" )
(("1"
(case-replace
"(LAMBDA (x_1: T2):
mu!1(fullset[T1]) - mu!1(y_section(a!1, x_1)))=(LAMBDA (x: T2): mu!1(y_section(complement(a!1), x)))")
(("1"
(apply-extensionality
:hide?
t)
(("1"
(hide 2)
(("1"
(hide-all-but
(-3 1))
(("1"
(lemma
"fm_disjointunion[T1,S1,mu!1]"
("A"
"y_section(a!1, x!1)"
"B"
"y_section(complement(a!1), x!1)" ))
(("1"
(split)
(("1"
(case-replace
"union(y_section(a!1, x!1), y_section(complement(a!1), x!1))=fullset[T1]" )
(("1"
(assert )
nil
nil )
("2"
(apply-extensionality
1
:hide?
t)
(("2"
(hide-all-but
1)
(("2"
(expand
"fullset" )
(("2"
(expand
"union" )
(("2"
(expand
"complement" )
(("2"
(expand
"y_section" )
(("2"
(expand
"member" )
(("2"
(flatten)
nil
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil )
("2"
(hide-all-but
1)
(("2"
(expand
"disjoint?" )
(("2"
(expand
"complement" )
(("2"
(expand
"intersection" )
(("2"
(expand
"empty?" )
(("2"
(skosimp)
(("2"
(expand
"member" )
(("2"
(flatten)
(("2"
(expand
"y_section" )
(("2"
(propax)
nil
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil )
("2"
(skosimp)
(("2"
(hide-all-but
(-3 1))
(("2"
(lemma
"sigma_algebra_complement[[T1,T2],sigma_times(S1, S2)]"
("x" "a!1" ))
(("2"
(expand
"member" )
(("2"
(lemma
"y_section_measurable"
("S1"
"S1"
"S2"
"S2"
"Z"
"complement(a!1)"
"y"
"x!1" ))
(("2"
(assert )
nil
nil ))
nil ))
nil ))
nil ))
nil ))
nil )
("3"
(skosimp)
(("3"
(lemma
"y_section_measurable"
("S1"
"S1"
"S2"
"S2"
"Z"
"a!1"
"y"
"x!1" ))
(("3"
(assert )
nil
nil ))
nil ))
nil ))
nil )
("2"
(skosimp)
(("2"
(lemma
"y_section_measurable"
("S1"
"S1"
"S2"
"S2"
"Z"
"complement(a!1)"
"y"
"x!1" ))
(("2"
(assert )
(("2"
(lemma
"sigma_algebra_complement[[T1,T2],sigma_times(S1, S2)]"
("x" "a!1" ))
(("2"
(assert )
nil
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil )
("2" (propax) nil nil )
("3"
(skosimp)
(("3"
(lemma
"y_section_measurable"
("S1"
"S1"
"S2"
"S2"
"Z"
"a!1"
"y"
"x!1" ))
(("3"
(assert )
nil
nil ))
nil ))
nil )
("4" (propax) nil nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil )
("2" (hide 2)
(("2" (skosimp)
(("2" (typepred "a!1" )
(("2" (typepred "b!1" )
(("2" (expand "U" )
(("2" (flatten)
(("2"
(hide -7)
(("2"
(split)
(("1"
(lemma
"sigma_algebra_union[[T1,T2],sigma_times(S1, S2)]"
("x" "a!1" "y" "b!1" ))
(("1"
(expand "member" )
(("1" (propax) nil nil ))
nil ))
nil )
("2"
(lemma
"sum_measurable[T2, S2]"
("g1" "F(a!1)" "g2" "F(b!1)" ))
(("1"
(case-replace
"F(union(a!1, b!1))=(reals@real_fun_ops[T2].+)(F(a!1), F(b!1))" )
(("1"
(hide-all-but (-6 -8 1))
(("1"
(apply-extensionality
:hide?
t)
(("1"
(expand "+" )
(("1"
(expand "F" )
(("1"
(expand "o " )
(("1"
(expand "y_section" )
(("1"
(rewrite
"y_section_union" )
(("1"
(hide -2)
(("1"
(lemma
"y_section_disjoint"
("X"
"a!1"
"Y"
"b!1"
"b"
"x!1" ))
(("1"
(assert )
(("1"
(lemma
"fm_disjointunion[T1,S1,mu!1]"
("A"
"y_section(a!1, x!1)"
"B"
"y_section(b!1, x!1)" ))
(("1"
(assert )
nil
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil )
("2"
(skosimp)
(("2"
(expand "+" )
(("2"
(inst-cp
-
"x1!1"
"a!1" )
(("2"
(inst - "x1!1" "b!1" )
(("2"
(flatten)
(("2"
(assert )
nil
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil )
("2" (propax) nil nil )
("3" (propax) nil nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil )
("2" (hide 2)
(("2" (skosimp)
(("2" (typepred "R!1" )
(("2" (expand "U" )
(("2" (hide -2)
(("2" (assert )
(("2" (split)
(("1"
(expand "sigma_times" )
(("1"
(lemma
"generated_sigma_algebra_subset1"
("X"
"(extend
[setof[[T1, T2]],
measurable_rectangle[T1, T2](S1, S2),
bool, FALSE]
(fullset
[measurable_rectangle
[T1, T2](S1, S2)]))"))
(("1"
(name-replace
"AA"
"generated_sigma_algebra(extend
[setof[[T1, T2]],
measurable_rectangle[T1, T2](S1, S2),
bool, FALSE]
(fullset
[measurable_rectangle
[T1, T2](S1, S2)]))")
(("1"
(expand "fullset" )
(("1"
(expand "extend" )
(("1"
(expand "subset?" )
(("1"
(expand "member" )
(("1"
(inst - "R!1" )
(("1" (assert ) nil nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil )
("2"
(hide -2)
(("2"
(expand "F" )
(("2"
(expand "measurable_rectangle?" )
(("2"
(skosimp)
(("2"
(expand "o " )
(("2"
(lemma
"phi_is_simple[T2,S2]"
("X" "Y!1" ))
(("1"
(expand "simple?" )
(("1"
(flatten)
(("1"
(hide -2)
(("1"
(lemma
"scal_measurable[T2,S2]"
("c"
"mu!1(X!1)"
"g"
"phi[T2,S2](Y!1)" ))
(("1"
(expand "*" -1)
(("1"
(expand
"y_section" )
(("1"
(expand "phi" )
(("1"
(expand
"member" )
(("1"
(case-replace
"(LAMBDA (x: T2):
mu!1(X!1) * IF Y!1(x) THEN 1 ELSE 0 ENDIF)=(LAMBDA (x: T2): mu!1(y_section(R!1, x)))")
(("1"
(apply-extensionality
:hide?
t)
(("1"
(replace
-3)
(("1"
(expand
"cross_product" )
(("1"
(expand
"y_section" )
(("1"
(case-replace
"Y!1(x!1)" )
(("1"
(case-replace
"{a: T1 | X!1(a)}=X!1" )
(("1"
(assert )
nil
nil )
("2"
(apply-extensionality
:hide?
t)
nil
nil ))
nil )
("2"
(assert )
(("2"
(typepred
"mu!1" )
(("2"
(expand
"finite_measure?" )
(("2"
(flatten)
(("2"
(expand
"emptyset" )
(("2"
(assert )
nil
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil )
("2"
(skosimp)
(("2"
(expand
"y_section" )
(("2"
(replace
-3
1)
(("2"
(expand
"cross_product" )
(("2"
(case-replace
"Y!1(x!1)" )
(("1"
(case-replace
"{a: T1 | X!1(a)}=X!1" )
(("1"
(apply-extensionality
:hide?
t)
nil
nil ))
nil )
("2"
(assert )
(("2"
(typepred
"S1" )
(("2"
(expand
"sigma_algebra?" )
(("2"
(flatten)
(("2"
(expand
"subset_algebra_empty?" )
(("2"
(expand
"member" )
(("2"
(expand
"emptyset" )
(("2"
(propax)
nil
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil )
("2"
(skosimp)
(("2"
(expand
"y_section" )
(("2"
(replace
-3)
(("2"
(expand
"cross_product" )
(("2"
(case-replace
"Y!1(x!1)" )
(("1"
(case-replace
"{a: T1 | X!1(a)}=X!1" )
(("1"
(apply-extensionality
:hide?
t)
nil
nil ))
nil )
("2"
(assert )
(("2"
(typepred
"S1" )
(("2"
(expand
"sigma_algebra?" )
(("2"
(flatten)
(("2"
(expand
"subset_algebra_empty?" )
(("2"
(expand
"member" )
(("2"
(expand
"emptyset" )
(("2"
(propax)
nil
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil )
("3"
(skosimp)
nil
nil ))
nil ))
nil ))
nil ))
nil ))
nil )
("2"
(propax)
nil
nil )
("3"
(propax)
nil
nil ))
nil ))
nil ))
nil ))
nil )
("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" (expand "F" )
(("2"
(lemma "y_section_bounded"
("M" "M!2" "mu" "mu!1" "y" "y!1" ))
(("2" (propax) nil nil )) nil ))
nil ))
nil ))
nil ))
nil ))
nil )
("2" (expand "F" ) (("2" (propax) nil nil )) nil ))
nil )
("2" (skosimp*)
(("2" (expand "y_section" )
(("2"
(lemma "y_section_measurable[T1,T2]"
("Z" "M!2" "S1" "S1" "S2" "S2" "y" "x1!1" ))
(("2" (assert ) nil nil )) nil ))
nil ))
nil ))
nil ))
nil )
((y_section const-decl "[T2 -> set[T1]]" cross_product "topology/" )
(set type-eq-decl nil sets nil )
(finite_measure nonempty-type-eq-decl nil generalized_measure_def
nil )
(finite_measure? const-decl "bool" generalized_measure_def nil )
(O const-decl "T3" function_props nil )
(= const-decl "[T, T -> boolean]" equalities nil )
(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 )
(S2 formal-const-decl "sigma_algebra[T2]" product_finite_measure
nil )
(S1 formal-const-decl "sigma_algebra[T1]" product_finite_measure
nil )
(sigma_times const-decl "sigma_algebra[[T1, T2]]" product_sigma_def
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 product_finite_measure nil )
(T1 formal-type-decl nil product_finite_measure nil )
(y_section_bounded formula-decl nil product_finite_measure nil )
(measurable_function? const-decl "bool" measure_space_def nil )
(phi_is_simple judgement-tcc nil measure_space nil )
(scal_measurable judgement-tcc nil measure_space_def nil )
(phi const-decl "nat" measure_space nil )
(R!1 skolem-const-decl "measurable_rectangle[T1, T2](S1, S2)"
product_finite_measure nil )
(X!1 skolem-const-decl "set[T1]" product_finite_measure nil )
(nnreal_times_nnreal_is_nnreal application-judgement "nnreal"
real_types nil )
(* const-decl "[numfield, numfield -> numfield]" number_fields nil )
(* const-decl "[T -> real]" real_fun_ops "reals/" )
(simple? const-decl "bool" measure_space nil )
(IMPLIES const-decl "[bool, bool -> bool]" booleans nil )
(disjoint? const-decl "bool" sets nil )
(union const-decl "set" sets nil )
(const_measurable formula-decl nil measure_space nil )
(- const-decl "[T -> real]" real_fun_ops "reals/" )
(a!1 skolem-const-decl "(U)" product_finite_measure nil )
(diff_measurable judgement-tcc nil measure_space_def nil )
(sigma_algebra_complement formula-decl nil sigma_algebra nil )
(monotone? const-decl "bool" subset_algebra_def nil )
(NOT const-decl "[bool -> bool]" booleans nil )
(subset_algebra? const-decl "bool" subset_algebra_def nil )
(subset_algebra nonempty-type-eq-decl nil subset_algebra_def nil )
(rectangle_algebra const-decl "subset_algebra[[T1, T2]]"
product_sigma nil )
(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 )
(nat nonempty-type-eq-decl nil naturalnumbers nil )
(sequence type-eq-decl nil sequences nil )
(IUnion const-decl "set[T]" nat_indexed_sets "sets_aux/" )
(real_le_is_total_order name-judgement "(total_order?[real])"
real_props nil )
(i!1 skolem-const-decl "nat" product_finite_measure nil )
(E!1 skolem-const-decl "sequence[set[[T1, T2]]]"
product_finite_measure nil )
(n!1 skolem-const-decl "nat" product_finite_measure nil )
(image const-decl "set[R]" function_image nil )
(real_lt_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 )
(empty? const-decl "bool" sets nil )
(IUnion const-decl "set[T]" indexed_sets nil )
(pred type-eq-decl nil defined_types nil )
(nat_induction formula-decl nil naturalnumbers nil )
(> const-decl "bool" reals nil )
(real_gt_is_strict_total_order name-judgement
"(strict_total_order?[real])" real_props nil )
(emptyset_is_empty? formula-decl nil sets_lemmas nil )
(subset_algebra_emptyset name-judgement "(S)"
product_finite_measure nil )
(finite_emptyset name-judgement "finite_set[T]" sigma_countable
"sigma_set/" )
(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" finite_sets nil )
(emptyset const-decl "set" sets nil )
(real_minus_real_is_real application-judgement "real" reals nil )
(subset_algebra_emptyset name-judgement "(S)"
product_finite_measure nil )
(subset_algebra_emptyset name-judgement "(S)"
product_finite_measure nil )
(cross_product const-decl "set[[T1, T2]]" cross_product
"topology/" )
(subset_algebra_empty? const-decl "bool" subset_algebra_def nil )
(IUnion_0_def formula-decl nil nat_indexed_sets "sets_aux/" )
(IUnion_n_def formula-decl nil nat_indexed_sets "sets_aux/" )
(int_minus_int_is_int application-judgement "int" integers nil )
(nnint_plus_posint_is_posint application-judgement "posint"
integers nil )
(< const-decl "bool" reals nil )
(disjoint? const-decl "bool" indexed_sets_aux "sets_aux/" )
(intersection const-decl "set" sets nil )
(+ const-decl "[numfield, numfield -> numfield]" number_fields nil )
(numfield nonempty-type-eq-decl nil number_fields nil )
(j!1 skolem-const-decl "nat" product_finite_measure nil )
(posint_plus_nnint_is_posint application-judgement "posint"
integers nil )
(finite_disjoint_union? const-decl "bool" subset_algebra_def nil )
(finite_disjoint_unions const-decl "setofsets[T]"
subset_algebra_def nil )
(subset? const-decl "bool" sets nil )
(member const-decl "bool" sets nil )
(generated_sigma_algebra_subset2 formula-decl nil
subset_algebra_def nil )
(FALSE const-decl "bool" booleans nil )
(extend const-decl "R" extend nil )
(generated_sigma_algebra const-decl "sigma_algebra"
subset_algebra_def nil )
(generated_sigma_algebra_subset1 formula-decl nil
subset_algebra_def nil )
(singleton const-decl "(singleton?)" sets nil )
(singleton? const-decl "bool" sets nil )
(IF const-decl "[boolean, T, T -> T]" if_def nil )
(Union const-decl "set" sets nil )
(nonempty_extend application-judgement "(nonempty?[T])"
extend_set_props nil )
(finite_extend application-judgement "finite_set[T]"
extend_set_props nil )
(Union_surjective name-judgement
"(surjective?[setofsets[T], set[T]])" sets_lemmas nil )
(Union_surjective name-judgement
"(surjective?[setofsets[T], set[T]])" sets_lemmas_aux nil )
(nonempty_singleton_finite application-judgement
"non_empty_finite_set[set[T]]" countable_setofsets "sets_aux/" )
(nonempty_singleton_finite application-judgement
"non_empty_finite_set[T]" sigma_countable "sigma_set/" )
(finite_disjoint_rectangles formula-decl nil product_sigma nil )
(subset_is_partial_order name-judgement "(partial_order?[set[T]])"
sets_lemmas nil )
(subset_is_partial_order name-judgement "(partial_order?[set[T]])"
sets_lemmas_aux nil )
(subset_algebra_complement application-judgement "(S)"
sigma_algebra nil )
(subset_algebra_union application-judgement "(S)" sigma_algebra
nil )
(U skolem-const-decl "[set[[T1, T2]] -> boolean]"
product_finite_measure nil )
(monotone_class nonempty-type-eq-decl nil subset_algebra_def nil )
(monotone_class formula-decl nil subset_algebra_def nil )
(sigma_algebra_IIntersection formula-decl nil sigma_algebra nil )
(fm_IIntersection formula-decl nil finite_measure nil )
(ball_is_metric_open application-judgement
"metric_open[real, (LAMBDA (x, y: real): abs(x - y))]"
convergence_aux "metric_space/" )
(minus_real_is_real application-judgement "real" reals nil )
(decreasing? const-decl "bool" fun_preds_partial "structures/" )
(IIntersection const-decl "set[T]" indexed_sets nil )
(pointwise_convergence? const-decl "bool" pointwise_convergence
nil )
(F skolem-const-decl "[(sigma_times(S1, S2)) -> [T2 -> nnreal]]"
product_finite_measure nil )
(j!1 skolem-const-decl "nat" product_finite_measure nil )
(sigma_algebra_difference formula-decl nil sigma_algebra nil )
(y_section const-decl "set[T1]" cross_product "topology/" )
(B!1 skolem-const-decl "sequence[set[[T1, T2]]]"
product_finite_measure nil )
(y!1 skolem-const-decl "T2" product_finite_measure nil )
(disjoint_indexed_measurable? const-decl "bool"
generalized_measure_def nil )
(disjoint_indexed_measurable nonempty-type-eq-decl nil
generalized_measure_def nil )
(n!1 skolem-const-decl "nat" product_finite_measure nil )
(series const-decl "sequence[real]" series "series/" )
(convergence const-decl "bool" convergence_sequences "analysis/" )
(ball const-decl "set[T]" metric_space_def "metric_space/" )
(posreal nonempty-type-eq-decl nil real_types nil )
(metric_converges_to const-decl "bool" metric_space_def
"metric_space/" )
(metric_convergence_def formula-decl nil metric_space
"metric_space/" )
(nonneg_real nonempty-type-eq-decl nil real_types 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 )
(extensionality_postulate formula-decl nil functions nil )
(E!1 skolem-const-decl "sequence[set[[T1, T2]]]"
product_finite_measure nil )
(sigma def-decl "real" sigma "reals/" )
(sigma_nnreal application-judgement "nnreal" sigma_nat "reals/" )
(fm_disjointunion formula-decl nil finite_measure nil )
(difference const-decl "set" sets nil )
(nnreal_plus_nnreal_is_nnreal application-judgement "nnreal"
real_types nil )
(increasing? const-decl "bool" fun_preds_partial "structures/" )
(even_minus_odd_is_odd application-judgement "odd_int" integers
nil )
(y_section_measurable formula-decl nil product_sigma_def nil )
(y_section_disjoint formula-decl nil product_sections nil )
(disjoint_IUnion formula-decl nil nat_indexed_sets "sets_aux/" )
(sigma_algebra_IUnion_rew application-judgement "(S)" sigma_algebra
nil )
(measurable_function nonempty-type-eq-decl nil measure_space_def
nil )
(pointwise_measurable formula-decl nil measure_space nil )
(sigma_algebra_IUnion formula-decl nil sigma_algebra nil )
(complement const-decl "set" sets nil )
(sigma_algebra_union formula-decl nil sigma_algebra nil )
(+ const-decl "[T -> real]" real_fun_ops "reals/" )
(b!1 skolem-const-decl "(U)" product_finite_measure nil )
(a!1 skolem-const-decl "(U)" product_finite_measure nil )
(y_section_union formula-decl nil product_sections nil )
(sum_measurable judgement-tcc nil measure_space_def nil )
(measurable_rectangle nonempty-type-eq-decl nil product_sigma_def
nil )
(measurable_rectangle? const-decl "bool" product_sigma_def nil )
(fullset const-decl "set" sets nil )
(<= const-decl "bool" reals nil )
(AND const-decl "[bool, bool -> bool]" booleans nil )
(subset_algebra_fullset name-judgement "(S)" product_finite_measure
nil ))
shostak))
(x_section_integrable 0
(x_section_integrable-1 nil 3449893818
("" (skosimp)
(("" (lemma "x_section_measurable" ("nu" "nu!1" "M" "M!1" ))
((""
(lemma "nn_integrable_le[T1, S1, to_measure(mu!1)]"
("g" "nu!1 o x_section(M!1)" ))
(("1" (inst - "lambda (x:T1): nu!1(fullset[T2])" )
(("1" (split -1)
(("1" (flatten)
(("1" (hide -2 -3)
(("1"
(lemma
"nn_integrable_is_integrable[T1, S1, to_measure(mu!1)]" )
(("1" (inst - "nu!1 o x_section(M!1)" ) nil nil ))
nil ))
nil ))
nil )
("2" (hide 2)
(("2" (skosimp)
(("2" (expand "o" )
(("2" (assert )
(("2" (split)
(("1" (assert ) nil nil )
("2"
(lemma "m_monotone[T2, S2, to_measure(nu!1)]"
("a" "x_section(M!1)(x!1)" "b" "fullset[T2]" ))
(("1" (split -1)
(("1" (expand "to_measure" )
(("1" (expand "x_le" )
(("1" (propax) nil nil )) nil ))
nil )
("2" (hide-all-but 1)
(("2" (expand "subset?" )
(("2"
(expand "fullset" )
(("2"
(expand "member" )
(("2" (propax) nil nil ))
nil ))
nil ))
nil ))
nil ))
nil )
("2" (hide 2 -1)
(("2" (expand "measurable_set?" )
(("2" (propax) nil nil )) nil ))
nil )
("3" (hide 2)
(("3"
(lemma "x_section_measurable[T1,T2]"
("Z" "M!1" "S1" "S1" "S2" "S2" "x" "x!1" ))
(("3" (expand "member" )
(("3"
(expand "measurable_set?" )
(("3"
(expand "x_section" 1)
(("3" (propax) nil nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil )
("2" (hide -1 2)
(("2"
(lemma
"nn_isf_is_nn_integrable[T1, S1, to_measure(mu!1)]" )
(("2" (inst - "LAMBDA (x: T1): nu!1(fullset[T2])" )
(("1" (flatten) nil nil )
("2" (hide 2)
(("2" (expand "nn_isf?" )
(("2" (split)
(("1" (expand "isf?" )
(("1" (split)
(("1"
(lemma "simple_const[T1,S1]"
("c" "nu!1(fullset[T2])" ))
(("1" (propax) nil nil )) nil )
("2" (expand "mu_fin?" )
(("2" (expand "to_measure" )
(("2" (propax) nil nil )) nil ))
nil ))
nil ))
nil )
("2" (skosimp)
(("2" (typepred "nu!1" )
(("2" (assert ) nil nil )) nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil )
("2" (propax) nil nil ))
nil ))
nil ))
nil )
((finite_measure nonempty-type-eq-decl nil generalized_measure_def
nil )
(finite_measure? const-decl "bool" generalized_measure_def nil )
(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 )
(S2 formal-const-decl "sigma_algebra[T2]" product_finite_measure
nil )
(S1 formal-const-decl "sigma_algebra[T1]" product_finite_measure
nil )
(sigma_times const-decl "sigma_algebra[[T1, T2]]" product_sigma_def
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 product_finite_measure nil )
(T1 formal-type-decl nil product_finite_measure nil )
(x_section_measurable formula-decl nil product_finite_measure nil )
(subset_algebra_fullset name-judgement "(S)" product_finite_measure
nil )
(mu!1 skolem-const-decl "finite_measure[T1, S1]"
product_finite_measure nil )
(nn_integrable? const-decl "bool" nn_integral nil )
(nu!1 skolem-const-decl "finite_measure[T2, S2]"
product_finite_measure nil )
(fullset const-decl "set" sets nil )
(nn_integrable nonempty-type-eq-decl nil nn_integral nil )
(x_section_measurable formula-decl nil product_sigma_def nil )
(x_le const-decl "bool" extended_nnreal "extended_nnreal/" )
(subset? const-decl "bool" sets nil )
(member const-decl "bool" sets nil )
(measurable_set nonempty-type-eq-decl nil measure_space_def nil )
(measurable_set? const-decl "bool" measure_space_def nil )
(m_monotone formula-decl nil measure_props nil )
(real_le_is_total_order name-judgement "(total_order?[real])"
real_props nil )
(nn_integrable_is_integrable judgement-tcc nil integral nil )
(M!1 skolem-const-decl "(sigma_times(S1, S2))"
product_finite_measure nil )
(nn_isf_is_nn_integrable judgement-tcc nil nn_integral nil )
(simple_const formula-decl nil measure_space nil )
(mu_fin? const-decl "bool" measure_props nil )
(NOT const-decl "[bool -> bool]" booleans nil )
(real_ge_is_total_order name-judgement "(total_order?[real])"
real_props nil )
(nn_isf nonempty-type-eq-decl nil nn_integral nil )
(nn_isf? const-decl "bool" nn_integral nil )
(isf nonempty-type-eq-decl nil isf nil )
(isf? const-decl "bool" isf nil )
(AND const-decl "[bool, bool -> bool]" booleans nil )
(nn_integrable_le formula-decl nil nn_integral nil )
(measurable_function? const-decl "bool" measure_space_def nil )
(measurable_function nonempty-type-eq-decl nil measure_space_def
nil )
(O const-decl "T3" function_props nil )
(set type-eq-decl nil sets nil )
(x_section const-decl "[T1 -> set[T2]]" cross_product "topology/" )
(extended_nnreal nonempty-type-eq-decl nil extended_nnreal
"extended_nnreal/" )
(measure? const-decl "bool" generalized_measure_def nil )
(measure_type nonempty-type-eq-decl nil generalized_measure_def
nil )
(to_measure const-decl "measure_type" generalized_measure_def nil ))
shostak))
(y_section_integrable 0
(y_section_integrable-1 nil 3449899886
("" (skosimp)
((""
(lemma "nn_integrable_le[T2, S2, to_measure(nu!1)]"
("g" "mu!1 o y_section(M!1)" "f"
"lambda (x:T2): mu!1(fullset[T1])" ))
(("1" (split -1)
(("1" (flatten)
(("1"
(lemma
"nn_integrable_is_integrable[T2, S2, to_measure(nu!1)]" )
(("1" (inst - "mu!1 o y_section(M!1)" ) nil nil )) nil ))
nil )
("2" (hide 2)
(("2" (skosimp)
(("2" (expand "o" )
(("2" (split)
(("1" (assert ) nil nil )
("2" (expand "y_section" )
(("2"
(lemma "m_monotone[T1,S1,to_measure(mu!1)]"
("a" "y_section(M!1, x!1)" "b" "fullset[T1]" ))
(("1" (split -1)
(("1" (expand "to_measure" )
(("1" (expand "x_le" ) (("1" (propax) nil nil ))
nil ))
nil )
("2" (hide 2)
(("2" (expand "subset?" )
(("2" (expand "fullset" )
(("2" (expand "member" )
(("2" (propax) nil nil )) nil ))
nil ))
nil ))
nil ))
nil )
("2" (hide 2)
(("2" (expand "measurable_set?" )
(("2" (propax) nil nil )) nil ))
nil )
("3" (hide 2)
(("3" (expand "measurable_set?" )
(("3"
(lemma "y_section_measurable[T1,T2]"
("Z" "M!1" "S1" "S1" "S2" "S2" "y" "x!1" ))
(("3" (expand "member" )
(("3" (propax) nil nil )) nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil )
("2" (hide 2) (("2" (rewrite "y_section_measurable" ) nil nil ))
nil )
("3" (hide 2)
(("3"
(lemma "nn_isf_is_nn_integrable[T2, S2, to_measure(nu!1)]" )
(("3" (inst - "LAMBDA (x: T2): mu!1(fullset[T1])" )
(("1" (flatten) nil nil )
("2" (hide 2)
(("2" (expand "nn_isf?" )
(("2" (split)
(("1" (expand "isf?" )
(("1" (expand "mu_fin?" )
(("1" (expand "to_measure" )
(("1"
(lemma "simple_const[T2,S2]"
("c" "mu!1(fullset[T1])" ))
(("1" (propax) nil nil )) nil ))
nil ))
nil ))
nil )
("2" (skosimp) (("2" (assert ) nil nil )) nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil )
((to_measure const-decl "measure_type" generalized_measure_def nil )
(measure_type nonempty-type-eq-decl nil generalized_measure_def
nil )
(measure? const-decl "bool" generalized_measure_def nil )
(extended_nnreal nonempty-type-eq-decl nil extended_nnreal
"extended_nnreal/" )
(finite_measure nonempty-type-eq-decl nil generalized_measure_def
nil )
(finite_measure? const-decl "bool" generalized_measure_def nil )
(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 )
(S2 formal-const-decl "sigma_algebra[T2]" product_finite_measure
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 product_finite_measure nil )
(sigma_times const-decl "sigma_algebra[[T1, T2]]" product_sigma_def
nil )
(y_section const-decl "[T2 -> set[T1]]" cross_product "topology/" )
(O const-decl "T3" function_props nil )
(measurable_function nonempty-type-eq-decl nil measure_space_def
nil )
(measurable_function? const-decl "bool" measure_space_def nil )
(fullset const-decl "set" sets nil ) (set type-eq-decl nil sets nil )
(S1 formal-const-decl "sigma_algebra[T1]" product_finite_measure
nil )
(T1 formal-type-decl nil product_finite_measure nil )
(nn_integrable nonempty-type-eq-decl nil nn_integral nil )
(nn_integrable? const-decl "bool" nn_integral nil )
(nn_integrable_le formula-decl nil nn_integral nil )
(subset_algebra_fullset name-judgement "(S)" product_finite_measure
nil )
(y_section_measurable formula-decl nil product_sigma_def nil )
(x_le const-decl "bool" extended_nnreal "extended_nnreal/" )
(subset? const-decl "bool" sets nil )
(member const-decl "bool" sets nil )
(y_section const-decl "set[T1]" cross_product "topology/" )
(measurable_set nonempty-type-eq-decl nil measure_space_def nil )
(measurable_set? const-decl "bool" measure_space_def nil )
(m_monotone formula-decl nil measure_props nil )
(real_le_is_total_order name-judgement "(total_order?[real])"
real_props nil )
(nn_integrable_is_integrable judgement-tcc nil integral nil )
(y_section_measurable formula-decl nil product_finite_measure nil )
(nn_isf_is_nn_integrable judgement-tcc nil nn_integral nil )
(mu_fin? const-decl "bool" measure_props nil )
(simple_const formula-decl nil measure_space nil )
(real_ge_is_total_order name-judgement "(total_order?[real])"
real_props nil )
(nn_isf nonempty-type-eq-decl nil nn_integral nil )
(nn_isf? const-decl "bool" nn_integral nil )
(isf nonempty-type-eq-decl nil isf nil )
(mu!1 skolem-const-decl "finite_measure[T1, S1]"
product_finite_measure nil )
(isf? const-decl "bool" isf nil )
(nu!1 skolem-const-decl "finite_measure[T2, S2]"
product_finite_measure nil )
(AND const-decl "[bool, bool -> bool]" booleans nil ))
shostak))
(rectangle_measure1_TCC1 0
(rectangle_measure1_TCC1-1 nil 3450064940
("" (skosimp) (("" (rewrite "x_section_integrable" ) nil nil )) nil )
((x_section_integrable formula-decl nil product_finite_measure nil )
(T1 formal-type-decl nil product_finite_measure nil )
(T2 formal-type-decl nil product_finite_measure nil )
(boolean nonempty-type-decl nil booleans nil )
(bool nonempty-type-eq-decl nil booleans nil )
(setof type-eq-decl nil defined_types nil )
(setofsets type-eq-decl nil sets nil )
(sigma_algebra? const-decl "bool" subset_algebra_def nil )
(sigma_algebra nonempty-type-eq-decl nil subset_algebra_def nil )
(sigma_times const-decl "sigma_algebra[[T1, T2]]" product_sigma_def
nil )
(S1 formal-const-decl "sigma_algebra[T1]" product_finite_measure
nil )
(S2 formal-const-decl "sigma_algebra[T2]" product_finite_measure
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 )
(>= const-decl "bool" reals nil )
(nnreal type-eq-decl nil real_types nil )
(finite_measure? const-decl "bool" generalized_measure_def nil )
(finite_measure nonempty-type-eq-decl nil generalized_measure_def
nil ))
nil ))
(rectangle_measure1 0
(rectangle_measure1-1 nil 3450065087
("" (skosimp)
(("" (expand "o " )
(("" (expand "x_section" )
((""
(case-replace
"(LAMBDA (x: T1): nu!1(x_section(M!1, x))) = lambda x: phi[T1,S1](X!1)(x)* nu!1(Y!1)" )
(("1" (hide -1)
(("1"
(lemma "integral_scal[T1, S1, to_measure(mu!1)]"
("c" "nu!1(Y!1)" "f" "phi[T1, S1](X!1)" ))
(("1"
(lemma "integral_phi[T1, S1, to_measure(mu!1)]"
("F" "X!1" ))
(("1" (expand "mu" -1)
(("1" (expand "to_measure" )
(("1" (replace -1)
(("1" (expand "*" )
(("1" (expand "phi" )
(("1" (expand "member" )
(("1" (hide -1)
(("1"
(expand "integral" )
(("1"
(case-replace
"(LAMBDA (x: T1):
nu!1(Y!1) * IF X!1(x) THEN 1 ELSE 0 ENDIF)=(LAMBDA x: IF X!1(x) THEN 1 ELSE 0 ENDIF * nu!1(Y!1))")
(("1"
(replace -2 1)
(("1" (assert ) nil nil ))
nil )
("2"
(apply-extensionality :hide? t)
(("2"
(case-replace "X!1(x!1)" )
(("1" (assert ) nil nil )
("2" (assert ) nil nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil )
("2" (expand "mu_fin?" )
(("2" (expand "to_measure" )
(("2" (expand "measurable_set?" )
(("2" (propax) nil nil )) nil ))
nil ))
nil ))
nil )
("2" (hide 2)
(("2"
(lemma "isf_phi[T1, S1, to_measure(mu!1)]"
("E" "X!1" ))
(("1"
(lemma
"isf_is_integrable[T1, S1, to_measure(mu!1)]" )
(("1" (inst - "phi[T1, S1](X!1)" ) nil nil )) nil )
("2" (expand "mu_fin?" )
(("2" (expand "to_measure" )
(("2" (expand "measurable_set?" )
(("2" (propax) nil nil )) nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil )
("2" (hide 2)
(("2" (apply-extensionality :hide? t)
(("1" (expand "x_section" )
(("1" (replace -1)
(("1" (expand "cross_product" )
(("1" (hide -1)
(("1" (expand "phi" )
(("1" (expand "member" )
(("1" (case-replace "X!1(x!1)" )
(("1" (case-replace "{y: T2 | Y!1(y)}=Y!1" )
(("1" (assert ) nil nil )
("2"
(apply-extensionality :hide? t)
nil
nil ))
nil )
("2" (assert )
(("2"
(typepred "nu!1" )
(("2"
(expand "finite_measure?" )
(("2"
(expand "emptyset" )
(("2" (propax) nil nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil )
("2" (skosimp)
(("2"
(lemma "x_section_measurable[T1,T2]"
("x" "x!1" "Z" "M!1" "S1" "S1" "S2" "S2" ))
(("2" (expand "member" ) (("2" (propax) nil nil ))
nil ))
nil ))
nil ))
nil ))
nil )
("3" (skosimp)
(("3"
(lemma "x_section_measurable[T1,T2]"
("x" "x!1" "Z" "M!1" "S1" "S1" "S2" "S2" ))
(("3" (expand "member" ) (("3" (propax) nil nil )) nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil )
((O const-decl "T3" function_props nil )
(nnreal_times_nnreal_is_nnreal application-judgement "nnreal"
real_types nil )
(T1 formal-type-decl nil product_finite_measure nil )
(number nonempty-type-decl nil numbers nil )
(boolean nonempty-type-decl nil booleans nil )
(number_field_pred const-decl "[number -> boolean]" number_fields
nil )
(numfield nonempty-type-eq-decl nil number_fields nil )
(= const-decl "[T, T -> boolean]" equalities nil )
(T2 formal-type-decl nil product_finite_measure nil )
(bool nonempty-type-eq-decl nil booleans nil )
(setof type-eq-decl nil defined_types nil )
(setofsets type-eq-decl nil sets nil )
(sigma_algebra? const-decl "bool" subset_algebra_def nil )
(sigma_algebra nonempty-type-eq-decl nil subset_algebra_def nil )
(S2 formal-const-decl "sigma_algebra[T2]" product_finite_measure
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 )
(>= const-decl "bool" reals nil )
(nnreal type-eq-decl nil real_types nil )
(finite_measure? const-decl "bool" generalized_measure_def nil )
(finite_measure nonempty-type-eq-decl nil generalized_measure_def
nil )
(set type-eq-decl nil sets nil )
(x_section const-decl "set[T2]" cross_product "topology/" )
(sigma_times const-decl "sigma_algebra[[T1, T2]]" product_sigma_def
nil )
(S1 formal-const-decl "sigma_algebra[T1]" product_finite_measure
nil )
(* const-decl "[numfield, numfield -> numfield]" number_fields nil )
(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 )
(nat nonempty-type-eq-decl nil naturalnumbers nil )
(phi const-decl "nat" measure_space nil )
(integral_scal formula-decl nil integral nil )
(integrable? const-decl "bool" integral nil )
(integrable nonempty-type-eq-decl nil integral nil )
(extended_nnreal nonempty-type-eq-decl nil extended_nnreal
"extended_nnreal/" )
(measure? const-decl "bool" generalized_measure_def nil )
(measure_type nonempty-type-eq-decl nil generalized_measure_def
nil )
(to_measure const-decl "measure_type" generalized_measure_def nil )
(mu const-decl "nnreal" measure_props nil )
(IF const-decl "[boolean, T, T -> T]" if_def nil )
(integral const-decl "real" integral nil )
(member const-decl "bool" sets nil )
(* const-decl "[T -> real]" real_fun_ops "reals/" )
(AND const-decl "[bool, bool -> bool]" booleans nil )
(mu_fin? const-decl "bool" measure_props nil )
(measurable_set nonempty-type-eq-decl nil measure_space_def nil )
(measurable_set? const-decl "bool" measure_space_def nil )
(integral_phi formula-decl nil integral nil )
(isf_phi judgement-tcc nil isf nil )
(isf nonempty-type-eq-decl nil isf nil )
(isf? const-decl "bool" isf nil )
(mu!1 skolem-const-decl "finite_measure[T1, S1]"
product_finite_measure nil )
(X!1 skolem-const-decl "(S1)" product_finite_measure nil )
(isf_is_integrable judgement-tcc nil integral nil )
(M!1 skolem-const-decl "(sigma_times(S1, S2))"
product_finite_measure nil )
(sigma_algebra_IUnion_rew application-judgement "(S)" sigma_algebra
nil )
(emptyset const-decl "set" sets nil )
(NOT const-decl "[bool -> bool]" booleans nil )
(cross_product const-decl "set[[T1, T2]]" cross_product
"topology/" )
(x_section_measurable formula-decl nil product_sigma_def nil )
(x_section const-decl "[T1 -> set[T2]]" cross_product "topology/" ))
shostak))
(rectangle_measure2_TCC1 0
(rectangle_measure2_TCC1-1 nil 3450064940
("" (skosimp) (("" (rewrite "y_section_integrable" ) nil nil )) nil )
((y_section_integrable formula-decl nil product_finite_measure nil )
(T1 formal-type-decl nil product_finite_measure nil )
(T2 formal-type-decl nil product_finite_measure nil )
(boolean nonempty-type-decl nil booleans nil )
(bool nonempty-type-eq-decl nil booleans nil )
(setof type-eq-decl nil defined_types nil )
(setofsets type-eq-decl nil sets nil )
(sigma_algebra? const-decl "bool" subset_algebra_def nil )
(sigma_algebra nonempty-type-eq-decl nil subset_algebra_def nil )
(sigma_times const-decl "sigma_algebra[[T1, T2]]" product_sigma_def
nil )
(S1 formal-const-decl "sigma_algebra[T1]" product_finite_measure
nil )
(S2 formal-const-decl "sigma_algebra[T2]" product_finite_measure
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 )
(>= const-decl "bool" reals nil )
(nnreal type-eq-decl nil real_types nil )
(finite_measure? const-decl "bool" generalized_measure_def nil )
(finite_measure nonempty-type-eq-decl nil generalized_measure_def
nil ))
nil ))
(rectangle_measure2 0
(rectangle_measure2-1 nil 3450066860
("" (skosimp)
(("" (expand "o " )
(("" (expand "y_section" )
((""
(case-replace
"(LAMBDA y: mu!1(y_section(M!1, y))) = lambda y: phi[T2,S2](Y!1)(y)* mu!1(X!1)" )
(("1" (hide -1)
(("1" (hide -1)
(("1"
(lemma "isf_phi[T2, S2, to_measure(nu!1)]" ("E" "Y!1" ))
(("1"
(lemma "isf_is_integrable[T2, S2, to_measure(nu!1)]" )
(("1" (inst - "phi[T2,S2](Y!1)" )
(("1" (hide -2)
(("1"
(lemma "integral_phi[T2, S2, to_measure(nu!1)]"
("F" "Y!1" ))
(("1"
(lemma
"integral_scal[T2, S2, to_measure(nu!1)]"
("c" "mu!1(X!1)" "f" "phi[T2, S2](Y!1)" ))
(("1" (expand "*" )
(("1"
(case-replace
"(LAMBDA (x: T2): mu!1(X!1) * phi[T2, S2](Y!1)(x))=(LAMBDA y: phi[T2, S2](Y!1)(y) * mu!1(X!1))" )
(("1"
(replace -2)
(("1"
(replace -3)
(("1"
(expand "mu" )
(("1"
(expand "to_measure" )
(("1" (propax) nil nil ))
nil ))
nil ))
nil ))
nil )
("2"
(hide-all-but 1)
(("2"
(apply-extensionality :hide? t)
nil
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil )
("2" (expand "measurable_set?" )
(("2" (expand "mu_fin?" )
(("2" (expand "to_measure" )
(("2" (propax) nil nil )) nil ))
nil ))
nil ))
nil ))
nil ))
nil )
("2" (apply-extensionality :hide? t)
(("1" (replace -1)
(("1" (hide-all-but 1)
(("1" (expand "cross_product" )
(("1" (expand "y_section" )
(("1" (expand "phi" )
(("1" (expand "member" )
(("1" (case-replace "Y!1(x!1)" )
(("1"
(case-replace "{x_1: T1 | X!1(x_1)}=X!1" )
(("1" (assert ) nil nil )
("2" (apply-extensionality :hide? t) nil
nil ))
nil )
("2" (assert )
(("2" (typepred "mu!1" )
(("2"
(expand "finite_measure?" )
(("2"
(expand "emptyset" )
(("2" (propax) nil nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil )
("2" (skosimp)
(("2"
(lemma "y_section_measurable[T1,T2]"
("Z" "M!1" "y" "y!1" "S1" "S1" "S2" "S2" ))
(("2" (expand "member" ) (("2" (propax) nil nil )) nil ))
nil ))
nil ))
nil )
("3" (skosimp)
(("3"
(lemma "y_section_measurable[T1,T2]"
("Z" "M!1" "y" "y!1" "S1" "S1" "S2" "S2" ))
(("3" (expand "member" ) (("3" (propax) nil nil )) nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil )
((O const-decl "T3" function_props nil )
(nnreal_times_nnreal_is_nnreal application-judgement "nnreal"
real_types nil )
(T2 formal-type-decl nil product_finite_measure nil )
(number nonempty-type-decl nil numbers nil )
(boolean nonempty-type-decl nil booleans nil )
(number_field_pred const-decl "[number -> boolean]" number_fields
nil )
(numfield nonempty-type-eq-decl nil number_fields nil )
(= const-decl "[T, T -> boolean]" equalities nil )
(T1 formal-type-decl nil product_finite_measure nil )
(bool nonempty-type-eq-decl nil booleans nil )
(setof type-eq-decl nil defined_types nil )
(setofsets type-eq-decl nil sets nil )
(sigma_algebra? const-decl "bool" subset_algebra_def nil )
(sigma_algebra nonempty-type-eq-decl nil subset_algebra_def nil )
(S1 formal-const-decl "sigma_algebra[T1]" product_finite_measure
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 )
(>= const-decl "bool" reals nil )
(nnreal type-eq-decl nil real_types nil )
(finite_measure? const-decl "bool" generalized_measure_def nil )
(finite_measure nonempty-type-eq-decl nil generalized_measure_def
nil )
(set type-eq-decl nil sets nil )
(y_section const-decl "set[T1]" cross_product "topology/" )
(sigma_times const-decl "sigma_algebra[[T1, T2]]" product_sigma_def
nil )
(S2 formal-const-decl "sigma_algebra[T2]" product_finite_measure
nil )
(* const-decl "[numfield, numfield -> numfield]" number_fields nil )
(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 )
(nat nonempty-type-eq-decl nil naturalnumbers nil )
(phi const-decl "nat" measure_space nil )
(isf_is_integrable judgement-tcc nil integral nil )
(integral_scal formula-decl nil integral nil )
(integrable? const-decl "bool" integral nil )
(integrable nonempty-type-eq-decl nil integral nil )
(mu const-decl "nnreal" measure_props nil )
(* const-decl "[T -> real]" real_fun_ops "reals/" )
(integral_phi formula-decl nil integral nil )
(isf nonempty-type-eq-decl nil isf nil )
(Y!1 skolem-const-decl "(S2)" product_finite_measure nil )
(isf? const-decl "bool" isf nil )
(nu!1 skolem-const-decl "finite_measure[T2, S2]"
product_finite_measure nil )
(AND const-decl "[bool, bool -> bool]" booleans nil )
(to_measure const-decl "measure_type" generalized_measure_def nil )
(measure_type nonempty-type-eq-decl nil generalized_measure_def
nil )
(measure? const-decl "bool" generalized_measure_def nil )
(extended_nnreal nonempty-type-eq-decl nil extended_nnreal
"extended_nnreal/" )
(mu_fin? const-decl "bool" measure_props nil )
(measurable_set nonempty-type-eq-decl nil measure_space_def nil )
(measurable_set? const-decl "bool" measure_space_def nil )
(isf_phi judgement-tcc nil isf nil )
(y_section_measurable formula-decl nil product_sigma_def nil )
(cross_product const-decl "set[[T1, T2]]" cross_product
"topology/" )
(NOT const-decl "[bool -> bool]" booleans nil )
(emptyset const-decl "set" sets nil )
(sigma_algebra_IUnion_rew application-judgement "(S)" sigma_algebra
nil )
(member const-decl "bool" sets nil )
(M!1 skolem-const-decl "(sigma_times(S1, S2))"
product_finite_measure nil )
(y_section const-decl "[T2 -> set[T1]]" cross_product "topology/" ))
shostak))
(fm_times_TCC1 0
(fm_times_TCC1-1 nil 3431017313
("" (skosimp) (("" (rewrite "x_section_integrable" ) nil nil )) nil )
((x_section_integrable formula-decl nil product_finite_measure nil )
(T1 formal-type-decl nil product_finite_measure nil )
(T2 formal-type-decl nil product_finite_measure nil )
(boolean nonempty-type-decl nil booleans nil )
(bool nonempty-type-eq-decl nil booleans nil )
(setof type-eq-decl nil defined_types nil )
(setofsets type-eq-decl nil sets nil )
(sigma_algebra? const-decl "bool" subset_algebra_def nil )
(sigma_algebra nonempty-type-eq-decl nil subset_algebra_def nil )
(sigma_times const-decl "sigma_algebra[[T1, T2]]" product_sigma_def
nil )
(S1 formal-const-decl "sigma_algebra[T1]" product_finite_measure
nil )
(S2 formal-const-decl "sigma_algebra[T2]" product_finite_measure
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 )
(>= const-decl "bool" reals nil )
(nnreal type-eq-decl nil real_types nil )
(finite_measure? const-decl "bool" generalized_measure_def nil )
(finite_measure nonempty-type-eq-decl nil generalized_measure_def
nil ))
nil ))
(fm_times_TCC2 0
(fm_times_TCC2-1 nil 3431017313
("" (skosimp)
(("" (expand "o" )
((""
(lemma "integral_nonneg[T1, S1, to_measure[T1, S1](mu!1)]"
("f" "LAMBDA (x: T1): nu!1(x_section[T1, T2](M!1)(x))" ))
(("1" (split -1)
(("1" (propax) nil nil )
("2" (hide -1 2)
(("2" (skosimp) (("2" (assert ) nil nil )) nil )) nil ))
nil )
("2" (hide 2)
(("2"
(lemma "fm_times_TCC1" ("mu" "mu!1" "nu" "nu!1" "M" "M!1" ))
(("2" (expand "o" ) (("2" (propax) nil nil )) nil )) nil ))
nil )
("3" (hide 2)
(("3" (skosimp)
(("3" (expand "x_section" )
(("3"
(lemma "x_section_measurable[T1,T2]"
("Z" "M!1" "S1" "S1" "S2" "S2" "x" "x!1" ))
(("3" (expand "member" ) (("3" (propax) nil nil )) nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil )
((O const-decl "T3" function_props nil )
(member const-decl "bool" sets nil )
(x_section_measurable formula-decl nil product_sigma_def nil )
(fm_times_TCC1 subtype-tcc nil product_finite_measure nil )
(real_ge_is_total_order name-judgement "(total_order?[real])"
real_props nil )
(integral_nonneg formula-decl nil integral nil )
(integrable? const-decl "bool" integral nil )
(integrable nonempty-type-eq-decl nil integral nil )
(T2 formal-type-decl nil product_finite_measure nil )
(S2 formal-const-decl "sigma_algebra[T2]" product_finite_measure
nil )
(set type-eq-decl nil sets nil )
(x_section const-decl "[T1 -> set[T2]]" cross_product "topology/" )
(sigma_times const-decl "sigma_algebra[[T1, T2]]" product_sigma_def
nil )
(T1 formal-type-decl nil product_finite_measure nil )
(boolean nonempty-type-decl nil booleans nil )
(bool nonempty-type-eq-decl nil booleans nil )
(setof type-eq-decl nil defined_types nil )
(setofsets type-eq-decl nil sets nil )
(sigma_algebra? const-decl "bool" subset_algebra_def nil )
(sigma_algebra nonempty-type-eq-decl nil subset_algebra_def nil )
(S1 formal-const-decl "sigma_algebra[T1]" product_finite_measure
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 )
(>= const-decl "bool" reals nil )
(nnreal type-eq-decl nil real_types nil )
(finite_measure? const-decl "bool" generalized_measure_def nil )
(finite_measure nonempty-type-eq-decl nil generalized_measure_def
nil )
(extended_nnreal nonempty-type-eq-decl nil extended_nnreal
"extended_nnreal/" )
(measure? const-decl "bool" generalized_measure_def nil )
(measure_type nonempty-type-eq-decl nil generalized_measure_def
nil )
(to_measure const-decl "measure_type" generalized_measure_def nil ))
nil ))
(fm_times_TCC3 0
(fm_times_TCC3-1 nil 3431017313
("" (skosimp)
(("" (lemma "fm_times_TCC1" ("mu" "mu!1" "nu" "nu!1" ))
(("" (lemma "fm_times_TCC2" ("mu" "mu!1" "nu" "nu!1" ))
(("" (rewrite "finite_measure_def" )
(("1" (split 1)
(("1" (inst -2 "emptyset[[T1,T2]]" )
(("1" (assert )
(("1" (inst -1 "emptyset[[T1,T2]]" )
(("1"
(case-replace
"x_section[T1, T2](emptyset[[T1, T2]])=lambda (x:T1): emptyset[T2]" )
(("1" (hide -1)
(("1" (expand "o" )
(("1" (rewrite "fm_emptyset[T2,S2,nu!1]" )
(("1"
(rewrite
"integral_zero[T1, S1, to_measure[T1, S1](mu!1)]"
1)
nil nil ))
nil ))
nil ))
nil )
("2" (hide-all-but 1)
(("2" (apply-extensionality :hide? t)
(("2" (apply-extensionality :hide? t)
(("2" (expand "emptyset" )
(("2" (expand "x_section" )
(("2"
(expand "x_section" )
(("2" (propax) nil nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil )
("2" (skosimp)
(("2" (expand "o" )
(("2" (typepred "nu!1" )
(("2" (rewrite "finite_measure_def" -1)
(("2" (flatten)
(("2" (hide -3)
(("2"
(case-replace
"(LAMBDA (x: T1): nu!1(x_section[T1, T2](union(a!1, b!1))(x)))=(reals@real_fun_ops.+)((LAMBDA (x: T1): nu!1(x_section[T1, T2](a!1)(x))),(LAMBDA (x: T1): nu!1(x_section[T1, T2](b!1)(x))))" )
(("1" (hide -1)
(("1" (expand "x_section" )
(("1"
(rewrite
"integral_add[T1, S1, to_measure[T1, S1](mu!1)]"
1)
(("1" (inst -5 "b!1" ) nil nil )
("2"
(skosimp)
(("2"
(lemma
"x_section_measurable[T1,T2]"
("Z"
"b!1"
"S1"
"S1"
"S2"
"S2"
"x"
"x!1" ))
(("2"
(expand "member" )
(("2" (propax) nil nil ))
nil ))
nil ))
nil )
("3" (inst -5 "a!1" ) nil nil )
("4"
(skosimp)
(("4"
(lemma
"x_section_measurable[T1,T2]"
("Z"
"a!1"
"S1"
"S1"
"S2"
"S2"
"x"
"x!1" ))
(("4"
(expand "member" )
(("4" (propax) nil nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil )
("2" (hide -4 -5 2)
(("2" (apply-extensionality :hide? t)
(("1"
(expand "+" )
(("1"
(lemma
"x_section_disjoint"
("X" "a!1" "Y" "b!1" "a" "x!1" ))
(("1"
(assert )
(("1"
(inst
-
"x_section(a!1, x!1)"
"x_section(b!1, x!1)" )
(("1"
(assert )
(("1"
(expand "x_section" 1)
(("1"
(rewrite "x_section_union" )
nil
nil ))
nil ))
nil )
("2"
(lemma
"x_section_measurable[T1,T2]"
("Z"
"b!1"
"S1"
"S1"
"S2"
"S2"
"x"
"x!1" ))
(("2"
(expand "member" )
(("2" (propax) nil nil ))
nil ))
nil )
("3"
(lemma
"x_section_measurable[T1,T2]"
("Z"
"a!1"
"S1"
"S1"
"S2"
"S2"
"x"
"x!1" ))
(("3"
(expand "member" )
(("3" (propax) nil nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil )
("2"
(skosimp)
(("2"
(expand "+" )
(("2"
(expand "x_section" )
(("2"
(lemma
"x_section_measurable[T1,T2]"
("Z"
"a!1"
"S1"
"S1"
"S2"
"S2"
"x"
"x1!1" ))
(("2"
(lemma
"x_section_measurable[T1,T2]"
("Z"
"b!1"
"S1"
"S1"
"S2"
"S2"
"x"
"x1!1" ))
(("2"
(expand "member" )
(("2"
(typepred
"nu!1(x_section(a!1, x1!1))" )
(("2"
(typepred
"nu!1(x_section(b!1, x1!1))" )
(("2" (assert ) nil nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil )
("3"
(skosimp)
(("3"
(expand "x_section" )
(("3"
(lemma
"x_section_measurable[T1,T2]"
("Z"
"b!1"
"S1"
"S1"
"S2"
"S2"
"x"
"x!1" ))
(("3"
(expand "member" )
(("3" (propax) nil nil ))
nil ))
nil ))
nil ))
nil )
("4"
(skosimp)
(("4"
(expand "x_section" )
(("4"
(lemma
"x_section_measurable[T1,T2]"
("Z"
"a!1"
"S1"
"S1"
"S2"
"S2"
"x"
"x!1" ))
(("4"
(expand "member" )
(("4" (propax) nil nil ))
nil ))
nil ))
nil ))
nil )
("5"
(skosimp)
(("5"
(expand "x_section" )
(("5"
(lemma
"x_section_measurable[T1,T2]"
("Z"
"union(a!1,b!1)"
"S1"
"S1"
"S2"
"S2"
"x"
"x!1" ))
(("5"
(expand "member" )
(("5" (propax) nil nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil )
("3" (hide-all-but 1)
(("3" (skosimp)
(("3"
(expand "x_section" )
(("3"
(lemma
"x_section_measurable[T1,T2]"
("Z"
"b!1"
"S1"
"S1"
"S2"
"S2"
"x"
"x!1" ))
(("3"
(expand "member" )
(("3" (propax) nil nil ))
nil ))
nil ))
nil ))
nil ))
nil )
("4" (hide-all-but 1)
(("4" (expand "x_section" )
(("4"
(skosimp)
(("4"
(lemma
"x_section_measurable[T1,T2]"
("Z"
"a!1"
"S1"
"S1"
"S2"
"S2"
"x"
"x!1" ))
(("4"
(expand "member" )
(("4" (propax) nil nil ))
nil ))
nil ))
nil ))
nil ))
nil )
("5" (hide-all-but 1)
(("5" (skosimp)
(("5"
(expand "x_section" )
(("5"
(lemma
"x_section_measurable[T1,T2]"
("Z"
"union(a!1,b!1)"
"S1"
"S1"
"S2"
"S2"
"x"
"x!1" ))
(("5"
(expand "member" )
(("5" (propax) nil nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil )
("3" (skosimp)
(("3" (typepred "X!1" )
(("3" (expand "o " )
(("3" (expand "x_section" )
(("3"
(name "SS" "(LAMBDA (x_1: nat):
integral[T1, S1, to_measure[T1, S1](mu!1)]
(LAMBDA (x: T1): nu!1(x_section(X!1(x_1), x))))")
(("1" (replace -1)
(("1"
(name "FF"
"lambda (n:nat): LAMBDA x: nu!1(x_section(IUnion(n,X!1), x))" )
(("1"
(case "forall (n:nat): sigma_times(S1,S2)(IUnion(n,X!1))" )
(("1"
(case "forall (n: nat): integrable?[T1, S1, to_measure[T1, S1](mu!1)](FF(n))" )
(("1"
(case
"forall (n:nat,x): 0<=FF(n)(x) & FF(n)(x)<=FF(n+1)(x)" )
(("1"
(name
"ff"
"LAMBDA (x: T1): nu!1(x_section(IUnion(X!1), x))" )
(("1"
(replace -1)
(("1"
(case
"forall (n:nat,x): FF(n)(x)<=ff(x)" )
(("1"
(lemma
"monotone_convergence_scaf[T1, S1, to_measure[T1, S1](mu!1)]"
("F" "FF" "f" "ff" ))
(("1"
(case-replace
"series(SS) = integral[T1, S1, to_measure[T1, S1](mu!1)] o FF" )
(("1"
(hide -1)
(("1"
(split -1)
(("1"
(flatten)
(("1"
(expand
"converges_upto?" )
(("1"
(flatten)
(("1"
(name-replace
"LHS"
"integral[T1, S1, to_measure[T1, S1](mu!1)](ff)" )
(("1"
(name-replace
"DRL1"
"integral[T1, S1, to_measure[T1, S1](mu!1)] o FF" )
(("1"
(hide-all-but
(-2 -12 1))
(("1"
(lemma
"convergence_sequences.limit_lemma"
("v"
"DRL1" ))
(("1"
(hide -3)
(("1"
(rewrite
"metric_convergence_def" )
(("1"
(expand
"convergence" )
(("1"
(name-replace
"RHS"
"convergence_sequences.limit(DRL1)" )
(("1"
(expand
"metric_converges_to" )
(("1"
(expand
"ball" )
(("1"
(expand
"member" )
(("1"
(case
"LHS>RHS" )
(("1"
(hide
1)
(("1"
(name
"DELTA"
"(LHS-RHS)/2" )
(("1"
(inst
-
"DELTA" )
(("1"
(inst
-
"DELTA" )
(("1"
(skosimp*)
(("1"
(inst
-
"n!1+n!2" )
(("1"
(inst
-
"n!1+n!2" )
(("1"
(assert )
(("1"
(lemma
"triangle" )
(("1"
(inst
-
"LHS - DRL1(n!1 + n!2)"
"DRL1(n!1 + n!2) - RHS" )
(("1"
(assert )
nil
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil )
("2"
(assert )
nil
nil ))
nil )
("2"
(assert )
nil
nil ))
nil ))
nil ))
nil )
("2"
(assert )
nil
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil )
("2"
(hide 2)
(("2"
(expand
"pointwise_converges_upto?" )
(("2"
(split)
(("1"
(expand
"pointwise_convergence?" )
(("1"
(skosimp)
(("1"
(typepred
"nu!1" )
(("1"
(expand
"finite_measure?" )
(("1"
(flatten)
(("1"
(name
"XX"
"lambda (n:nat): x_section(X!1(n), x!1)" )
(("1"
(case
"disjoint?(XX)" )
(("1"
(inst
-
"XX" )
(("1"
(case-replace
"nu!1(IUnion(XX)) = ff(x!1)" )
(("1"
(name-replace
"RHS"
"ff(x!1)" )
(("1"
(hide
-1)
(("1"
(case-replace
"series(nu!1 o XX)=LAMBDA (n:nat): FF(n)(x!1)" )
(("1"
(name-replace
"LHS"
"LAMBDA (n:nat): FF(n)(x!1)" )
(("1"
(hide-all-but
(-5
1))
(("1"
(rewrite
"metric_convergence_def" )
(("1"
(expand
"convergence" )
(("1"
(expand
"metric_converges_to" )
(("1"
(skosimp)
(("1"
(inst
-
"r!1" )
(("1"
(skosimp)
(("1"
(inst
+
" n!1" )
(("1"
(skosimp)
(("1"
(inst
-
"i!1" )
(("1"
(assert )
(("1"
(expand
"ball" )
(("1"
(grind)
nil
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil )
("2"
(hide
2)
(("2"
(case
"forall (n:nat): series(nu!1 o XX)(n) = FF(n)(x!1)" )
(("1"
(apply-extensionality
:hide?
t)
nil
nil )
("2"
(hide
2)
(("2"
(induct
"n" )
(("1"
(expand
"FF" )
(("1"
(rewrite
"IUnion_0_def" )
(("1"
(expand
"o " )
(("1"
(expand
"series" )
(("1"
(expand
"sigma" )
(("1"
(expand
"sigma" )
(("1"
(expand
"XX" )
(("1"
(propax)
nil
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil )
("2"
(skosimp*)
(("2"
(expand
"series" )
(("2"
(expand
"sigma"
1)
(("2"
(replace
-1)
(("2"
(expand
"o " )
(("2"
(expand
"FF" )
(("2"
(rewrite
"IUnion_n_def" )
(("2"
(expand
"XX" )
(("2"
(rewrite
"x_section_union" )
(("2"
(lemma
"fm_disjointunion[T2,S2,nu!1]"
("A"
"x_section(IUnion(j!1, X!1), x!1)"
"B"
"x_section(X!1(1 + j!1), x!1)" ))
(("2"
(assert )
(("2"
(hide-all-but
(-2
1))
(("2"
(expand
"disjoint?" )
(("2"
(expand
"disjoint?" )
(("2"
(expand
"intersection" )
(("2"
(expand
"empty?" )
(("2"
(expand
"member" )
(("2"
(skosimp)
(("2"
(expand
"x_section" )
(("2"
(expand
"IUnion" )
(("2"
(expand
"image" )
(("2"
(expand
"Union" )
(("2"
(skosimp)
(("2"
(typepred
"a!1" )
(("2"
(skolem
-
"n!2" )
(("2"
(typepred
"n!2" )
(("2"
(inst
-
"n!2"
"1+j!1" )
(("2"
(assert )
(("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 ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil )
("2"
(expand
"ff" )
(("2"
(expand
"XX" )
(("2"
(case-replace
"IUnion(LAMBDA (n: nat): x_section(X!1(n), x!1))=x_section(IUnion(X!1), x!1)" )
(("2"
(hide-all-but
1)
(("2"
(apply-extensionality
:hide?
t)
(("2"
(expand
"IUnion" )
(("2"
(expand
"x_section" )
(("2"
(propax)
nil
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil )
("2"
(expand
"disjoint_indexed_measurable?" )
(("2"
(assert )
(("2"
(skolem
+
"n!1" )
(("2"
(expand
"XX" )
(("2"
(lemma
"x_section_measurable[T1,T2]"
("Z"
"X!1(n!1)"
"S1"
"S1"
"S2"
"S2"
"x"
"x!1" ))
(("2"
(assert )
nil
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil )
("2"
(hide-all-but
(-11
1))
(("2"
(expand
"XX" )
(("2"
(expand
"disjoint_indexed_measurable?" )
(("2"
(expand
"disjoint?" )
(("2"
(skosimp)
(("2"
(inst
-
"i!1"
"j!1" )
(("2"
(assert )
(("2"
(lemma
"x_section_disjoint"
("X"
"X!1(i!1)"
"Y"
"X!1(j!1)"
"a"
"x!1" ))
(("2"
(assert )
nil
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil )
("2"
(expand
"pointwise_increasing?" )
(("2"
(skosimp)
(("2"
(case
"forall (i,j:nat): FF(i)(x!1)<=FF(i+j)(x!1)" )
(("1"
(expand
"increasing?" )
(("1"
(skosimp)
(("1"
(inst
-
"x!2"
"y!1-x!2" )
(("1"
(assert )
nil
nil )
("2"
(assert )
nil
nil ))
nil ))
nil ))
nil )
("2"
(hide-all-but
(-3 1))
(("2"
(induct
"j" )
(("1"
(skosimp)
(("1"
(assert )
nil
nil ))
nil )
("2"
(skosimp*)
(("2"
(inst
-
"i!1" )
(("2"
(inst
-
"i!1+j!1"
"x!1" )
(("2"
(assert )
nil
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil )
("3"
(hide 2)
(("3"
(expand "bounded?" )
(("3"
(split)
(("1"
(expand
"bounded_above?" )
(("1"
(inst
+
"integral[T1, S1, to_measure(mu!1)](ff)" )
(("1"
(expand "o " )
(("1"
(skolem
+
"n!1" )
(("1"
(inst
-
"n!1" )
(("1"
(inst
-
"n!1"
"_" )
(("1"
(lemma
"integral_ae_le[T1, S1, to_measure(mu!1)]"
("f1"
"FF(n!1)"
"f2"
"ff" ))
(("1"
(assert )
(("1"
(expand
"ae_le?" )
(("1"
(expand
"pointwise_ae?" )
(("1"
(expand
"ae?" )
(("1"
(expand
"fullset" )
(("1"
(expand
"ae_in?" )
(("1"
(inst
+
"emptyset" )
(("1"
(skosimp)
(("1"
(expand
"member" )
(("1"
(inst
-
"x!1" )
nil
nil ))
nil ))
nil )
("2"
(expand
"negligible_set?" )
(("2"
(inst
+
"emptyset[T1]" )
(("2"
(assert )
(("2"
(hide-all-but
1)
(("2"
(split)
(("1"
(expand
"null_set?" )
(("1"
(expand
"measurable_set?" )
(("1"
(typepred
"mu!1" )
(("1"
(expand
"mu_fin?" )
(("1"
(expand
"mu" )
(("1"
(expand
"to_measure" )
(("1"
(expand
"finite_measure?" )
(("1"
(flatten)
nil
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil )
("2"
(expand
"subset?" )
(("2"
(skosimp)
nil
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil )
("2"
(expand "ff" )
(("2"
(inst
-11
"IUnion(X!1)" )
nil
nil ))
nil ))
nil ))
nil )
("2"
(expand
"bounded_below?" )
(("2"
(inst + "0" )
(("2"
(skosimp)
(("2"
(expand
"o " )
(("2"
(lemma
"integral_nonneg[T1, S1, to_measure(mu!1)]"
("f"
"FF(x!1)" ))
(("2"
(assert )
(("2"
(skosimp)
(("2"
(inst
-3
"x!1"
"x!2" )
(("2"
(flatten)
(("2"
(assert )
nil
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil ))
nil )
("2"
(hide -1 2)
(("2"
(case
"forall (n:nat): series(SS)(n) = integral[T1, S1, to_measure[T1, S1](mu!1)](FF(n))" )
(("1"
(apply-extensionality
:hide?
t)
(("1"
(inst - "x!1" )
(("1"
(assert )
(("1"
(expand "o " )
(("1"
(propax)
nil
nil ))
nil ))
nil ))
nil ))
nil )
("2"
(hide 2)
(("2"
(induct "n" )
(("1"
(expand "series" )
(("1"
(expand "sigma" )
(("1"
(expand
"sigma" )
(("1"
(expand "SS" )
(("1"
(expand
"FF" )
(("1"
(rewrite
"IUnion_0_def" )
nil
nil ))
nil ))
nil ))
nil ))
nil ))
nil )
("2"
(skosimp*)
(("2"
(expand "series" )
(("2"
(expand
"sigma"
1)
(("2"
(replace -1)
(("2"
(hide -1)
(("2"
(expand
"FF" )
(("2"
(rewrite
"IUnion_n_def"
1)
(("2"
(expand
"SS" )
(("2"
(case-replace
"(LAMBDA x:
nu!1(x_section(union(IUnion(j!1, X!1), X!1(1 + j!1)), x)))=(reals@real_fun_ops.+)(LAMBDA x: nu!1(x_section(IUnion(j!1, X!1), x)),LAMBDA (x: T1): nu!1(x_section(X!1(1 + j!1), x)))")
(("1"
(rewrite
"integral_add[T1, S1, to_measure[T1, S1](mu!1)]" )
(("1"
(inst
-10
"X!1(1 + j!1)" )
nil
nil )
("2"
(skosimp)
(("2"
(hide-all-but
1)
(("2"
(lemma
"x_section_measurable[T1,T2]"
("Z"
"X!1(1+j!1)"
"S1"
"S1"
"S2"
"S2"
"x"
"x!1" ))
(("2"
(assert )
nil
nil ))
nil ))
nil ))
nil )
("3"
(inst
-10
"IUnion[[T1, T2]](j!1, X!1)" )
(("3"
(inst
-6
"j!1" )
nil
nil ))
nil )
("4"
(skosimp)
(("4"
(inst
-6
"j!1" )
(("4"
(lemma
"x_section_measurable[T1,T2]"
("Z"
"IUnion(j!1,X!1)"
"S1"
"S1"
"S2"
"S2"
"x"
"x!1" ))
(("4"
(assert )
nil
nil ))
nil ))
nil ))
nil ))
nil )
("2"
(hide
2)
(("2"
(hide
-9
-10
-6
-8)
(("2"
(apply-extensionality
:hide?
t)
(("1"
(expand
"+" )
(("1"
(rewrite
"x_section_union" )
(("1"
(lemma
"fm_disjointunion[T2,S2,nu!1]"
("A"
"x_section(IUnion(j!1, X!1), x!1)"
"B"
"x_section(X!1(1 + j!1), x!1)" ))
(("1"
(assert )
(("1"
(hide-all-but
(1
-6))
(("1"
(expand
"disjoint_indexed_measurable?" )
(("1"
(expand
"disjoint?" )
(("1"
(expand
"disjoint?" )
(("1"
(expand
"intersection" )
(("1"
(expand
"empty?" )
(("1"
(skosimp)
(("1"
(expand
"member" )
(("1"
(expand
"x_section" )
(("1"
(flatten)
(("1"
(expand
"IUnion" )
(("1"
(expand
"image" )
(("1"
(expand
"Union" )
(("1"
(skosimp)
(("1"
(typepred
"a!1" )
(("1"
(skolem
-
"n!2" )
(("1"
(typepred
"n!2" )
(("1"
(inst
-
"n!2"
"1+j!1" )
(("1"
(assert )
(("1"
(inst
-
"(x!1, x!2)" )
(("1"
(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"
(skosimp)
(("2"
(expand
"+" )
(("2"
(assert )
nil
nil ))
nil ))
nil )
("3"
(skosimp)
(("3"
(lemma
"x_section_measurable[T1,T2]"
("Z"
"X!1(1+j!1)"
"S1"
"S1"
"S2"
"S2"
"x"
"x!1" ))
(("3"
(assert )
nil
nil ))
nil ))
nil )
("4"
(skosimp)
(("4"
(inst
-5
"j!1" )
(("4"
(lemma
"x_section_measurable[T1,T2]"
("Z"
"IUnion(j!1,X!1)"
"S1"
"S1"
"S2"
"S2"
"x"
"x!1" ))
(("4"
(assert )
nil
nil ))
nil ))
nil ))
nil )
("5"
(skosimp)
(("5"
(inst
-5
"1+j!1" )
--> --------------------
--> maximum size reached
--> --------------------
Messung V0.5 in Prozent C=100 H=100 G=100
¤ Die Informationen auf dieser Webseite wurden
nach bestem Wissen sorgfältig zusammengestellt. Es wird jedoch weder Vollständigkeit, noch Richtigkeit,
noch Qualität der bereit gestellten Informationen zugesichert.1.603Bemerkung:
(vorverarbeitet am 2026-05-01)
¤
*Bot Zugriff
2026-05-26