diff options
| author |  jadep <jade.philipoom@gmail.com> | 2016-07-25 21:06:20 -0400 |
|---|---|---|
| committer | jadep <jade.philipoom@gmail.com> | 2016-07-25 21:06:20 -0400 |
| commit | 4c73b7273c5fae67154ad9dd8bd3a719e4fbcf5f (patch) | |
| tree | f2e60ad282447023ff59330e77ee588657e77e97 /src/CompleteEdwardsCurve/CompleteEdwardsCurveTheorems.v | |
| parent | 39a6c95de8a900c859726d875cc40ea96298d31b (diff) | |
| parent | b9312acc45407a58d07e19e407e9575d427dd6c3 (diff) | |
Merge branch 'master' of github.com:mit-plv/fiat-crypto
Diffstat (limited to 'src/CompleteEdwardsCurve/CompleteEdwardsCurveTheorems.v')
| -rw-r--r-- | src/CompleteEdwardsCurve/CompleteEdwardsCurveTheorems.v | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/src/CompleteEdwardsCurve/CompleteEdwardsCurveTheorems.v b/src/CompleteEdwardsCurve/CompleteEdwardsCurveTheorems.v index 1d8b730cb..dbfdb023e 100644 --- a/src/CompleteEdwardsCurve/CompleteEdwardsCurveTheorems.v +++ b/src/CompleteEdwardsCurve/CompleteEdwardsCurveTheorems.v @@ -5,8 +5,9 @@ Require Import Crypto.CompleteEdwardsCurve.Pre. Require Import Coq.Logic.Eqdep_dec. Require Import Crypto.Tactics.VerdiTactics. Require Import Coq.Classes.Morphisms. -Require Import Relation_Definitions. +Require Import Coq.Relations.Relation_Definitions. Require Import Crypto.Util.Tuple Crypto.Util.Notations Crypto.Util.Tactics. +Require Export Crypto.Util.FixCoqMistakes. Module E. Import Group ScalarMult Ring Field CompleteEdwardsCurve.E. @@ -57,7 +58,7 @@ Module E. apply H; try common_denominator; [rewrite <-Hx; ring | ..]. - + Ltac bash_step := let addCompletePlus := constr:(edwardsAddCompletePlus(char_gt_2:=char_gt_2)(d_nonsquare:=nonsquare_d)(a_square:=square_a)(a_nonzero:=nonzero_a)) in let addCompleteMinus := constr:(edwardsAddCompleteMinus(char_gt_2:=char_gt_2)(d_nonsquare:=nonsquare_d)(a_square:=square_a)(a_nonzero:=nonzero_a)) in |