diff options
| author | Maxime Dénès | 2015-01-16 22:17:03 +0100 |
|---|---|---|
| committer | Maxime Dénès | 2015-01-17 08:02:45 +0100 |
| commit | 9f5586d88880cbb98c92edfe9c33c76564f1a19c (patch) | |
| tree | 6de2a171eff5706b0e4ce9268554b84a922f12b3 /pretyping | |
| parent | 4985f0ff99278beb3b934f86edf1398659c611a8 (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 'pretyping')
| -rw-r--r-- | pretyping/nativenorm.ml | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/pretyping/nativenorm.ml b/pretyping/nativenorm.ml index ff48119ba2..bd427ecd08 100644 --- a/pretyping/nativenorm.ml +++ b/pretyping/nativenorm.ml @@ -257,8 +257,8 @@ and nf_bargs env b t = and nf_atom env atom = match atom with | Arel i -> mkRel (nb_rel env - i) - | Aconstant cst -> mkConst cst - | Aind ind -> mkInd ind + | Aconstant cst -> mkConstU cst + | Aind ind -> mkIndU ind | Asort s -> mkSort s | Avar id -> mkVar id | Aprod(n,dom,codom) -> @@ -280,9 +280,9 @@ and nf_atom_type env atom = let n = (nb_rel env - i) in mkRel n, type_of_rel env n | Aconstant cst -> - mkConst cst, fst (Typeops.type_of_constant env (cst,Univ.Instance.empty)) (* FIXME *) + mkConstU cst, Typeops.type_of_constant_in env cst | Aind ind -> - mkInd ind, Inductiveops.type_of_inductive env (ind,Univ.Instance.empty) + mkIndU ind, Inductiveops.type_of_inductive env ind | Asort s -> mkSort s, type_of_sort s | Avar id -> |