X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=helm%2Fsoftware%2Fcomponents%2Facic_procedural%2FproceduralHelpers.mli;h=770534af63e88bba1b9865bb25aaaba7f894d265;hb=f620bf94af6c347926ed1c2328462efab7018b21;hp=a7dfcc957dc8a04ef54beb88a9425acd085f9f50;hpb=468ee32f0fc7de271454ed94643b4dd7c9578e5f;p=helm.git

diff --git a/helm/software/components/acic_procedural/proceduralHelpers.mli b/helm/software/components/acic_procedural/proceduralHelpers.mli
index a7dfcc957..770534af6 100644
--- a/helm/software/components/acic_procedural/proceduralHelpers.mli
+++ b/helm/software/components/acic_procedural/proceduralHelpers.mli
@@ -23,6 +23,8 @@
  * http://cs.unibo.it/helm/.
  *)
 
+val pp_term:
+   (string -> unit) -> Cic.metasenv -> Cic.context -> Cic.term -> unit
 val mk_fresh_name:
    Cic.context -> Cic.name -> Cic.name
 val list_map_cps:
@@ -36,7 +38,7 @@ val fst3:
 val refine:
    Cic.context -> Cic.term -> Cic.term
 val get_type:
-   Cic.context -> Cic.term -> Cic.term
+   string -> Cic.context -> Cic.term -> Cic.term
 val is_proof:
    Cic.context -> Cic.term -> bool
 val is_sort:
@@ -49,8 +51,19 @@ val is_atomic:
    Cic.term -> bool
 val get_ind_type:
    UriManager.uri -> int -> int * Cic.inductiveType
+val get_ind_names:
+   UriManager.uri -> int -> string list
 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 cic: 
+   Cic.annterm -> Cic.term
+val occurs:
+   Cic.context -> what:Cic.term -> where:Cic.term -> bool
+val name_of_uri:
+   UriManager.uri -> int option -> int option -> string
+val cic_bc:
+   Cic.context -> Cic.term -> Cic.term
+val acic_bc:
+   Cic.context -> Cic.annterm -> Cic.annterm