diff options
| author | David Monniaux <david.monniaux@univ-grenoble-alpes.fr> | 2019-09-20 18:55:20 +0200 |
|---|---|---|
| committer | David Monniaux <david.monniaux@univ-grenoble-alpes.fr> | 2019-09-20 18:55:20 +0200 |
| commit | aa5b5a4e618b6a0aecc227021080aa4b901d806f (patch) | |
| tree | 0cf0c0bd42a05b49951d896cf2b5270aabdb9316 /x86 | |
| parent | a363d6b93df8fbde24c945551cfea5d845b57fc4 (diff) | |
| parent | 24406a351e9d64c2953b0b9fc7ef0b3d79db9b85 (diff) | |
| download | compcert-kvx-aa5b5a4e618b6a0aecc227021080aa4b901d806f.tar.gz compcert-kvx-aa5b5a4e618b6a0aecc227021080aa4b901d806f.zip | |
Merge remote-tracking branch 'origin/mppa-work-upstream-merge' into mppa-workv3.6_mppa_2019-09-20
merge with v3.6
Diffstat (limited to 'x86')
| -rw-r--r-- | x86/SelectOpproof.v | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/x86/SelectOpproof.v b/x86/SelectOpproof.v index 5703c758..af1d4e08 100644 --- a/x86/SelectOpproof.v +++ b/x86/SelectOpproof.v @@ -385,9 +385,9 @@ Proof. - TrivialExists. simpl. rewrite Int.and_commut; auto. - TrivialExists. simpl. rewrite Val.and_assoc. rewrite Int.and_commut. auto. - rewrite Val.zero_ext_and. TrivialExists. rewrite Val.and_assoc. - rewrite Int.and_commut. auto. compute; auto. + rewrite Int.and_commut. auto. omega. - rewrite Val.zero_ext_and. TrivialExists. rewrite Val.and_assoc. - rewrite Int.and_commut. auto. compute; auto. + rewrite Int.and_commut. auto. omega. - TrivialExists. Qed. @@ -747,7 +747,7 @@ Proof. red; intros until x. unfold cast8unsigned. destruct (cast8unsigned_match a); intros; InvEval. TrivialExists. subst. rewrite Val.zero_ext_and. rewrite Val.and_assoc. - rewrite Int.and_commut. apply eval_andimm; auto. compute; auto. + rewrite Int.and_commut. apply eval_andimm; auto. omega. TrivialExists. Qed. @@ -763,7 +763,7 @@ Proof. red; intros until x. unfold cast16unsigned. destruct (cast16unsigned_match a); intros; InvEval. TrivialExists. subst. rewrite Val.zero_ext_and. rewrite Val.and_assoc. - rewrite Int.and_commut. apply eval_andimm; auto. compute; auto. + rewrite Int.and_commut. apply eval_andimm; auto. omega. TrivialExists. Qed. |