Idris2/tests/idris2/basic011/Dots3.idr

6 lines
159 B
Idris
Raw Normal View History

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