reserve a,b,r for Real;
reserve A,B for non empty set;
reserve f,g,h for Element of PFuncs(A,REAL);

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;
