diff options
author | Jason Gross <jgross@mit.edu> | 2016-10-13 13:45:55 -0400 |
---|---|---|
committer | Jason Gross <jgross@mit.edu> | 2016-10-13 13:46:06 -0400 |
commit | 9ae0526d1166ef98b20df621c6aae367d0672af1 (patch) | |
tree | 7e62e077486418e770fbea815e212786ae8ef229 /src/EdDSARepChange.v | |
parent | 5d1a4189db37607ac9687d9f717f74814f19a041 (diff) |
Fix for Coq 8.4
Diffstat (limited to 'src/EdDSARepChange.v')
-rw-r--r-- | src/EdDSARepChange.v | 7 |
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]. |