cicUtil : new test function "is_sober" to test the integrity of a term

[helm.git] / components / cic / cicUtil.mli

diff --git a/components/cic/cicUtil.mli b/components/cic/cicUtil.mli
index de8c020952ac0262d774ef6c7ad2fff39d5d543a..9977d186465c24e245e4ea404a8ae6bf1c4ca812 100644 (file)
--- a/components/cic/cicUtil.mli
+++ b/components/cic/cicUtil.mli
@@ -66,3 +66,8 @@ 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.term -> bool