let f be Functional of V; :: thesis: ( f is homogeneous implies f is 0-preserving )
assume A1: f is homogeneous ; :: thesis: f is 0-preserving
thus f . (0. V) = f . ((0. INT.Ring) * (0. V)) by VS10Th1
.= (0. INT.Ring) * (f . (0. V)) by A1
.= 0. INT.Ring ; :: according to HAHNBAN1:def 9 :: thesis: verum