mirror of
https://github.com/idris-lang/Idris2.git
synced 2024-12-22 03:01:31 +03:00
17 lines
224 B
Idris
17 lines
224 B
Idris
|
%default total
|
||
|
|
|
||
|
|
data Fix : (Type -> Type) -> Type where
|
||
|
|
MkFix : f (Fix f) -> Fix f
|
||
|
|
|
||
|
|
F : Type
|
||
|
|
F = Fix Not
|
||
|
|
|
||
|
|
yesF : Not F -> F
|
||
|
|
yesF nf = MkFix nf
|
||
|
|
|
||
|
|
notF : Not F
|
||
|
|
notF (MkFix f) = f (yesF f)
|
||
|
|
|
||
|
|
argh : Void
|
||
|
|
argh = notF (yesF notF)
|