theorem Th1:
  w is associating implies p@p = p
proof
A1: w.(p,p) = w.(p,p);
  assume w is associating;
  hence thesis by A1;
end;
