Theorem: SimpleGraph.induce_connected_adj_union
File: Mathlib/Combinatorics/SimpleGraph/Connectivity/Subgraph.lean

tactic: rw [connected_induce_iff] at sconn tconn ⊢
state_before: V : Type u
V' : Type v
G : SimpleGraph V
G' : SimpleGraph V'
v w : V
s t : Set V
sconn : (induce s G).Connected
tconn : (induce t G).Connected
hv : v ∈ s
hw : w ∈ t
ha : G.Adj v w
⊢ (induce (s ∪ t) G).Connected
state_after: V : Type u
V' : Type v
G : SimpleGraph V
G' : SimpleGraph V'
v w : V
s t : Set V
sconn : (⊤.induce s).Connected
tconn : (⊤.induce t).Connected
hv : v ∈ s
hw : w ∈ t
ha : G.Adj v w
⊢ (⊤.induce (s ∪ t)).Connected

tactic: apply (sconn.adj_union tconn hv hw ha).mono
state_before: V : Type u
V' : Type v
G : SimpleGraph V
G' : SimpleGraph V'
v w : V
s t : Set V
sconn : (⊤.induce s).Connected
tconn : (⊤.induce t).Connected
hv : v ∈ s
hw : w ∈ t
ha : G.Adj v w
⊢ (⊤.induce (s ∪ t)).Connected
state_after: case hle
V : Type u
V' : Type v
G : SimpleGraph V
G' : SimpleGraph V'
v w : V
s t : Set V
sconn : (⊤.induce s).Connected
tconn : (⊤.induce t).Connected
hv : v ∈ s
hw : w ∈ t
ha : G.Adj v w
⊢ ⊤.induce {v, w} ⊔ ⊤.induce s ⊔ ⊤.induce t ≤ ⊤.induce (s ∪ t)

case hv
V : Type u
V' : Type v
G : SimpleGraph V
G' : SimpleGraph V'
v w : V
s t : Set V
sconn : (⊤.induce s).Connected
tconn : (⊤.induce t).Connected
hv : v ∈ s
hw : w ∈ t
ha : G.Adj v w
⊢ (⊤.induce {v, w} ⊔ ⊤.induce s ⊔ ⊤.induce t).verts = (⊤.induce (s ∪ t)).verts

tactic: simp only [Set.mem_singleton_iff, sup_le_iff, Subgraph.le_induce_union_left,
  Subgraph.le_induce_union_right, and_true, ← Subgraph.subgraphOfAdj_eq_induce ha]
state_before: case hle
V : Type u
V' : Type v
G : SimpleGraph V
G' : SimpleGraph V'
v w : V
s t : Set V
sconn : (⊤.induce s).Connected
tconn : (⊤.induce t).Connected
hv : v ∈ s
hw : w ∈ t
ha : G.Adj v w
⊢ ⊤.induce {v, w} ⊔ ⊤.induce s ⊔ ⊤.induce t ≤ ⊤.induce (s ∪ t)
state_after: case hle
V : Type u
V' : Type v
G : SimpleGraph V
G' : SimpleGraph V'
v w : V
s t : Set V
sconn : (⊤.induce s).Connected
tconn : (⊤.induce t).Connected
hv : v ∈ s
hw : w ∈ t
ha : G.Adj v w
⊢ G.subgraphOfAdj ha ≤ ⊤.induce (s ∪ t)

tactic: apply subgraphOfAdj_le_of_adj
state_before: case hle
V : Type u
V' : Type v
G : SimpleGraph V
G' : SimpleGraph V'
v w : V
s t : Set V
sconn : (⊤.induce s).Connected
tconn : (⊤.induce t).Connected
hv : v ∈ s
hw : w ∈ t
ha : G.Adj v w
⊢ G.subgraphOfAdj ha ≤ ⊤.induce (s ∪ t)
state_after: case hle.h
V : Type u
V' : Type v
G : SimpleGraph V
G' : SimpleGraph V'
v w : V
s t : Set V
sconn : (⊤.induce s).Connected
tconn : (⊤.induce t).Connected
hv : v ∈ s
hw : w ∈ t
ha : G.Adj v w
⊢ (⊤.induce (s ∪ t)).Adj v w

tactic: simp [hv, hw, ha]
state_before: case hle.h
V : Type u
V' : Type v
G : SimpleGraph V
G' : SimpleGraph V'
v w : V
s t : Set V
sconn : (⊤.induce s).Connected
tconn : (⊤.induce t).Connected
hv : v ∈ s
hw : w ∈ t
ha : G.Adj v w
⊢ (⊤.induce (s ∪ t)).Adj v w
state_after: no goals

tactic: simp only [Set.mem_singleton_iff, sup_le_iff, Subgraph.verts_sup, Subgraph.induce_verts]
state_before: case hv
V : Type u
V' : Type v
G : SimpleGraph V
G' : SimpleGraph V'
v w : V
s t : Set V
sconn : (⊤.induce s).Connected
tconn : (⊤.induce t).Connected
hv : v ∈ s
hw : w ∈ t
ha : G.Adj v w
⊢ (⊤.induce {v, w} ⊔ ⊤.induce s ⊔ ⊤.induce t).verts = (⊤.induce (s ∪ t)).verts
state_after: case hv
V : Type u
V' : Type v
G : SimpleGraph V
G' : SimpleGraph V'
v w : V
s t : Set V
sconn : (⊤.induce s).Connected
tconn : (⊤.induce t).Connected
hv : v ∈ s
hw : w ∈ t
ha : G.Adj v w
⊢ {v, w} ∪ s ∪ t = s ∪ t

tactic: rw [Set.union_assoc]
state_before: case hv
V : Type u
V' : Type v
G : SimpleGraph V
G' : SimpleGraph V'
v w : V
s t : Set V
sconn : (⊤.induce s).Connected
tconn : (⊤.induce t).Connected
hv : v ∈ s
hw : w ∈ t
ha : G.Adj v w
⊢ {v, w} ∪ s ∪ t = s ∪ t
state_after: case hv
V : Type u
V' : Type v
G : SimpleGraph V
G' : SimpleGraph V'
v w : V
s t : Set V
sconn : (⊤.induce s).Connected
tconn : (⊤.induce t).Connected
hv : v ∈ s
hw : w ∈ t
ha : G.Adj v w
⊢ {v, w} ∪ (s ∪ t) = s ∪ t

tactic: simp [Set.insert_subset_iff, Set.singleton_subset_iff, hv, hw]
state_before: case hv
V : Type u
V' : Type v
G : SimpleGraph V
G' : SimpleGraph V'
v w : V
s t : Set V
sconn : (⊤.induce s).Connected
tconn : (⊤.induce t).Connected
hv : v ∈ s
hw : w ∈ t
ha : G.Adj v w
⊢ {v, w} ∪ (s ∪ t) = s ∪ t
state_after: no goals