theorem Th93:
  for A being Subset of X holds (id X)"A = A
proof
  let A be Subset of X;
  thus A = (id X)"((id X).:A) by Th61
    .= (id X)"A by FUNCT_1:92;
end;
