aboutsummaryrefslogtreecommitdiff
path: root/src/EdDSARepChange.v
diff options
context:
space:
mode:
authorGravatar Jason Gross <jgross@mit.edu>2016-10-13 13:45:55 -0400
committerGravatar Jason Gross <jgross@mit.edu>2016-10-13 13:46:06 -0400
commit9ae0526d1166ef98b20df621c6aae367d0672af1 (patch)
tree7e62e077486418e770fbea815e212786ae8ef229 /src/EdDSARepChange.v
parent5d1a4189db37607ac9687d9f717f74814f19a041 (diff)
Fix for Coq 8.4
Diffstat (limited to 'src/EdDSARepChange.v')
-rw-r--r--src/EdDSARepChange.v7
1 files changed, 4 insertions, 3 deletions
diff --git a/src/EdDSARepChange.v b/src/EdDSARepChange.v
index 1efa0d689..ec8de3e78 100644
--- a/src/EdDSARepChange.v
+++ b/src/EdDSARepChange.v
@@ -7,6 +7,7 @@ Require Import Coq.omega.Omega.
Require Import Crypto.Util.Notations.
Require Import Crypto.Util.Option Crypto.Util.Logic Crypto.Util.Relations Crypto.Util.WordUtil Util.LetIn Util.NatUtil.
Require Import Crypto.Spec.ModularArithmetic Crypto.ModularArithmetic.PrimeFieldTheorems.
+Import NPeano.
Import Notations.
@@ -170,7 +171,7 @@ Section EdDSA.
(SRepERepMul
(SRepDecModL (H _ (split1 b b sig ++ pk ++ message)))
(ErepOpp _)))) (split1 b b sig))
-
+
false).
subst_evars.
@@ -183,7 +184,7 @@ Section EdDSA.
reflexivity.
Defined.
-
+
Definition verify {mlen} (msg:word mlen) pk sig :=
Eval cbv beta iota delta [proj1_sig verify_using_representation] in
proj1_sig (verify_using_representation msg pk sig).
@@ -254,7 +255,7 @@ Section EdDSA.
Proof.
cbv [sign EdDSA.sign Let_In].
- let H := fresh "H" in
+ let H := fresh "H" in
pose proof (splitSecretPrngCurve_correct sk) as H;
destruct (splitSecretPrngCurve sk);
destruct H as [curveKey_correct prngKey_correct].