aboutsummaryrefslogtreecommitdiffstats
path: root/backend/Stackingproof.v
diff options
context:
space:
mode:
Diffstat (limited to 'backend/Stackingproof.v')
-rw-r--r--backend/Stackingproof.v4
1 files changed, 4 insertions, 0 deletions
diff --git a/backend/Stackingproof.v b/backend/Stackingproof.v
index b885d22c..d3d901b6 100644
--- a/backend/Stackingproof.v
+++ b/backend/Stackingproof.v
@@ -1744,6 +1744,10 @@ Local Opaque fe.
destruct IHeval_builtin_arg2 as (v2 & A2 & B2); auto using in_or_app.
exists (Val.longofwords v1 v2); split; auto with barg.
apply Val.longofwords_inject; auto.
+- destruct IHeval_builtin_arg1 as (v1' & A1 & B1); auto using in_or_app.
+ destruct IHeval_builtin_arg2 as (v2' & A2 & B2); auto using in_or_app.
+ econstructor; split. eauto with barg.
+ destruct Archi.ptr64; auto using Val.add_inject, Val.addl_inject.
Qed.
Lemma transl_builtin_args_correct: