From 8f13a227f8d73b78128d9a3bb060cf03d382b708 Mon Sep 17 00:00:00 2001 From: Pierre-Marie Pédrot Date: Tue, 11 Jul 2017 17:49:41 +0200 Subject: Getting rid of AUContext abstraction breakers in Search. --- vernac/search.ml | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'vernac/search.ml') 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 -- cgit v1.2.3