let V, W be non empty right_complementable vector-distributive scalar-distributive scalar-associative scalar-unital add-associative right_zeroed ModuleStr over INT.Ring ; :: thesis: for f being homogeneousFAF FrForm of V,W
for v being Vector of V holds f . (v,(0. W)) = 0. F_Real

let f be homogeneousFAF FrForm of V,W; :: thesis: for v being Vector of V holds f . (v,(0. W)) = 0. F_Real
let v be Vector of V; :: thesis: f . (v,(0. W)) = 0. F_Real
thus f . (v,(0. W)) = f . (v,((0. INT.Ring) * (0. W))) by VECTSP10:1
.= (0. INT.Ring) * (f . (v,(0. W))) by HTh32
.= 0. F_Real ; :: thesis: verum