theorem
  for X,S,f,A st f is A-measurable & A c= dom f holds
  A /\ eq_dom(f,+infty) in S
proof
  let X,S,f,A;
  assume
A1: f is A-measurable & A c= dom f;
  defpred P[Element of NAT,set]means A /\ great_dom(f,$1) = $2;
A2: for n ex y being Element of S st P[n,y]
  proof
    let n;
    reconsider y=A /\ great_dom(f,n) as Element of S by A1,Th29;
    take y;
    thus thesis;
  end;
  consider F being sequence of S such that
A3: for n holds P[n,F.n] from FUNCT_2:sch 3(A2);
 A /\ eq_dom(f,+infty) = meet rng F by A3,Th23;
  hence thesis;
end;
