let X, Y, Z be RealLinearSpace; :: thesis: for f, h being VECTOR of ()
for a being Real holds
( h = a * f iff for x being VECTOR of X
for y being VECTOR of Y holds h . (x,y) = a * (f . (x,y)) )

let f, h be VECTOR of (); :: thesis: for a being Real holds
( h = a * f iff for x being VECTOR of X
for y being VECTOR of Y holds h . (x,y) = a * (f . (x,y)) )

reconsider f9 = f, h9 = h as BilinearOperator of X,Y,Z by Def6;
let a be Real; :: thesis: ( h = a * f iff for x being VECTOR of X
for y being VECTOR of Y holds h . (x,y) = a * (f . (x,y)) )

A1: R_VectorSpace_of_BilinearOperators (X,Y,Z) is Subspace of RealVectSpace ( the carrier of [:X,Y:],Z) by RSSPACE:11;
then reconsider f1 = f as VECTOR of (RealVectSpace ( the carrier of [:X,Y:],Z)) by RLSUB_1:10;
reconsider h1 = h as VECTOR of (RealVectSpace ( the carrier of [:X,Y:],Z)) by ;
A2: now :: thesis: ( h = a * f implies for x being Element of X
for y being Element of Y holds h9 . (x,y) = a * (f9 . (x,y)) )
assume A3: h = a * f ; :: thesis: for x being Element of X
for y being Element of Y holds h9 . (x,y) = a * (f9 . (x,y))

let x be Element of X; :: thesis: for y being Element of Y holds h9 . (x,y) = a * (f9 . (x,y))
let y be Element of Y; :: thesis: h9 . (x,y) = a * (f9 . (x,y))
A4: h1 = a * f1 by ;
[x,y] is Element of [:X,Y:] ;
hence h9 . (x,y) = a * (f9 . (x,y)) by ; :: thesis: verum
end;
now :: thesis: ( ( for x being Element of X
for y being Element of Y holds h9 . (x,y) = a * (f9 . (x,y)) ) implies h = a * f )
assume A5: for x being Element of X
for y being Element of Y holds h9 . (x,y) = a * (f9 . (x,y)) ; :: thesis: h = a * f
for z being Element of [:X,Y:] holds h9 . z = a * (f9 . z)
proof
let z be Element of [:X,Y:]; :: thesis: h9 . z = a * (f9 . z)
consider x being Point of X, y being Point of Y such that
A6: z = [x,y] by PRVECT_3:9;
thus h9 . z = h9 . (x,y) by A6
.= a * (f9 . (x,y)) by A5
.= a * (f9 . z) by A6 ; :: thesis: verum
end;
then h1 = a * f1 by LOPBAN_1:2;
hence h = a * f by ; :: thesis: verum
end;
hence ( h = a * f iff for x being VECTOR of X
for y being VECTOR of Y holds h . (x,y) = a * (f . (x,y)) ) by A2; :: thesis: verum