diff options
Diffstat (limited to 'kernel')
-rw-r--r-- | kernel/safe_typing.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/kernel/safe_typing.ml b/kernel/safe_typing.ml index 8ff01a755..e9be955e8 100644 --- a/kernel/safe_typing.ml +++ b/kernel/safe_typing.ml @@ -300,7 +300,7 @@ let push_named_def (id,de) senv = let senv = add_constraints (Now cst') senv in let senv' = add_constraints (Now cst) senv in let env'' = safe_push_named (id,Some c,typ) senv'.env in - (cst, {senv' with env=env''}) + (Univ.union_constraints cst cst', {senv' with env=env''}) let push_named_assum (id,t) senv = let (t,cst) = Term_typing.translate_local_assum senv.env t in |