∀ {R : Type u} {M : Type v} [inst : Semiring R] [inst_1 : AddCommMonoid M] [inst_2 : Module R M] [StrongRankCondition R]
  {ι : Type w} [inst_4 : Fintype ι] (h : Module.Basis ι R M), Module.rank R M = ↑(Fintype.card ι)