test: pattern confusion example

cc @dselsam
This commit is contained in:
Leonardo de Moura 2019-12-19 13:32:57 -08:00
parent 57f6881c6c
commit f04f51a295

View file

@ -0,0 +1,13 @@
inductive Moo : Type
| M1 : Moo
| M2 : Moo
inductive Foo : Type
| mk₁ : Moo → Foo
| mk₂ : Foo
def bar : Foo → String
| Foo.mk₁ M1 => "mk₁ M1"
| _ => "else"
#eval bar (Foo.mk₁ Moo.M2) -- "mk₁ M1"