mirror of
https://github.com/idris-lang/Idris2.git
synced 2024-12-19 09:12:34 +03:00
5 lines
104 B
Idris
5 lines
104 B
Idris
|
f : { a, b : Type } -> Either a b -> Either b a
|
||
|
|
f {a=b} x = x
|
||
|
|
f (Right x) = Left x
|
||
|
|
f (Left x) = Right x
|