From 3ffda353b0d92ccd0ff3693ad0be81531c3c0537 Mon Sep 17 00:00:00 2001 From: xleroy Date: Wed, 9 Mar 2011 13:35:00 +0000 Subject: 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 --- arm/Op.v | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) (limited to 'arm/Op.v') diff --git a/arm/Op.v b/arm/Op.v index acd1bdb4..0a3504e9 100644 --- a/arm/Op.v +++ b/arm/Op.v @@ -128,6 +128,7 @@ Inductive addressing: Type := Definition eq_shift (x y: shift): {x=y} + {x<>y}. Proof. + revert x y. generalize Int.eq_dec; intro. assert (forall (x y: shift_amount), {x=y}+{x<>y}). destruct x as [x Px]. destruct y as [y Py]. destruct (H x y). @@ -846,7 +847,7 @@ Definition is_shift_amount_aux (n: int) : { Int.ltu n Int.iwordsize = true } + { Int.ltu n Int.iwordsize = false }. Proof. - intro. case (Int.ltu n Int.iwordsize). left; auto. right; auto. + case (Int.ltu n Int.iwordsize). left; auto. right; auto. Defined. Definition is_shift_amount (n: int) : option shift_amount := -- cgit