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=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..f364af329 100644
--- a/helm/software/lambda-delta/common/library.mli
+++ b/helm/software/lambda-delta/common/library.mli
@@ -13,13 +13,13 @@ 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 -> Hierarchy.graph -> '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