val scott_of_nf : nf -> Pure.Pure.t
end
val print : ?l:string list -> nf -> string
-val string_of_nf : [<nf] -> string
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 mk_appx : nf -> nf Listx.listx -> nf
val mk_match : nf -> var -> int -> (int * nf) list ref -> nf list -> nf
val subst : bool -> bool -> int -> nf -> nf -> nf
-val parse' : string list -> nf list * string list
val eta_compare : nf -> nf -> int
val eta_eq : [< nf ] -> [< nf ] -> bool
val eta_subterm : [< nf ] -> [< nf ] -> bool