(*********************************************************)
(*      Distributivity                                   *)
(*********************************************************)
Axiom
Fmult_Fplus_distr : forall r1 r2 r3 : F, r1 * (r2 + r3) = r1 * r2 + r1 * r3.
Hint Resolve Fmult_Fplus_distr: field_hints.

(* Specifications: *)
Lemma Fmult_Fplus_distr_r : forall r2 r3 r1 : F, (r2 + r3) * r1 = r2 * r1 + r3 * r1.
(*********************************************************)
(*      Instanciation of the new ring tactic             *)
(*********************************************************)
Lemma FRth : ring_theory 0 1 Fplus Fmult Fminus Fopp (@eq F).
Lemma Fth : field_theory 0 1 Fplus Fmult Fminus Fopp Fdiv Finv (@eq F).
Add Field Ff : Fth.