theorem
  A c= dom f implies (f is A-measurable iff for r being Real
  holds A /\ great_dom(f,r) in S ) by MESFUNC1:29;
