X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=matitaB%2Fcomponents%2Fng_cic_content%2Finterpretations.mli;h=122096799c83f90a8bc98f5725c0a00b02194dce;hb=80e953c112c66f884d167e7ff876c1f6289e1400;hp=71732cc7dbf9a3fc745fd1ccb8632e89f9b5fb21;hpb=cacbe3c6493ddce76c4c13379ade271d8dd172e8;p=helm.git diff --git a/matitaB/components/ng_cic_content/interpretations.mli b/matitaB/components/ng_cic_content/interpretations.mli index 71732cc7d..122096799 100644 --- a/matitaB/components/ng_cic_content/interpretations.mli +++ b/matitaB/components/ng_cic_content/interpretations.mli @@ -37,6 +37,7 @@ class type g_status = end class virtual status : + string option -> object ('self) inherit g_status inherit NCicCoercion.status @@ -79,23 +80,17 @@ val nmap_term: #status -> metasenv:NCic.metasenv -> subst:NCic.substitution -> context:NCic.context -> NCic.term -> - NotationPt.term * - (Content.id, NReference.reference) Hashtbl.t (* id -> reference *) + NotationPt.term val nmap_context: #status -> metasenv:NCic.metasenv -> subst:NCic.substitution -> - NCic.context -> - NotationPt.term Content.context * - (Content.id, NReference.reference) Hashtbl.t (* id -> reference *) + NCic.context -> NotationPt.context val nmap_sequent: #status -> metasenv:NCic.metasenv -> subst:NCic.substitution -> int * NCic.conjecture -> - NotationPt.term Content.conjecture * - (Content.id, NReference.reference) Hashtbl.t (* id -> reference *) + NotationPt.sequent val nmap_obj: - #status -> NCic.obj -> - NotationPt.term Content.cobj * - (Content.id, NReference.reference) Hashtbl.t (* id -> reference *) + #status -> NCic.obj -> NotationPt.term NotationPt.obj