cases tail₁
case refl
α : Type
inst✝ : Proper α
s s₁ s₂ : State α
hp : s₁.progress = s₂.progress
tl₁ s✝ : State α
n : State.Nontrivial s✝
tail₁ : Tail s✝ s₁
tail₂ : Tail s₂ s₂
ht : s✝.tag = s₂.tag
e : s✝ ↓ᵢ| s₂
⊢ s₁ = s₂
case refl.none
α : Type
inst✝ : Proper α
s s₁ s₂ : State α
hp : s₁.progress = s₂.progress
tl₁ : State α
tail₂ : Tail s₂ s₂
n : State.Nontrivial s₁
ht : s₁.tag = s₂.tag
e : s₁ ↓ᵢ| s₂
⊢ s₁ = s₂

case refl.some
α : Type
inst✝ : Proper α
s s₁ s₂ : State α
hp : s₁.progress = s₂.progress
tl₁ s✝ : State α
n : State.Nontrivial s✝
tail₂ : Tail s₂ s₂
ht : s✝.tag = s₂.tag
e : s✝ ↓ᵢ| s₂
a✝ : s✝ ↓ᵢ+ s₁
⊢ s₁ = s₂