exception MetaSubstFailure of string Lazy.t
exception Uncertain of string Lazy.t
+val debug: bool ref
+
(* the index of the last created meta *)
val maxmeta: unit -> int
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:
- ?name:string ->
+ ?attrs:NCic.meta_attrs ->
NCic.metasenv -> NCic.context ->
- [ `WithType of NCic.term | `Term | `Type | `Sort ] ->
+ ?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
+
(* returns the resulting type, the metasenv and the arguments *)
val saturate:
?delta:int -> NCic.metasenv -> NCic.substitution ->
NCic.context -> NCic.term -> int ->
NCic.term * NCic.metasenv * NCic.term list
-val flexible: NCic.substitution -> NCic.term list -> bool
+val pack_lc : int * NCic.lc_kind -> int * NCic.lc_kind
+
+val is_out_scope_tag : NCic.meta_attrs -> bool
+val int_of_out_scope_tag : NCic.meta_attrs -> int
-val in_scope_tag : string
-val out_scope_tag : int -> string
-val is_out_scope_tag : string -> bool
-val int_of_out_scope_tag : string -> int
+val is_flexible : NCic.context -> subst:NCic.substitution -> NCic.term -> bool