Sometimes it is useful to be able to print the subst without applying it.

[helm.git] / helm / software / components / ng_kernel / nCicPp.mli

diff --git a/helm/software/components/ng_kernel/nCicPp.mli b/helm/software/components/ng_kernel/nCicPp.mli
index c260e8c61a70c9f1c29f80e9b0f3c6367bb10eea..a01895678c0535b655ac4a3c7026d58cc616dd3d 100644 (file)
--- a/helm/software/components/ng_kernel/nCicPp.mli
+++ b/helm/software/components/ng_kernel/nCicPp.mli
@@ -33,6 +33,38 @@ val ppcontext:
 val ppmetasenv:
   subst:NCic.substitution -> NCic.metasenv -> string
 
-val ppsubst: metasenv:NCic.metasenv -> NCic.substitution -> 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
+*)