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