Lemma votesWithLog_update_elections_data_timeout : forall {h st out st' l}, handleTimeout h (snd st) = (out, st', l) -> forall (P : list (term * name * list entry) -> Prop), (forall t cid, P ((t, cid, log st') :: votesWithLog (fst st))) -> (P (votesWithLog (fst st))) -> (P (votesWithLog (update_elections_data_timeout h st))).