diff options
| author |  gareuselesinge <gareuselesinge@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2013-05-09 20:48:29 +0000 |
|---|---|---|
| committer | gareuselesinge <gareuselesinge@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2013-05-09 20:48:29 +0000 |
| commit | 1eaebf4ab7616b2be16b957736e80f1d6100eae0 (patch) | |
| tree | 947ba448881d084f271365a29a15b10e649d0767 /kernel/safe_typing.ml | |
| parent | 6105951610e140828d5be2c187c927d2119c8df0 (diff) | |
Use definition_entry to declare local definitions
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@16502 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'kernel/safe_typing.ml')
| -rw-r--r-- | kernel/safe_typing.ml | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/kernel/safe_typing.ml b/kernel/safe_typing.ml index 851803621..62e2d46a8 100644 --- a/kernel/safe_typing.ml +++ b/kernel/safe_typing.ml @@ -245,8 +245,8 @@ let safe_push_named (id,_,_ as d) env = with Not_found -> () in Environ.push_named d env -let push_named_def (id,b,topt) senv = - let (c,typ,cst) = Term_typing.translate_local_def senv.env (b,topt) in +let push_named_def (id,de) senv = + let (c,typ,cst) = Term_typing.translate_local_def senv.env de in let senv' = add_constraints cst senv in let env'' = safe_push_named (id,Some c,typ) senv'.env in (cst, {senv' with env=env''}) |