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;
