fact: Definition notinC (z : C) := 0 <= (Re z) ^+2 - (l + r) * (Re z) + (Im z) ^+2 + r * l.
imports: mathcomp(all_ssreflect) mathcomp(ssralg poly polydiv polyorder ssrnum zmodp) mathcomp(polyrcf qe_rcf_th complex) poly_normal pol mathcomp(complex)