theorem Th8:
  m = [[dom m,cod m],m`2]
proof
 consider f,A,B such that
A1: m = [[A,B],f] &( B = {} implies A = {})& f is Function of A,B
  by Th4;
  thus thesis by A1;
end;
