X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=helm%2Fsoftware%2Fcomponents%2Fcic%2FcicUtil.mli;h=54a0a9bea639a2d72a16a03840b0166382c4625e;hb=04e07924ddd8d0a95e01103103bd8c2a3e79c6c5;hp=9b1fecf0c25de2218a593884d8f92d9fbd4f17b5;hpb=1c95887fc7af68023b8b682a34816d8fb4d0a716;p=helm.git

diff --git a/helm/software/components/cic/cicUtil.mli b/helm/software/components/cic/cicUtil.mli
index 9b1fecf0c..54a0a9bea 100644
--- a/helm/software/components/cic/cicUtil.mli
+++ b/helm/software/components/cic/cicUtil.mli
@@ -65,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