lean2/tests/lean/run/example1.lean

15 lines
285 B
Text
Raw Normal View History

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