11 lines
218 B
Text
11 lines
218 B
Text
inductive Foo : Nat → Prop
|
|
| one : Foo 1
|
|
| two : Foo 2
|
|
|
|
attribute [grind ·] Foo.one
|
|
|
|
#guard_msgs in
|
|
example {l : Nat} (hl : Foo l) : Foo (3 - l) := by
|
|
induction hl with
|
|
| one => grind [Foo]
|
|
| two => grind
|