Idris2/tests/idris2/basic017/CaseInf.idr

8 lines
157 B
Idris
Raw Normal View History

test3ok : Nat
test3ok = case (the Nat 1, the Nat 2) of
(x, y) => x + y
test3ok' : Nat
test3ok' = case (1, 2) of
(x, y) => x + y