diff options
author | xleroy <xleroy@fca1b0fc-160b-0410-b1d3-a4f43f01ea2e> | 2011-03-09 13:35:00 +0000 |
---|---|---|
committer | xleroy <xleroy@fca1b0fc-160b-0410-b1d3-a4f43f01ea2e> | 2011-03-09 13:35:00 +0000 |
commit | 3ffda353b0d92ccd0ff3693ad0be81531c3c0537 (patch) | |
tree | 9a07da4e83919d763086e379de161fd4cfe8ab02 /backend/CSE.v | |
parent | 06c55ab8fa4c0bf59479faf03d30a51c780da36e (diff) | |
download | compcert-kvx-3ffda353b0d92ccd0ff3693ad0be81531c3c0537.tar.gz compcert-kvx-3ffda353b0d92ccd0ff3693ad0be81531c3c0537.zip |
Updated for Coq 8.3pl1. Some cleanups in test/*/Makefile.
git-svn-id: https://yquem.inria.fr/compcert/svn/compcert/trunk@1597 fca1b0fc-160b-0410-b1d3-a4f43f01ea2e
Diffstat (limited to 'backend/CSE.v')
-rw-r--r-- | backend/CSE.v | 10 |
1 files changed, 1 insertions, 9 deletions
diff --git a/backend/CSE.v b/backend/CSE.v index 4347c334..45b50d6f 100644 --- a/backend/CSE.v +++ b/backend/CSE.v @@ -57,15 +57,7 @@ Definition eq_valnum: forall (x y: valnum), {x=y}+{x<>y} := peq. Definition eq_list_valnum (x y: list valnum) : {x=y}+{x<>y}. Proof. - induction x; intros; case y; intros. - left; auto. - right; congruence. - right; congruence. - case (eq_valnum a v); intros. - case (IHx l); intros. - left; congruence. - right; congruence. - right; congruence. + decide equality. apply eq_valnum. Qed. Definition eq_rhs (x y: rhs) : {x=y}+{x<>y}. |