fact: Definition inC1 := fun (l r : R) (z : C) => (Re z) ^+2 - (l + r) * (Re z) + (Im z) ^+2 - (r - l) * (Im z) / (Num.sqrt 3%:R) + l * r < 0.
imports: mathcomp(all_ssreflect) mathcomp(ssralg poly polydiv polyorder ssrnum zmodp) mathcomp(polyrcf qe_rcf_th complex) poly_normal pol mathcomp(complex)