Idris2/tests/idris2/total011/Issue1828.idr
2021-09-01 11:32:51 +01:00

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