Theorem: match_union_EpsilonNFA_toAbstract
Proof state before:
case right.left.h.h
α : Type
inst✝ : DecidableEq α
σ_0 σ_1 : Type
M_0 : EpsilonNFA α σ_0
M_1 : EpsilonNFA α σ_1
p q : σ_0 ⊕ σ_1
⊢ (∃ stop_state_list,
      { start_state := p, stop_state_list := stop_state_list } ∈
          List.map
              (fun arrow =>
                { start_state := Sum.inl arrow.start_state, stop_state_list := List.map Sum.inl arrow.stop_state_list })
              M_0.epsilon_arrow_list ++
            List.map
              (fun arrow =>
                { start_state := Sum.inr arrow.start_state, stop_state_list := List.map Sum.inr arrow.stop_state_list })
              M_1.epsilon_arrow_list ∧
        q ∈ stop_state_list) =
    match (p, q) with
    | (Sum.inl p', Sum.inl q') =>
      ∃ stop_state_list,
        { start_state := p', stop_state_list := stop_state_list } ∈ M_0.epsilon_arrow_list ∧ q' ∈ stop_state_list
    | (Sum.inr p', Sum.inr q') =>
      ∃ stop_state_list,
        { start_state := p', stop_state_list := stop_state_list } ∈ M_1.epsilon_arrow_list ∧ q' ∈ stop_state_list
    | x => False
Tactic:
cases p
Proof state after:
case right.left.h.h.inl
α : Type
inst✝ : DecidableEq α
σ_0 σ_1 : Type
M_0 : EpsilonNFA α σ_0
M_1 : EpsilonNFA α σ_1
q : σ_0 ⊕ σ_1
val✝ : σ_0
⊢ (∃ stop_state_list,
      { start_state := Sum.inl val✝, stop_state_list := stop_state_list } ∈
          List.map
              (fun arrow =>
                { start_state := Sum.inl arrow.start_state, stop_state_list := List.map Sum.inl arrow.stop_state_list })
              M_0.epsilon_arrow_list ++
            List.map
              (fun arrow =>
                { start_state := Sum.inr arrow.start_state, stop_state_list := List.map Sum.inr arrow.stop_state_list })
              M_1.epsilon_arrow_list ∧
        q ∈ stop_state_list) =
    match (Sum.inl val✝, q) with
    | (Sum.inl p', Sum.inl q') =>
      ∃ stop_state_list,
        { start_state := p', stop_state_list := stop_state_list } ∈ M_0.epsilon_arrow_list ∧ q' ∈ stop_state_list
    | (Sum.inr p', Sum.inr q') =>
      ∃ stop_state_list,
        { start_state := p', stop_state_list := stop_state_list } ∈ M_1.epsilon_arrow_list ∧ q' ∈ stop_state_list
    | x => False

case right.left.h.h.inr
α : Type
inst✝ : DecidableEq α
σ_0 σ_1 : Type
M_0 : EpsilonNFA α σ_0
M_1 : EpsilonNFA α σ_1
q : σ_0 ⊕ σ_1
val✝ : σ_1
⊢ (∃ stop_state_list,
      { start_state := Sum.inr val✝, stop_state_list := stop_state_list } ∈
          List.map
              (fun arrow =>
                { start_state := Sum.inl arrow.start_state, stop_state_list := List.map Sum.inl arrow.stop_state_list })
              M_0.epsilon_arrow_list ++
            List.map
              (fun arrow =>
                { start_state := Sum.inr arrow.start_state, stop_state_list := List.map Sum.inr arrow.stop_state_list })
              M_1.epsilon_arrow_list ∧
        q ∈ stop_state_list) =
    match (Sum.inr val✝, q) with
    | (Sum.inl p', Sum.inl q') =>
      ∃ stop_state_list,
        { start_state := p', stop_state_list := stop_state_list } ∈ M_0.epsilon_arrow_list ∧ q' ∈ stop_state_list
    | (Sum.inr p', Sum.inr q') =>
      ∃ stop_state_list,
        { start_state := p', stop_state_list := stop_state_list } ∈ M_1.epsilon_arrow_list ∧ q' ∈ stop_state_list
    | x => False