librarian: improved error detection, bug fix in time comparison functions: now the...

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

diff --git a/helm/software/components/acic_procedural/proceduralHelpers.mli b/helm/software/components/acic_procedural/proceduralHelpers.mli
index e1b7f49f6bfaa55d8810407d31df45cdbe903f83..6b90e815c58b3d4b009bcd2e5ae5fefb316ed1e9 100644 (file)
--- a/helm/software/components/acic_procedural/proceduralHelpers.mli
+++ b/helm/software/components/acic_procedural/proceduralHelpers.mli
@@ -23,12 +23,14 @@
  * 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:
-  ('a list -> 'b) -> (('a -> 'b) -> 'c -> 'b) -> 'c list -> 'b
+   ('a list -> 'b) -> (('a -> 'b) -> 'c -> 'b) -> 'c list -> 'b
 val identity:
-  'a -> 'a
+   'a -> 'a
 val compose:
    ('a -> 'b) -> ('c -> 'a) -> 'c -> 'b
 val fst3:
@@ -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,6 +51,8 @@ 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:
@@ -57,6 +61,8 @@ 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: