{α : Type u_1} →
  (motive : Option (Stream'.Seq1 (Option (Computation α))) → Sort u_2) →
    (x : Option (Stream'.Seq1 (Option (Computation α)))) →
      (Unit → motive none) →
        ((S' : Stream'.Seq (Option (Computation α))) → motive (some (none, S'))) →
          ((c : Computation α) → (S' : Stream'.Seq (Option (Computation α))) → motive (some (some c, S'))) → motive x