diff options
| author |  letouzey <letouzey@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2009-11-16 13:46:25 +0000 |
|---|---|---|
| committer | letouzey <letouzey@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2009-11-16 13:46:25 +0000 |
| commit | 8d7e3dc633eef34e0e806c4290aebf1b5a8d753d (patch) | |
| tree | 523f4e6fa138fd95ad8768cdd29ca429c0ac8e9c /theories/Reals | |
| 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/Reals')
| -rw-r--r-- | theories/Reals/ROrderedType.v | 17 |
1 files changed, 10 insertions, 7 deletions
diff --git a/theories/Reals/ROrderedType.v b/theories/Reals/ROrderedType.v index ec229abd9..4ef8d7bcc 100644 --- a/theories/Reals/ROrderedType.v +++ b/theories/Reals/ROrderedType.v @@ -25,16 +25,19 @@ Proof. split; try discriminate. intro EQ; elim NEQ; auto. Qed. -Module R_as_MiniDT <: MiniDecidableType. +Module R_as_UBE <: UsualBoolEq. Definition t := R. - Definition eq_dec := Req_dec. -End R_as_MiniDT. - -Module R_as_DT <: UsualDecidableType. - Include Make_UDT R_as_MiniDT. + Definition eq := @eq R. Definition eqb := Reqb. Definition eqb_eq := Reqb_eq. -End R_as_DT. +End R_as_UBE. + +Module R_as_DT <: UsualDecidableTypeFull := Make_UDTF R_as_UBE. + +(** Note that the last module fulfills by subtyping many other + interfaces, such as [DecidableType] or [EqualityType]. *) + + (** Note that [R_as_DT] can also be seen as a [DecidableType] and a [DecidableTypeOrig]. *) |