Idris2/tests/idris2/basic/basic011/Dots3.idr

mirror of https://github.com/idris-lang/Idris2.git synced 2024-12-21 02:31:50 +03:00
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
Add test script They don't all pass yet, for minor reasons. Coming shortly... Unfortunately the startup overhead for chez is really noticeable here! 2020-05-19 20:25:18 +03:00			`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`