fact: Definition mkedge_aux (a b : Plane R) : {e : edge | forall h : a.1 < b.1, e = Bedge h}.
imports: mathcomp(all_ssreflect all_algebra all_real_closed reals) mathcomp.algebra_tactics(ring lra) casteljau convex counterclockwise intersection