diff options
Diffstat (limited to 'kernel')
| -rw-r--r-- | kernel/term_typing.ml | 6 | ||||
| -rw-r--r-- | kernel/typeops.ml | 2 |
2 files changed, 6 insertions, 2 deletions
diff --git a/kernel/term_typing.ml b/kernel/term_typing.ml index 2c784e00e0..7551c31d40 100644 --- a/kernel/term_typing.ml +++ b/kernel/term_typing.ml @@ -93,6 +93,9 @@ let infer_declaration env dcl = match dcl with | DefinitionEntry c -> let (j,cst) = infer env c.const_entry_body in + let j = + {uj_val = hcons1_constr j.uj_val; + uj_type = hcons1_constr j.uj_type} in let (typ,cst) = constrain_type env j cst c.const_entry_type in let def = if c.const_entry_opaque @@ -102,7 +105,8 @@ let infer_declaration env dcl = def, typ, cst | ParameterEntry (t,nl) -> let (j,cst) = infer env t in - Undef nl, NonPolymorphicType (Typeops.assumption_of_judgment env j), cst + let t = hcons1_constr (Typeops.assumption_of_judgment env j) in + Undef nl, NonPolymorphicType t, cst let global_vars_set_constant_type env = function | NonPolymorphicType t -> global_vars_set env t diff --git a/kernel/typeops.ml b/kernel/typeops.ml index 6e0e098c03..49106c9125 100644 --- a/kernel/typeops.ml +++ b/kernel/typeops.ml @@ -483,7 +483,7 @@ let infer env constr = let (j,(cst,_)) = execute env constr (empty_constraint, universes env) in assert (eq_constr j.uj_val constr); - ({ j with uj_val = constr }, cst) + (j, cst) let infer_type env constr = let (j,(cst,_)) = |