let X be non empty set ; :: thesis: for S being SigmaField of X
for f being with_the_same_dom Functional_Sequence of X,ExtREAL
for E being Element of S st dom (f . 0) = E & ( for n being natural number holds f . n is_measurable_on E ) holds
lim_sup f is_measurable_on E
let S be SigmaField of X; :: thesis: for f being with_the_same_dom Functional_Sequence of X,ExtREAL
for E being Element of S st dom (f . 0) = E & ( for n being natural number holds f . n is_measurable_on E ) holds
lim_sup f is_measurable_on E
let f be with_the_same_dom Functional_Sequence of X,ExtREAL; :: thesis: for E being Element of S st dom (f . 0) = E & ( for n being natural number holds f . n is_measurable_on E ) holds
lim_sup f is_measurable_on E
let E be Element of S; :: thesis: ( dom (f . 0) = E & ( for n being natural number holds f . n is_measurable_on E ) implies lim_sup f is_measurable_on E )
assume that
A1: dom (f . 0) = E and
A2: for n being natural number holds f . n is_measurable_on E ; :: thesis: lim_sup f is_measurable_on E

A3: now

let r be real number ; :: thesis: E /\ (great_eq_dom ((lim_sup f),(R_EAL r))) in S
deffunc H₁( Element of NAT ) -> Element of bool X = E /\ (great_eq_dom (((superior_realsequence f) . $1),(R_EAL r)));
consider F being Function of NAT,(bool X) such that
A4: for x being Element of NAT holds F . x = H₁(x) from FUNCT_2:sch 4();

now

let i be Nat; :: thesis: F . i in S
A5: dom ((superior_realsequence f) . i) = dom (f . 0) by Def6;
i in NAT by ORDINAL1:def 12;
then A6: F . i = E /\ (great_eq_dom (((superior_realsequence f) . i),(R_EAL r))) by A4;
(superior_realsequence f) . i is_measurable_on E by A1, A2, Th19;
hence F . i in S by A1, A6, A5, MESFUNC1:27; :: thesis: verum

end;

then A7: rng F c= S by NAT_1:52;
A8: for x being natural number holds F . x = E /\ (great_eq_dom (((superior_realsequence f) . x),(R_EAL r)))

proof

let x be natural number ; :: thesis: F . x = E /\ (great_eq_dom (((superior_realsequence f) . x),(R_EAL r)))
reconsider x9 = x as Element of NAT by ORDINAL1:def 12;
F . x9 = E /\ (great_eq_dom (((superior_realsequence f) . x9),(R_EAL r))) by A4;
hence F . x = E /\ (great_eq_dom (((superior_realsequence f) . x),(R_EAL r))) ; :: thesis: verum

end;

reconsider F = F as SetSequence of S by A7, RELAT_1:def 19;
rng F c= S by RELAT_1:def 19;
then F is Function of NAT,S by FUNCT_2:6;
then A9: rng F is N_Sub_set_fam of X by MEASURE1:23;
rng F c= S by RELAT_1:def 19;
then A10: rng F is N_Measure_fam of S by A9, MEASURE2:def 1;
meet F = E /\ (great_eq_dom ((lim_sup f),(R_EAL r))) by A1, A8, Th21;
hence E /\ (great_eq_dom ((lim_sup f),(R_EAL r))) in S by A10, MEASURE2:2; :: thesis: verum

end;

dom (lim_sup f) = dom (f . 0) by Def9;
hence lim_sup f is_measurable_on E by A1, A3, MESFUNC1:27; :: thesis: verum