(* Gabriel Braun April 2013 *)
Require Export GeoCoq.Tarski_dev.Ch13_5_Pappus_Pascal.
Section Desargues_Hessenberg.
Context `{T2D:Tarski_2D}.
Context `{TE:@Tarski_euclidean Tn TnEQD}.

Lemma l13_18_3 : forall A B C A' B' C', ~Col A B C
-> Par_strict A B A' B'
-> Par_strict A C A' C'
-> (Par_strict B C B' C' /\ Par A A' B B')
-> (Par C C' A A' /\ Par C C' B B').