diff options
| author |  Maxime Dénès <mail@maximedenes.fr> | 2015-01-16 22:17:03 +0100 |
|---|---|---|
| committer |  Matthieu Sozeau <matthieu.sozeau@inria.fr> | 2015-01-18 00:16:43 +0530 |
| commit | 6e0b660b1e58502b7da477b9725ae8ee4f5d00ed (patch) | |
| tree | 36114b255b884e90b021876bebd49ff978c24710 /toplevel | |
| 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')
| -rw-r--r-- | toplevel/record.ml | 2 | ||||
| -rw-r--r-- | toplevel/search.ml | 2 |
2 files changed, 2 insertions, 2 deletions
diff --git a/toplevel/record.ml b/toplevel/record.ml index e34206a41..55f533512 100644 --- a/toplevel/record.ml +++ b/toplevel/record.ml @@ -230,7 +230,7 @@ let instantiate_possibly_recursive_type indu paramdecls fields = let declare_projections indsp ?(kind=StructureComponent) binder_name coers fieldimpls fields = let env = Global.env() in let (mib,mip) = Global.lookup_inductive indsp in - let u = Inductive.inductive_instance mib in + let u = Declareops.inductive_instance mib in let paramdecls = Inductive.inductive_paramdecls (mib, u) in let poly = mib.mind_polymorphic and ctx = Univ.instantiate_univ_context mib.mind_universes in let indu = indsp, u in 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 |