(motive : MessageType → Sort u_1) →
  (x : MessageType) →
    (Unit → motive MessageType.error) →
      (Unit → motive MessageType.warning) →
        (Unit → motive MessageType.info) → (Unit → motive MessageType.log) → motive x