:: deftheorem defriV defines EMbedding ZMODUL08:def 6 :
for V being torsion-free Z_Module
for r being Element of F_Rat
for b3 being strict Z_Module holds
( b3 = EMbedding (r,V) iff ( the carrier of b3 = r * (rng (MorphsZQ V)) & the ZeroF of b3 = zeroCoset V & the addF of b3 = (addCoset V) || (r * (rng (MorphsZQ V))) & the lmult of b3 = (lmultCoset V) | [: the carrier of INT.Ring,(r * (rng (MorphsZQ V))):] ) );