theorem
  RealPFuncZero A <> RealPFuncUnit A
proof
  set a = the Element of A;
  (RealPFuncZero A).a=0 by FUNCOP_1:7;
  hence thesis by FUNCOP_1:7;
end;
