From 798074d960e6be29472a4a5b79a08c68b3a79dc3 Mon Sep 17 00:00:00 2001
From: Robert Sloan <varomodt@gmail.com>
Date: Wed, 22 Jun 2016 16:19:19 -0400
Subject: Replace NPeano -> Nat in src/Spec/EdDSA

---
 src/Assembly/Pseudize.v  | 22 ++++++++++++++++++++++
 src/Assembly/QhasmUtil.v |  1 -
 2 files changed, 22 insertions(+), 1 deletion(-)

(limited to 'src/Assembly')

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.
-- 
cgit v1.2.3