{𝕜 : Type u_1} →
  {E : Type u_2} →
    [inst : RCLike 𝕜] →
      [inst_1 : SeminormedAddCommGroup E] →
        [inst_2 : InnerProductSpace 𝕜 E] →
          {ι : Type u_4} →
            [inst_3 : Fintype ι] →
              [Nonempty ι] → {v : ι → E} → Orthonormal 𝕜 v → Fintype.card ι = Module.finrank 𝕜 E → Module.Basis ι 𝕜 E