Skip to content

Commit 2d5732c

Browse files
authored
fix: #2752 (#2753)
1 parent 29d1632 commit 2d5732c

File tree

2 files changed

+7
-6
lines changed

2 files changed

+7
-6
lines changed

src/Data/Fin/Permutation.agda

Lines changed: 4 additions & 3 deletions
Original file line numberDiff line numberDiff line change
@@ -12,7 +12,8 @@ open import Data.Bool.Base using (true; false)
1212
open import Data.Fin.Base using (Fin; suc; cast; opposite; punchIn; punchOut)
1313
open import Data.Fin.Patterns using (0F; 1F)
1414
open import Data.Fin.Properties using (punchInᵢ≢i; punchOut-punchIn;
15-
punchOut-cong; punchOut-cong′; punchIn-punchOut; _≟_; ¬Fin0; cast-involutive)
15+
punchOut-cong; punchOut-cong′; punchIn-punchOut
16+
; _≟_; ¬Fin0; cast-involutive; opposite-involutive)
1617
import Data.Fin.Permutation.Components as PC
1718
open import Data.Nat.Base using (ℕ; suc; zero)
1819
open import Data.Product.Base using (_,_; proj₂)
@@ -130,8 +131,8 @@ reverse : Permutation n n
130131
reverse = permutation
131132
opposite
132133
opposite
133-
PC.reverse-involutive
134-
PC.reverse-involutive
134+
opposite-involutive
135+
opposite-involutive
135136

136137
------------------------------------------------------------------------
137138
-- Element removal

src/Data/Fin/Permutation/Components.agda

Lines changed: 3 additions & 3 deletions
Original file line numberDiff line numberDiff line change
@@ -69,20 +69,20 @@ Please use opposite from Data.Fin.Base instead."
6969
#-}
7070

7171
reverse-prop = opposite-prop
72-
{-# WARNING_ON_USAGE reverse
72+
{-# WARNING_ON_USAGE reverse-prop
7373
"Warning: reverse-prop was deprecated in v2.0.
7474
Please use opposite-prop from Data.Fin.Properties instead."
7575
#-}
7676

7777
reverse-involutive = opposite-involutive
78-
{-# WARNING_ON_USAGE reverse
78+
{-# WARNING_ON_USAGE reverse-involutive
7979
"Warning: reverse-involutive was deprecated in v2.0.
8080
Please use opposite-involutive from Data.Fin.Properties instead."
8181
#-}
8282

8383
reverse-suc : {n} {i : Fin n} toℕ (opposite (suc i)) ≡ toℕ (opposite i)
8484
reverse-suc {i = i} = opposite-suc i
85-
{-# WARNING_ON_USAGE reverse
85+
{-# WARNING_ON_USAGE reverse-suc
8686
"Warning: reverse-suc was deprecated in v2.0.
8787
Please use opposite-suc from Data.Fin.Properties instead."
8888
#-}

0 commit comments

Comments
 (0)