mirror of
https://github.com/idris-lang/Idris2.git
synced 2024-12-16 15:52:43 +03:00
a972778eab
They don't all pass yet, for minor reasons. Coming shortly... Unfortunately the startup overhead for chez is really noticeable here!
16 lines
225 B
Idris
16 lines
225 B
Idris
foo : (Nat, Nat) -> Nat
|
|
foo (Z, Z) = Z
|
|
|
|
bar : {a : _} -> a -> Nat
|
|
bar Z = Z
|
|
bar (S _) = S Z
|
|
|
|
cty : (a : Type) -> a -> Nat
|
|
cty Nat Z = Z
|
|
cty Nat (S _) = S Z
|
|
cty _ x = S (S Z)
|
|
|
|
badBar : a -> Nat
|
|
badBar Z = Z
|
|
badBar (S _) = S Z
|