theorem
  A c= B & C c= D implies A**C c= B**D
proof
  assume
A1: A c= B & C c= D;
  let a;
  assume a in A**C;
  then ex c,c1 st a = c*c1 & c in A & c1 in C;
  hence thesis by A1;
end;
