theorem
  {[o,p],[p,p]}(#){[p,q]}={[o,q],[p,q]} by Lm14;
