subst:NCic.substitution -> context:NCic.context -> NCic.term ->
CicNotationPt.term
*)
-val nmap_sequent : subst:NCic.substitution -> int * NCic.conjecture -> CicNotationPt.term Content.conjecture
+
+type id = string
+
+val nmap_sequent:
+ subst:NCic.substitution -> int * NCic.conjecture ->
+ CicNotationPt.term Content.conjecture *
+ (id, NReference.reference) Hashtbl.t (* id -> reference *)
+
+val nmap_obj:
+ NCic.obj ->
+ CicNotationPt.term Content.cobj *
+ (id, NReference.reference) Hashtbl.t (* id -> reference *)