mirror of
https://github.com/idris-lang/Idris2.git
synced 2024-12-19 09:12:34 +03:00
8 lines
126 B
Idris
8 lines
126 B
Idris
|
%default total
|
||
|
|
|
||
|
|
test : (f : () -> Bool) -> f () = True
|
||
|
|
test (\x => True) = Refl
|
||
|
|
|
||
|
|
bad : False = True
|
||
|
|
bad = test (\() => False)
|