(motive : Option (List String) → Sort u_1) →
  (additionalInfoLines : Option (List String)) →
    (Unit → motive none) →
      (Unit → motive (some [])) →
        ((l : String) → motive (some [l])) → ((ls : List String) → motive (some ls)) → motive additionalInfoLines