fact: Definition elt_g (c : option (K * K)) : option elt := if c is Some (x, y) then match y ^+ 2 =P x ^+ 3 + A * x + B with | ReflectT e => Some (curve_elt e) | ReflectF _ => None end else Some (inf_elt).
imports: HB(structures) mathcomp(all_ssreflect all_algebra ring)