9 lines
231 B
Text
9 lines
231 B
Text
import data.empty .path
|
|
|
|
open path
|
|
inductive tdecidable [class] (A : Type) : Type :=
|
|
inl : A → tdecidable A,
|
|
inr : ~A → tdecidable A
|
|
|
|
structure decidable_paths [class] (A : Type) :=
|
|
(elim : ∀(x y : A), tdecidable (x ≈ y))
|