@@ -33,6 +33,10 @@ namespace Builtins
33 ||| @b the right element of the pair
33 ||| @b the right element of the pair
34 MkUniquePair : {A, B : AnyType} -> (a : A) -> (b : B) -> UniquePair A B
34 MkUniquePair : {A, B : AnyType} -> (a : A) -> (b : B) -> UniquePair A B
36+ -- Usage hints for erasure analysis
36 UPair : (A : AnyType) -> (B : AnyType) -> AnyType
40 UPair : (A : AnyType) -> (B : AnyType) -> AnyType
37 UPair a b = UniquePair a b
41 UPair a b = UniquePair a b
38 %deprecate UPair "This name is being deprecated in favour of `UniquePair`"
42 %deprecate UPair "This name is being deprecated in favour of `UniquePair`"