proposition: Remark ctrl_inc_strct_pos : forall s0 s1 : Site, In_queue Message (inc_dec s0) (bom s1 owner) -> (ctrl_inc s0 s1 bom > 0)%Z.
proof: Proof. unfold ctrl_inc in |- *; intros; apply strct_pos_card_mess; trivial. Qed.
imports: DistributedReferenceCounting.machine0.machine