deffunc H1( Element of PFuncs (D,REAL), Element of PFuncs (D,REAL)) -> Element of PFuncs (D,REAL) = $1 + $2;
ex o being BinOp of (PFuncs (D,REAL)) st
for a, b being Element of PFuncs (D,REAL) holds o . (a,b) = H1(a,b)
from BINOP_1:sch 4();
hence
ex b1 being BinOp of (PFuncs (D,REAL)) st
for F1, F2 being Element of PFuncs (D,REAL) holds b1 . (F1,F2) = F1 + F2
; verum