∀ {G : Type u_1} [inst : AddGroup G] [inst_1 : TopologicalSpace G] [IsTopologicalAddGroup G]
  {K₀ : TopologicalSpace.PositiveCompacts G} {U : Set G} {K₁ K₂ : TopologicalSpace.Compacts G},
  (interior U).Nonempty →
    Disjoint (K₁.carrier + -U) (K₂.carrier + -U) →
      MeasureTheory.Measure.haar.addPrehaar (↑K₀) U (K₁ ⊔ K₂) =
        MeasureTheory.Measure.haar.addPrehaar (↑K₀) U K₁ + MeasureTheory.Measure.haar.addPrehaar (↑K₀) U K₂