arithmetics for λδ

[helm.git] / matitaB / components / ng_cic_content / interpretations.mli

diff --git a/matitaB/components/ng_cic_content/interpretations.mli b/matitaB/components/ng_cic_content/interpretations.mli
index 71732cc7dbf9a3fc745fd1ccb8632e89f9b5fb21..122096799c83f90a8bc98f5725c0a00b02194dce 100644 (file)
--- 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