fact: Definition seq_to_intervals [A : Type] (s : seq A) := match s with nil => nil | a :: tl => seq_to_intervals_aux a tl end.
imports: mathcomp(all_ssreflect all_algebra all_real_closed reals) mathcomp.algebra_tactics(ring lra) casteljau convex counterclockwise intersection