∀ {M : Type u_1} [inst : CommGroup M] [inst_1 : LinearOrder M] [inst_2 : IsOrderedMonoid M]
  {s : UpperSet (FiniteMulArchimedeanClass M)},
  ↑(MulArchimedeanClass.subsemigroup (FiniteMulArchimedeanClass.toUpperSetMulArchimedeanClass s)) =
    ↑(FiniteMulArchimedeanClass.subgroup s)