:: BVFUNC24 semantic presentation

theorem Th1: :: BVFUNC24:1
for b1 being non empty set
for b2 being Subset of (PARTITIONS b1)
for b3, b4, b5, b6, b7, b8, b9 being a_partition of b1 holds
( b2 = {b3,b4,b5,b6,b7,b8,b9} & b3 <> b4 & b3 <> b5 & b3 <> b6 & b3 <> b7 & b3 <> b8 & b3 <> b9 & b4 <> b5 & b4 <> b6 & b4 <> b7 & b4 <> b8 & b4 <> b9 & b5 <> b6 & b5 <> b7 & b5 <> b8 & b5 <> b9 & b6 <> b7 & b6 <> b8 & b6 <> b9 & b7 <> b8 & b7 <> b9 & b8 <> b9 implies CompF b3,b2 = ((((b4 '/\' b5) '/\' b6) '/\' b7) '/\' b8) '/\' b9 )
proof
let c1 be non empty set ;
let c2 be Subset of (PARTITIONS c1);
let c3, c4, c5, c6, c7, c8, c9 be a_partition of c1;
assume E2: ( c2 = {c3,c4,c5,c6,c7,c8,c9} & c3 <> c4 & c3 <> c5 & c3 <> c6 & c3 <> c7 & c3 <> c8 & c3 <> c9 & c4 <> c5 & c4 <> c6 & c4 <> c7 & c4 <> c8 & c4 <> c9 & c5 <> c6 & c5 <> c7 & c5 <> c8 & c5 <> c9 & c6 <> c7 & c6 <> c8 & c6 <> c9 & c7 <> c8 & c7 <> c9 & c8 <> c9 ) ;
E3: CompF c3,c2 = '/\' (c2 \ {c3}) by BVFUNC_2:def 7;
E4: c2 \ {c3} = ({c3} \/ {c4,c5,c6,c7,c8,c9}) \ {c3} by E2, ENUMSET1:56;
E5: not c4 in {c3} by E2, TARSKI:def 1;
E6: not c5 in {c3} by E2, TARSKI:def 1;
E7: not c6 in {c3} by E2, TARSKI:def 1;
E8: not c7 in {c3} by E2, TARSKI:def 1;
E9: not c8 in {c3} by E2, TARSKI:def 1;
E10: not c9 in {c3} by E2, TARSKI:def 1;
E11: {c6,c7} \ {c3} = {c6,c7} by E7, E8, ZFMISC_1:72;
{c4,c5,c6,c7,c8,c9} \ {c3} = ({c4} \/ {c5,c6,c7,c8,c9}) \ {c3} by ENUMSET1:51
.= ({c4} \ {c3}) \/ ({c5,c6,c7,c8,c9} \ {c3}) by XBOOLE_1:42
.= {c4} \/ ({c5,c6,c7,c8,c9} \ {c3}) by E5, ZFMISC_1:67
.= {c4} \/ (({c5} \/ {c6,c7,c8,c9}) \ {c3}) by ENUMSET1:47
.= {c4} \/ (({c5} \ {c3}) \/ ({c6,c7,c8,c9} \ {c3})) by XBOOLE_1:42
.= {c4} \/ (({c5} \ {c3}) \/ (({c6,c7} \/ {c8,c9}) \ {c3})) by ENUMSET1:45
.= {c4} \/ (({c5} \ {c3}) \/ (({c6,c7} \ {c3}) \/ ({c8,c9} \ {c3}))) by XBOOLE_1:42
.= {c4} \/ (({c5} \ {c3}) \/ ({c6,c7} \/ {c8,c9})) by E9, E10, E11, ZFMISC_1:72
.= {c4} \/ ({c5} \/ ({c6,c7} \/ {c8,c9})) by E6, ZFMISC_1:67
.= {c4} \/ ({c5} \/ {c6,c7,c8,c9}) by ENUMSET1:45
.= {c4} \/ {c5,c6,c7,c8,c9} by ENUMSET1:47
.= {c4,c5,c6,c7,c8,c9} by ENUMSET1:51 ;
then E12: c2 \ {c3} = ({c3} \ {c3}) \/ {c4,c5,c6,c7,c8,c9} by E4, XBOOLE_1:42
.= {} \/ {c4,c5,c6,c7,c8,c9} by XBOOLE_1:37 ;
E13: ((((c4 '/\' c5) '/\' c6) '/\' c7) '/\' c8) '/\' c9 c= '/\' (c2 \ {c3})
proof
let c10 be set ; :: according to TARSKI:def 3
assume E14: c10 in ((((c4 '/\' c5) '/\' c6) '/\' c7) '/\' c8) '/\' c9 ;
then c10 in (INTERSECTION ((((c4 '/\' c5) '/\' c6) '/\' c7) '/\' c8),c9) \ {{} } by PARTIT1:def 4;
then ( c10 in INTERSECTION ((((c4 '/\' c5) '/\' c6) '/\' c7) '/\' c8),c9 & not c10 in {{} } ) by XBOOLE_0:def 4;
then consider c11, c12 being set such that
E15: ( c11 in (((c4 '/\' c5) '/\' c6) '/\' c7) '/\' c8 & c12 in c9 & c10 = c11 /\ c12 ) by SETFAM_1:def 5;
c11 in (INTERSECTION (((c4 '/\' c5) '/\' c6) '/\' c7),c8) \ {{} } by E15, PARTIT1:def 4;
then ( c11 in INTERSECTION (((c4 '/\' c5) '/\' c6) '/\' c7),c8 & not c11 in {{} } ) by XBOOLE_0:def 4;
then consider c13, c14 being set such that
E16: ( c13 in ((c4 '/\' c5) '/\' c6) '/\' c7 & c14 in c8 & c11 = c13 /\ c14 ) by SETFAM_1:def 5;
c13 in (INTERSECTION ((c4 '/\' c5) '/\' c6),c7) \ {{} } by E16, PARTIT1:def 4;
then ( c13 in INTERSECTION ((c4 '/\' c5) '/\' c6),c7 & not c13 in {{} } ) by XBOOLE_0:def 4;
then consider c15, c16 being set such that
E17: ( c15 in (c4 '/\' c5) '/\' c6 & c16 in c7 & c13 = c15 /\ c16 ) by SETFAM_1:def 5;
c15 in (INTERSECTION (c4 '/\' c5),c6) \ {{} } by E17, PARTIT1:def 4;
then ( c15 in INTERSECTION (c4 '/\' c5),c6 & not c15 in {{} } ) by XBOOLE_0:def 4;
then consider c17, c18 being set such that
E18: ( c17 in c4 '/\' c5 & c18 in c6 & c15 = c17 /\ c18 ) by SETFAM_1:def 5;
c17 in (INTERSECTION c4,c5) \ {{} } by E18, PARTIT1:def 4;
then ( c17 in INTERSECTION c4,c5 & not c17 in {{} } ) by XBOOLE_0:def 4;
then consider c19, c20 being set such that
E19: ( c19 in c4 & c20 in c5 & c17 = c19 /\ c20 ) by SETFAM_1:def 5;
set c21 = (((((c4 .--> c19) +* (c5 .--> c20)) +* (c6 .--> c18)) +* (c7 .--> c16)) +* (c8 .--> c14)) +* (c9 .--> c12);
E20: dom ((((((c4 .--> c19) +* (c5 .--> c20)) +* (c6 .--> c18)) +* (c7 .--> c16)) +* (c8 .--> c14)) +* (c9 .--> c12)) = {c9,c4,c5,c6,c7,c8} by BVFUNC14:41
.= {c9} \/ {c4,c5,c6,c7,c8} by ENUMSET1:51
.= {c4,c5,c6,c7,c8,c9} by ENUMSET1:55 ;
E21: dom ((((((c4 .--> c19) +* (c5 .--> c20)) +* (c6 .--> c18)) +* (c7 .--> c16)) +* (c8 .--> c14)) +* (c9 .--> c12)) = {c9,c4,c5,c6,c7,c8} by BVFUNC14:41
.= {c9} \/ {c4,c5,c6,c7,c8} by ENUMSET1:51
.= {c4,c5,c6,c7,c8,c9} by ENUMSET1:55 ;
E22: ((((((c4 .--> c19) +* (c5 .--> c20)) +* (c6 .--> c18)) +* (c7 .--> c16)) +* (c8 .--> c14)) +* (c9 .--> c12)) . c6 = c18 by E2, BVFUNC14:40;
E23: ((((((c4 .--> c19) +* (c5 .--> c20)) +* (c6 .--> c18)) +* (c7 .--> c16)) +* (c8 .--> c14)) +* (c9 .--> c12)) . c4 = c19 by E2, BVFUNC14:40;
E24: ((((((c4 .--> c19) +* (c5 .--> c20)) +* (c6 .--> c18)) +* (c7 .--> c16)) +* (c8 .--> c14)) +* (c9 .--> c12)) . c5 = c20 by E2, BVFUNC14:40;
E25: ((((((c4 .--> c19) +* (c5 .--> c20)) +* (c6 .--> c18)) +* (c7 .--> c16)) +* (c8 .--> c14)) +* (c9 .--> c12)) . c7 = c16 by E2, BVFUNC14:40;
E26: ((((((c4 .--> c19) +* (c5 .--> c20)) +* (c6 .--> c18)) +* (c7 .--> c16)) +* (c8 .--> c14)) +* (c9 .--> c12)) . c8 = c14 by E2, BVFUNC14:40;
E27: ((((((c4 .--> c19) +* (c5 .--> c20)) +* (c6 .--> c18)) +* (c7 .--> c16)) +* (c8 .--> c14)) +* (c9 .--> c12)) . c9 = c12 by E2, BVFUNC14:40;
E28: for b1 being set holds
( b1 in c2 \ {c3} implies ((((((c4 .--> c19) +* (c5 .--> c20)) +* (c6 .--> c18)) +* (c7 .--> c16)) +* (c8 .--> c14)) +* (c9 .--> c12)) . b1 in b1 )
proof
let c22 be set ;
assume c22 in c2 \ {c3} ;
then not ( not c22 = c4 & not c22 = c5 & not c22 = c6 & not c22 = c7 & not c22 = c8 & not c22 = c9 ) by E12, ENUMSET1:def 4;
hence ((((((c4 .--> c19) +* (c5 .--> c20)) +* (c6 .--> c18)) +* (c7 .--> c16)) +* (c8 .--> c14)) +* (c9 .--> c12)) . c22 in c22 by E2, E15, E16, E17, E18, E19, BVFUNC14:40;
end;
c6 in dom ((((((c4 .--> c19) +* (c5 .--> c20)) +* (c6 .--> c18)) +* (c7 .--> c16)) +* (c8 .--> c14)) +* (c9 .--> c12)) by E21, ENUMSET1:def 4;
then E29: ((((((c4 .--> c19) +* (c5 .--> c20)) +* (c6 .--> c18)) +* (c7 .--> c16)) +* (c8 .--> c14)) +* (c9 .--> c12)) . c6 in rng ((((((c4 .--> c19) +* (c5 .--> c20)) +* (c6 .--> c18)) +* (c7 .--> c16)) +* (c8 .--> c14)) +* (c9 .--> c12)) by FUNCT_1:def 5;
c4 in dom ((((((c4 .--> c19) +* (c5 .--> c20)) +* (c6 .--> c18)) +* (c7 .--> c16)) +* (c8 .--> c14)) +* (c9 .--> c12)) by E21, ENUMSET1:def 4;
then E30: ((((((c4 .--> c19) +* (c5 .--> c20)) +* (c6 .--> c18)) +* (c7 .--> c16)) +* (c8 .--> c14)) +* (c9 .--> c12)) . c4 in rng ((((((c4 .--> c19) +* (c5 .--> c20)) +* (c6 .--> c18)) +* (c7 .--> c16)) +* (c8 .--> c14)) +* (c9 .--> c12)) by FUNCT_1:def 5;
c5 in dom ((((((c4 .--> c19) +* (c5 .--> c20)) +* (c6 .--> c18)) +* (c7 .--> c16)) +* (c8 .--> c14)) +* (c9 .--> c12)) by E21, ENUMSET1:def 4;
then E31: ((((((c4 .--> c19) +* (c5 .--> c20)) +* (c6 .--> c18)) +* (c7 .--> c16)) +* (c8 .--> c14)) +* (c9 .--> c12)) . c5 in rng ((((((c4 .--> c19) +* (c5 .--> c20)) +* (c6 .--> c18)) +* (c7 .--> c16)) +* (c8 .--> c14)) +* (c9 .--> c12)) by FUNCT_1:def 5;
c7 in dom ((((((c4 .--> c19) +* (c5 .--> c20)) +* (c6 .--> c18)) +* (c7 .--> c16)) +* (c8 .--> c14)) +* (c9 .--> c12)) by E21, ENUMSET1:def 4;
then E32: ((((((c4 .--> c19) +* (c5 .--> c20)) +* (c6 .--> c18)) +* (c7 .--> c16)) +* (c8 .--> c14)) +* (c9 .--> c12)) . c7 in rng ((((((c4 .--> c19) +* (c5 .--> c20)) +* (c6 .--> c18)) +* (c7 .--> c16)) +* (c8 .--> c14)) +* (c9 .--> c12)) by FUNCT_1:def 5;
c8 in dom ((((((c4 .--> c19) +* (c5 .--> c20)) +* (c6 .--> c18)) +* (c7 .--> c16)) +* (c8 .--> c14)) +* (c9 .--> c12)) by E21, ENUMSET1:def 4;
then E33: ((((((c4 .--> c19) +* (c5 .--> c20)) +* (c6 .--> c18)) +* (c7 .--> c16)) +* (c8 .--> c14)) +* (c9 .--> c12)) . c8 in rng ((((((c4 .--> c19) +* (c5 .--> c20)) +* (c6 .--> c18)) +* (c7 .--> c16)) +* (c8 .--> c14)) +* (c9 .--> c12)) by FUNCT_1:def 5;
c9 in dom ((((((c4 .--> c19) +* (c5 .--> c20)) +* (c6 .--> c18)) +* (c7 .--> c16)) +* (c8 .--> c14)) +* (c9 .--> c12)) by E21, ENUMSET1:def 4;
then E34: ((((((c4 .--> c19) +* (c5 .--> c20)) +* (c6 .--> c18)) +* (c7 .--> c16)) +* (c8 .--> c14)) +* (c9 .--> c12)) . c9 in rng ((((((c4 .--> c19) +* (c5 .--> c20)) +* (c6 .--> c18)) +* (c7 .--> c16)) +* (c8 .--> c14)) +* (c9 .--> c12)) by FUNCT_1:def 5;
E35: rng ((((((c4 .--> c19) +* (c5 .--> c20)) +* (c6 .--> c18)) +* (c7 .--> c16)) +* (c8 .--> c14)) +* (c9 .--> c12)) c= {(((((((c4 .--> c19) +* (c5 .--> c20)) +* (c6 .--> c18)) +* (c7 .--> c16)) +* (c8 .--> c14)) +* (c9 .--> c12)) . c4),(((((((c4 .--> c19) +* (c5 .--> c20)) +* (c6 .--> c18)) +* (c7 .--> c16)) +* (c8 .--> c14)) +* (c9 .--> c12)) . c5),(((((((c4 .--> c19) +* (c5 .--> c20)) +* (c6 .--> c18)) +* (c7 .--> c16)) +* (c8 .--> c14)) +* (c9 .--> c12)) . c6),(((((((c4 .--> c19) +* (c5 .--> c20)) +* (c6 .--> c18)) +* (c7 .--> c16)) +* (c8 .--> c14)) +* (c9 .--> c12)) . c7),(((((((c4 .--> c19) +* (c5 .--> c20)) +* (c6 .--> c18)) +* (c7 .--> c16)) +* (c8 .--> c14)) +* (c9 .--> c12)) . c8),(((((((c4 .--> c19) +* (c5 .--> c20)) +* (c6 .--> c18)) +* (c7 .--> c16)) +* (c8 .--> c14)) +* (c9 .--> c12)) . c9)}
proof
let c22 be set ; :: according to TARSKI:def 3
assume c22 in rng ((((((c4 .--> c19) +* (c5 .--> c20)) +* (c6 .--> c18)) +* (c7 .--> c16)) +* (c8 .--> c14)) +* (c9 .--> c12)) ;
then consider c23 being set such that
E36: ( c23 in dom ((((((c4 .--> c19) +* (c5 .--> c20)) +* (c6 .--> c18)) +* (c7 .--> c16)) +* (c8 .--> c14)) +* (c9 .--> c12)) & c22 = ((((((c4 .--> c19) +* (c5 .--> c20)) +* (c6 .--> c18)) +* (c7 .--> c16)) +* (c8 .--> c14)) +* (c9 .--> c12)) . c23 ) by FUNCT_1:def 5;
not ( not c23 = c4 & not c23 = c5 & not c23 = c6 & not c23 = c7 & not c23 = c8 & not c23 = c9 ) by E21, E36, ENUMSET1:def 4;
hence c22 in {(((((((c4 .--> c19) +* (c5 .--> c20)) +* (c6 .--> c18)) +* (c7 .--> c16)) +* (c8 .--> c14)) +* (c9 .--> c12)) . c4),(((((((c4 .--> c19) +* (c5 .--> c20)) +* (c6 .--> c18)) +* (c7 .--> c16)) +* (c8 .--> c14)) +* (c9 .--> c12)) . c5),(((((((c4 .--> c19) +* (c5 .--> c20)) +* (c6 .--> c18)) +* (c7 .--> c16)) +* (c8 .--> c14)) +* (c9 .--> c12)) . c6),(((((((c4 .--> c19) +* (c5 .--> c20)) +* (c6 .--> c18)) +* (c7 .--> c16)) +* (c8 .--> c14)) +* (c9 .--> c12)) . c7),(((((((c4 .--> c19) +* (c5 .--> c20)) +* (c6 .--> c18)) +* (c7 .--> c16)) +* (c8 .--> c14)) +* (c9 .--> c12)) . c8),(((((((c4 .--> c19) +* (c5 .--> c20)) +* (c6 .--> c18)) +* (c7 .--> c16)) +* (c8 .--> c14)) +* (c9 .--> c12)) . c9)} by E36, ENUMSET1:def 4;
end;
{(((((((c4 .--> c19) +* (c5 .--> c20)) +* (c6 .--> c18)) +* (c7 .--> c16)) +* (c8 .--> c14)) +* (c9 .--> c12)) . c4),(((((((c4 .--> c19) +* (c5 .--> c20)) +* (c6 .--> c18)) +* (c7 .--> c16)) +* (c8 .--> c14)) +* (c9 .--> c12)) . c5),(((((((c4 .--> c19) +* (c5 .--> c20)) +* (c6 .--> c18)) +* (c7 .--> c16)) +* (c8 .--> c14)) +* (c9 .--> c12)) . c6),(((((((c4 .--> c19) +* (c5 .--> c20)) +* (c6 .--> c18)) +* (c7 .--> c16)) +* (c8 .--> c14)) +* (c9 .--> c12)) . c7),(((((((c4 .--> c19) +* (c5 .--> c20)) +* (c6 .--> c18)) +* (c7 .--> c16)) +* (c8 .--> c14)) +* (c9 .--> c12)) . c8),(((((((c4 .--> c19) +* (c5 .--> c20)) +* (c6 .--> c18)) +* (c7 .--> c16)) +* (c8 .--> c14)) +* (c9 .--> c12)) . c9)} c= rng ((((((c4 .--> c19) +* (c5 .--> c20)) +* (c6 .--> c18)) +* (c7 .--> c16)) +* (c8 .--> c14)) +* (c9 .--> c12))
proof
let c22 be set ; :: according to TARSKI:def 3
assume c22 in {(((((((c4 .--> c19) +* (c5 .--> c20)) +* (c6 .--> c18)) +* (c7 .--> c16)) +* (c8 .--> c14)) +* (c9 .--> c12)) . c4),(((((((c4 .--> c19) +* (c5 .--> c20)) +* (c6 .--> c18)) +* (c7 .--> c16)) +* (c8 .--> c14)) +* (c9 .--> c12)) . c5),(((((((c4 .--> c19) +* (c5 .--> c20)) +* (c6 .--> c18)) +* (c7 .--> c16)) +* (c8 .--> c14)) +* (c9 .--> c12)) . c6),(((((((c4 .--> c19) +* (c5 .--> c20)) +* (c6 .--> c18)) +* (c7 .--> c16)) +* (c8 .--> c14)) +* (c9 .--> c12)) . c7),(((((((c4 .--> c19) +* (c5 .--> c20)) +* (c6 .--> c18)) +* (c7 .--> c16)) +* (c8 .--> c14)) +* (c9 .--> c12)) . c8),(((((((c4 .--> c19) +* (c5 .--> c20)) +* (c6 .--> c18)) +* (c7 .--> c16)) +* (c8 .--> c14)) +* (c9 .--> c12)) . c9)} ;
hence c22 in rng ((((((c4 .--> c19) +* (c5 .--> c20)) +* (c6 .--> c18)) +* (c7 .--> c16)) +* (c8 .--> c14)) +* (c9 .--> c12)) by E29, E30, E31, E32, E33, E34, ENUMSET1:def 4;
end;
then E36: rng ((((((c4 .--> c19) +* (c5 .--> c20)) +* (c6 .--> c18)) +* (c7 .--> c16)) +* (c8 .--> c14)) +* (c9 .--> c12)) = {(((((((c4 .--> c19) +* (c5 .--> c20)) +* (c6 .--> c18)) +* (c7 .--> c16)) +* (c8 .--> c14)) +* (c9 .--> c12)) . c4),(((((((c4 .--> c19) +* (c5 .--> c20)) +* (c6 .--> c18)) +* (c7 .--> c16)) +* (c8 .--> c14)) +* (c9 .--> c12)) . c5),(((((((c4 .--> c19) +* (c5 .--> c20)) +* (c6 .--> c18)) +* (c7 .--> c16)) +* (c8 .--> c14)) +* (c9 .--> c12)) . c6),(((((((c4 .--> c19) +* (c5 .--> c20)) +* (c6 .--> c18)) +* (c7 .--> c16)) +* (c8 .--> c14)) +* (c9 .--> c12)) . c7),(((((((c4 .--> c19) +* (c5 .--> c20)) +* (c6 .--> c18)) +* (c7 .--> c16)) +* (c8 .--> c14)) +* (c9 .--> c12)) . c8),(((((((c4 .--> c19) +* (c5 .--> c20)) +* (c6 .--> c18)) +* (c7 .--> c16)) +* (c8 .--> c14)) +* (c9 .--> c12)) . c9)} by E35, XBOOLE_0:def 10;
rng ((((((c4 .--> c19) +* (