theorem Th8:
  a [= b implies a [*] c [= b [*] c & c [*] a [= c [*] b
by Th6;
