induction e
α : Type
inst✝ : Hierarchical α
s₁ s₂ : State α
e : Steps s₁ s₂
⊢ s₁.tag ≤ s₂.tag
case refl
α : Type
inst✝ : Hierarchical α
s₁ s₂ s✝ : State α
⊢ s✝.tag ≤ s✝.tag

case step
α : Type
inst✝ : Hierarchical α
s₁ s₂ s₁✝ s₂✝ s₃✝ : State α
a✝¹ : Step s₁✝ s₂✝
a✝ : Steps s₂✝ s₃✝
a_ih✝ : s₂✝.tag ≤ s₃✝.tag
⊢ s₁✝.tag ≤ s₃✝.tag