1 files changed, 6 insertions, 0 deletions
diff --git a/kernel/term.mli b/kernel/term.mli
index dc9684b923..145546b55c 100644
--- a/kernel/term.mli
+++ b/kernel/term.mli
@@ -514,6 +514,10 @@ val sort_hdchar : sorts -> string
 (*s Occur check functions. *)                         
 
 val occur_meta : constr -> bool
+
+(*Returns the maximum of metas. Returns -1 if there is no meta*)
+(*val max_occur_meta:constr->int;;*)
+
 val occur_existential : constr -> bool
 val rel_vect : int -> int -> constr array
 
@@ -557,3 +561,5 @@ val hcons_constr:
     (typed_type -> typed_type)
 
 val hcons1_constr : constr -> constr
+
+val constr_display: constr -> unit;;