∀ (G : Type u) [inst : AddGroup G] [inst_1 : TopologicalSpace G] [inst_2 : IsTopologicalAddGroup G]
  [inst_3 : CompactSpace G] [inst_4 : TotallyDisconnectedSpace G], ↑(ProfiniteAddGrp.of G).toProfinite.toTop = G