theorem Th17:
  (A (\/) A1) ^\k = A (\/) (A1 ^\k)
proof
  let n be Element of NAT;
  thus ((A (\/) A1) ^\k).n = (A (\/) A1).(n+k) by NAT_1:def 3
    .= A \/ A1.(n+k) by Def6
    .= A \/ (A1 ^\k).n by NAT_1:def 3
    .= (A (\/) (A1 ^\k)).n by Def6;
end;
