mirror of
https://github.com/idris-lang/Idris2.git
synced 2024-12-15 14:23:32 +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
|