(motive : (format : Std.Time.Text) → Std.Time.TypeFormat (Std.Time.Modifier.E format) → Sort u_1) →
  (format : Std.Time.Text) →
    (data : Std.Time.TypeFormat (Std.Time.Modifier.E format)) →
      ((data : Std.Time.TypeFormat (Std.Time.Modifier.E Std.Time.Text.short)) → motive Std.Time.Text.short data) →
        ((data : Std.Time.TypeFormat (Std.Time.Modifier.E Std.Time.Text.full)) → motive Std.Time.Text.full data) →
          ((data : Std.Time.TypeFormat (Std.Time.Modifier.E Std.Time.Text.narrow)) → motive Std.Time.Text.narrow data) →
            motive format data