(* Gabriel Braun April 2013 *)
Require Export GeoCoq.Tarski_dev.Ch12_parallel.
Section L13_1.
Context `{TnEQD:Tarski_neutral_dimensionless_with_decidable_point_equality}.
(** Pappus Desargues *)

Lemma cop4_perp_in2__col : forall A B A' B' X Y P,
Coplanar X Y A A' -> Coplanar X Y A B' ->
Coplanar X Y B A' -> Coplanar X Y B B' ->
Perp_at P A B X Y -> Perp_at P A' B' X Y  -> Col A B A'.