theorem
  (a,W.(a,p)).W = p by Th15;
