let A, B, C, D, E, F, J, M be set ; :: thesis: for h being Function
for A', B', C', D', E', F', J', M' being set st A <> B & A <> C & A <> D & A <> E & A <> F & A <> J & B <> C & B <> D & B <> E & B <> F & B <> J & B <> M & C <> D & C <> E & C <> F & C <> J & C <> M & D <> E & D <> F & D <> J & D <> M & E <> F & E <> J & E <> M & F <> J & F <> M & J <> M & h = (((((((B .--> B') +* (C .--> C')) +* (D .--> D')) +* (E .--> E')) +* (F .--> F')) +* (J .--> J')) +* (M .--> M')) +* (A .--> A') holds
( h . B = B' & h . C = C' & h . D = D' & h . E = E' & h . F = F' & h . J = J' )
let h be Function; :: thesis: for A', B', C', D', E', F', J', M' being set st A <> B & A <> C & A <> D & A <> E & A <> F & A <> J & B <> C & B <> D & B <> E & B <> F & B <> J & B <> M & C <> D & C <> E & C <> F & C <> J & C <> M & D <> E & D <> F & D <> J & D <> M & E <> F & E <> J & E <> M & F <> J & F <> M & J <> M & h = (((((((B .--> B') +* (C .--> C')) +* (D .--> D')) +* (E .--> E')) +* (F .--> F')) +* (J .--> J')) +* (M .--> M')) +* (A .--> A') holds
( h . B = B' & h . C = C' & h . D = D' & h . E = E' & h . F = F' & h . J = J' )
let A', B', C', D', E', F', J', M' be set ; :: thesis: ( A <> B & A <> C & A <> D & A <> E & A <> F & A <> J & B <> C & B <> D & B <> E & B <> F & B <> J & B <> M & C <> D & C <> E & C <> F & C <> J & C <> M & D <> E & D <> F & D <> J & D <> M & E <> F & E <> J & E <> M & F <> J & F <> M & J <> M & h = (((((((B .--> B') +* (C .--> C')) +* (D .--> D')) +* (E .--> E')) +* (F .--> F')) +* (J .--> J')) +* (M .--> M')) +* (A .--> A') implies ( h . B = B' & h . C = C' & h . D = D' & h . E = E' & h . F = F' & h . J = J' ) )
assume that
A1: A <> B and
A2: A <> C and
A3: A <> D and
A4: A <> E and
A5: A <> F and
A6: A <> J and
A7: ( B <> C & B <> D & B <> E & B <> F & B <> J & B <> M & C <> D & C <> E & C <> F & C <> J & C <> M & D <> E & D <> F & D <> J & D <> M & E <> F & E <> J & E <> M & F <> J & F <> M & J <> M ) and
A8: h = (((((((B .--> B') +* (C .--> C')) +* (D .--> D')) +* (E .--> E')) +* (F .--> F')) +* (J .--> J')) +* (M .--> M')) +* (A .--> A') ; :: thesis: ( h . B = B' & h . C = C' & h . D = D' & h . E = E' & h . F = F' & h . J = J' )
A9: dom (A .--> A') = {A} by FUNCOP_1:19;
then not C in dom (A .--> A') by A2, TARSKI:def 1;
then A10: h . C = (((((((B .--> B') +* (C .--> C')) +* (D .--> D')) +* (E .--> E')) +* (F .--> F')) +* (J .--> J')) +* (M .--> M')) . C by A8, FUNCT_4:12;
not J in dom (A .--> A') by A6, A9, TARSKI:def 1;
then A11: h . J = (((((((B .--> B') +* (C .--> C')) +* (D .--> D')) +* (E .--> E')) +* (F .--> F')) +* (J .--> J')) +* (M .--> M')) . J by A8, FUNCT_4:12
.= J' by A7, Th52 ;
not F in dom (A .--> A') by A5, A9, TARSKI:def 1;
then A12: h . F = (((((((B .--> B') +* (C .--> C')) +* (D .--> D')) +* (E .--> E')) +* (F .--> F')) +* (J .--> J')) +* (M .--> M')) . F by A8, FUNCT_4:12
.= F' by A7, Th52 ;
not E in dom (A .--> A') by A4, A9, TARSKI:def 1;
then A13: h . E = (((((((B .--> B') +* (C .--> C')) +* (D .--> D')) +* (E .--> E')) +* (F .--> F')) +* (J .--> J')) +* (M .--> M')) . E by A8, FUNCT_4:12
.= E' by A7, Th52 ;
not D in dom (A .--> A') by A3, A9, TARSKI:def 1;
then A14: h . D = (((((((B .--> B') +* (C .--> C')) +* (D .--> D')) +* (E .--> E')) +* (F .--> F')) +* (J .--> J')) +* (M .--> M')) . D by A8, FUNCT_4:12
.= D' by A7, Th52 ;
not B in dom (A .--> A') by A1, A9, TARSKI:def 1;
then h . B = (((((((B .--> B') +* (C .--> C')) +* (D .--> D')) +* (E .--> E')) +* (F .--> F')) +* (J .--> J')) +* (M .--> M')) . B by A8, FUNCT_4:12
.= B' by A7, Th52 ;
hence ( h . B = B' & h . C = C' & h . D = D' & h . E = E' & h . F = F' & h . J = J' ) by A7, A10, A14, A13, A12, A11, Th52; :: thesis: verum