induction s
α : Type
s : Str α
⊢ ∃ n, List.reverse s ∈ exp α n
case nil
α : Type
⊢ ∃ n, [].reverse ∈ exp α n

case cons
α : Type
head✝ : α
tail✝ : List α
tail_ih✝ : ∃ n, tail✝.reverse ∈ exp α n
⊢ ∃ n, (head✝ :: tail✝).reverse ∈ exp α n