theorem Th102:
 for x being object holds
  f+~(x,x) = f
proof let x be object;
  thus f+~(x,x) = f+*((id{x})*f) by Th96
    .= f by Th98,RELAT_1:50;
end;
