Add reference implementation verification scripts

ref-verification/common.saw

@@ -0,0 +1,53 @@
+import "/Users/emertens/Source/ascon/Ascon.cry";
+
+let i8 = llvm_int 8;
+let i64 = llvm_int 64;
+let S_type = llvm_array 5 i64;
+
+let fresh_alloc n t = do {
+    X <- llvm_fresh_var n t;
+    X_ptr <- llvm_alloc t;
+    llvm_points_to X_ptr (llvm_term X);
+    return (X, X_ptr);
+};
+
+let fresh_alloc_readonly n t = do {
+    X <- llvm_fresh_var n t;
+    X_ptr <- llvm_alloc_readonly t;
+    llvm_points_to X_ptr (llvm_term X);
+    return (X, X_ptr);
+};
+
+thm_ROUND <- llvm_verify
+  m "ROUND"
+  []
+  false
+  do {
+    (S, S_ptr) <- fresh_alloc "S" S_type;
+    C <- llvm_fresh_var "C" i8;
+    llvm_execute_func [S_ptr, llvm_term C];
+    llvm_points_to S_ptr (llvm_term {{ round S (zext C) }});
+  }
+  rme;
+
+let mk_P12 = llvm_verify
+  m "P12"
+  [thm_ROUND]
+  false
+  do {
+    (S, S_ptr) <- fresh_alloc "S" S_type;
+    llvm_execute_func [S_ptr];
+    llvm_points_to S_ptr (llvm_term {{ Ascon_p`{12} S }});
+  }
+  (w4_unint_rme ["Ascon::round"]);
+
+let mk_P8 = llvm_verify
+  m "P8"
+  [thm_ROUND]
+  false
+  do {
+    (S, S_ptr) <- fresh_alloc "S" S_type;
+    llvm_execute_func [S_ptr];
+    llvm_points_to S_ptr (llvm_term {{ Ascon_p`{8} S }});
+  }
+  (w4_unint_rme ["Ascon::round"]);