deffunc H1( Element of REAL n, Element of REAL n) -> Element of REAL = Sum (mlt $1,$2);
ex f being Function of [:(REAL n),(REAL n):],REAL st
for x, y being Element of REAL n holds f . x,y = H1(x,y) from BINOP_1:sch 4();
hence ex b1 being Function of [:(REAL n),(REAL n):],REAL st
for x, y being Element of REAL n holds b1 . x,y = Sum (mlt x,y) ; :: thesis: verum