let X be non empty set ; :: thesis: for Y being set
for S being SigmaField of X
for F being Function of NAT ,S
for f being PartFunc of X,REAL
for r being Real st ( for n being Nat holds F . n = Y /\ (less_dom f,(r + (1 / (n + 1)))) ) holds
Y /\ (less_eq_dom f,r) = meet (rng F)

let Y be set ; :: thesis: for S being SigmaField of X
for F being Function of NAT ,S
for f being PartFunc of X,REAL
for r being Real st ( for n being Nat holds F . n = Y /\ (less_dom f,(r + (1 / (n + 1)))) ) holds
Y /\ (less_eq_dom f,r) = meet (rng F)

let S be SigmaField of X; :: thesis: for F being Function of NAT ,S
for f being PartFunc of X,REAL
for r being Real st ( for n being Nat holds F . n = Y /\ (less_dom f,(r + (1 / (n + 1)))) ) holds
Y /\ (less_eq_dom f,r) = meet (rng F)

let F be Function of NAT ,S; :: thesis: for f being PartFunc of X,REAL
for r being Real st ( for n being Nat holds F . n = Y /\ (less_dom f,(r + (1 / (n + 1)))) ) holds
Y /\ (less_eq_dom f,r) = meet (rng F)

let f be PartFunc of X,REAL ; :: thesis: for r being Real st ( for n being Nat holds F . n = Y /\ (less_dom f,(r + (1 / (n + 1)))) ) holds
Y /\ (less_eq_dom f,r) = meet (rng F)

let r be Real; :: thesis: ( ( for n being Nat holds F . n = Y /\ (less_dom f,(r + (1 / (n + 1)))) ) implies Y /\ (less_eq_dom f,r) = meet (rng F) )
assume for n being Nat holds F . n = Y /\ (less_dom f,(r + (1 / (n + 1)))) ; :: thesis: Y /\ (less_eq_dom f,r) = meet (rng F)
then for n being Element of NAT holds F . n = Y /\ (less_dom (R_EAL f),(R_EAL (r + (1 / (n + 1))))) ;
then Y /\ (less_eq_dom f,(R_EAL r)) = meet (rng F) by MESFUNC1:24;
hence Y /\ (less_eq_dom f,r) = meet (rng F) ; :: thesis: verum