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 /lib/Lattice.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 'lib/Lattice.v')
| -rw-r--r-- | lib/Lattice.v | 18 |
1 files changed, 9 insertions, 9 deletions
diff --git a/lib/Lattice.v b/lib/Lattice.v index c200fc8d..51a79765 100644 --- a/lib/Lattice.v +++ b/lib/Lattice.v @@ -64,11 +64,11 @@ Set Implicit Arguments. Module LPMap(L: SEMILATTICE_WITH_TOP) <: SEMILATTICE_WITH_TOP. -Inductive t_ : Type := - | Bot_except: PTree.t L.t -> t_ - | Top_except: PTree.t L.t -> t_. +Inductive t' : Type := + | Bot_except: PTree.t L.t -> t' + | Top_except: PTree.t L.t -> t'. -Definition t: Type := t_. +Definition t: Type := t'. Definition get (p: positive) (x: t) : L.t := match x with @@ -611,12 +611,12 @@ End LFSet. Module LFlat(X: EQUALITY_TYPE) <: SEMILATTICE_WITH_TOP. -Inductive t_ : Type := - | Bot: t_ - | Inj: X.t -> t_ - | Top: t_. +Inductive t' : Type := + | Bot: t' + | Inj: X.t -> t' + | Top: t'. -Definition t : Type := t_. +Definition t : Type := t'. Definition eq (x y: t) := (x = y). Definition eq_refl: forall x, eq x x := (@refl_equal t). |