;;
let pp_substitution ~formatter:f subst =
- (List.iter
- (fun (i, t) ->
- (Format.fprintf f "?%d -> " i;
- pp_foterm f t)
- )
- subst)
+ Format.fprintf f "@[<v 2>";
+ List.iter
+ (fun (i, t) ->
+ (Format.fprintf f "?%d -> " i;
+ pp_foterm f t;
+ Format.fprintf f "@;"))
+ subst;
+ Format.fprintf f "@]";
;;
let pp_proof bag ~formatter:f p =