14 lines
172 B
Text
14 lines
172 B
Text
module
|
|
inductive C where
|
|
| a | b | c
|
|
|
|
def f : C → Nat
|
|
| .a => 2
|
|
| .b => 3
|
|
| .c => 4
|
|
|
|
example : f .a > 1 := by
|
|
grind [f]
|
|
|
|
example : f x > 1 := by
|
|
grind [f, C]
|