diff options
| author |  Pierre-Marie Pédrot <pierre-marie.pedrot@inria.fr> | 2014-03-03 03:42:49 +0100 |
|---|---|---|
| committer | Pierre-Marie Pédrot <pierre-marie.pedrot@inria.fr> | 2014-03-03 03:43:21 +0100 |
| commit | 7b7187ab30c945f7929299833a92ee01737519a6 (patch) | |
| tree | 5991e300ed276b6ca6b6fdd08e6449a2e4e23754 /pretyping | |
| parent | 3ec4c04b4a2f497cd1b933dbf6b646b923ee6690 (diff) | |
Goptions do not rely anymore on generic equality.
Diffstat (limited to 'pretyping')
| -rw-r--r-- | pretyping/classops.ml | 1 | ||||
| -rw-r--r-- | pretyping/detyping.ml | 1 | ||||
| -rw-r--r-- | pretyping/detyping.mli | 1 |
3 files changed, 3 insertions, 0 deletions
diff --git a/pretyping/classops.ml b/pretyping/classops.ml index 3fe3b3ff2..58265208b 100644 --- a/pretyping/classops.ml +++ b/pretyping/classops.ml @@ -510,6 +510,7 @@ let coercion_of_reference r = module CoercionPrinting = struct type t = coe_typ + let compare = RefOrdered.compare let encode = coercion_of_reference let subst = subst_coe_typ let printer x = pr_global_env Id.Set.empty x diff --git a/pretyping/detyping.ml b/pretyping/detyping.ml index c59110124..66cd73e5d 100644 --- a/pretyping/detyping.ml +++ b/pretyping/detyping.ml @@ -71,6 +71,7 @@ module PrintingInductiveMake = end) -> struct type t = inductive + let compare = ind_ord let encode = Test.encode let subst subst (kn, ints as obj) = let kn' = subst_ind subst kn in diff --git a/pretyping/detyping.mli b/pretyping/detyping.mli index 97c636af7..8a10b7ed5 100644 --- a/pretyping/detyping.mli +++ b/pretyping/detyping.mli @@ -72,6 +72,7 @@ module PrintingInductiveMake : end) -> sig type t = Names.inductive + val compare : t -> t -> int val encode : Libnames.reference -> Names.inductive val subst : substitution -> t -> t val printer : t -> Pp.std_ppcmds |