theorem Th34:
  <.D1 \/ D2.) = <.<.D1.) \/ D2.) & <.D1 \/ D2.) = <.D1 \/ <.D2.) .)
proof
  now
    let D1,D2;
    D2 c= D1 \/ D2 & D1 \/ D2 c= <.D1 \/ D2.) by Def4,XBOOLE_1:7;
    then
A1: D2 c= <.D1 \/ D2.);
    D1 c= <.D1.) by Def4;
    then D1 \/ D2 c= <.D1.) \/ D2 by XBOOLE_1:9;
    hence <.D1 \/ D2.) c= <.<.D1.) \/ D2.) by Th22;
    <.D1.) c= <.D1 \/ D2.) by Th22,XBOOLE_1:7;
    then <.D1.) \/ D2 c= <.D1 \/ D2.) by A1,XBOOLE_1:8;
    hence <.<.D1.) \/ D2.) c= <.D1 \/ D2.) by Def4;
  end;
  hence <.D1 \/ D2.) c= <.<.D1.) \/ D2.) & <.<.D1.) \/ D2.) c= <.D1 \/ D2.) &
  <.D1 \/ D2.) c= <.D1 \/ <.D2.).) & <.D1 \/ <.D2.).) c= <.D1 \/ D2.);
end;
