-val nast_of_cic : NCic.term -> CicNotationPt.term
-val map_sequent : 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 *)