X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=helm%2Fsoftware%2Fcomponents%2Fng_kernel%2FnCicPp.mli;h=a01895678c0535b655ac4a3c7026d58cc616dd3d;hb=f9abd21eb0d26cf9b632af4df819225be4d091e3;hp=1654cdfb21978e3b826d1e6b4b2c69a107606d30;hpb=1ef41da37d7b39da1521f53d3b22981556bfbe68;p=helm.git

diff --git a/helm/software/components/ng_kernel/nCicPp.mli b/helm/software/components/ng_kernel/nCicPp.mli
index 1654cdfb2..a01895678 100644
--- a/helm/software/components/ng_kernel/nCicPp.mli
+++ b/helm/software/components/ng_kernel/nCicPp.mli
@@ -11,16 +11,60 @@
 
 (* $Id$ *)
 
+val set_head_beta_reduce: (upto:int -> NCic.term -> NCic.term) -> unit
+val set_get_obj: (NUri.uri -> NCic.obj) -> unit
+
+val r2s: bool -> NReference.reference -> string
+
 val ppterm: 
   context:NCic.context -> 
   subst:NCic.substitution -> 
   metasenv:NCic.metasenv ->
+  ?margin:int ->
   ?inside_fix:bool ->
    NCic.term -> string
 
 val ppcontext:
+  ?sep:string ->
   subst:NCic.substitution -> 
   metasenv:NCic.metasenv ->
   NCic.context -> string 
 
+val ppmetasenv:
+  subst:NCic.substitution -> NCic.metasenv -> string
+
+val ppsubst:
+ metasenv:NCic.metasenv -> ?use_subst:bool -> NCic.substitution -> string
+
 val ppobj: NCic.obj -> string
+
+(* variants that use a formatter 
+module Format : sig
+  val ppterm: 
+    formatter:Format.formatter ->
+    context:NCic.context -> 
+    subst:NCic.substitution -> 
+    metasenv:NCic.metasenv ->
+    ?margin:int ->
+    ?inside_fix:bool ->
+     NCic.term -> unit
+  
+  val ppcontext:
+    ?sep:string ->
+    formatter:Format.formatter ->
+    subst:NCic.substitution -> 
+    metasenv:NCic.metasenv ->
+    NCic.context -> unit 
+  
+  val ppmetasenv:
+    formatter:Format.formatter ->
+    subst:NCic.substitution -> NCic.metasenv -> unit
+  
+  val ppsubst: 
+    formatter:Format.formatter ->
+    metasenv:NCic.metasenv -> NCic.substitution -> unit
+  
+  val ppobj: 
+    formatter:Format.formatter -> NCic.obj -> unit
+end
+*)