diff options
| author | ppedrot | 2013-04-29 16:02:46 +0000 |
|---|---|---|
| committer | ppedrot | 2013-04-29 16:02:46 +0000 |
| commit | 943e6b23229b5eed2fb8265089563ce0a25b9b44 (patch) | |
| tree | 803aa037f3413c21e76650c62e7ea9173ba3c918 /kernel/pre_env.ml | |
| parent | 4490dfcb94057dd6518963a904565e3a4a354bac (diff) | |
Merging Context and Sign.
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@16463 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'kernel/pre_env.ml')
| -rw-r--r-- | kernel/pre_env.ml | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/kernel/pre_env.ml b/kernel/pre_env.ml index 922fbae924..61fb6b07bd 100644 --- a/kernel/pre_env.ml +++ b/kernel/pre_env.ml @@ -16,7 +16,6 @@ open Util open Names open Context -open Sign open Univ open Term open Declarations @@ -105,7 +104,7 @@ let env_of_rel n env = let push_named_context_val d (ctxt,vals) = let id,_,_ = d in let rval = ref VKnone in - Sign.add_named_decl d ctxt, (id,rval)::vals + Context.add_named_decl d ctxt, (id,rval)::vals let push_named d env = (* if not (env.env_rel_context = []) then raise (ASSERT env.env_rel_context); @@ -113,7 +112,7 @@ let push_named d env = let id,body,_ = d in let rval = ref VKnone in { env with - env_named_context = Sign.add_named_decl d env.env_named_context; + env_named_context = Context.add_named_decl d env.env_named_context; env_named_vals = (id,rval):: env.env_named_vals } let lookup_named_val id env = |