∀ {α : Type u_1} (motive : α ⊕ Computation α → α ⊕ Computation α → Sort u_2) (x x_1 : α ⊕ Computation α)
  (h_1 : (a a' : α) → motive (Sum.inl a) (Sum.inl a')) (h_2 : (s s' : Computation α) → motive (Sum.inr s) (Sum.inr s'))
  (h_3 : (x x_2 : α ⊕ Computation α) → motive x x_2),
  (∀ (a a' : α), x = Sum.inl a → x_1 = Sum.inl a' → False) →
    (∀ (s s' : Computation α), x = Sum.inr s → x_1 = Sum.inr s' → False) →
      (match x, x_1 with
        | Sum.inl a, Sum.inl a' => h_1 a a'
        | Sum.inr s, Sum.inr s' => h_2 s s'
        | x, x_4 => h_3 x x_4) =
        h_3 x x_1