mirror of
https://github.com/idris-lang/Idris2.git
synced 2024-12-21 10:41:59 +03:00
17 lines
247 B
Idris
17 lines
247 B
Idris
|
namespace Hoo
|
||
|
|
|
||
|
|
f : Either a b -> Either b a
|
||
|
|
f (Left a) = Right a
|
||
|
|
f (Right b) = Left b
|
||
|
|
|
||
|
|
natural : (xs : Either a b) -> ((f . f) . map g) xs === (map g . (f . f)) xs
|
||
|
|
natural = ?l
|
||
|
|
|
||
|
|
mutual
|
||
|
|
|
||
|
|
g : h === h
|
||
|
|
g = Refl
|
||
|
|
|
||
|
|
h : g === g
|
||
|
|
h = Refl
|