X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=helm%2Fsoftware%2Fcomponents%2Fcic%2FcicUtil.mli;h=237aa19a436fb6f0bdfb51dd9571e967d367569b;hb=2b837ca9e298eb44eee95d9ca0e331c577785dcb;hp=f6087be52cdf8d120513e40a51bd67d33a573470;hpb=0b76904a3f10bfd6390d26172fd6979626bd72f4;p=helm.git

diff --git a/helm/software/components/cic/cicUtil.mli b/helm/software/components/cic/cicUtil.mli
index f6087be52..237aa19a4 100644
--- a/helm/software/components/cic/cicUtil.mli
+++ b/helm/software/components/cic/cicUtil.mli
@@ -54,7 +54,6 @@ 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 projections_of_record: Cic.obj -> UriManager.uri -> UriManager.uri list
-val arity_of_composed_coercion: Cic.obj -> int
 val is_generated: Cic.obj -> bool
 
 (** mk_rels [howmany] [from] 
@@ -68,7 +67,7 @@ val rehash_obj: Cic.obj -> Cic.obj
 val alpha_equivalence: Cic.term -> Cic.term -> bool
 
 (* FG: Consistency Check 
- * detects applications without arguments
+ * detects applications without arguments and folded applications
  *)
 val is_sober: Cic.context -> Cic.term -> bool