Skip to content

Commit 4595845

Browse files
committed
Use ∃₂ to make TranspositionList type more legible
1 parent 1f701c4 commit 4595845

File tree

1 file changed

+2
-2
lines changed
  • src/Data/Fin/Permutation/Transposition

1 file changed

+2
-2
lines changed

src/Data/Fin/Permutation/Transposition/List.agda

Lines changed: 2 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -16,7 +16,7 @@ import Data.Fin.Permutation.Components as PC
1616
open import Data.List as L using (List; []; _∷_; _++_; map)
1717
import Data.List.Properties as L
1818
open import Data.Nat.Base using (ℕ; suc; zero)
19-
open import Data.Product using (Σ-syntax; ∃-syntax; _×_; _,_)
19+
open import Data.Product using (∃₂; _×_; _,_)
2020
open import Function using (_∘_)
2121
open import Relation.Binary.PropositionalEquality
2222
using (_≡_; _≢_; refl; sym; trans; cong; module ≡-Reasoning)
@@ -36,7 +36,7 @@ private
3636
-- leaving the rest in place).
3737

3838
TranspositionList : Set
39-
TranspositionList n = List (Σ[ i ∈ Fin n ] ∃[ j ] i ≢ j)
39+
TranspositionList n = List (∃₂ λ (i j : Fin n) i ≢ j)
4040

4141
------------------------------------------------------------------------
4242
-- Operations on transposition lists

0 commit comments

Comments
 (0)