diff options
Diffstat (limited to 'x86/SelectOpproof.v')
| -rw-r--r-- | x86/SelectOpproof.v | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/x86/SelectOpproof.v b/x86/SelectOpproof.v index 908d6e4a..f7f043eb 100644 --- a/x86/SelectOpproof.v +++ b/x86/SelectOpproof.v @@ -811,7 +811,8 @@ Theorem eval_intoffloat: Val.intoffloat x = Some y -> exists v, eval_expr ge sp e m le (intoffloat a) v /\ Val.lessdef y v. Proof. - intros; unfold intoffloat. TrivialExists. + intros; unfold intoffloat. exists y; split; auto. + EvalOp. simpl; rewrite H0; auto. Qed. Theorem eval_floatofint: @@ -909,7 +910,8 @@ Theorem eval_intofsingle: Val.intofsingle x = Some y -> exists v, eval_expr ge sp e m le (intofsingle a) v /\ Val.lessdef y v. Proof. - intros; unfold intofsingle. TrivialExists. + intros; unfold intoffloat. exists y; split; auto. + EvalOp. simpl; rewrite H0; auto. Qed. Theorem eval_singleofint: |