X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=components%2Facic_procedural%2FproceduralHelpers.mli;h=a7dfcc957dc8a04ef54beb88a9425acd085f9f50;hb=ad55bb9bc450fbccc969bca52602a6572217d565;hp=881f7e26635c192968d862c64f721ac0b3890e26;hpb=6bd485b5c69ab84ff70afc377a18456bb7860ffc;p=helm.git

diff --git a/components/acic_procedural/proceduralHelpers.mli b/components/acic_procedural/proceduralHelpers.mli
index 881f7e266..a7dfcc957 100644
--- a/components/acic_procedural/proceduralHelpers.mli
+++ b/components/acic_procedural/proceduralHelpers.mli
@@ -39,10 +39,14 @@ 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:
    Cic.term -> bool
+val is_atomic:
+   Cic.term -> bool
 val get_ind_type:
    UriManager.uri -> int -> int * Cic.inductiveType
 val get_default_eliminator: