parameter sintax added to axiom statement

[helm.git] / helm / software / components / cic / cicUtil.mli

diff --git a/helm/software/components/cic/cicUtil.mli b/helm/software/components/cic/cicUtil.mli
index 9b1fecf0c25de2218a593884d8f92d9fbd4f17b5..c9dd896b9c3902f199976bbd5259e1c80fc329d2 100644 (file)
--- a/helm/software/components/cic/cicUtil.mli
+++ b/helm/software/components/cic/cicUtil.mli
@@ -54,7 +54,6 @@ val id_of_annterm: Cic.annterm -> Cic.id
 val params_of_obj: Cic.obj -> UriManager.uri list
 val attributes_of_obj: Cic.obj -> Cic.attribute list
 val projections_of_record: Cic.obj -> UriManager.uri -> UriManager.uri list
-val arity_of_composed_coercion: Cic.obj -> int
 val is_generated: Cic.obj -> bool
 
 (** mk_rels [howmany] [from] 
@@ -65,3 +64,14 @@ val mk_rels : int -> int -> Cic.term list
 val rehash_term: Cic.term -> Cic.term
 val rehash_obj: Cic.obj -> Cic.obj
 
+val alpha_equivalence: Cic.term -> Cic.term -> bool
+
+(* FG: Consistency Check. Detects:
+ * applications without arguments, folded applications, non-positive rels
+ *)
+val is_sober: Cic.context -> Cic.term -> bool
+
+val pp_term:
+   (string -> unit) -> Cic.metasenv -> Cic.context -> Cic.term -> unit
+val pp_obj:
+   (string -> unit) -> Cic.obj -> unit