theorem Th12:
  f is A-measurable iff for r being Real holds A /\
  less_dom(f,r) in S by MESFUNC1:def 16;
