| Replace (_, t1, t2) ->
sprintf "replace %s with %s" (pp_term_ast t1) (pp_term_ast t2)
| Replace_pattern (_, _, _) -> assert false (* TODO *)
- | Rewrite (_, _, _, _) -> assert false (* TODO *)
+ | Rewrite (_, pos, t, None) ->
+ sprintf "rewrite %s %s"
+ (if pos = `Left then "left" else "right") (pp_term_ast t)
+ | Rewrite _ -> assert false (* TODO *)
| Right _ -> "right"
| Ring _ -> "ring"
| Split _ -> "split"