diff options
Diffstat (limited to 'cfrontend/Cshmgenproof2.v')
-rw-r--r-- | cfrontend/Cshmgenproof2.v | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/cfrontend/Cshmgenproof2.v b/cfrontend/Cshmgenproof2.v index 2491e52..98d057a 100644 --- a/cfrontend/Cshmgenproof2.v +++ b/cfrontend/Cshmgenproof2.v @@ -206,6 +206,10 @@ Proof. eapply eval_Ebinop. eauto. eapply eval_Ebinop. eauto with cshm. eauto. simpl. reflexivity. reflexivity. + inversion H7. + eapply eval_Ebinop. eauto. + eapply eval_Ebinop. eauto with cshm. eauto. + simpl. reflexivity. simpl. reflexivity. Qed. Lemma make_sub_correct: binary_constructor_correct make_sub sem_sub. @@ -369,7 +373,7 @@ Proof. (* cast_int_int *) destruct sz2; destruct si2; repeat econstructor; eauto with cshm. (* cast_float_int *) - destruct sz2; destruct si2; repeat econstructor; eauto with cshm; simpl; auto. + destruct sz2; destruct si2; unfold make_intoffloat; repeat econstructor; eauto with cshm; simpl; auto. (* cast_int_float *) destruct sz2; destruct si1; unfold make_floatofint; repeat econstructor; eauto with cshm; simpl; auto. (* cast_float_float *) |