theorem Th59:
  for a being object holds 2 |-> a = <*a,a*>
proof let a be object;
  thus 2 |-> a = (1+1) |-> a .= (1|->a)^<*a*> by Th58
    .= <*a,a*> by Th57;
end;
