theorem :: MESFUNC6:15
for X being non empty set
for S being SigmaField of X
for f being PartFunc of X,REAL
for A being Element of S st A c= dom f holds
( f is A -measurable iff for r being Real holds A /\ (great_dom (f,r)) in S ) by MESFUNC1:29;