subrule getter setter (EventRule event_b) = EventRule event_a
  where
    event_a k ev a = setter (event_b k ev (getter a)) a
subrule getter setter (EventRule event_b) = EventRule event_a
  where
    event_a k ev a = setter (event_b k ev (getter a)) a
subrule getter setter (EventRule event_b) = EventRule event_a
  where
    event_a k ev a = setter (event_b k ev (getter a)) a