∀ {R : Type u_1} {A : Type u_2} [inst : CommSemiring R] [inst_1 : Semiring A] [inst_2 : Algebra R A]
  [inst_3 : FaithfulSMul R A] (I : (Submodule R A)ˣ), Nonempty (↥↑I ≃ₗ[R] (CommRing.Pic.mk R ↥↑I).AsModule)