for L1, L2 being Element of line_of_REAL 2 st L1 _|_ L2 holds
L1 /\ L2 is being_point by Th33;