Add SetInv to extend inverse finder

2 files changed, 2 insertions, 1 deletions

diff --git a/src/pr.bqn b/src/pr.bqn
index 9f836a3c..7b01d593 100755
--- a/src/pr.bqn
+++ b/src/pr.bqn
@@ -27,6 +27,6 @@ GetRepls ← { c‿n←𝕩 ⋄ ⟨c,c⊣⌾((c∊⥊¨in)⊸/)n⟩∾¨⟨def,�
 
 rslt ← "⟨"∾"⟩"«∾","⊸∾¨out  # Output all primitives
 raw ← (•FChars "r"∾'0'⊸+∾".bqn"˙)¨ rtn
-{𝕤⋄ raw∾˜↩⟨"glyphs←"""∾out∾"%"""⟩ ⋄ rslt∾˜↩"{PrimInd↩⊑𝕩⊐<⋄𝕩‿SetPrims}"}⍟⊢ ∨´1=rtn
+{𝕤⋄ raw∾˜↩⟨"glyphs←"""∾out∾"%"""⟩ ⋄ rslt∾˜↩"{PrimInd↩⊑𝕩⊐<⋄𝕩‿SetPrims‿SetInv}"}⍟⊢ ∨´1=rtn
 raw ∾↩ ⟨rslt⟩
 src ⇐ E_proc ∾∾⟜(@+10)¨ raw
diff --git a/src/r1.bqn b/src/r1.bqn
index a27207b0..8d24ec61 100644
--- a/src/r1.bqn
+++ b/src/r1.bqn
@@ -7,6 +7,7 @@
 Decompose ← {0‿𝕩}
 PrimInd ← {𝕩}
 SetPrims ← {Decompose‿PrimInd ↩ 𝕩}
+SetInv   ← {inverse 𝕏↩}
 
 IsArray ← 0=Type
 IsAtom  ← 1≤Type