diff options
author | Jason Gross <jasongross9@gmail.com> | 2016-07-22 15:33:31 -0700 |
---|---|---|
committer | GitHub <noreply@github.com> | 2016-07-22 15:33:31 -0700 |
commit | 2abb4b5ea3440d478540aad852cfe81e65596189 (patch) | |
tree | 3851f94e613e595bc99da6c932ec99e033694fa3 /src/CompleteEdwardsCurve/CompleteEdwardsCurveTheorems.v | |
parent | 29bb3dd531be45ba7960b34ef759b44436e48905 (diff) | |
parent | 4519b114c66b184611068b2cc9bdad644f4a5a47 (diff) |
Merge pull request #37 from JasonGross/fix-intuition
Redesign intuition, speeding up overall compilation by 20%
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 |