lean4-htt/tests/lean/run/splitAtCode.lean
2022-05-23 11:55:57 -07:00

8 lines
212 B
Text

inductive Foo where
| ctor1 (s : Nat)
| ctor2 (s : String)
def test (x y : Foo) : Decidable (match (x, y) with
| (.ctor1 s₁, .ctor1 s₂) => ¬s₁ = s₂
| x => False) := by
split <;> infer_instance