val cast_to_i_var : [< nf > `I `Var] -> i_var
val cast_to_i_n_var : [< nf > `I `N `Var] -> i_n_var
val cast_to_i_num_var : [< nf > `I `N `Match `Var] -> i_num_var
+val set_arity : int -> nf -> nf
val mk_app : nf -> nf -> nf
val mk_appl : nf -> nf list -> nf
val mk_appx : nf -> nf Listx.listx -> nf
val eta_eq : [< nf ] -> [< nf ] -> bool
val eta_subterm : [< nf ] -> [< nf ] -> bool
val max_arity_tms : int -> [< nf] list -> int
+val compute_arities : int -> int -> nf list -> int list