reserve N,M,K for ExtNat;
reserve X for ext-natural-membered set;

theorem
  for x, y being object holds <% x, y %> * <% 1, 0 %> = <% y, x %>
proof
  let x,y be object;
  rng <% 1, 0 %> = {1,0} by Th7
    .= dom <% x, y %> by Th7;
  then A1: dom(<% x, y %> * <% 1, 0 %>) = dom <% 1, 0 %> by RELAT_1:27
    .= {0,1} by Th7;
  then A2: dom(<% x, y %> * <% 1, 0 %>) = dom <% y, x %> by Th7;
  now
    let a be object;
    assume A3: a in dom(<% x, y %> * <% 1, 0 %>);
    then per cases by A1, TARSKI:def 2;
    suppose A4: a = 0;
      thus (<% x, y %> * <% 1, 0 %>).a
         = <% x, y %>.(<% 1, 0 %>.a) by A3, FUNCT_1:12
        .= <% y, x %>.a by A4;
    end;
    suppose A5: a = 1;
      thus (<% x, y %> * <% 1, 0 %>).a
         = <% x, y %>.(<% 1, 0 %>.a) by A3, FUNCT_1:12
        .= <% y, x %>.a by A5;
    end;
  end;
  hence thesis by A2, FUNCT_1:2;
end;
