theorem Th13: :: WAYBEL34:13
for W being with_non-empty_element set
for L being LATTICE holds
( L is Object of (W -INF_category) iff ( L is strict & L is complete & the carrier of L in W ) )