diff options
author | xleroy <xleroy@fca1b0fc-160b-0410-b1d3-a4f43f01ea2e> | 2009-06-05 13:39:59 +0000 |
---|---|---|
committer | xleroy <xleroy@fca1b0fc-160b-0410-b1d3-a4f43f01ea2e> | 2009-06-05 13:39:59 +0000 |
commit | 615fb53c13f2407a0b6b470bbdf8e468fc4a1d78 (patch) | |
tree | ec5f45b6546e19519f59b1ee0f42955616ca1b98 /lib/Integers.v | |
parent | d1cdc0496d7d52e3ab91554dbf53fcc0e7f244eb (diff) | |
download | compcert-kvx-615fb53c13f2407a0b6b470bbdf8e468fc4a1d78.tar.gz compcert-kvx-615fb53c13f2407a0b6b470bbdf8e468fc4a1d78.zip |
Adapted to work with Coq 8.2-1v1.4.1
git-svn-id: https://yquem.inria.fr/compcert/svn/compcert/trunk@1076 fca1b0fc-160b-0410-b1d3-a4f43f01ea2e
Diffstat (limited to 'lib/Integers.v')
-rw-r--r-- | lib/Integers.v | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/lib/Integers.v b/lib/Integers.v index ceda8512..1eb59c5c 100644 --- a/lib/Integers.v +++ b/lib/Integers.v @@ -23,7 +23,7 @@ Definition half_modulus : Z := modulus / 2. (** * Comparisons *) -Inductive comparison : Set := +Inductive comparison : Type := | Ceq : comparison (**r same *) | Cne : comparison (**r different *) | Clt : comparison (**r less than *) @@ -57,7 +57,7 @@ Definition swap_comparison (c: comparison): comparison := integer (type [Z]) plus a proof that it is in the range 0 (included) to [modulus] (excluded. *) -Record int: Set := mkint { intval: Z; intrange: 0 <= intval < modulus }. +Record int: Type := mkint { intval: Z; intrange: 0 <= intval < modulus }. Module Int. @@ -289,7 +289,7 @@ Definition is_power2 (x: int) : option int := >> *) -Inductive rlw_state: Set := +Inductive rlw_state: Type := | RLW_S0 : rlw_state | RLW_S1 : rlw_state | RLW_S2 : rlw_state |