let V, X, Y be Z_Module; :: thesis: ( V is Submodule of X & X is Submodule of Y implies V is Submodule of Y )
assume that
A1: V is Submodule of X and
A2: X is Submodule of Y ; :: thesis: V is Submodule of Y
( the carrier of V c= the carrier of X & the carrier of X c= the carrier of Y ) by A1, A2, Def9;
hence the carrier of V c= the carrier of Y ; :: according to ZMODUL01:def 9 :: thesis: ( 0. V = 0. Y & the addF of V = the addF of Y || the carrier of V & the Mult of V = the Mult of Y | [:INT, the carrier of V:] )
0. V = 0. X by A1, Def9;
hence 0. V = 0. Y by A2, Def9; :: thesis: ( the addF of V = the addF of Y || the carrier of V & the Mult of V = the Mult of Y | [:INT, the carrier of V:] )
thus the addF of V = the addF of Y || the carrier of V :: thesis: the Mult of V = the Mult of Y | [:INT, the carrier of V:]

proof

set AY = the addF of Y;
set VX = the carrier of X;
set AX = the addF of X;
set VV = the carrier of V;
set AV = the addF of V;
the carrier of V c= the carrier of X by A1, Def9;
then A3: [: the carrier of V, the carrier of V:] c= [: the carrier of X, the carrier of X:] by ZFMISC_1:96;
the addF of V = the addF of X || the carrier of V by A1, Def9;
then the addF of V = ( the addF of Y || the carrier of X) || the carrier of V by A2, Def9;
hence the addF of V = the addF of Y || the carrier of V by A3, FUNCT_1:51; :: thesis: verum

end;

set MY = the Mult of Y;
set MX = the Mult of X;
set MV = the Mult of V;
set VX = the carrier of X;
set VV = the carrier of V;
the carrier of V c= the carrier of X by A1, Def9;
then A4: [:INT, the carrier of V:] c= [:INT, the carrier of X:] by ZFMISC_1:95;
the Mult of V = the Mult of X | [:INT, the carrier of V:] by A1, Def9;
then the Mult of V = ( the Mult of Y | [:INT, the carrier of X:]) | [:INT, the carrier of V:] by A2, Def9;
hence the Mult of V = the Mult of Y | [:INT, the carrier of V:] by A4, FUNCT_1:51; :: thesis: verum