X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=helm%2Fsoftware%2Fcomponents%2Fcic%2FcicUtil.mli;h=66fbebe47ea8e2fa9038ecc3b79d1bb4bcb4f2b3;hb=134014e54c374789b38b6c53945f63d21ddbacb0;hp=54a0a9bea639a2d72a16a03840b0166382c4625e;hpb=186c1171d37f5d1cde9bb6f38a863be16debf3f0;p=helm.git

diff --git a/helm/software/components/cic/cicUtil.mli b/helm/software/components/cic/cicUtil.mli
index 54a0a9bea..66fbebe47 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] 
@@ -71,3 +70,8 @@ val alpha_equivalence: Cic.term -> Cic.term -> bool
  * detects applications without arguments
  *)
 val is_sober: Cic.context -> Cic.term -> bool
+
+val pp_term:
+   (string -> unit) -> Cic.metasenv -> Cic.context -> Cic.term -> unit
+val pp_obj:
+   (string -> unit) -> Cic.obj -> unit