theorem
  R c= S iff R c= S|dom R
proof
 thus R c= S implies R c= S|dom R
  proof
   assume R c= S;
    then R|dom R c= S|dom R by Th70;
   hence thesis;
  end;
 thus thesis by Def9;
end;
