X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=helm%2Fsoftware%2Flambda-delta%2Fcommon%2Flibrary.mli;h=97a9692195a6c95845e74eb63bc585a139547d4d;hb=689118326fbe47231865b26c66ae89144459be6a;hp=95d5ba9b1fa167ed620232cce053c5b86a4cc6d6;hpb=cd798346d31b14b8947e5801b87dc4f363607862;p=helm.git

diff --git a/helm/software/lambda-delta/common/library.mli b/helm/software/lambda-delta/common/library.mli
index 95d5ba9b1..97a969219 100644
--- a/helm/software/lambda-delta/common/library.mli
+++ b/helm/software/lambda-delta/common/library.mli
@@ -13,13 +13,12 @@ type och = string -> unit
 
 type attr = string * string
 
-type 'a pp = (och -> int -> 'a) -> och -> int -> 'a
+type pp = och -> int -> unit
 
 val export_entity:
-   (unit ->'a) -> ('term -> 'a pp) -> 
-   bool -> Hierarchy.graph -> 'term Entity.entity -> 'a
+   ('term -> pp) -> bool -> 'term Entity.entity -> unit
 
-val tag: string -> attr list -> ?contents:'a pp -> 'a pp 
+val tag: string -> attr list -> ?contents:pp -> pp 
 
 val sort: string
 
@@ -50,9 +49,3 @@ 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