let Y be non empty set ; :: thesis: for G being Subset of (PARTITIONS Y)
for A, B, C, D, E, F being a_partition of Y st G = {A,B,C,D,E,F} & A <> B & A <> C & A <> D & A <> E & A <> F & B <> C & B <> D & B <> E & B <> F & C <> D & C <> E & C <> F & D <> E & D <> F & E <> F holds
CompF (D,G) = (((A '/\' B) '/\' C) '/\' E) '/\' F
let G be Subset of (PARTITIONS Y); :: thesis: for A, B, C, D, E, F being a_partition of Y st G = {A,B,C,D,E,F} & A <> B & A <> C & A <> D & A <> E & A <> F & B <> C & B <> D & B <> E & B <> F & C <> D & C <> E & C <> F & D <> E & D <> F & E <> F holds
CompF (D,G) = (((A '/\' B) '/\' C) '/\' E) '/\' F
let A, B, C, D, E, F be a_partition of Y; :: thesis: ( G = {A,B,C,D,E,F} & A <> B & A <> C & A <> D & A <> E & A <> F & B <> C & B <> D & B <> E & B <> F & C <> D & C <> E & C <> F & D <> E & D <> F & E <> F implies CompF (D,G) = (((A '/\' B) '/\' C) '/\' E) '/\' F )
A1: {A,B,C,D,E,F} = {A,B} \/ {C,D,E,F} by ENUMSET1:12
.= {A,B} \/ ({C,D} \/ {E,F}) by ENUMSET1:5
.= {A,B} \/ {D,C,E,F} by ENUMSET1:5
.= {A,B,D,C,E,F} by ENUMSET1:12 ;
assume ( G = {A,B,C,D,E,F} & A <> B & A <> C & A <> D & A <> E & A <> F & B <> C & B <> D & B <> E & B <> F & C <> D & C <> E & C <> F & D <> E & D <> F & E <> F ) ; :: thesis: CompF (D,G) = (((A '/\' B) '/\' C) '/\' E) '/\' F
hence CompF (D,G) = (((A '/\' B) '/\' C) '/\' E) '/\' F by A1, Th33; :: thesis: verum