X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=helm%2Fsoftware%2Fcomponents%2Fcic%2FcicUtil.mli;h=54a0a9bea639a2d72a16a03840b0166382c4625e;hb=5061952d0632ba8bc77be5cab11fab2f36e1e26f;hp=422bb130b47a0f83b22659f49318c8e6e187c091;hpb=abd2098b6c4a40b36bb4b950c607eb4b4a7852bc;p=helm.git

diff --git a/helm/software/components/cic/cicUtil.mli b/helm/software/components/cic/cicUtil.mli
index 422bb130b..54a0a9bea 100644
--- a/helm/software/components/cic/cicUtil.mli
+++ b/helm/software/components/cic/cicUtil.mli
@@ -53,7 +53,9 @@ 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] 
  * creates a list of [howmany] rels starting from [from] in decreasing order *)
@@ -63,3 +65,9 @@ val mk_rels : int -> int -> Cic.term list
 val rehash_term: Cic.term -> Cic.term
 val rehash_obj: Cic.obj -> Cic.obj
 
+val alpha_equivalence: Cic.term -> Cic.term -> bool
+
+(* FG: Consistency Check 
+ * detects applications without arguments
+ *)
+val is_sober: Cic.context -> Cic.term -> bool