diff options
author | 2015-01-16 22:17:03 +0100 | |
---|---|---|
committer | 2015-01-18 00:16:43 +0530 | |
commit | 6e0b660b1e58502b7da477b9725ae8ee4f5d00ed (patch) | |
tree | 36114b255b884e90b021876bebd49ff978c24710 /toplevel/search.ml | |
parent | a83721ac508aa96496ef95c8433bc282bca0db14 (diff) |
Make native compiler handle universe polymorphic definitions.
One remaining issue: aliased constants raise an anomaly when some unsubstituted
universe variables remain. VM may suffer from the same problem.
Diffstat (limited to 'toplevel/search.ml')
-rw-r--r-- | toplevel/search.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/toplevel/search.ml b/toplevel/search.ml index bb0c2a2e7..59283edf9 100644 --- a/toplevel/search.ml +++ b/toplevel/search.ml @@ -78,7 +78,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 = Inductive.inductive_instance mib in + let u = Declareops.inductive_instance mib in let i = (ind, u) in let typ = Inductiveops.type_of_inductive env i in let () = fn (IndRef ind) env typ in |