fact: Definition rooted_fun (s1 s2 : Site) (m : Message) := match m with | copy => if eq_site_dec s1 s0 then 1%Z else 0%Z | dec => if eq_site_dec s2 s0 then 1%Z else 0%Z | inc_dec s3 => if eq_site_dec s3 s0 then if eq_site_dec s2 owner then 1%Z else 0%Z else 0%Z end.
imports: DistributedReferenceCounting.machine2.machine DistributedReferenceCounting.machine2.cardinal DistributedReferenceCounting.machine2.comm