rewrite_set simple
add_rewrite Nat::add_comm Nat::add_left_comm Nat::add_assoc Nat::add_zeror : simple
variables a b c : Nat
(*
 function indent(s)
    for i = 1, s:depth()-1 do
       io.write("  ")
    end
 end
 local m = simplifier_monitor(function(s, e)
                                 print("Visit, depth: " .. s:depth() .. ", " .. tostring(e))
                              end,
                              function(s, e, new_e, pr)
                                 print("Step: " .. tostring(e) .. " ===> " .. tostring(new_e))
                              end,
                              function(s, e, new_e, ceq, ceq_id)
                                 print("Rewrite using: " .. tostring(ceq_id))
                                 print("  " .. tostring(e) .. " ===> " .. tostring(new_e))
                              end
 )
 local s = simplifier("simple", options(), m)
 local t = parse_lean('a + (b + 0) + a')
 print(t)
 print("=====>")
 local t2, pr = s(t)
 print(t2)
 print(pr)
 get_environment():type_check(pr)
*)
