import logic
inductive day :=
monday, tuesday, wednesday, thursday, friday, saturday, sunday
namespace day
definition next_weekday d :=
rec_on d tuesday wednesday thursday friday monday monday monday
example : next_weekday (next_weekday saturday) = tuesday :=
rfl
end day