external unsafe_cast :
  [< event_type] event -> [< event_type] event = "%identity"