theorem Th7:
  for f being Function st X in dom(.:f) holds (.:f).X = f.:X
proof
  let f be Function;
  assume X in dom(.:f);
  then X in bool dom f by Def1;
  hence thesis by Def1;
end;
