let X be non empty set ; :: thesis: for S being SigmaField of X
for f being Functional_Sequence of X,ExtREAL
for F being SetSequence of S
for r being Real st ( for n being Nat holds F . n = (dom (f . 0)) /\ (great_eq_dom (((superior_realsequence f) . n),r)) ) holds
meet F = (dom (f . 0)) /\ (great_eq_dom ((lim_sup f),r))
let S be SigmaField of X; :: thesis: for f being Functional_Sequence of X,ExtREAL
for F being SetSequence of S
for r being Real st ( for n being Nat holds F . n = (dom (f . 0)) /\ (great_eq_dom (((superior_realsequence f) . n),r)) ) holds
meet F = (dom (f . 0)) /\ (great_eq_dom ((lim_sup f),r))
let f be Functional_Sequence of X,ExtREAL; :: thesis: for F being SetSequence of S
for r being Real st ( for n being Nat holds F . n = (dom (f . 0)) /\ (great_eq_dom (((superior_realsequence f) . n),r)) ) holds
meet F = (dom (f . 0)) /\ (great_eq_dom ((lim_sup f),r))
let F be SetSequence of S; :: thesis: for r being Real st ( for n being Nat holds F . n = (dom (f . 0)) /\ (great_eq_dom (((superior_realsequence f) . n),r)) ) holds
meet F = (dom (f . 0)) /\ (great_eq_dom ((lim_sup f),r))
let r be Real; :: thesis: ( ( for n being Nat holds F . n = (dom (f . 0)) /\ (great_eq_dom (((superior_realsequence f) . n),r)) ) implies meet F = (dom (f . 0)) /\ (great_eq_dom ((lim_sup f),r)) )
set E = dom (f . 0);
set g = superior_realsequence f;
assume A1: for n being Nat holds F . n = (dom (f . 0)) /\ (great_eq_dom (((superior_realsequence f) . n),r)) ; :: thesis: meet F = (dom (f . 0)) /\ (great_eq_dom ((lim_sup f),r))
dom ((superior_realsequence f) . 0) = dom (f . 0) by Def6;
then meet (rng F) = (dom (f . 0)) /\ (great_eq_dom ((inf (superior_realsequence f)),r)) by A1, Th16;
hence meet F = (dom (f . 0)) /\ (great_eq_dom ((lim_sup f),r)) by Th12; :: thesis: verum