unfold len
α nt : Type
P : Finset α → Finset nt → Type
i : Production.ContextFree α nt P
G : Grammar P
a✝¹ a✝ : Word ({ x // x ∈ G.V } ⊕ { x // x ∈ G.Z })
h : a✝¹ = a✝
val✝ : { x // x ∈ G.Z }
tail✝ : Word ({ x // x ∈ G.V } ⊕ { x // x ∈ G.Z })
h_lhs : a✝¹ = Sum.inr val✝ :: tail✝
w : Word { x // x ∈ G.Z }
h_rhs : a✝ = Sum.inr <$> w
⊢ len (same ⋯) = 0
α nt : Type
P : Finset α → Finset nt → Type
i : Production.ContextFree α nt P
G : Grammar P
a✝¹ a✝ : Word ({ x // x ∈ G.V } ⊕ { x // x ∈ G.Z })
h : a✝¹ = a✝
val✝ : { x // x ∈ G.Z }
tail✝ : Word ({ x // x ∈ G.V } ⊕ { x // x ∈ G.Z })
h_lhs : a✝¹ = Sum.inr val✝ :: tail✝
w : Word { x // x ∈ G.Z }
h_rhs : a✝ = Sum.inr <$> w
⊢ 0 = 0