From 78aca729a95d5e622c251d247abf29159dfe66a4 Mon Sep 17 00:00:00 2001
From: Pierre-Marie Pédrot <pierre-marie.pedrot@inria.fr>
Date: Thu, 6 Apr 2017 18:49:58 +0200
Subject: Documenting the fact terms are only hashconsed outside of a section.

---
 kernel/term_typing.ml | 2 ++
 1 file changed, 2 insertions(+)

(limited to 'kernel/term_typing.ml')

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)
-- 
cgit v1.2.3