:: deftheorem defines writesto PETERSON:def 4 :
for Values being Values_with_Bool
for S being Events_structure over Values
for e being Event of S
for x being Location of S holds
( e writesto x iff e in the writeE of S . x );