Fix inferProg for unsafe accesses

CakeML · Jan 8, 2020 · b096fa9 · b096fa9
1 parent 923e155
commit b096fa9
Showing 1 changed file with 12 additions and 4 deletions.
diff --git a/compiler/bootstrap/translation/inferProgScript.sml b/compiler/bootstrap/translation/inferProgScript.sml
@@ -307,7 +307,7 @@ val pr_CASE = Q.prove(
   SRW_TAC [] []);
 
 val op_apply = Q.prove(
-  `!op. (ast$op_CASE op x1 x2 x3 x4 x5 x6 x7 x8 x9 x10 x11 x12 x13 x14 x15 x16 x17 x18 x19 x20 x21 x22 x23 x24 x25 x26 x27 x28 x29 x30 x31 x32 x33 x34 x35 x36 x37 x38 x39 x40 x41 x42) y =
+  `!op. (ast$op_CASE op x1 x2 x3 x4 x5 x6 x7 x8 x9 x10 x11 x12 x13 x14 x15 x16 x17 x18 x19 x20 x21 x22 x23 x24 x25 x26 x27 x28 x29 x30 x31 x32 x33 x34 x35 x36 x37 x38 x39 x40 x41 x42 x43 x44 x45 x46) y =
          (ast$op_CASE op
             (* Opn 1 *)
             (\z. x1 z y)
@@ -387,12 +387,20 @@ val op_apply = Q.prove(
             (x38 y)
             (* Aupdate *)
             (x39 y)
-            (* ListAppend *)
+            (* Asub_unsafe *)
             (x40 y)
-            (* ConfigGC *)
+            (* Aupdate_unsafe *)
             (x41 y)
+            (* Aw8sub_unsafe *)
+            (x42 y)
+            (* Aw8update_unsafe *)
+            (x43 y)
+            (* ListAppend *)
+            (x44 y)
+            (* ConfigGC *)
+            (x45 y)
             (* FFI *)
-            (\z. x42 z y))`,
+            (\z. x46 z y))`,
   Cases THEN SRW_TAC [] []);
 
 val list_apply = Q.prove(