aboutsummaryrefslogtreecommitdiffhomepage
path: root/pretyping/termops.mli
diff options
context:
space:
mode:
Diffstat (limited to 'pretyping/termops.mli')
-rw-r--r--pretyping/termops.mli6
1 files changed, 5 insertions, 1 deletions
diff --git a/pretyping/termops.mli b/pretyping/termops.mli
index 255e8a056..8ce7b39dc 100644
--- a/pretyping/termops.mli
+++ b/pretyping/termops.mli
@@ -20,10 +20,14 @@ open Environ
val new_univ : unit -> Univ.universe
val new_sort_in_family : sorts_family -> sorts
-(* iterators on terms *)
+(* printers *)
val print_sort : sorts -> std_ppcmds
val print_sort_family : sorts_family -> std_ppcmds
+(* debug printer: do not use to display terms to the casual user... *)
val print_constr : constr -> std_ppcmds
+val set_print_constr : (constr -> std_ppcmds) -> unit
+
+(* iterators on terms *)
val prod_it : init:types -> (name * types) list -> types
val lam_it : init:constr -> (name * types) list -> constr
val rel_vect : int -> int -> constr array