theorem Th9: :: AFPROJ:9

for AS being AffinSpace
for X being Subset of AS st X is being_line holds
for x being set holds
( x in LDir X iff ex Y being Subset of AS st
( x = Y & Y is being_line & X '||' Y ) )