diff options
| author |  Pierre-Marie Pédrot <pierre-marie.pedrot@inria.fr> | 2017-04-06 18:49:58 +0200 |
|---|---|---|
| committer | Pierre-Marie Pédrot <pierre-marie.pedrot@inria.fr> | 2017-04-06 18:49:58 +0200 |
| commit | 78aca729a95d5e622c251d247abf29159dfe66a4 (patch) | |
| tree | 4bc418ea191366f9a1abb6a735c765d635db5b10 /kernel/term_typing.ml | |
| parent | 11b4703ed83eeda9d959464f08185aedd3f7c250 (diff) | |
Documenting the fact terms are only hashconsed outside of a section.
Diffstat (limited to 'kernel/term_typing.ml')
| -rw-r--r-- | kernel/term_typing.ml | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/kernel/term_typing.ml b/kernel/term_typing.ml index c171ba2bb..e203fce9a 100644 --- a/kernel/term_typing.ml +++ b/kernel/term_typing.ml @@ -514,6 +514,8 @@ let translate_local_assum env t = t let translate_recipe env kn r = + (** We only hashcons the term when outside of a section, otherwise this would + be useless. It is detected by the dirpath of the constant being empty. *) let (_, dir, _) = Constant.repr3 kn in let hcons = DirPath.is_empty dir in build_constant_declaration kn env (Cooking.cook_constant ~hcons env r) |