(* $Id: nCic.ml 9058 2008-10-13 17:42:30Z tassi $ *)
-val pp_foterm: ('a -> string) -> 'a Terms.foterm -> string
-val pp_proof: ('a -> string) -> 'a Terms.bag -> 'a Terms.proof -> string
-val pp_substitution: ('a -> string) -> 'a Terms.substitution -> string
-val pp_unit_clause: ('a -> string) -> 'a Terms.unit_clause -> string
+module Pp (B : Terms.Blob) :
+ sig
+ val pp_foterm: B.t Terms.foterm -> string
+ val pp_proof: B.t Terms.bag -> B.t Terms.proof -> string
+ val pp_substitution: B.t Terms.substitution -> string
+ val pp_unit_clause: ?margin:int -> B.t Terms.unit_clause -> string
+ val pp_bag: B.t Terms.bag -> string
+ end