End Pappus_Pascal.
(** lcos_lcos_col -> lcos2_cop__col per_per_perp -> cop_per2__perp *)
Section Pappus_Pascal_2.
Context `{T2D:Tarski_2D}.
Context `{TE:@Tarski_euclidean Tn TnEQD}.

(* Specifications: *)
Lemma par__perp2 : forall A B C D P, Par A B C D -> Perp2 A B C D P.
Lemma l13_11 : forall A B C A' B' C' O,
~ Col O A A' ->
B <> O -> C <> O ->
Col O A B -> Col O B C ->
B' <> O -> C' <> O ->
Col O A' B' -> Col O B' C' -> Par B C' C B' -> Par C A' A C' ->
Par A B' B A'.
Lemma l13_14 : forall O A B C O' A' B' C',
Par_strict O A O' A' -> Col O A B -> Col O B C -> Col O A C ->
Col O' A' B' -> Col O' B' C' -> Col O' A' C' ->
Par A C' A' C -> Par B C' B' C -> Par A B' A' B.