theorem
  a <> {} or b <> {} implies RED(a,b), RED(b,a) are_coprime by Th19;
