:: deftheorem defSublattice defines Z_Sublattice ZMODLAT1:def 9 :
for L, b2 being Z_Lattice holds
( b2 is Z_Sublattice of L iff ( the carrier of b2 c= the carrier of L & 0. b2 = 0. L & the addF of b2 = the addF of L || the carrier of b2 & the lmult of b2 = the lmult of L | [: the carrier of INT.Ring, the carrier of b2:] & the scalar of b2 = the scalar of L || the carrier of b2 ) );