injection h₁ with h₁
Γ : Type
inst✝ : Alphabet Γ
σ : Γ
tail✝¹ : List Γ
hi : ∀ (σ₂ : (stringAlgebra Γ).carrier), treeₑ tail✝¹ = treeₑ σ₂ → tail✝¹ = σ₂
head✝ : Γ
tail✝ : List Γ
h : some σ = some head✝ ∧ (fun x => treeₑ tail✝¹) = fun x => treeₑ tail✝
h₁ : some σ = some head✝
h₂ : (fun x => treeₑ tail✝¹) = fun x => treeₑ tail✝
⊢ σ :: tail✝¹ = head✝ :: tail✝
Γ : Type
inst✝ : Alphabet Γ
σ : Γ
tail✝¹ : List Γ
hi : ∀ (σ₂ : (stringAlgebra Γ).carrier), treeₑ tail✝¹ = treeₑ σ₂ → tail✝¹ = σ₂
head✝ : Γ
tail✝ : List Γ
h : some σ = some head✝ ∧ (fun x => treeₑ tail✝¹) = fun x => treeₑ tail✝
h₂ : (fun x => treeₑ tail✝¹) = fun x => treeₑ tail✝
h₁ : σ = head✝
⊢ σ :: tail✝¹ = head✝ :: tail✝