theorem Th49:
  f is_simple_func_in S iff R_EAL f is_simple_func_in S by MESFUNC2:def 4;
