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 par__perp2 : forall A B C D P, Par A B C D -> Perp2 A B C D P.