{f : Type} →
  {typ : Type → f → Type} →
    {motive : Std.Time.Format f typ → Sort u} →
      ((format : (fmt : f) → typ String fmt) →
          (parse : {α : Type} → (fmt : f) → typ (Option α) fmt → String → Except String α) →
            motive { format := format, parse := parse }) →
        (t : Std.Time.Format f typ) → motive t