aboutsummaryrefslogtreecommitdiffstats
path: root/lib/Integers.v
diff options
context:
space:
mode:
authorxleroy <xleroy@fca1b0fc-160b-0410-b1d3-a4f43f01ea2e>2009-11-10 14:58:33 +0000
committerxleroy <xleroy@fca1b0fc-160b-0410-b1d3-a4f43f01ea2e>2009-11-10 14:58:33 +0000
commit8ccc7f2f597aff2c8590c4e62552fb53406ad0f8 (patch)
treea553844ce1b6960ae5240f65593c085be733e3b2 /lib/Integers.v
parent74487f079dd56663f97f9731cea328931857495c (diff)
downloadcompcert-kvx-8ccc7f2f597aff2c8590c4e62552fb53406ad0f8.tar.gz
compcert-kvx-8ccc7f2f597aff2c8590c4e62552fb53406ad0f8.zip
More realistic treatment of jump tables: show the absence of overflow when accessing the table
git-svn-id: https://yquem.inria.fr/compcert/svn/compcert/trunk@1172 fca1b0fc-160b-0410-b1d3-a4f43f01ea2e
Diffstat (limited to 'lib/Integers.v')
-rw-r--r--lib/Integers.v7
1 files changed, 7 insertions, 0 deletions
diff --git a/lib/Integers.v b/lib/Integers.v
index c54b6fe5..625973a0 100644
--- a/lib/Integers.v
+++ b/lib/Integers.v
@@ -871,6 +871,13 @@ Proof.
apply neg_mul_distr_l.
Qed.
+Theorem mul_signed:
+ forall x y, mul x y = repr (signed x * signed y).
+Proof.
+ intros; unfold mul. apply eqm_samerepr.
+ apply eqm_mult; apply eqm_sym; apply eqm_signed_unsigned.
+Qed.
+
(** ** Properties of binary decompositions *)
Lemma Z_shift_add_bin_decomp: