theorem
  b <> {} implies RED(b,a) <> {} by Th18;
