mirror of
https://github.com/idris-lang/Idris2.git
synced 2024-12-17 08:11:45 +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
|