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}.

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.