- [ `WithType of NCic.term | `Term | `Type | `Sort ] ->
- NCic.metasenv * NCic.term * NCic.term (* menv, instance, type *)
+ ?with_type:NCic.term -> NCicUntrusted.meta_kind ->
+ NCic.metasenv * int * NCic.term * NCic.term (* menv,metano,instance,type *)
+
+(* extend_meta m n: n must be in m *)
+val extend_meta: NCic.metasenv -> int -> NCic.metasenv * NCic.term