reserve A,B,C for Ordinal;
reserve a,b,c,d for natural Ordinal;
reserve l,m,n for natural Ordinal;

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