proposition: Remark diff_sigma_card_inc : forall q0 : queue Message, sigma Site LS (fun s' : Site => card_mess (inc_dec s') (input Message dec q0)) = sigma Site LS (fun s' : Site => card_mess (inc_dec s') q0).
proof: Proof. intros; apply sigma_simpl. intros; apply card_mess_diff. discriminate. Qed.
imports: DistributedReferenceCounting.machine0.machine