Fix sortedness test in /⁼

1 files changed, 1 insertions, 1 deletions

diff --git a/src/r1.bqn b/src/r1.bqn
index 330b47f0..399bedf7 100644
--- a/src/r1.bqn
+++ b/src/r1.bqn
@@ -211,7 +211,7 @@ Indices←{
 IndicesInv←{
   IA 1==𝕩
   IA 1×´Nat⌜𝕩
-  IX (0⊸≤)◶⟨1,1×´(⊢≤○(⊑⟜𝕩)1⊸+)⌜∘↕⟩-˜≠𝕩
+  IX (0⊸≤)◶⟨1,1×´(⊢≤○(⊑⟜𝕩)1⊸+)⌜∘↕⟩1-˜≠𝕩
   GroupLen 𝕩
 }
 SelfClas ← (PermInv∘⍋∘Rep˜⊏˜¯1+`⊢) _self