lean4-htt/tests/lean/eq_class_error.lean
2016-04-05 16:03:10 -07:00

10 lines
252 B
Text

inductive foo :=
| a | b
open foo
definition decidable_eq_foo [instance] : ∀ f₁ f₂ : foo, decidable (f₁ = f₂)
| a a := by left; reflexivity
| a b := by right; contradiction
| b a := by right; contradiction
| b b := by left; reflexivity