12 lines
349 B
Text
12 lines
349 B
Text
open tactic
|
|
|
|
axiom Sorry : ∀ A : Type, A
|
|
|
|
inductive Enum : Type | ea | eb | ec | ed
|
|
attribute [instance]
|
|
noncomputable definition Enum_dec_eq : decidable_eq Enum :=
|
|
by do a ← intro `a, cases a,
|
|
b ← intro `b, cases b,
|
|
right >> reflexivity,
|
|
try (left >> intro `H >>= cases),
|
|
repeat $ intros >> mk_const `Sorry >>= apply
|