Mise en place de noms contenant la section pour Fact et Remark

git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@1987 85f007b7-540e-0410-9357-904b9bb8a0f7

1 files changed, 4 insertions, 0 deletions

diff --git a/library/lib.ml b/library/lib.ml
index 5995a9600..94cba5e0c 100644
--- a/library/lib.ml
+++ b/library/lib.ml
@@ -95,6 +95,10 @@ let add_anonymous_entry node =
   add_entry sp node;
   sp
 
+let add_absolutely_named_lead sp obj =
+  cache_object (sp,obj);
+  add_entry sp (Leaf obj)
+
 let add_leaf id kind obj =
   let sp = make_path id kind in
   cache_object (sp,obj);