diff options
| author | Pierre-Marie Pédrot | 2016-09-09 13:29:28 +0200 |
|---|---|---|
| committer | Pierre-Marie Pédrot | 2016-09-09 13:43:42 +0200 |
| commit | d55818c7da468ce1c7c9644cb63f68f7561a17bc (patch) | |
| tree | fc3737cf865b014f5a297ce249b98892e181ecf1 /kernel/pre_env.ml | |
| parent | 1888527bb43d6a8c801565af3e6376c91769fbc1 (diff) | |
Tracking careless uses of slow name lookup.
Diffstat (limited to 'kernel/pre_env.ml')
| -rw-r--r-- | kernel/pre_env.ml | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/kernel/pre_env.ml b/kernel/pre_env.ml index 104fe59d1d..7be8606ef4 100644 --- a/kernel/pre_env.ml +++ b/kernel/pre_env.ml @@ -173,6 +173,9 @@ let push_named d env = indirect_pterms = env.indirect_pterms; } +let lookup_named id env = + fst (Id.Map.find id env.env_named_context.env_named_map) + let lookup_named_val id env = snd(Id.Map.find id env.env_named_context.env_named_map) |