let bs = List.map (
function (n,t) -> n,
(if t = !bomb then delta
- else L (t_of_nf (lift (liftno+1) t)))
+ else Pure.L (t_of_nf (lift (liftno+1) t)))
) !bs in
let t = t_of_i_num_var t in
let m = Scott.mk_match t bs in
(* let rec string_of_term l = fun _ -> "";; *)
-let rec string_of_term =
+let string_of_term =
let boundvar x = "v" ^ string_of_int x in
let varname lev l n =
if n < lev then boundvar (lev-n-1)
and string_of_term_no_pars lev l = function
| `Lam _ as t -> string_of_term_no_pars_lam lev l t
| #nf as t -> string_of_term_no_pars_app lev l t
- in string_of_term_no_pars 0
+ and string_of_term t = string_of_term_no_pars 0 t in
+ string_of_term
;;
let print ?(l=[]) = string_of_term l;;