mirror of
https://github.com/edwinb/Idris2-boot.git
synced 2024-12-21 03:41:30 +03:00
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
|