diff options
-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) |