fact: Definition log_handler_result (num_entries : nat) (e : entry) (out : list output) (d : data) (ps : list (name * msg)) := if S num_entries =? snapshot_interval then ([Delete Log; Write Snapshot (serialize d); Write Count (serialize 0)], out, mk_log_state 0 d, ps) else ([Append Log (serialize e); Write Count (serialize (S num_entries))], out, mk_log_state (S num_entries) d, ps).
imports: Verdi(Verdi) Cheerios(Cheerios)