mirror of
https://github.com/idris-lang/Idris2.git
synced 2024-12-30 15:13:37 +03:00
10 lines
172 B
Idris
10 lines
172 B
Idris
mutual
|
|
caseTest : Nat -> Bool
|
|
caseTest p with (dummy)
|
|
caseTest p | _ = True
|
|
|
|
dummy : Nat
|
|
dummy = case (caseTest 0) of
|
|
True => 0
|
|
_ => 0
|