7 lines
176 B
Text
7 lines
176 B
Text
open classical sum
|
|
|
|
noncomputable example (A : Type _) (h : (A → false) → false) : A :=
|
|
match type_decidable A with
|
|
| (inl ha) := ha
|
|
| (inr hna) := false.rec _ (h hna)
|
|
end
|