theorem Th48: :: RMOD_3:48

for R being Ring
for V being RightMod of R holds LattStr(# (Submodules V),(SubJoin V),(SubMeet V) #) is 0_Lattice