assert (Z.eject pos = T.Nil); (*subtree must be unexplored *)
match calculate_goal_ty g s with
| None ->
- debug_print
- ~depth (lazy ("success side effect: " ^ string_of_int gno));
+ debug_print ~depth (lazy("success side effect: "^string_of_int gno));
next ~unfocus:false (solved g depth size s pos) cache
| Some gty ->
let s, gty = apply_subst s (ctx_of gty) gty in
(* more depth than before or first time we see the goal *)
if prunable s gty () then
(debug_print ~depth (lazy( "fail one father is equal"));
- next_choice (failed pos) cache)
+ next_choice (failed pos) cache)
else
let cache = cache_add_underinspection cache gty depth in
debug_print ~depth (lazy ("INSPECTING: " ^