int -> NCic.local_context -> NCic.term ->
(NCic.metasenv * NCic.substitution) * NCic.term
+(* restrict metasenv subst n l
+ returns metasenv, subst, created meta and l' where l' is the list of
+ additional (i.e. l' does not intersects l) positions whose restriction was
+ forced because of type dependencies *)
val restrict:
NCic.metasenv ->
NCic.substitution ->
- int -> int list -> NCic.metasenv * NCic.substitution * int
+ int -> int list ->
+ NCic.metasenv * NCic.substitution * int * int list
(* bool = true if the type of the new meta is closed *)
val mk_meta: