let it1, it2 be BinOp of (PFuncs A,REAL ); :: thesis: ( ( for f, g being Element of PFuncs A,REAL holds it1 . f,g = f (#) g ) & ( for f, g being Element of PFuncs A,REAL holds it2 . f,g = f (#) g ) implies it1 = it2 )
assume that
A2: for f, g being Element of PFuncs A,REAL holds it1 . f,g = f (#) g and
A3: for f, g being Element of PFuncs A,REAL holds it2 . f,g = f (#) g ; :: thesis: it1 = it2

now

let f, g be Element of PFuncs A,REAL ; :: thesis: it1 . f,g = it2 . f,g
thus it1 . f,g = f (#) g by A2
.= it2 . f,g by A3 ; :: thesis: verum

end;

hence it1 = it2 by BINOP_1:2; :: thesis: verum