deffunc H1( Element of BoundedLinearOperators X,X, Element of BoundedLinearOperators X,X) -> Element of BoundedLinearOperators X,X = $1 * $2;
consider F being BinOp of (BoundedLinearOperators X,X) such that
A1:
for x, y being Element of BoundedLinearOperators X,X holds F . x,y = H1(x,y)
from BINOP_1:sch 4();
take
F
; for f, g being Element of BoundedLinearOperators X,X holds F . f,g = f * g
let f, g be Element of BoundedLinearOperators X,X; F . f,g = f * g
thus
F . f,g = f * g
by A1; verum