X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=helm%2Focaml%2Fcic%2FcicUtil.mli;h=39316586e2360ec2fa702dfe52e33732cc381ee2;hb=faabe59afc8e66c96a1191210ac1e97effa028fe;hp=0bf193e7d6e21bbf4c2ff486b623e7333d0eac43;hpb=72f2faebd85bf6a191325b1ac39f051b22e8d838;p=helm.git diff --git a/helm/ocaml/cic/cicUtil.mli b/helm/ocaml/cic/cicUtil.mli index 0bf193e7d..39316586e 100644 --- a/helm/ocaml/cic/cicUtil.mli +++ b/helm/ocaml/cic/cicUtil.mli @@ -41,12 +41,14 @@ val strip_prods: int -> Cic.term -> Cic.term (** conversions between terms which are fully representable as uris (Var, Const, * Mutind, and MutConstruct) and corresponding tree representations *) -val term_of_uri: string -> Cic.term (** @raise UriManager.IllFormedUri *) -val uri_of_term: Cic.term -> string (** @raise Invalid_argument "uri_of_term" *) +val term_of_uri: UriManager.uri -> Cic.term (** @raise UriManager.IllFormedUri *) +val uri_of_term: Cic.term -> UriManager.uri (** @raise Invalid_argument "uri_of_term" *) +(* (** packing/unpacking of several terms into a single one *) val pack: Cic.term list -> Cic.term val unpack: Cic.term -> Cic.term list +*) (** {2 Cic selectors} *) @@ -65,10 +67,15 @@ val context_of: Cic.term (** select all subterms of a given term matching a given context (i.e. subtrees -* rooted at context's holes *) -val select: term:Cic.term -> context:Cic.term -> Cic.term list +* rooted at context's holes. The first component is the number of binder the +* term is below *) +val select: term:Cic.term -> context:Cic.term -> (int * Cic.term) list (** mk_rels [howmany] [from] * creates a list of [howmany] rels starting from [from] in decreasing order *) val mk_rels : int -> int -> Cic.term list +(** profile s + * returns a profiling function; [s] is used for labelling the total time at + the end of the execution *) +val profile : string -> ('a -> 'b) -> 'a -> 'b