diff options
author | David Monniaux <david.monniaux@univ-grenoble-alpes.fr> | 2019-03-19 21:31:20 +0100 |
---|---|---|
committer | David Monniaux <david.monniaux@univ-grenoble-alpes.fr> | 2019-03-19 21:31:20 +0100 |
commit | 9adb576998f3b2017db5c062b459449e1721579a (patch) | |
tree | fd70a6ce92921404c91b7f9f494e219da4ae3945 /mppa_k1c/SelectOpproof.v | |
parent | ae571e2467e977f03044d750568f6528d8d64e43 (diff) | |
download | compcert-kvx-9adb576998f3b2017db5c062b459449e1721579a.tar.gz compcert-kvx-9adb576998f3b2017db5c062b459449e1721579a.zip |
mul immediate
Diffstat (limited to 'mppa_k1c/SelectOpproof.v')
-rw-r--r-- | mppa_k1c/SelectOpproof.v | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/mppa_k1c/SelectOpproof.v b/mppa_k1c/SelectOpproof.v index fe678383..a8889430 100644 --- a/mppa_k1c/SelectOpproof.v +++ b/mppa_k1c/SelectOpproof.v @@ -301,7 +301,7 @@ Proof. generalize (Int.one_bits_decomp n). generalize (Int.one_bits_range n). destruct (Int.one_bits n). - - intros. auto. + - intros. TrivialExists. - destruct l. + intros. rewrite H1. simpl. rewrite Int.add_zero. @@ -319,7 +319,7 @@ Proof. rewrite Val.mul_add_distr_r. repeat rewrite Val.shl_mul. eapply Val.lessdef_trans. 2: eauto. apply Val.add_lessdef; auto. simpl. repeat rewrite H0; auto with coqlib. - intros. auto. + intros. TrivialExists. Qed. Theorem eval_mulimm: |