exact absurd ht $ ne_of_lt $ lt_of_lt_of_le e.tag_lt e'.tag_le
α : Type
inst✝ : Proper α
s s₁ s₂ : State α
hp : s₁.progress = s₂.progress
tl₁ tl₂ : State α
tail₂ : Tail tl₂ s₂
s✝ : State α
n : State.Nontrivial s✝
tail₁ : Tail s✝ s₁
ht : s✝.tag = tl₂.tag
s₂✝ : State α
e' : Steps s₂✝ tl₂
e : s✝ ↓ₜ s₂✝
⊢ s₁ = s₂
no goals