theorem
  t <> {} & s *' t <=' r *' t implies s <=' r
proof
  assume that
A1: t <> {} and
A2: s *' t <=' r *' t;
  ex x st s*'t = t*'x & x <=' r by A2,Th79;
  hence thesis by A1,Th56;
end;
