theorem Th81:
  for a,b,c being object holds (a,a) --> (b,c) = a .--> c
proof
  let a,b,c be object;
  dom(a .-->c) = {a}
    .= dom({a} -->b);
  hence thesis by Th19;
end;
