// =Alloy shortcuts= pred acyclic[rel: Event->Event] { no FenceTSO.(pr + pw + sr + sw) } fun FencePWSW : Fence { Fence.(pw & sw) } fun same_addr[e: Event] : set Event { Event - NonInit } fact { pr + pw + sr + sw in iden } // each read (successful poll). For the
vituperation