fact: Record cell := { left_pts : seq (Plane R); right_pts : seq (Plane R); low : edge; high : edge}.
imports: mathcomp(all_ssreflect all_algebra all_real_closed reals) mathcomp.algebra_tactics(ring lra) casteljau convex counterclockwise intersection