To prevent user confusion as in this [Zulip message](https://leanprover.zulipchat.com/#narrow/stream/113489-new-members/topic/Matching.20on.20prop/near/341456011)
17 lines
No EOL
315 B
Text
17 lines
No EOL
315 B
Text
/-! Test invalid mutual block error message -/
|
|
|
|
inductive Foo : Type where
|
|
| foo0 : Nat → Foo
|
|
| foo1 : Foo → Foo
|
|
| foo2 : Foo → Foo → Foo
|
|
|
|
mutual
|
|
|
|
inductive Bar1 : Foo → Prop where
|
|
| mk {f : Foo} : Bar f → Bar1 (.foo1 f)
|
|
|
|
def Bar : Foo → Prop
|
|
| .foo1 f => Bar1 f
|
|
| _ => True
|
|
|
|
end |