let A be non empty set ; :: thesis: RealFuncZero A <> RealFuncUnit A
set a = the Element of A;
(RealFuncZero A) . the Element of A = 0 by FUNCOP_1:13;
hence RealFuncZero A <> RealFuncUnit A by FUNCOP_1:13; :: thesis: verum