theorem Th56: :: RUSUB_2:56

for V being RealUnitarySpace holds LattStr(# (Subspaces V),(SubJoin V),(SubMeet V) #) is upper-bounded