theorem
  f is A-measurable iff for r being Real holds A /\
  less_eq_dom(f,r) in S by MESFUNC1:28;
