theorem Th53:
  for r being Element of F_Real holds Eval(<%r%>) = REAL --> r
  proof
    let r be Element of F;
    Eval(<%r%>) = REAL --> In(r,REAL)
    proof
      let a be Element of REAL;
      thus (Eval(<%r%>)).a = eval(<%r%>,In(a,F)) by POLYNOM5:def 13
      .= r by POLYNOM5:37
      .= (REAL --> In(r,REAL)).a;
    end;
    hence thesis;
  end;
