let Y be non empty set ; :: thesis: for G being Subset of (PARTITIONS Y)
for A, B, C, D, E being a_partition of Y st G = {A,B,C,D,E} & A <> B & B <> C & B <> D & B <> E holds
CompF (B,G) = ((A '/\' C) '/\' D) '/\' E

let G be Subset of (PARTITIONS Y); :: thesis: for A, B, C, D, E being a_partition of Y st G = {A,B,C,D,E} & A <> B & B <> C & B <> D & B <> E holds
CompF (B,G) = ((A '/\' C) '/\' D) '/\' E

let A, B, C, D, E be a_partition of Y; :: thesis: ( G = {A,B,C,D,E} & A <> B & B <> C & B <> D & B <> E implies CompF (B,G) = ((A '/\' C) '/\' D) '/\' E )
assume that
A1: G = {A,B,C,D,E} and
A2: ( A <> B & B <> C & B <> D & B <> E ) ; :: thesis: CompF (B,G) = ((A '/\' C) '/\' D) '/\' E
{A,B,C,D,E} = {A,B} \/ {C,D,E} by ENUMSET1:8;
then G = {B,A,C,D,E} by A1, ENUMSET1:8;
hence CompF (B,G) = ((A '/\' C) '/\' D) '/\' E by A2, Th21; :: thesis: verum