1
1
mirror of https://github.com/edwinb/Idris2-boot.git synced 2024-12-27 23:02:52 +03:00
Idris2-boot/tests/idris2/basic011/Dots1.idr

17 lines
508 B
Idris
Raw Normal View History

2019-06-27 21:33:02 +03:00
bar : (n : Nat) -> (m : Nat) -> n = m -> Nat
bar (S m) (S m) (Refl {x = S m}) = m
data Baz : Int -> Type where
AddThings : (x : Int) -> (y : Int) -> Baz (x + y)
addBaz : (x : Int) -> Baz x -> Int
addBaz (x + y) (AddThings x y) = x + y
-- Not allowed in Idris 2, we use unification rather than matching!
-- addBaz2 : (x : Int) -> Baz x -> Int
-- addBaz2 (_ + _) (AddThings x y) = x + y
-- Also not allowed in Idris 2!
-- addBaz3 : (x : Int) -> Baz x -> Int
-- addBaz3 (x + y) (AddThings _ _) = x + y