split at h'
Δ : RankedAlphabet
H : Type
σ : Δ.alphabet
h : RankedAlphabet.rank Δ σ = 0
w : Nat⋆
h' :
  match w with
  | [] => True
  | i :: tl => ∃ h_1, Hom.hom pos (Vector.ε' h { val := i, isLt := h_1 }) tl
⊢ w = Word.ε
case h_1
Δ : RankedAlphabet
H : Type
σ : Δ.alphabet
h : RankedAlphabet.rank Δ σ = 0
x✝ : Nat⋆
h' : True
⊢ [] = Word.ε

case h_2
Δ : RankedAlphabet
H : Type
σ : Δ.alphabet
h : RankedAlphabet.rank Δ σ = 0
x✝ : Nat⋆
i✝ : Nat
tl✝ : Nat⋆
h' : ∃ h_1, Hom.hom pos (Vector.ε' h { val := i✝, isLt := h_1 }) tl✝
⊢ i✝ :: tl✝ = Word.ε