case' mp  => have h := e₂.progress_eq ▸ hp ▸ e₁.rcns_mem_progress hm
case mp
α : Type
inst✝ : Hierarchical α
s₁ s₂ : State α
rcn✝ : ID
s : State α
e₁ : s ↓ᵢ+ s₁
e₂ : s ↓ᵢ+ s₂
hp : s₁.progress = s₂.progress
rcn : ID
hc : rcn ∉ s.progress
hm : rcn ∈ rcns e₁
⊢ rcn ∈ rcns e₂

case mpr
α : Type
inst✝ : Hierarchical α
s₁ s₂ : State α
rcn✝ : ID
s : State α
e₁ : s ↓ᵢ+ s₁
e₂ : s ↓ᵢ+ s₂
hp : s₁.progress = s₂.progress
rcn : ID
hc : rcn ∉ s.progress
hm : rcn ∈ rcns e₂
⊢ rcn ∈ rcns e₁
case mp
α : Type
inst✝ : Hierarchical α
s₁ s₂ : State α
rcn✝ : ID
s : State α
e₁ : s ↓ᵢ+ s₁
e₂ : s ↓ᵢ+ s₂
hp : s₁.progress = s₂.progress
rcn : ID
hc : rcn ∉ s.progress
hm : rcn ∈ rcns e₁
h : rcn ∈ s.progress ∪ {a | a ∈ rcns e₂}
⊢ rcn ∈ rcns e₂

case mpr
α : Type
inst✝ : Hierarchical α
s₁ s₂ : State α
rcn✝ : ID
s : State α
e₁ : s ↓ᵢ+ s₁
e₂ : s ↓ᵢ+ s₂
hp : s₁.progress = s₂.progress
rcn : ID
hc : rcn ∉ s.progress
hm : rcn ∈ rcns e₂
⊢ rcn ∈ rcns e₁