bf9f7560f7
(Type u) is the old (Type (u+1)) (PType u) is the old (Type u) Type* is the old (Type (_+1)) PType* is the old Type* The stdlib can be compiled, but we still have > 70 broken tests See discussion at #1341
7 lines
195 B
Text
7 lines
195 B
Text
open classical sum
|
|
universe variable u
|
|
noncomputable example (A : Type u) (h : (A → empty) → false) : A :=
|
|
match type_decidable A with
|
|
| (inl ha) := ha
|
|
| (inr hna) := false.rec _ (h hna)
|
|
end
|