-- Mathlib/MeasureTheory/VectorMeasure/Basic.lean
theorem add_left [T2Space N] [ContinuousAdd M] (h₁ : v₁ ⟂ᵥ w) (h₂ : v₂ ⟂ᵥ w) : v₁ + v₂ ⟂ᵥ w

Proof state:
case intro.intro.intro.intro.intro.intro.refine_1
α : Type u_1
m : MeasurableSpace α
M : Type u_4
N : Type u_5
inst✝⁵ : AddCommMonoid M
inst✝⁴ : TopologicalSpace M
inst✝³ : AddCommMonoid N
inst✝² : TopologicalSpace N
v₁ v₂ : VectorMeasure α M
w : VectorMeasure α N
inst✝¹ : T2Space N
inst✝ : ContinuousAdd M
u : Set α
hmu : MeasurableSet u
hu₁ : ∀ t ⊆ u, ↑v₁ t = 0
hu₂ : ∀ t ⊆ uᶜ, ↑w t = 0
v : Set α
hmv : MeasurableSet v
hv₁ : ∀ t ⊆ v, ↑v₂ t = 0
hv₂ : ∀ t ⊆ vᶜ, ↑w t = 0
t : Set α
ht : t ⊆ u ∩ v
x✝ : MeasurableSet t
⊢ ↑(v₁ + v₂) t = 0

Tactic:
rw [add_apply, hu₁ _ (Set.subset_inter_iff.1 ht).1, hv₁ _ (Set.subset_inter_iff.1 ht).2,
  zero_add]

Result:
no goals

Proof state:
case intro.intro.intro.intro.intro.intro.refine_2
α : Type u_1
m : MeasurableSpace α
M : Type u_4
N : Type u_5
inst✝⁵ : AddCommMonoid M
inst✝⁴ : TopologicalSpace M
inst✝³ : AddCommMonoid N
inst✝² : TopologicalSpace N
v₁ v₂ : VectorMeasure α M
w : VectorMeasure α N
inst✝¹ : T2Space N
inst✝ : ContinuousAdd M
u : Set α
hmu : MeasurableSet u
hu₁ : ∀ t ⊆ u, ↑v₁ t = 0
hu₂ : ∀ t ⊆ uᶜ, ↑w t = 0
v : Set α
hmv : MeasurableSet v
hv₁ : ∀ t ⊆ v, ↑v₂ t = 0
hv₂ : ∀ t ⊆ vᶜ, ↑w t = 0
t : Set α
ht : t ⊆ (u ∩ v)ᶜ
hmt : MeasurableSet t
⊢ ↑w t = 0

Tactic:
rw [Set.compl_inter] at ht

Result:
case intro.intro.intro.intro.intro.intro.refine_2
α : Type u_1
m : MeasurableSpace α
M : Type u_4
N : Type u_5
inst✝⁵ : AddCommMonoid M
inst✝⁴ : TopologicalSpace M
inst✝³ : AddCommMonoid N
inst✝² : TopologicalSpace N
v₁ v₂ : VectorMeasure α M
w : VectorMeasure α N
inst✝¹ : T2Space N
inst✝ : ContinuousAdd M
u : Set α
hmu : MeasurableSet u
hu₁ : ∀ t ⊆ u, ↑v₁ t = 0
hu₂ : ∀ t ⊆ uᶜ, ↑w t = 0
v : Set α
hmv : MeasurableSet v
hv₁ : ∀ t ⊆ v, ↑v₂ t = 0
hv₂ : ∀ t ⊆ vᶜ, ↑w t = 0
t : Set α
ht : t ⊆ uᶜ ∪ vᶜ
hmt : MeasurableSet t
⊢ ↑w t = 0

Proof state:
case pos
α : Type u_1
m : MeasurableSpace α
M : Type u_4
N : Type u_5
inst✝⁵ : AddCommMonoid M
inst✝⁴ : TopologicalSpace M
inst✝³ : AddCommMonoid N
inst✝² : TopologicalSpace N
v₁ v₂ : VectorMeasure α M
w : VectorMeasure α N
inst✝¹ : T2Space N
inst✝ : ContinuousAdd M
u : Set α
hmu : MeasurableSet u
hu₁ : ∀ t ⊆ u, ↑v₁ t = 0
hu₂ : ∀ t ⊆ uᶜ, ↑w t = 0
v : Set α
hmv : MeasurableSet v
hv₁ : ∀ t ⊆ v, ↑v₂ t = 0
hv₂ : ∀ t ⊆ vᶜ, ↑w t = 0
t : Set α
ht : t ⊆ uᶜ ∪ vᶜ
hmt : MeasurableSet t
x : α
hx : x ∈ t
hxu' : x ∈ uᶜ
⊢ x ∈ uᶜ ∩ t ∪ vᶜ \ uᶜ ∩ t

Tactic:
exact Or.inl ⟨hxu', hx⟩

Result:
no goals

Proof state:
case h₁
α : Type u_1
m : MeasurableSpace α
M : Type u_4
N : Type u_5
inst✝⁵ : AddCommMonoid M
inst✝⁴ : TopologicalSpace M
inst✝³ : AddCommMonoid N
inst✝² : TopologicalSpace N
v₁ v₂ : VectorMeasure α M
w : VectorMeasure α N
inst✝¹ : T2Space N
inst✝ : ContinuousAdd M
u : Set α
hmu : MeasurableSet u
hu₁ : ∀ t ⊆ u, ↑v₁ t = 0
hu₂ : ∀ t ⊆ uᶜ, ↑w t = 0
v : Set α
hmv : MeasurableSet v
hv₁ : ∀ t ⊆ v, ↑v₂ t = 0
hv₂ : ∀ t ⊆ vᶜ, ↑w t = 0
t : Set α
ht : t ⊆ uᶜ ∪ vᶜ
hmt : MeasurableSet t
x : α
hx : x ∈ t
⊢ x ∈ uᶜ ∩ t ∪ vᶜ \ uᶜ ∩ t

Tactic:
by_cases hxu' : x ∈ uᶜ

Result:
case pos
α : Type u_1
m : MeasurableSpace α
M : Type u_4
N : Type u_5
inst✝⁵ : AddCommMonoid M
inst✝⁴ : TopologicalSpace M
inst✝³ : AddCommMonoid N
inst✝² : TopologicalSpace N
v₁ v₂ : VectorMeasure α M
w : VectorMeasure α N
inst✝¹ : T2Space N
inst✝ : ContinuousAdd M
u : Set α
hmu : MeasurableSet u
hu₁ : ∀ t ⊆ u, ↑v₁ t = 0
hu₂ : ∀ t ⊆ uᶜ, ↑w t = 0
v : Set α
hmv : MeasurableSet v
hv₁ : ∀ t ⊆ v, ↑v₂ t = 0
hv₂ : ∀ t ⊆ vᶜ, ↑w t = 0
t : Set α
ht : t ⊆ uᶜ ∪ vᶜ
hmt : MeasurableSet t
x : α
hx : x ∈ t
hxu' : x ∈ uᶜ
⊢ x ∈ uᶜ ∩ t ∪ vᶜ \ uᶜ ∩ t

case neg
α : Type u_1
m : MeasurableSpace α
M : Type u_4
N : Type u_5
inst✝⁵ : AddCommMonoid M
inst✝⁴ : TopologicalSpace M
inst✝³ : AddCommMonoid N
inst✝² : TopologicalSpace N
v₁ v₂ : VectorMeasure α M
w : VectorMeasure α N
inst✝¹ : T2Space N
inst✝ : ContinuousAdd M
u : Set α
hmu : MeasurableSet u
hu₁ : ∀ t ⊆ u, ↑v₁ t = 0
hu₂ : ∀ t ⊆ uᶜ, ↑w t = 0
v : Set α
hmv : MeasurableSet v
hv₁ : ∀ t ⊆ v, ↑v₂ t = 0
hv₂ : ∀ t ⊆ vᶜ, ↑w t = 0
t : Set α
ht : t ⊆ uᶜ ∪ vᶜ
hmt : MeasurableSet t
x : α
hx : x ∈ t
hxu' : x ∉ uᶜ
⊢ x ∈ uᶜ ∩ t ∪ vᶜ \ uᶜ ∩ t

Proof state:
α : Type u_1
m : MeasurableSpace α
M : Type u_4
N : Type u_5
inst✝⁵ : AddCommMonoid M
inst✝⁴ : TopologicalSpace M
inst✝³ : AddCommMonoid N
inst✝² : TopologicalSpace N
v₁ v₂ : VectorMeasure α M
w : VectorMeasure α N
inst✝¹ : T2Space N
inst✝ : ContinuousAdd M
u : Set α
hmu : MeasurableSet u
hu₁ : ∀ t ⊆ u, ↑v₁ t = 0
hu₂ : ∀ t ⊆ uᶜ, ↑w t = 0
v : Set α
hmv : MeasurableSet v
hv₁ : ∀ t ⊆ v, ↑v₂ t = 0
hv₂ : ∀ t ⊆ vᶜ, ↑w t = 0
t : Set α
ht : t ⊆ uᶜ ∪ vᶜ
hmt : MeasurableSet t
⊢ t = uᶜ ∩ t ∪ vᶜ \ uᶜ ∩ t

Tactic:
apply Set.Subset.antisymm <;> intro x hx

Result:
case h₁
α : Type u_1
m : MeasurableSpace α
M : Type u_4
N : Type u_5
inst✝⁵ : AddCommMonoid M
inst✝⁴ : TopologicalSpace M
inst✝³ : AddCommMonoid N
inst✝² : TopologicalSpace N
v₁ v₂ : VectorMeasure α M
w : VectorMeasure α N
inst✝¹ : T2Space N
inst✝ : ContinuousAdd M
u : Set α
hmu : MeasurableSet u
hu₁ : ∀ t ⊆ u, ↑v₁ t = 0
hu₂ : ∀ t ⊆ uᶜ, ↑w t = 0
v : Set α
hmv : MeasurableSet v
hv₁ : ∀ t ⊆ v, ↑v₂ t = 0
hv₂ : ∀ t ⊆ vᶜ, ↑w t = 0
t : Set α
ht : t ⊆ uᶜ ∪ vᶜ
hmt : MeasurableSet t
x : α
hx : x ∈ t
⊢ x ∈ uᶜ ∩ t ∪ vᶜ \ uᶜ ∩ t

case h₂
α : Type u_1
m : MeasurableSpace α
M : Type u_4
N : Type u_5
inst✝⁵ : AddCommMonoid M
inst✝⁴ : TopologicalSpace M
inst✝³ : AddCommMonoid N
inst✝² : TopologicalSpace N
v₁ v₂ : VectorMeasure α M
w : VectorMeasure α N
inst✝¹ : T2Space N
inst✝ : ContinuousAdd M
u : Set α
hmu : MeasurableSet u
hu₁ : ∀ t ⊆ u, ↑v₁ t = 0
hu₂ : ∀ t ⊆ uᶜ, ↑w t = 0
v : Set α
hmv : MeasurableSet v
hv₁ : ∀ t ⊆ v, ↑v₂ t = 0
hv₂ : ∀ t ⊆ vᶜ, ↑w t = 0
t : Set α
ht : t ⊆ uᶜ ∪ vᶜ
hmt : MeasurableSet t
x : α
hx : x ∈ uᶜ ∩ t ∪ vᶜ \ uᶜ ∩ t
⊢ x ∈ t

Proof state:
case intro.intro.intro.intro.intro.intro.refine_2.a
α : Type u_1
m : MeasurableSpace α
M : Type u_4
N : Type u_5
inst✝⁵ : AddCommMonoid M
inst✝⁴ : TopologicalSpace M
inst✝³ : AddCommMonoid N
inst✝² : TopologicalSpace N
v₁ v₂ : VectorMeasure α M
w : VectorMeasure α N
inst✝¹ : T2Space N
inst✝ : ContinuousAdd M
u : Set α
hmu : MeasurableSet u
hu₁ : ∀ t ⊆ u, ↑v₁ t = 0
hu₂ : ∀ t ⊆ uᶜ, ↑w t = 0
v : Set α
hmv : MeasurableSet v
hv₁ : ∀ t ⊆ v, ↑v₂ t = 0
hv₂ : ∀ t ⊆ vᶜ, ↑w t = 0
t : Set α
ht : t ⊆ uᶜ ∪ vᶜ
hmt : MeasurableSet t
⊢ vᶜ \ uᶜ ∩ t ⊆ vᶜ

Tactic:
exact Set.Subset.trans Set.inter_subset_left diff_subset

Result:
no goals

Proof state:
case intro.intro.intro.intro.intro.intro.refine_2.a
α : Type u_1
m : MeasurableSpace α
M : Type u_4
N : Type u_5
inst✝⁵ : AddCommMonoid M
inst✝⁴ : TopologicalSpace M
inst✝³ : AddCommMonoid N
inst✝² : TopologicalSpace N
v₁ v₂ : VectorMeasure α M
w : VectorMeasure α N
inst✝¹ : T2Space N
inst✝ : ContinuousAdd M
u : Set α
hmu : MeasurableSet u
hu₁ : ∀ t ⊆ u, ↑v₁ t = 0
hu₂ : ∀ t ⊆ uᶜ, ↑w t = 0
v : Set α
hmv : MeasurableSet v
hv₁ : ∀ t ⊆ v, ↑v₂ t = 0
hv₂ : ∀ t ⊆ vᶜ, ↑w t = 0
t : Set α
ht : t ⊆ uᶜ ∪ vᶜ
hmt : MeasurableSet t
⊢ uᶜ ∩ t ⊆ uᶜ

Tactic:
exact Set.inter_subset_left

Result:
no goals

Proof state:
case h₂
α : Type u_1
m : MeasurableSpace α
M : Type u_4
N : Type u_5
inst✝⁵ : AddCommMonoid M
inst✝⁴ : TopologicalSpace M
inst✝³ : AddCommMonoid N
inst✝² : TopologicalSpace N
v₁ v₂ : VectorMeasure α M
w : VectorMeasure α N
inst✝¹ : T2Space N
inst✝ : ContinuousAdd M
u : Set α
hmu : MeasurableSet u
hu₁ : ∀ t ⊆ u, ↑v₁ t = 0
hu₂ : ∀ t ⊆ uᶜ, ↑w t = 0
v : Set α
hmv : MeasurableSet v
hv₁ : ∀ t ⊆ v, ↑v₂ t = 0
hv₂ : ∀ t ⊆ vᶜ, ↑w t = 0
t : Set α
ht : t ⊆ uᶜ ∪ vᶜ
hmt : MeasurableSet t
x : α
hx : x ∈ uᶜ ∩ t ∪ vᶜ \ uᶜ ∩ t
⊢ x ∈ t

Tactic:
rcases hx with hx | hx <;> exact hx.2

Result:
no goals