set f = the carrier of X --> (0. Y);
reconsider f = the carrier of X --> (0. Y) as Function of X,Y ;
take f ; :: thesis: ( f is additive & f is homogeneous )

hereby :: according to VECTSP_1:def 19 :: thesis: f is homogeneous

let x, y be VECTOR of X; :: thesis: f . (x + y) = (f . x) + (f . y)
thus f . (x + y) = 0. Y by FUNCOP_1:7
.= (0. Y) + (0. Y)
.= (f . x) + (0. Y) by FUNCOP_1:7
.= (f . x) + (f . y) by FUNCOP_1:7 ; :: thesis: verum

end;

hereby :: according to LOPBAN_1:def 5 :: thesis: verum

let x be VECTOR of X; :: thesis: for r being Real holds f . (r * x) = r * (f . x)
let r be Real; :: thesis: f . (r * x) = r * (f . x)
thus f . (r * x) = 0. Y by FUNCOP_1:7
.= r * (0. Y)
.= r * (f . x) by FUNCOP_1:7 ; :: thesis: verum

end;