theorem
  d is_a_unity_wrt F implies EqClass(RD,d) is_a_unity_wrt F/\/RD
by Th6,Th7;
