:: deftheorem defines reads PETERSON:def 12 :
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
for a being Element of the carrier of Values holds
( e reads x,a iff ( e reads x & val e = a ) );