diff options
author | xleroy <xleroy@fca1b0fc-160b-0410-b1d3-a4f43f01ea2e> | 2013-02-10 10:08:27 +0000 |
---|---|---|
committer | xleroy <xleroy@fca1b0fc-160b-0410-b1d3-a4f43f01ea2e> | 2013-02-10 10:08:27 +0000 |
commit | 6f3225b0623b9c97eed7d40ddc320b08c79c6518 (patch) | |
tree | be4ea0d5624499c40f82d3c2f86c0fba7ead6aef /cfrontend/SimplLocalsproof.v | |
parent | 77d3c45aa0928420a083a8d25ec52d5f7f3e6c77 (diff) | |
download | compcert-6f3225b0623b9c97eed7d40ddc320b08c79c6518.tar.gz compcert-6f3225b0623b9c97eed7d40ddc320b08c79c6518.zip |
lib/Integers.v: revised and extended, faster implementation based on
bit-level operations provided by ZArith in Coq 8.4.
Other modules: adapted accordingly.
git-svn-id: https://yquem.inria.fr/compcert/svn/compcert/trunk@2110 fca1b0fc-160b-0410-b1d3-a4f43f01ea2e
Diffstat (limited to 'cfrontend/SimplLocalsproof.v')
-rw-r--r-- | cfrontend/SimplLocalsproof.v | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/cfrontend/SimplLocalsproof.v b/cfrontend/SimplLocalsproof.v index 8df7b6ea..c496a5e8 100644 --- a/cfrontend/SimplLocalsproof.v +++ b/cfrontend/SimplLocalsproof.v @@ -219,8 +219,8 @@ Remark cast_int_int_idem: forall sz sg i, cast_int_int sz sg (cast_int_int sz sg i) = cast_int_int sz sg i. Proof. intros. destruct sz; simpl; auto. - destruct sg; [apply Int.sign_ext_idem|apply Int.zero_ext_idem]; compute; auto. - destruct sg; [apply Int.sign_ext_idem|apply Int.zero_ext_idem]; compute; auto. + destruct sg; [apply Int.sign_ext_idem|apply Int.zero_ext_idem]; compute; intuition congruence. + destruct sg; [apply Int.sign_ext_idem|apply Int.zero_ext_idem]; compute; intuition congruence. destruct (Int.eq i Int.zero); auto. Qed. @@ -288,7 +288,7 @@ Proof. destruct si; inversion H0; clear H0; subst chunk; simpl in *; congruence. clear H1. inv H0. auto. inversion H0; clear H0; subst chunk. simpl in *. - destruct (Int.eq n Int.zero); subst n; auto. + destruct (Int.eq n Int.zero); subst n; reflexivity. destruct sz; inversion H0; clear H0; subst chunk; simpl in *; congruence. inv H0; auto. inv H0; auto. |