X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=helm%2Fsoftware%2Fcomponents%2Facic_procedural%2FproceduralHelpers.mli;h=e1b7f49f6bfaa55d8810407d31df45cdbe903f83;hb=54522577365be23b788d66c851ae5c78aebe5ffb;hp=84844942ae36807410ec7cf594da05e960cd570b;hpb=c465c17581bf606e0330cbd89b238279c184ad35;p=helm.git

diff --git a/helm/software/components/acic_procedural/proceduralHelpers.mli b/helm/software/components/acic_procedural/proceduralHelpers.mli
index 84844942a..e1b7f49f6 100644
--- a/helm/software/components/acic_procedural/proceduralHelpers.mli
+++ b/helm/software/components/acic_procedural/proceduralHelpers.mli
@@ -39,13 +39,25 @@ 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:
   Cic.context -> UriManager.uri -> int -> Cic.term -> Cic.term
 val get_ind_parameters:
    Cic.context -> Cic.term -> Cic.term list * int
+val cic: 
+   Cic.annterm -> Cic.term
+val occurs:
+   Cic.context -> what:Cic.term -> where:Cic.term -> bool
+val cic_bc:
+   Cic.context -> Cic.term -> Cic.term
+val acic_bc:
+   Cic.context -> Cic.annterm -> Cic.annterm