(R : Type u) →
  (A : Type u_4) →
    [inst : CommSemiring R] →
      [inst_1 : CommSemiring A] →
        [inst_2 : Algebra R A] →
          [FaithfulSMul R A] →
            (Submodule R A)ˣ ⧸ (Units.map ↑(Submodule.spanSingleton R)).range ≃* ↥(CommRing.relPic R A)