diff options
author | Robert Sloan <varomodt@gmail.com> | 2016-06-22 16:19:19 -0400 |
---|---|---|
committer | Robert Sloan <varomodt@gmail.com> | 2016-06-22 16:19:19 -0400 |
commit | 798074d960e6be29472a4a5b79a08c68b3a79dc3 (patch) | |
tree | 6dff1c7e450d13aec531f238531368dab80cc05f /src/Assembly | |
parent | 2f44fe53e1a598b524e11cda3dc9ce7a04534247 (diff) |
Replace NPeano -> Nat in src/Spec/EdDSA
Diffstat (limited to 'src/Assembly')
-rw-r--r-- | src/Assembly/Pseudize.v | 22 | ||||
-rw-r--r-- | src/Assembly/QhasmUtil.v | 1 |
2 files changed, 22 insertions, 1 deletions
diff --git a/src/Assembly/Pseudize.v b/src/Assembly/Pseudize.v index af311963d..3a66484ee 100644 --- a/src/Assembly/Pseudize.v +++ b/src/Assembly/Pseudize.v @@ -162,6 +162,28 @@ Module Conversion. rewrite H0; autounfold; simpl; intuition. Qed. + Lemma pseudo_let_var: + forall {w s n k m} (p0: @Pseudo w s n k) (p1: @Pseudo w s (n + k) m) + input out0 out1 m0 m1 m2 c0 c1 c2, + pseudoEval p0 (input, m0, c0) = Some ([a], m1, c1) + -> pseudoEval p1 (input ++ [a], m1, c1) = Some (f (nth n (input ++ [a]) (wzero _)), m2, c2) + -> pseudoEval (@PLet w s n k m p0 p1) (input, m0, c0) = + Some (let x := a in f a, m2, c2). + Proof. + intros; cbv beta; simpl in *; apply pseudo_let. + Qed. + + Lemma pseudo_let_list: + forall {w s n k m} (p0: @Pseudo w s n k) (p1: @Pseudo w s (n + k) m) + input out0 out1 m0 m1 m2 c0 c1 c2, + pseudoEval p0 (input, m0, c0) = Some (lst, m1, c1) + -> pseudoEval p1 (input ++ lst, m1, c1) = Some (f lst, m2, c2) + -> pseudoEval (@PLet w s n k m p0 p1) (input, m0, c0) = + Some (let x := lst in f a, m2, c2). + Proof. + intros; cbv beta; simpl in *; apply pseudo_let. + Qed. + Definition pseudeq {w s} (n m: nat) (f: list (word w) -> list (word w)) : Type := {p: @Pseudo w s n m | forall x: (list (word w)), List.length x = n -> exists m' c', diff --git a/src/Assembly/QhasmUtil.v b/src/Assembly/QhasmUtil.v index 078cf7780..f49d48573 100644 --- a/src/Assembly/QhasmUtil.v +++ b/src/Assembly/QhasmUtil.v @@ -1,4 +1,3 @@ - Require Import ZArith NArith NPeano. Require Import QhasmCommon. Require Export Bedrock.Word. |