diff options
| author | Anton Trunov | 2020-05-06 22:28:47 +0300 |
|---|---|---|
| committer | Anton Trunov | 2020-05-06 22:28:47 +0300 |
| commit | 2dd59422a4f2ba1d6e75e710b88129751379aa79 (patch) | |
| tree | f549db6184ed515747997532be67125da1625bc9 /theories/Structures | |
| parent | ed0803efd1c8418c54dcde1255db110e1f2e648d (diff) | |
| parent | f0aaf94f61f996808c29e37c827fc5d85761bddb (diff) | |
Merge PR #12008: [stdlib] Add order properties about bool
Reviewed-by: anton-trunov
Reviewed-by: herbelin
Diffstat (limited to 'theories/Structures')
| -rw-r--r-- | theories/Structures/OrdersEx.v | 8 |
1 files changed, 5 insertions, 3 deletions
diff --git a/theories/Structures/OrdersEx.v b/theories/Structures/OrdersEx.v index 0ad79825d2..adffa1ded4 100644 --- a/theories/Structures/OrdersEx.v +++ b/theories/Structures/OrdersEx.v @@ -13,14 +13,15 @@ * Institution: LRI, CNRS UMR 8623 - Université Paris Sud * 91405 Orsay, France *) -Require Import Orders PeanoNat POrderedType BinNat BinInt +Require Import Orders BoolOrder PeanoNat POrderedType BinNat BinInt RelationPairs EqualitiesFacts. (** * Examples of Ordered Type structures. *) -(** Ordered Type for [nat], [Positive], [N], [Z] with the usual order. *) +(** Ordered Type for [bool], [nat], [Positive], [N], [Z] with the usual order. *) +Module Bool_as_OT := BoolOrder.BoolOrd. Module Nat_as_OT := PeanoNat.Nat. Module Positive_as_OT := BinPos.Pos. Module N_as_OT := BinNat.N. @@ -30,8 +31,9 @@ Module Z_as_OT := BinInt.Z. Module OT_as_DT (O:OrderedType) <: DecidableType := O. -(** (Usual) Decidable Type for [nat], [positive], [N], [Z] *) +(** (Usual) Decidable Type for [bool], [nat], [positive], [N], [Z] *) +Module Bool_as_DT <: UsualDecidableType := Bool_as_OT. Module Nat_as_DT <: UsualDecidableType := Nat_as_OT. Module Positive_as_DT <: UsualDecidableType := Positive_as_OT. Module N_as_DT <: UsualDecidableType := N_as_OT. |