]> matita.cs.unibo.it Git - helm.git/blob - matita/components/ng_kernel/nCicPp.mli
39fe4f2f6ae7b76fbc0e0f20c4270ebe68401ad7
[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 set_head_beta_reduce: (upto:int -> NCic.term -> NCic.term) -> unit
15 val set_get_obj: (NUri.uri -> NCic.obj) -> unit
16
17 val r2s: bool -> NReference.reference -> string
18
19 val string_of_flavour: NCic.def_flavour -> string
20
21 val ppterm: 
22   context:NCic.context -> 
23   subst:NCic.substitution -> 
24   metasenv:NCic.metasenv ->
25   ?margin:int ->
26   ?inside_fix:bool ->
27    NCic.term -> string
28
29 val ppcontext:
30   ?sep:string ->
31   subst:NCic.substitution -> 
32   metasenv:NCic.metasenv ->
33   NCic.context -> string 
34
35 val ppmetasenv:
36   subst:NCic.substitution -> NCic.metasenv -> string
37
38 val ppsubst:
39  metasenv:NCic.metasenv -> ?use_subst:bool -> NCic.substitution -> string
40
41 val ppobj: NCic.obj -> string
42
43 (* variants that use a formatter 
44 module Format : sig
45   val ppterm: 
46     formatter:Format.formatter ->
47     context:NCic.context -> 
48     subst:NCic.substitution -> 
49     metasenv:NCic.metasenv ->
50     ?margin:int ->
51     ?inside_fix:bool ->
52      NCic.term -> unit
53   
54   val ppcontext:
55     ?sep:string ->
56     formatter:Format.formatter ->
57     subst:NCic.substitution -> 
58     metasenv:NCic.metasenv ->
59     NCic.context -> unit 
60   
61   val ppmetasenv:
62     formatter:Format.formatter ->
63     subst:NCic.substitution -> NCic.metasenv -> unit
64   
65   val ppsubst: 
66     formatter:Format.formatter ->
67     metasenv:NCic.metasenv -> NCic.substitution -> unit
68   
69   val ppobj: 
70     formatter:Format.formatter -> NCic.obj -> unit
71 end
72 *)