theorem Th3:
  A1 (\+\) A2 = (A1 (\) A2) (\/) (A2 (\) A1)
proof
  let n be Element of NAT;
  thus (A1 (\+\) A2).n = A1.n \+\ A2.n by Def4
    .= (A1 (\) A2).n \/ (A2.n \ A1.n) by Def3
    .= (A1 (\) A2).n \/ (A2 (\) A1).n by Def3
    .= ((A1 (\) A2) (\/) (A2 (\) A1)).n by Def2;
end;
