∀ {R : Type u} {M : Type v} {N : Type u_1} [inst : CommSemiring R] [inst_1 : AddCommMonoid M] [inst_2 : AddCommMonoid N]
  [inst_3 : Module R M] [inst_4 : Module R N] [Module.Invertible R M] [Module.Invertible R N] {f : M →ₗ[R] N}
  {g : N →ₗ[R] M}, Function.RightInverse ⇑f ⇑g → Function.LeftInverse ⇑f ⇑g