let A be non empty set ; :: thesis: RealPFuncZero A <> RealPFuncUnit A
consider a being Element of A;
(RealPFuncZero A) . a = 0 by FUNCOP_1:13;
hence RealPFuncZero A <> RealPFuncUnit A by FUNCOP_1:13; :: thesis: verum