diff options
| author |  Pierre-Marie Pédrot <pierre-marie.pedrot@inria.fr> | 2017-07-11 17:49:41 +0200 |
|---|---|---|
| committer | Pierre-Marie Pédrot <pierre-marie.pedrot@inria.fr> | 2017-07-13 15:14:45 +0200 |
| commit | 8f13a227f8d73b78128d9a3bb060cf03d382b708 (patch) | |
| tree | acdcd7893b4a093df3afd061f4af2f71b266992e /vernac/search.ml | |
| parent | 603bfb392805fb8d1559d304bcf1b9c7b938bb6e (diff) | |
Getting rid of AUContext abstraction breakers in Search.
Diffstat (limited to 'vernac/search.ml')
| -rw-r--r-- | vernac/search.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/vernac/search.ml b/vernac/search.ml index 788a2aa4a..5cf6a9491 100644 --- a/vernac/search.ml +++ b/vernac/search.ml @@ -85,7 +85,7 @@ let iter_declarations (fn : global_reference -> env -> constr -> unit) = let mib = Global.lookup_mind mind in let iter_packet i mip = let ind = (mind, i) in - let u = Univ.AUContext.instance (Declareops.inductive_polymorphic_context mib) in + let u = Univ.make_abstract_instance (Declareops.inductive_polymorphic_context mib) in let i = (ind, u) in let typ = Inductiveops.type_of_inductive env i in let () = fn (IndRef ind) env typ in |