X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=helm%2Fsoftware%2Flambda-delta%2Fcommon%2Flibrary.mli;h=f364af329ed9621cf5da5d10bdfce52f40d41b0e;hb=0bcc03be833e8f177850e6b9785713d7975ee8bd;hp=1a10b6e9d6d86e244fdd805dfc32f4274fd7e7e8;hpb=79684e8bd0f54b5c88fff981366bd8c78dd0fbe9;p=helm.git

diff --git a/helm/software/lambda-delta/common/library.mli b/helm/software/lambda-delta/common/library.mli
index 1a10b6e9d..f364af329 100644
--- a/helm/software/lambda-delta/common/library.mli
+++ b/helm/software/lambda-delta/common/library.mli
@@ -9,6 +9,50 @@
      \ /   This software is distributed as is, NO WARRANTY.              
       V_______________________________________________________________ *)
 
-val export_unit:
-   (Format.formatter -> 'bind Unit.entry -> unit) -> 
-   bool -> Hierarchy.graph -> 'bind Unit.unit -> unit
+type och = string -> unit
+
+type attr = string * string
+
+type pp = och -> int -> unit
+
+val export_entity:
+   ('term -> pp) -> 
+   bool -> Hierarchy.graph -> 'term Entity.entity -> unit
+
+val tag: string -> attr list -> ?contents:pp -> pp 
+
+val sort: string
+
+val lref: string
+
+val gref: string
+
+val cast: string
+
+val appl: string
+
+val proj: string
+
+val abst: string
+
+val abbr: string
+
+val void: string
+
+val position: int -> attr
+
+val offset: int -> attr
+
+val uri: Entity.uri -> attr
+
+val arity: int -> attr
+
+val name: Entity.attrs -> attr
+
+val mark: Entity.attrs -> attr
+
+val old_export_entity:
+   (Format.formatter -> 'term -> unit) -> 
+   bool -> Hierarchy.graph -> 'term Entity.entity -> unit
+
+val old_name: Format.formatter -> Entity.attrs -> unit