inductive day
| monday | tuesday | wednesday | thursday | friday | saturday | sunday

namespace day

  definition next_weekday (d : day) : day :=
  day.rec_on d tuesday wednesday thursday friday monday monday monday

  example : next_weekday (next_weekday saturday) = tuesday :=
  rfl

end day
