-val delift_rels :
- Cic.substitution -> Cic.metasenv -> int -> Cic.term ->
- Cic.term * Cic.substitution * Cic.metasenv
-
-(** {2 Pretty printers} *)
-val use_low_level_ppterm_in_context : bool ref
-val set_ppterm_in_context :
- (metasenv:Cic.metasenv -> Cic.substitution -> Cic.term -> Cic.context ->
- string) -> unit
-
-val ppsubst_unfolded: metasenv:Cic.metasenv -> Cic.substitution -> string
-val ppsubst: metasenv:Cic.metasenv -> Cic.substitution -> string
-val ppterm: metasenv:Cic.metasenv -> Cic.substitution -> Cic.term -> string
-val ppcontext:
- metasenv:Cic.metasenv -> ?sep: string -> Cic.substitution -> Cic.context ->
- string
-val ppterm_in_name_context:
- metasenv:Cic.metasenv -> Cic.substitution -> Cic.term ->
- (Cic.name option) list -> string
-val ppterm_in_context:
- metasenv:Cic.metasenv -> Cic.substitution -> Cic.term -> Cic.context -> string
-val ppmetasenv: ?sep: string -> Cic.substitution -> Cic.metasenv -> string
-
-(** {2 Format-like pretty printers}
- * As above with prototypes suitable for toplevel/ocamldebug printers. No
- * subsitutions are applied here since such printers are required to be invoked
- * with only one argument.
- *)
-
-val fppsubst: Format.formatter -> Cic.substitution -> unit
-val fppterm: Format.formatter -> Cic.term -> unit
-val fppmetasenv: Format.formatter -> Cic.metasenv -> unit
-
-(*
-(* DEBUG *)
-val print_counters: unit -> unit
-val reset_counters: unit -> unit
-*)
-
-(* val clean_up_meta :
- Cic.substitution -> Cic.metasenv -> Cic.term -> Cic.term
-*)
-*)
+val delift :
+ unify:(NCic.metasenv -> NCic.substitution -> NCic.context ->
+ NCic.term -> NCic.term -> (NCic.metasenv * NCic.substitution) option) ->
+ NCic.metasenv -> NCic.substitution -> NCic.context ->
+ int -> NCic.local_context -> NCic.term ->
+ (NCic.metasenv * NCic.substitution) * NCic.term
+
+val restrict:
+ NCic.metasenv ->
+ NCic.substitution ->
+ int -> int list -> NCic.metasenv * NCic.substitution * int
+
+(* bool = true if the type of the new meta is closed *)
+val mk_meta:
+ ?attrs:NCic.meta_attrs ->
+ NCic.metasenv -> NCic.context ->
+ [ `WithType of NCic.term | `Term | `Type | `Sort ] ->
+ NCic.metasenv * int * NCic.term * NCic.term (* menv,metano,instance,type *)
+
+(* 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 is_out_scope_tag : NCic.meta_attrs -> bool
+val int_of_out_scope_tag : NCic.meta_attrs -> int