fact: Definition vert_edge_eqb (v1 v2 : vert_edge) := let: Build_vert_edge v1x v1t v1b := v1 in let: Build_vert_edge v2x v2t v2b := v2 in (v1x == v2x) && (v1t == v2t) && (v1b == v2b).
imports: mathcomp(all_ssreflect all_algebra all_real_closed reals) mathcomp.algebra_tactics(ring lra) casteljau convex counterclockwise intersection