diff options
Diffstat (limited to 'cfrontend/Cshmgenproof1.v')
-rw-r--r-- | cfrontend/Cshmgenproof1.v | 4 |
1 files changed, 1 insertions, 3 deletions
diff --git a/cfrontend/Cshmgenproof1.v b/cfrontend/Cshmgenproof1.v index 87cdb21d..2c010cb4 100644 --- a/cfrontend/Cshmgenproof1.v +++ b/cfrontend/Cshmgenproof1.v @@ -197,9 +197,7 @@ Proof. intros. inversion H; subst; clear H; simpl in H0. left; exists id; auto. left; exists id; auto. - monadInv H0. right. exists x; split; auto. - simpl. monadInv H0. right. exists x1; split; auto. - simpl. rewrite EQ; rewrite EQ1. simpl. auto. + monadInv H0. right. exists x; split; auto. rewrite H4 in H0. monadInv H0. right. exists (Ebinop Oadd x (make_intconst (Int.repr x0))). split; auto. simpl. rewrite H4. rewrite EQ. rewrite EQ1. auto. |