[F q] is [Algebra.field]

1 files changed, 9 insertions, 0 deletions

diff --git a/src/ModularArithmetic/PrimeFieldTheorems.v b/src/ModularArithmetic/PrimeFieldTheorems.v
index 70a2c4a87..2021e8514 100644
--- a/src/ModularArithmetic/PrimeFieldTheorems.v
+++ b/src/ModularArithmetic/PrimeFieldTheorems.v
@@ -10,6 +10,7 @@ Require Import Coq.ZArith.BinInt Coq.NArith.BinNat Coq.ZArith.ZArith Coq.ZArith.
 Require Import Coq.Logic.Eqdep_dec.
 Require Import Crypto.Util.NumTheoryUtil Crypto.Util.ZUtil.
 Require Import Crypto.Util.Tactics.
+Require Crypto.Algebra.
 
 Existing Class prime.
 
@@ -51,6 +52,14 @@ Section FieldModuloPre.
   Proof.
     constructor; auto using Fring_theory, Fq_1_neq_0, F_mul_inv_l.
   Qed.
+
+  Global Instance field_modulo : @Algebra.field (F q) Logic.eq (ZToField 0) (ZToField 1) opp add sub mul inv div.
+  Proof.
+    constructor; try solve_proper.
+    - apply commutative_ring_modulo.
+    - split. auto using F_mul_inv_l.
+    - split. auto using Fq_1_neq_0.
+  Qed.
 End FieldModuloPre.
 
 Module Type PrimeModulus.