fact: Record ell_theory: Prop := mk_ell_theory { Kfth : field_theory kO kI kplus kmul ksub kopp kdiv kinv (@eq K); NonSingular: 4 * A * A * A + 27 * B * B <> 0; one_not_zero: 1 <> 0; two_not_zero: 2 <> 0; is_zero_correct: forall k, is_zero k = true <-> k = 0 }.
imports: Arith_base Field_tac Ring Eqdep_dec FGroup List UList ZArith