theorem
  [.a,b.] = (b" |^ a) * b & [.a,b.] = a" * (a |^ b) by Th16;
