]> matita.cs.unibo.it Git - helm.git/blob - matita/components/ng_kernel/nCicPp.mli
Splitted unistep_aux
[helm.git] / matita / components / ng_kernel / nCicPp.mli
1 (*
2     ||M||  This file is part of HELM, an Hypertextual, Electronic        
3     ||A||  Library of Mathematics, developed at the Computer Science     
4     ||T||  Department, University of Bologna, Italy.                     
5     ||I||                                                                
6     ||T||  HELM is free software; you can redistribute it and/or         
7     ||A||  modify it under the terms of the GNU General Public License   
8     \   /  version 2 or (at your option) any later version.      
9      \ /   This software is distributed as is, NO WARRANTY.     
10       V_______________________________________________________________ *)
11
12 (* $Id$ *)
13
14 val r2s: #NCic.status -> bool -> NReference.reference -> string
15
16 val string_of_flavour: NCic.def_flavour -> string
17
18 (* low-level pretty printer;
19    all methods are meant to be overridden in ApplyTransformation *)
20 class status: NCic.cstatus
21
22 (* variants that use a formatter 
23 module Format : sig
24   val ppterm: 
25     formatter:Format.formatter ->
26     context:NCic.context -> 
27     subst:NCic.substitution -> 
28     metasenv:NCic.metasenv ->
29     ?margin:int ->
30     ?inside_fix:bool ->
31      NCic.term -> unit
32   
33   val ppcontext:
34     ?sep:string ->
35     formatter:Format.formatter ->
36     subst:NCic.substitution -> 
37     metasenv:NCic.metasenv ->
38     NCic.context -> unit 
39   
40   val ppmetasenv:
41     formatter:Format.formatter ->
42     subst:NCic.substitution -> NCic.metasenv -> unit
43   
44   val ppsubst: 
45     formatter:Format.formatter ->
46     metasenv:NCic.metasenv -> NCic.substitution -> unit
47   
48   val ppobj: 
49     formatter:Format.formatter -> NCic.obj -> unit
50 end
51 *)