replace ht : tl₁.tag = tl₂.tag := tail₁.preserves_tag ▸ ht ▸ tail₂.preserves_tag.symm
α : Type
inst✝ : Proper α
s s₁ s₂ : State α
n : State.Nontrivial s
ht : s₁.tag = s₂.tag
hp : s₁.progress = s₂.progress
tl₁ : State α
steps₁ : Steps s tl₁
tail₁ : Tail tl₁ s₁
tl₂ : State α
steps₂ : Steps s tl₂
tail₂ : Tail tl₂ s₂
⊢ s₁ = s₂
α : Type
inst✝ : Proper α
s s₁ s₂ : State α
n : State.Nontrivial s
hp : s₁.progress = s₂.progress
tl₁ : State α
steps₁ : Steps s tl₁
tail₁ : Tail tl₁ s₁
tl₂ : State α
steps₂ : Steps s tl₂
tail₂ : Tail tl₂ s₂
ht : tl₁.tag = tl₂.tag
⊢ s₁ = s₂