proposition: Lemma euclid : euclidP (@Point R) (@bet' R).
proof: Proof. by move=> a b c d p q; move: (all_lines_meet p q c d)=> [y yP]; exists y. Qed.
imports: mathcomp.ssreflect.ssreflect mathcomp(ssrbool ssrfun ssrnat eqtype choice seq) mathcomp(fintype finset finfun bigop order) mathcomp(ssralg ssrnum path generic_quotient matrix mxalgebra) mathcomp(zmodp) GeoCoq.Meta_theory.Models.POF_to_Tarski GeoCoq.Meta_theory.Counter_models.Planar.independence