theorem Th54:
  p is constant implies Eval(p)`| = REAL --> 0
  proof
    assume p is constant;
    then p = 0_.F or p = <%p.0%> by Th23;
    hence thesis by Th52,Lm2,Th11;
  end;
