aboutsummaryrefslogtreecommitdiff
path: root/mathcomp/algebra/interval.v
diff options
context:
space:
mode:
authorCyril Cohen2018-07-19 11:56:59 +0100
committerGitHub2018-07-19 11:56:59 +0100
commitcd396d5e5de0ed51278df38961d4a455085fd53b (patch)
treee5e5f5ff58fd3b3c07afd49388afcab5cbbe165b /mathcomp/algebra/interval.v
parentb8be28130d6a2a057858e3978c75ee0796630dce (diff)
parent10171942883948c8144ec076ef48eb73f8e49cdd (diff)
Merge pull request #204 from pi8027/replace-coinductive-with-variant
Replace all the CoInductives with Variants
Diffstat (limited to 'mathcomp/algebra/interval.v')
-rw-r--r--mathcomp/algebra/interval.v4
1 files changed, 2 insertions, 2 deletions
diff --git a/mathcomp/algebra/interval.v b/mathcomp/algebra/interval.v
index b699da1..80f1b5d 100644
--- a/mathcomp/algebra/interval.v
+++ b/mathcomp/algebra/interval.v
@@ -48,10 +48,10 @@ Local Notation mid x y := ((x + y) / 2%:R).
Section IntervalPo.
-CoInductive itv_bound (T : Type) : Type := BOpen_if of bool & T | BInfty.
+Variant itv_bound (T : Type) : Type := BOpen_if of bool & T | BInfty.
Notation BOpen := (BOpen_if true).
Notation BClose := (BOpen_if false).
-CoInductive interval (T : Type) := Interval of itv_bound T & itv_bound T.
+Variant interval (T : Type) := Interval of itv_bound T & itv_bound T.
Variable (R : numDomainType).