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