diff options
| author | letouzey | 2009-11-16 13:46:25 +0000 |
|---|---|---|
| committer | letouzey | 2009-11-16 13:46:25 +0000 |
| commit | 8d7e3dc633eef34e0e806c4290aebf1b5a8d753d (patch) | |
| tree | 523f4e6fa138fd95ad8768cdd29ca429c0ac8e9c /theories/NArith/NOrderedType.v | |
| parent | 68dfbbc355bdcab7f7880bacc4be6fe337afa800 (diff) | |
Taking advantage of the new "Include Self Type" in DecidableType2 and NZAxioms
We can now have a diamond-like approch to extentions of signatures,
instead of a linear-only chains as earlier...
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@12529 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'theories/NArith/NOrderedType.v')
| -rw-r--r-- | theories/NArith/NOrderedType.v | 16 |
1 files changed, 7 insertions, 9 deletions
diff --git a/theories/NArith/NOrderedType.v b/theories/NArith/NOrderedType.v index c47b4b4fe5..08391d33f7 100644 --- a/theories/NArith/NOrderedType.v +++ b/theories/NArith/NOrderedType.v @@ -13,19 +13,17 @@ Local Open Scope N_scope. (** * DecidableType structure for [N] binary natural numbers *) -Module N_as_MiniDT <: MiniDecidableType. +Module N_as_UBE <: UsualBoolEq. Definition t := N. - Definition eq_dec := N_eq_dec. -End N_as_MiniDT. - -Module N_as_DT <: UsualDecidableType. - Include Make_UDT N_as_MiniDT. + Definition eq := @eq N. Definition eqb := Neqb. Definition eqb_eq := Neqb_eq. -End N_as_DT. +End N_as_UBE. + +Module N_as_DT <: UsualDecidableTypeFull := Make_UDTF N_as_UBE. -(** Note that [N_as_DT] can also be seen as a [DecidableType] - and a [DecidableTypeOrig] and a [BooleanEqualityType] *) +(** Note that the last module fulfills by subtyping many other + interfaces, such as [DecidableType] or [EqualityType]. *) |