mirror of
https://github.com/idris-lang/Idris2.git
synced 2024-12-25 12:42:02 +03:00
12 lines
188 B
Idris
12 lines
188 B
Idris
|
%default total
|
||
|
|
|
||
|
|
mutual
|
||
|
|
caseTest : Nat -> Bool
|
||
|
|
caseTest p with (dummy)
|
||
|
|
caseTest p | _ = True
|
||
|
|
|
||
|
|
dummy : Nat
|
||
|
|
dummy = case (caseTest 0) of
|
||
|
|
True => 0
|
||
|
|
_ => 0
|