induction a1
α : Type
L : Language α
s : Str α
a1 : s ∈ kleene_closure α L
⊢ s ∈ ⋃ n, exp L n
case eps
α : Type
L : Language α
s : Str α
⊢ [] ∈ ⋃ n, exp L n

case succ
α : Type
L : Language α
s s✝ t✝ : Str α
a✝¹ : s✝ ∈ kleene_closure α L
a✝ : t✝ ∈ L
a_ih✝ : s✝ ∈ ⋃ n, exp L n
⊢ s✝ ++ t✝ ∈ ⋃ n, exp L n