diff options
| author |  xleroy <xleroy@fca1b0fc-160b-0410-b1d3-a4f43f01ea2e> | 2014-04-12 07:12:05 +0000 |
|---|---|---|
| committer | xleroy <xleroy@fca1b0fc-160b-0410-b1d3-a4f43f01ea2e> | 2014-04-12 07:12:05 +0000 |
| commit | d71c09d94b95fe3ef7658249abb228f0af294572 (patch) | |
| tree | 1b9753b6c4e91bbec7d62d21b2be26112da25b75 | |
| parent | 0b927a1f21a6a0b7c2d8ef99457b2d5c32ca181d (diff) | |
Updated the proofs.
git-svn-id: https://yquem.inria.fr/compcert/svn/compcert/trunk@2454 fca1b0fc-160b-0410-b1d3-a4f43f01ea2e
| -rw-r--r-- | powerpc/SelectOpproof.v | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/powerpc/SelectOpproof.v b/powerpc/SelectOpproof.v index b6412c0..1aa889b 100644 --- a/powerpc/SelectOpproof.v +++ b/powerpc/SelectOpproof.v @@ -490,7 +490,9 @@ Proof. intros; red; intros until x. unfold xorimm. predSpec Int.eq Int.eq_spec n Int.zero. intros. subst. exists x; split; auto. destruct x; simpl; auto. rewrite Int.xor_zero; auto. - clear H. destruct (xorimm_match a); intros; InvEval. + predSpec Int.eq Int.eq_spec n Int.mone. + intros. subst. rewrite <- Val.not_xor. apply eval_notint; auto. + clear H H0. destruct (xorimm_match a); intros; InvEval. TrivialExists. simpl. rewrite Int.xor_commut; auto. subst. rewrite Val.xor_assoc. simpl. rewrite Int.xor_commut. TrivialExists. subst x. TrivialExists. simpl. rewrite Val.not_xor. rewrite Val.xor_assoc. |