theorem Th9:
  a [= b & c [= d implies a [*] c [= b [*] d
proof
  assume a [= b & c [= d;
  then a [*] c [= b [*] c & b [*] c [= b [*] d by Th8;
  hence thesis by LATTICES:7;
end;
