object method virtual emit : 'a #Cf_journal.T.event -> unit end