X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=components%2Fcic%2FcicUtil.mli;h=422bb130b47a0f83b22659f49318c8e6e187c091;hb=c049b167b6a59e7a1e755c0f5a4bc00ce0826c48;hp=b6fd7459dea6176bbf931a2c4e513c4fffc54472;hpb=7f2444c2670cadafddd8785b687ef312158376b0;p=helm.git

diff --git a/components/cic/cicUtil.mli b/components/cic/cicUtil.mli
index b6fd7459d..422bb130b 100644
--- a/components/cic/cicUtil.mli
+++ b/components/cic/cicUtil.mli
@@ -35,6 +35,9 @@ val clean_up_local_context :
 
 val is_closed : Cic.term -> bool
 val is_meta_closed : Cic.term -> bool
+val metas_of_term : Cic.term -> (int * Cic.term option list) list
+(* as before but with no duplicates. may avoind some stack overflows *)
+val metas_of_term_set : Cic.term -> (int * Cic.term option list) list
 
   (** @raise Failure "not enough prods" *)
 val strip_prods: int -> Cic.term -> Cic.term
@@ -50,6 +53,7 @@ val id_of_annterm: Cic.annterm -> Cic.id
 
 val params_of_obj: Cic.obj -> UriManager.uri list
 val attributes_of_obj: Cic.obj -> Cic.attribute list
+val arity_of_composed_coercion: Cic.obj -> int
 
 (** mk_rels [howmany] [from] 
  * creates a list of [howmany] rels starting from [from] in decreasing order *)