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=6381e7f487853af26b6816ab69c3e100ffa6a06a;hpb=21d58ec6efaf1969c42eb3929475b638cdd0ce2e;p=helm.git diff --git a/helm/software/components/ng_cic_content/nTermCicContent.mli b/helm/software/components/ng_cic_content/nTermCicContent.mli index 6381e7f48..2a1d7bcc7 100644 --- a/helm/software/components/ng_cic_content/nTermCicContent.mli +++ b/helm/software/components/ng_cic_content/nTermCicContent.mli @@ -76,5 +76,22 @@ val push: unit -> unit val pop: unit -> unit *) -val nast_of_cic : subst:NCic.substitution -> NCic.term -> CicNotationPt.term -val nmap_sequent : subst:NCic.substitution -> int * NCic.conjecture -> NCic.term Content.conjecture +(* +val nast_of_cic : + 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 *)