fix: simplify

Author: jamesmckinna

src/Data/List/Relation/Unary/Unique/Setoid/Properties.agda

@@ -49,11 +49,11 @@ module _ (S : Setoid a ℓ₁) (R : Setoid b ℓ₂) where
 
   map⁺ : ∀ {f} → (∀ {x y} → f x ≈₂ f y → x ≈₁ y) →
          ∀ {xs} → Unique S xs → Unique R (map f xs)
-  map⁺ inj xs! = AllPairs.map⁺ (AllPairs.map (λ x≈y → contraposition inj x≈y) xs!)
+  map⁺ inj xs! = AllPairs.map⁺ (AllPairs.map (contraposition inj) xs!)
 
   map⁻ : ∀ {f} → Congruent _≈₁_ _≈₂_ f →
          ∀ {xs} → Unique R (map f xs) → Unique S xs
-  map⁻ cong fxs! = AllPairs.map (λ fx≉fy → contraposition cong fx≉fy) (AllPairs.map⁻ fxs!)
+  map⁻ cong fxs! = AllPairs.map (contraposition cong) (AllPairs.map⁻ fxs!)
 
 ------------------------------------------------------------------------
 -- ++