X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=helm%2Fsoftware%2Fcomponents%2Fcic%2FcicUtil.mli;h=f6087be52cdf8d120513e40a51bd67d33a573470;hb=75620ca64e3038fcbebb51559fdc31b2e8a00f93;hp=de8c020952ac0262d774ef6c7ad2fff39d5d543a;hpb=b4027b84fae91e907b6874060b91d89b6a1ad780;p=helm.git

diff --git a/helm/software/components/cic/cicUtil.mli b/helm/software/components/cic/cicUtil.mli
index de8c02095..f6087be52 100644
--- a/helm/software/components/cic/cicUtil.mli
+++ b/helm/software/components/cic/cicUtil.mli
@@ -66,3 +66,13 @@ 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
+
+val pp_term:
+   (string -> unit) -> Cic.metasenv -> Cic.context -> Cic.term -> unit
+val pp_obj:
+   (string -> unit) -> Cic.obj -> unit