proposition: Lemma upper_dim : ~(upper_dimP Point (@bet R 3) (@cong R 3)).
proof: Proof. rewrite /upper_dimP => H. assert (HF := H a' b' c' d' e'). apply lower_dim, HF. apply: neq de_neq. apply: neq ab_neq. apply: neq ac_neq. apply: neq bc_neq. apply: cong_adae. apply: cong_bdbe. apply: cong_cdce. 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