mirror of
https://github.com/idris-lang/Idris2.git
synced 2024-12-19 09:12:34 +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
|