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) by RLVECT_1:4
.= (f . x) + (0. Y) by FUNCOP_1:7
.= (f . x) + (f . y) by FUNCOP_1:7 ; :: thesis: verum

end;

hereby :: according to CLOPBAN1:def 3 :: thesis: verum

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

end;