∀ {α : Type u_1} (motive : Option (Stream'.Seq1 (Option (Computation α))) → Sort u_2) (c : Computation α)
  (S' : Stream'.Seq (Option (Computation α))) (h_1 : Unit → motive none)
  (h_2 : (S' : Stream'.Seq (Option (Computation α))) → motive (some (none, S')))
  (h_3 : (c : Computation α) → (S' : Stream'.Seq (Option (Computation α))) → motive (some (some c, S'))),
  (match some (some c, S') with
    | none => h_1 ()
    | some (none, S') => h_2 S'
    | some (some c, S') => h_3 c S') =
    h_3 c S'