theorem
 X <> {} & X c= dom f implies f.:X <> {}
 proof assume X <> {};
   then ex x being object st x in X by XBOOLE_0:def 1;
  hence thesis by Th107;
 end;
