2014-11-01 11:35:38 -07:00
|
|
|
import logic
|
|
|
|
|
|
|
|
|
|
inductive day :=
|
2015-02-25 17:00:10 -08:00
|
|
|
monday | tuesday | wednesday | thursday | friday | saturday | sunday
|
2014-11-01 11:35:38 -07:00
|
|
|
|
|
|
|
|
namespace day
|
|
|
|
|
|
|
|
|
|
definition next_weekday d :=
|
2015-02-11 12:49:27 -08:00
|
|
|
day.rec_on d tuesday wednesday thursday friday monday monday monday
|
2014-11-01 11:35:38 -07:00
|
|
|
|
2014-11-01 16:12:23 -07:00
|
|
|
example : next_weekday (next_weekday saturday) = tuesday :=
|
2014-11-01 11:35:38 -07:00
|
|
|
rfl
|
|
|
|
|
|
|
|
|
|
end day
|
