∀ (G : Type u) [inst : Group G] [inst_1 : TopologicalSpace G] [inst_2 : IsTopologicalGroup G] [inst_3 : CompactSpace G]
  [inst_4 : TotallyDisconnectedSpace G],
  ProfiniteGrp.of G = { toProfinite := Profinite.of G, group := inst, topologicalGroup := inst_2 }