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