diff options
| author | Pierre-Marie Pédrot | 2019-06-25 13:47:01 +0200 |
|---|---|---|
| committer | Pierre-Marie Pédrot | 2019-06-25 13:47:01 +0200 |
| commit | 0c29a6dc3962cf3e6073d9e72a07bf5c279ba0f0 (patch) | |
| tree | 51e864399dc3fd4e2d4c38028b376957e08b9ea1 /pretyping | |
| parent | ce28b847059eed1250a673fc7f2ffee756036f54 (diff) | |
| parent | 4541d28ba3c50bc8e45c4ccf418bbdd225454dec (diff) | |
Merge PR #10284: Expose set interface to option tables
Ack-by: SkySkimmer
Reviewed-by: ejgallego
Reviewed-by: ppedrot
Diffstat (limited to 'pretyping')
| -rw-r--r-- | pretyping/classops.ml | 2 | ||||
| -rw-r--r-- | pretyping/detyping.ml | 2 | ||||
| -rw-r--r-- | pretyping/detyping.mli | 2 |
3 files changed, 3 insertions, 3 deletions
diff --git a/pretyping/classops.ml b/pretyping/classops.ml index edad06777e..f5fffc4c1c 100644 --- a/pretyping/classops.ml +++ b/pretyping/classops.ml @@ -441,7 +441,7 @@ let coercion_of_reference r = module CoercionPrinting = struct type t = coe_typ - let compare = GlobRef.Ordered.compare + module Set = GlobRef.Set let encode _env = coercion_of_reference let subst = subst_coe_typ let printer x = Nametab.pr_global_env Id.Set.empty x diff --git a/pretyping/detyping.ml b/pretyping/detyping.ml index 2c31aafb70..0daf1ab531 100644 --- a/pretyping/detyping.ml +++ b/pretyping/detyping.ml @@ -182,7 +182,7 @@ module PrintingInductiveMake = end) -> struct type t = inductive - let compare = ind_ord + module Set = Indset let encode = Test.encode let subst subst obj = subst_ind subst obj let printer ind = Nametab.pr_global_env Id.Set.empty (IndRef ind) diff --git a/pretyping/detyping.mli b/pretyping/detyping.mli index ed2bb97513..cc9f520583 100644 --- a/pretyping/detyping.mli +++ b/pretyping/detyping.mli @@ -91,7 +91,7 @@ module PrintingInductiveMake : end) -> sig type t = Names.inductive - val compare : t -> t -> int + module Set = Indset val encode : Environ.env -> Libnames.qualid -> Names.inductive val subst : substitution -> t -> t val printer : t -> Pp.t |