diff options
author | xleroy <xleroy@fca1b0fc-160b-0410-b1d3-a4f43f01ea2e> | 2012-05-18 16:25:17 +0000 |
---|---|---|
committer | xleroy <xleroy@fca1b0fc-160b-0410-b1d3-a4f43f01ea2e> | 2012-05-18 16:25:17 +0000 |
commit | 219a2d178dcd5cc625f6b6261759f392cfca367b (patch) | |
tree | 9f291936f23bdb6ee1a3c6bf996668235909ed98 /powerpc/SelectOpproof.v | |
parent | e521f0bc060ead051102e4d68b98bb40ecc802b3 (diff) | |
download | compcert-219a2d178dcd5cc625f6b6261759f392cfca367b.tar.gz compcert-219a2d178dcd5cc625f6b6261759f392cfca367b.zip |
Hack with nxor
git-svn-id: https://yquem.inria.fr/compcert/svn/compcert/trunk@1898 fca1b0fc-160b-0410-b1d3-a4f43f01ea2e
Diffstat (limited to 'powerpc/SelectOpproof.v')
-rw-r--r-- | powerpc/SelectOpproof.v | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/powerpc/SelectOpproof.v b/powerpc/SelectOpproof.v index 27a0fd01..b42503f8 100644 --- a/powerpc/SelectOpproof.v +++ b/powerpc/SelectOpproof.v @@ -490,6 +490,9 @@ Proof. red; intros until y; unfold xor; case (xor_match a b); intros; InvEval. rewrite Val.xor_commut. apply eval_xorimm; auto. apply eval_xorimm; auto. + subst x. rewrite Val.xor_commut. rewrite Val.not_xor. rewrite <- Val.xor_assoc. + rewrite <- Val.not_xor. rewrite Val.xor_commut. TrivialExists. + subst y. rewrite Val.not_xor. rewrite <- Val.xor_assoc. rewrite <- Val.not_xor. TrivialExists. TrivialExists. Qed. |