mirror of
https://github.com/edwinb/Idris2-boot.git
synced 2024-12-30 08:13:44 +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
|