∀ {α : Type u_1} [inst : UniformSpace α] [inst_1 : Group α] [IsUniformGroup α] {ι : Sort u_3} {p : ι → Prop}
  {U : ι → Set α}, (nhds 1).HasBasis p U → (uniformity α).HasBasis p fun i => {x | x.2⁻¹ * x.1 ∈ U i}