 reserve a,b,r for Complex;
 reserve V for ComplexLinearSpace;
reserve A,B for non empty set;
reserve f,g,h for Element of PFuncs(A,COMPLEX);

theorem
  CPFuncZero A <> CPFuncUnit A
proof
  (CPFuncUnit A).the Element of A = 1 by COMPLEX1:def 4,FUNCOP_1:7;
  hence thesis by FUNCOP_1:7;
end;
