13 lines
224 B
Text
13 lines
224 B
Text
inductive weekday : Type
|
|
| sunday : weekday
|
|
| monday : weekday
|
|
| tuesday : weekday
|
|
| wednesday : weekday
|
|
|
|
def ppday (d : weekday) : nat :=
|
|
match d with
|
|
| sunday := 0
|
|
| monday := 1
|
|
| tuesday := 2
|
|
| wednesday := 3
|
|
end
|