2020-05-24 21:58:20 +03:00
|
|
|
partial
|
2020-05-19 20:25:18 +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
|
