12 lines
294 B
Text
12 lines
294 B
Text
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
|