X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=helm%2Fsoftware%2Fcomponents%2Fng_cic_content%2FnTermCicContent.mli;h=2a1d7bcc7c613dd1c07c7652d5cf15eef438a0d5;hb=203d9c797cf1748a211251a3e002e8ecf52d8e3c;hp=e66e2ef7a4cfa8493cf09cc7a8e921cc499466f7;hpb=6abf435197c2bc37fadc0b3bd5925cd9cbe112e2;p=helm.git

diff --git a/helm/software/components/ng_cic_content/nTermCicContent.mli b/helm/software/components/ng_cic_content/nTermCicContent.mli
index e66e2ef7a..2a1d7bcc7 100644
--- a/helm/software/components/ng_cic_content/nTermCicContent.mli
+++ b/helm/software/components/ng_cic_content/nTermCicContent.mli
@@ -76,7 +76,22 @@ val push: unit -> unit
 val pop: unit -> unit
 *)
 
+(*
 val nast_of_cic :
- subst:NCic.substitution -> context:NCic.context -> NCic.term ->
-  CicNotationPt.term
-val nmap_sequent : subst:NCic.substitution -> int * NCic.conjecture -> CicNotationPt.term Content.conjecture
+ output_type:[`Pattern | `Term ] ->
+  subst:NCic.substitution -> context:NCic.context -> NCic.term ->
+   CicNotationPt.term
+*)
+
+type id = string
+
+val nmap_sequent:
+ #NCicCoercion.status -> metasenv:NCic.metasenv -> subst:NCic.substitution ->
+  int * NCic.conjecture ->
+   CicNotationPt.term Content.conjecture *
+    (id, NReference.reference) Hashtbl.t    (* id -> reference *)
+
+val nmap_obj:
+ #NCicCoercion.status -> NCic.obj ->
+  CicNotationPt.term Content.cobj *
+   (id, NReference.reference) Hashtbl.t    (* id -> reference *)