2014-07-09 08:12:36 +00:00
|
|
|
id : ?M_1 → ?M_1
|
|
|
|
trans : (?M_1 → ?M_1 → Bool) → Bool
|
|
|
|
symm : (?M_1 → ?M_1 → Bool) → Bool
|
|
|
|
equivalence : (?M_1 → ?M_1 → Bool) → Bool
|
|
|
|
λ (A : Type) (R : A → A → Bool),
|
2014-07-10 01:47:10 +00:00
|
|
|
and (and (refl R) (symm R)) (trans R)
|