test3ok : Nattest3ok = case (the Nat 1, the Nat 2) of (x, y) => x + y test3ok' : Nattest3ok' = case (1, 2) of (x, y) => x + ytest3ok : 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