7 lines
120 B
Text
7 lines
120 B
Text
|
inductive day :=
|
||
|
|
monday, tuesday, wednesday, thursday, friday, saturday, sunday
|
||
|
|
|
||
|
|
check day.monday
|
||
|
|
open day
|
||
|
|
check monday
|