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

[helm.git] / components / acic_procedural / proceduralHelpers.mli

diff --git a/components/acic_procedural/proceduralHelpers.mli b/components/acic_procedural/proceduralHelpers.mli
index 97b637d70b126cc21f0c1b80ec28e5faefcf6bbd..a7dfcc957dc8a04ef54beb88a9425acd085f9f50 100644 (file)
--- a/components/acic_procedural/proceduralHelpers.mli
+++ b/components/acic_procedural/proceduralHelpers.mli
@@ -39,6 +39,8 @@ val get_type:
    Cic.context -> Cic.term -> Cic.term
 val is_proof:
    Cic.context -> Cic.term -> bool
+val is_sort:
+   Cic.term -> bool
 val is_unsafe:
    int -> Cic.context * Cic.term -> bool
 val is_not_atomic: