diff options
| author |  Andres Erbsen <andreser@mit.edu> | 2016-07-20 18:33:02 -0400 |
|---|---|---|
| committer | Andres Erbsen <andreser@mit.edu> | 2016-07-20 18:53:43 -0400 |
| commit | d7f30db5fe04b11fa22a3b3b79eb0e63a72cb0f1 (patch) | |
| tree | d815bfbadaf6681593f778667e961be51443a2aa /src/ModularArithmetic/PrimeFieldTheorems.v | |
| parent | a5caf332df39f57bf25829cf5c127aa54fb8d3e4 (diff) | |
compute on [F q]!
Diffstat (limited to 'src/ModularArithmetic/PrimeFieldTheorems.v')
| -rw-r--r-- | src/ModularArithmetic/PrimeFieldTheorems.v | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/ModularArithmetic/PrimeFieldTheorems.v b/src/ModularArithmetic/PrimeFieldTheorems.v index a2f606f30..8d594e8ce 100644 --- a/src/ModularArithmetic/PrimeFieldTheorems.v +++ b/src/ModularArithmetic/PrimeFieldTheorems.v @@ -346,8 +346,8 @@ Section VariousModPrime. Proof. intros. pose proof (euler_criterion_if' a q_odd) as H. - unfold F_eqb in *; simpl in *. - rewrite !Zmod_small, !@FieldToZ_pow_efficient in H by omega; eauto. + unfold F_eqb in H. + rewrite !FieldToZ_ZToField, !@FieldToZ_pow_efficient, !Zmod_small in H by omega; assumption. Qed. Lemma sqrt_solutions : forall x y : F q, y ^ 2 = x ^ 2 -> y = x \/ y = opp x. |