Axiom
constructed_orthogonal :
forall (l : Line) (a : Point), {l' : Line | Ort l' l /\ Incident a l'}.
Definition ort : Line -> Point -> Line.

Theorem thm8_8 :
forall (l : Line) (a b : Point),
Incident b (ort l a) -> EqLn (ort l a) (ort l b).