lean2/hott/logic.hlean

10 lines
255 B
Text
Raw Normal View History

2014-12-12 18:17:50 +00:00
--javra: Maybe this should go somewhere else
2014-12-12 04:14:53 +00:00
2014-12-12 18:17:50 +00:00
open eq
2014-12-12 04:14:53 +00:00
inductive tdecidable [class] (A : Type) : Type :=
inl : A → tdecidable A,
inr : ~A → tdecidable A
structure decidable_paths [class] (A : Type) :=
2014-12-12 18:17:50 +00:00
(elim : ∀(x y : A), tdecidable (x = y))