mirror of
https://github.com/edwinb/Idris2-boot.git
synced 2024-12-19 19:01:44 +03:00
6 lines
159 B
Idris
6 lines
159 B
Idris
data Baz : Int -> Type where
|
|
AddThings : (x : Int) -> (y : Int) -> Baz (x + y)
|
|
|
|
addBaz : (x : Int) -> Baz x -> Int
|
|
addBaz (x + y) (AddThings x z) = x + y
|