
theorem Th21:
for X,Y be non empty set, E1,E2 be Subset of [:X,Y:], p be set holds
  X-section(E1/\E2,p) = X-section(E1,p) /\ X-section(E2,p)
& Y-section(E1/\E2,p) = Y-section(E1,p) /\ Y-section(E2,p)
proof
   let X,Y be non empty set, E1,E2 be Subset of [:X,Y:], p be set;
   now let q be set;
    assume q in X-section(E1/\E2,p); then
    consider y1 be Element of Y such that
A2:  q = y1 & [p,y1] in E1 /\ E2;
    [p,y1] in E1 & [p,y1] in E2 by A2,XBOOLE_0:def 4; then
    q in X-section(E1,p) & q in X-section(E2,p) by A2;
    hence q in X-section(E1,p) /\ X-section(E2,p) by XBOOLE_0:def 4;
   end; then
A3: X-section(E1/\E2,p) c= X-section(E1,p) /\ X-section(E2,p);
   now let q be set;
    assume q in X-section(E1,p) /\ X-section(E2,p); then
A4: q in X-section(E1,p) & q in X-section(E2,p) by XBOOLE_0:def 4; then
    consider y1 be Element of Y such that
A5:  q = y1 & [p,y1] in E1;
    consider y2 be Element of Y such that
A6:  q = y2 & [p,y2] in E2 by A4;
    [p,q] in E1 /\ E2 by A5,A6,XBOOLE_0:def 4;
    hence q in X-section(E1/\E2,p) by A5;
   end; then
   X-section(E1,p) /\ X-section(E2,p) c= X-section(E1/\E2,p);
   hence X-section(E1/\E2,p) = X-section(E1,p) /\ X-section(E2,p) by A3;
   now let q be set;
    assume q in Y-section(E1/\E2,p); then
    consider x1 be Element of X such that
A2:  q = x1 & [x1,p] in E1 /\ E2;
    [x1,p] in E1 & [x1,p] in E2 by A2,XBOOLE_0:def 4; then
    q in Y-section(E1,p) & q in Y-section(E2,p) by A2;
    hence q in Y-section(E1,p) /\ Y-section(E2,p) by XBOOLE_0:def 4;
   end; then
A3: Y-section(E1/\E2,p) c= Y-section(E1,p) /\ Y-section(E2,p);
   now let q be set;
    assume q in Y-section(E1,p) /\ Y-section(E2,p); then
A4: q in Y-section(E1,p) & q in Y-section(E2,p) by XBOOLE_0:def 4; then
    consider x1 be Element of X such that
A5:  q = x1 & [x1,p] in E1;
    consider x2 be Element of X such that
A6:  q = x2 & [x2,p] in E2 by A4;
    [x1,p] in E1 /\ E2 by A5,A6,XBOOLE_0:def 4;
    hence q in Y-section(E1/\E2,p) by A5;
   end; then
   Y-section(E1,p) /\ Y-section(E2,p) c= Y-section(E1/\E2,p);
   hence Y-section(E1/\E2,p) = Y-section(E1,p) /\ Y-section(E2,p) by A3;
end;
