mirror of
https://github.com/idris-lang/Idris2.git
synced 2024-12-23 11:43:08 +03:00
17 lines
311 B
Plaintext
17 lines
311 B
Plaintext
|
data Nat : Type where
|
||
|
|
Z : Nat
|
||
|
|
S : Nat -> Nat
|
||
|
|
|
||
|
|
plus : Nat -> Nat -> Nat
|
||
|
|
plus Z $y = y
|
||
|
|
plus (S $k) $y = S (plus k y)
|
||
|
|
|
||
|
|
data Eq : $a -> $b -> Type where
|
||
|
|
Refl : Eq $x $x
|
||
|
|
|
||
|
|
data Test : Type where
|
||
|
|
MkTest : Integer -> Integer -> Test
|
||
|
|
|
||
|
|
etaBad : Eq MkTest (\x : Char => \y => MkTest ? ?)
|
||
|
|
etaBad = Refl
|