Metamath Proof Explorer


Theorem hashf1lem2

Description: Lemma for hashf1 . (Contributed by Mario Carneiro, 17-Apr-2015)

Ref Expression
Hypotheses hashf1lem2.1 โŠข ( ๐œ‘ โ†’ ๐ด โˆˆ Fin )
hashf1lem2.2 โŠข ( ๐œ‘ โ†’ ๐ต โˆˆ Fin )
hashf1lem2.3 โŠข ( ๐œ‘ โ†’ ยฌ ๐‘ง โˆˆ ๐ด )
hashf1lem2.4 โŠข ( ๐œ‘ โ†’ ( ( โ™ฏ โ€˜ ๐ด ) + 1 ) โ‰ค ( โ™ฏ โ€˜ ๐ต ) )
Assertion hashf1lem2 ( ๐œ‘ โ†’ ( โ™ฏ โ€˜ { ๐‘“ โˆฃ ๐‘“ : ( ๐ด โˆช { ๐‘ง } ) โ€“1-1โ†’ ๐ต } ) = ( ( ( โ™ฏ โ€˜ ๐ต ) โˆ’ ( โ™ฏ โ€˜ ๐ด ) ) ยท ( โ™ฏ โ€˜ { ๐‘“ โˆฃ ๐‘“ : ๐ด โ€“1-1โ†’ ๐ต } ) ) )

Proof

Step Hyp Ref Expression
1 hashf1lem2.1 โŠข ( ๐œ‘ โ†’ ๐ด โˆˆ Fin )
2 hashf1lem2.2 โŠข ( ๐œ‘ โ†’ ๐ต โˆˆ Fin )
3 hashf1lem2.3 โŠข ( ๐œ‘ โ†’ ยฌ ๐‘ง โˆˆ ๐ด )
4 hashf1lem2.4 โŠข ( ๐œ‘ โ†’ ( ( โ™ฏ โ€˜ ๐ด ) + 1 ) โ‰ค ( โ™ฏ โ€˜ ๐ต ) )
5 ssid โŠข { ๐‘“ โˆฃ ๐‘“ : ๐ด โ€“1-1โ†’ ๐ต } โІ { ๐‘“ โˆฃ ๐‘“ : ๐ด โ€“1-1โ†’ ๐ต }
6 mapfi โŠข ( ( ๐ต โˆˆ Fin โˆง ๐ด โˆˆ Fin ) โ†’ ( ๐ต โ†‘m ๐ด ) โˆˆ Fin )
7 2 1 6 syl2anc โŠข ( ๐œ‘ โ†’ ( ๐ต โ†‘m ๐ด ) โˆˆ Fin )
8 f1f โŠข ( ๐‘“ : ๐ด โ€“1-1โ†’ ๐ต โ†’ ๐‘“ : ๐ด โŸถ ๐ต )
9 2 1 elmapd โŠข ( ๐œ‘ โ†’ ( ๐‘“ โˆˆ ( ๐ต โ†‘m ๐ด ) โ†” ๐‘“ : ๐ด โŸถ ๐ต ) )
10 8 9 imbitrrid โŠข ( ๐œ‘ โ†’ ( ๐‘“ : ๐ด โ€“1-1โ†’ ๐ต โ†’ ๐‘“ โˆˆ ( ๐ต โ†‘m ๐ด ) ) )
11 10 abssdv โŠข ( ๐œ‘ โ†’ { ๐‘“ โˆฃ ๐‘“ : ๐ด โ€“1-1โ†’ ๐ต } โІ ( ๐ต โ†‘m ๐ด ) )
12 7 11 ssfid โŠข ( ๐œ‘ โ†’ { ๐‘“ โˆฃ ๐‘“ : ๐ด โ€“1-1โ†’ ๐ต } โˆˆ Fin )
13 sseq1 โŠข ( ๐‘ฅ = โˆ… โ†’ ( ๐‘ฅ โІ { ๐‘“ โˆฃ ๐‘“ : ๐ด โ€“1-1โ†’ ๐ต } โ†” โˆ… โІ { ๐‘“ โˆฃ ๐‘“ : ๐ด โ€“1-1โ†’ ๐ต } ) )
14 eleq2 โŠข ( ๐‘ฅ = โˆ… โ†’ ( ( ๐‘“ โ†พ ๐ด ) โˆˆ ๐‘ฅ โ†” ( ๐‘“ โ†พ ๐ด ) โˆˆ โˆ… ) )
15 noel โŠข ยฌ ( ๐‘“ โ†พ ๐ด ) โˆˆ โˆ…
16 15 pm2.21i โŠข ( ( ๐‘“ โ†พ ๐ด ) โˆˆ โˆ… โ†’ ๐‘“ โˆˆ โˆ… )
17 14 16 syl6bi โŠข ( ๐‘ฅ = โˆ… โ†’ ( ( ๐‘“ โ†พ ๐ด ) โˆˆ ๐‘ฅ โ†’ ๐‘“ โˆˆ โˆ… ) )
18 17 adantrd โŠข ( ๐‘ฅ = โˆ… โ†’ ( ( ( ๐‘“ โ†พ ๐ด ) โˆˆ ๐‘ฅ โˆง ๐‘“ : ( ๐ด โˆช { ๐‘ง } ) โ€“1-1โ†’ ๐ต ) โ†’ ๐‘“ โˆˆ โˆ… ) )
19 18 abssdv โŠข ( ๐‘ฅ = โˆ… โ†’ { ๐‘“ โˆฃ ( ( ๐‘“ โ†พ ๐ด ) โˆˆ ๐‘ฅ โˆง ๐‘“ : ( ๐ด โˆช { ๐‘ง } ) โ€“1-1โ†’ ๐ต ) } โІ โˆ… )
20 ss0 โŠข ( { ๐‘“ โˆฃ ( ( ๐‘“ โ†พ ๐ด ) โˆˆ ๐‘ฅ โˆง ๐‘“ : ( ๐ด โˆช { ๐‘ง } ) โ€“1-1โ†’ ๐ต ) } โІ โˆ… โ†’ { ๐‘“ โˆฃ ( ( ๐‘“ โ†พ ๐ด ) โˆˆ ๐‘ฅ โˆง ๐‘“ : ( ๐ด โˆช { ๐‘ง } ) โ€“1-1โ†’ ๐ต ) } = โˆ… )
21 19 20 syl โŠข ( ๐‘ฅ = โˆ… โ†’ { ๐‘“ โˆฃ ( ( ๐‘“ โ†พ ๐ด ) โˆˆ ๐‘ฅ โˆง ๐‘“ : ( ๐ด โˆช { ๐‘ง } ) โ€“1-1โ†’ ๐ต ) } = โˆ… )
22 21 fveq2d โŠข ( ๐‘ฅ = โˆ… โ†’ ( โ™ฏ โ€˜ { ๐‘“ โˆฃ ( ( ๐‘“ โ†พ ๐ด ) โˆˆ ๐‘ฅ โˆง ๐‘“ : ( ๐ด โˆช { ๐‘ง } ) โ€“1-1โ†’ ๐ต ) } ) = ( โ™ฏ โ€˜ โˆ… ) )
23 hash0 โŠข ( โ™ฏ โ€˜ โˆ… ) = 0
24 22 23 eqtrdi โŠข ( ๐‘ฅ = โˆ… โ†’ ( โ™ฏ โ€˜ { ๐‘“ โˆฃ ( ( ๐‘“ โ†พ ๐ด ) โˆˆ ๐‘ฅ โˆง ๐‘“ : ( ๐ด โˆช { ๐‘ง } ) โ€“1-1โ†’ ๐ต ) } ) = 0 )
25 fveq2 โŠข ( ๐‘ฅ = โˆ… โ†’ ( โ™ฏ โ€˜ ๐‘ฅ ) = ( โ™ฏ โ€˜ โˆ… ) )
26 25 23 eqtrdi โŠข ( ๐‘ฅ = โˆ… โ†’ ( โ™ฏ โ€˜ ๐‘ฅ ) = 0 )
27 26 oveq2d โŠข ( ๐‘ฅ = โˆ… โ†’ ( ( ( โ™ฏ โ€˜ ๐ต ) โˆ’ ( โ™ฏ โ€˜ ๐ด ) ) ยท ( โ™ฏ โ€˜ ๐‘ฅ ) ) = ( ( ( โ™ฏ โ€˜ ๐ต ) โˆ’ ( โ™ฏ โ€˜ ๐ด ) ) ยท 0 ) )
28 24 27 eqeq12d โŠข ( ๐‘ฅ = โˆ… โ†’ ( ( โ™ฏ โ€˜ { ๐‘“ โˆฃ ( ( ๐‘“ โ†พ ๐ด ) โˆˆ ๐‘ฅ โˆง ๐‘“ : ( ๐ด โˆช { ๐‘ง } ) โ€“1-1โ†’ ๐ต ) } ) = ( ( ( โ™ฏ โ€˜ ๐ต ) โˆ’ ( โ™ฏ โ€˜ ๐ด ) ) ยท ( โ™ฏ โ€˜ ๐‘ฅ ) ) โ†” 0 = ( ( ( โ™ฏ โ€˜ ๐ต ) โˆ’ ( โ™ฏ โ€˜ ๐ด ) ) ยท 0 ) ) )
29 13 28 imbi12d โŠข ( ๐‘ฅ = โˆ… โ†’ ( ( ๐‘ฅ โІ { ๐‘“ โˆฃ ๐‘“ : ๐ด โ€“1-1โ†’ ๐ต } โ†’ ( โ™ฏ โ€˜ { ๐‘“ โˆฃ ( ( ๐‘“ โ†พ ๐ด ) โˆˆ ๐‘ฅ โˆง ๐‘“ : ( ๐ด โˆช { ๐‘ง } ) โ€“1-1โ†’ ๐ต ) } ) = ( ( ( โ™ฏ โ€˜ ๐ต ) โˆ’ ( โ™ฏ โ€˜ ๐ด ) ) ยท ( โ™ฏ โ€˜ ๐‘ฅ ) ) ) โ†” ( โˆ… โІ { ๐‘“ โˆฃ ๐‘“ : ๐ด โ€“1-1โ†’ ๐ต } โ†’ 0 = ( ( ( โ™ฏ โ€˜ ๐ต ) โˆ’ ( โ™ฏ โ€˜ ๐ด ) ) ยท 0 ) ) ) )
30 29 imbi2d โŠข ( ๐‘ฅ = โˆ… โ†’ ( ( ๐œ‘ โ†’ ( ๐‘ฅ โІ { ๐‘“ โˆฃ ๐‘“ : ๐ด โ€“1-1โ†’ ๐ต } โ†’ ( โ™ฏ โ€˜ { ๐‘“ โˆฃ ( ( ๐‘“ โ†พ ๐ด ) โˆˆ ๐‘ฅ โˆง ๐‘“ : ( ๐ด โˆช { ๐‘ง } ) โ€“1-1โ†’ ๐ต ) } ) = ( ( ( โ™ฏ โ€˜ ๐ต ) โˆ’ ( โ™ฏ โ€˜ ๐ด ) ) ยท ( โ™ฏ โ€˜ ๐‘ฅ ) ) ) ) โ†” ( ๐œ‘ โ†’ ( โˆ… โІ { ๐‘“ โˆฃ ๐‘“ : ๐ด โ€“1-1โ†’ ๐ต } โ†’ 0 = ( ( ( โ™ฏ โ€˜ ๐ต ) โˆ’ ( โ™ฏ โ€˜ ๐ด ) ) ยท 0 ) ) ) ) )
31 sseq1 โŠข ( ๐‘ฅ = ๐‘ฆ โ†’ ( ๐‘ฅ โІ { ๐‘“ โˆฃ ๐‘“ : ๐ด โ€“1-1โ†’ ๐ต } โ†” ๐‘ฆ โІ { ๐‘“ โˆฃ ๐‘“ : ๐ด โ€“1-1โ†’ ๐ต } ) )
32 eleq2 โŠข ( ๐‘ฅ = ๐‘ฆ โ†’ ( ( ๐‘“ โ†พ ๐ด ) โˆˆ ๐‘ฅ โ†” ( ๐‘“ โ†พ ๐ด ) โˆˆ ๐‘ฆ ) )
33 32 anbi1d โŠข ( ๐‘ฅ = ๐‘ฆ โ†’ ( ( ( ๐‘“ โ†พ ๐ด ) โˆˆ ๐‘ฅ โˆง ๐‘“ : ( ๐ด โˆช { ๐‘ง } ) โ€“1-1โ†’ ๐ต ) โ†” ( ( ๐‘“ โ†พ ๐ด ) โˆˆ ๐‘ฆ โˆง ๐‘“ : ( ๐ด โˆช { ๐‘ง } ) โ€“1-1โ†’ ๐ต ) ) )
34 33 abbidv โŠข ( ๐‘ฅ = ๐‘ฆ โ†’ { ๐‘“ โˆฃ ( ( ๐‘“ โ†พ ๐ด ) โˆˆ ๐‘ฅ โˆง ๐‘“ : ( ๐ด โˆช { ๐‘ง } ) โ€“1-1โ†’ ๐ต ) } = { ๐‘“ โˆฃ ( ( ๐‘“ โ†พ ๐ด ) โˆˆ ๐‘ฆ โˆง ๐‘“ : ( ๐ด โˆช { ๐‘ง } ) โ€“1-1โ†’ ๐ต ) } )
35 34 fveq2d โŠข ( ๐‘ฅ = ๐‘ฆ โ†’ ( โ™ฏ โ€˜ { ๐‘“ โˆฃ ( ( ๐‘“ โ†พ ๐ด ) โˆˆ ๐‘ฅ โˆง ๐‘“ : ( ๐ด โˆช { ๐‘ง } ) โ€“1-1โ†’ ๐ต ) } ) = ( โ™ฏ โ€˜ { ๐‘“ โˆฃ ( ( ๐‘“ โ†พ ๐ด ) โˆˆ ๐‘ฆ โˆง ๐‘“ : ( ๐ด โˆช { ๐‘ง } ) โ€“1-1โ†’ ๐ต ) } ) )
36 fveq2 โŠข ( ๐‘ฅ = ๐‘ฆ โ†’ ( โ™ฏ โ€˜ ๐‘ฅ ) = ( โ™ฏ โ€˜ ๐‘ฆ ) )
37 36 oveq2d โŠข ( ๐‘ฅ = ๐‘ฆ โ†’ ( ( ( โ™ฏ โ€˜ ๐ต ) โˆ’ ( โ™ฏ โ€˜ ๐ด ) ) ยท ( โ™ฏ โ€˜ ๐‘ฅ ) ) = ( ( ( โ™ฏ โ€˜ ๐ต ) โˆ’ ( โ™ฏ โ€˜ ๐ด ) ) ยท ( โ™ฏ โ€˜ ๐‘ฆ ) ) )
38 35 37 eqeq12d โŠข ( ๐‘ฅ = ๐‘ฆ โ†’ ( ( โ™ฏ โ€˜ { ๐‘“ โˆฃ ( ( ๐‘“ โ†พ ๐ด ) โˆˆ ๐‘ฅ โˆง ๐‘“ : ( ๐ด โˆช { ๐‘ง } ) โ€“1-1โ†’ ๐ต ) } ) = ( ( ( โ™ฏ โ€˜ ๐ต ) โˆ’ ( โ™ฏ โ€˜ ๐ด ) ) ยท ( โ™ฏ โ€˜ ๐‘ฅ ) ) โ†” ( โ™ฏ โ€˜ { ๐‘“ โˆฃ ( ( ๐‘“ โ†พ ๐ด ) โˆˆ ๐‘ฆ โˆง ๐‘“ : ( ๐ด โˆช { ๐‘ง } ) โ€“1-1โ†’ ๐ต ) } ) = ( ( ( โ™ฏ โ€˜ ๐ต ) โˆ’ ( โ™ฏ โ€˜ ๐ด ) ) ยท ( โ™ฏ โ€˜ ๐‘ฆ ) ) ) )
39 31 38 imbi12d โŠข ( ๐‘ฅ = ๐‘ฆ โ†’ ( ( ๐‘ฅ โІ { ๐‘“ โˆฃ ๐‘“ : ๐ด โ€“1-1โ†’ ๐ต } โ†’ ( โ™ฏ โ€˜ { ๐‘“ โˆฃ ( ( ๐‘“ โ†พ ๐ด ) โˆˆ ๐‘ฅ โˆง ๐‘“ : ( ๐ด โˆช { ๐‘ง } ) โ€“1-1โ†’ ๐ต ) } ) = ( ( ( โ™ฏ โ€˜ ๐ต ) โˆ’ ( โ™ฏ โ€˜ ๐ด ) ) ยท ( โ™ฏ โ€˜ ๐‘ฅ ) ) ) โ†” ( ๐‘ฆ โІ { ๐‘“ โˆฃ ๐‘“ : ๐ด โ€“1-1โ†’ ๐ต } โ†’ ( โ™ฏ โ€˜ { ๐‘“ โˆฃ ( ( ๐‘“ โ†พ ๐ด ) โˆˆ ๐‘ฆ โˆง ๐‘“ : ( ๐ด โˆช { ๐‘ง } ) โ€“1-1โ†’ ๐ต ) } ) = ( ( ( โ™ฏ โ€˜ ๐ต ) โˆ’ ( โ™ฏ โ€˜ ๐ด ) ) ยท ( โ™ฏ โ€˜ ๐‘ฆ ) ) ) ) )
40 39 imbi2d โŠข ( ๐‘ฅ = ๐‘ฆ โ†’ ( ( ๐œ‘ โ†’ ( ๐‘ฅ โІ { ๐‘“ โˆฃ ๐‘“ : ๐ด โ€“1-1โ†’ ๐ต } โ†’ ( โ™ฏ โ€˜ { ๐‘“ โˆฃ ( ( ๐‘“ โ†พ ๐ด ) โˆˆ ๐‘ฅ โˆง ๐‘“ : ( ๐ด โˆช { ๐‘ง } ) โ€“1-1โ†’ ๐ต ) } ) = ( ( ( โ™ฏ โ€˜ ๐ต ) โˆ’ ( โ™ฏ โ€˜ ๐ด ) ) ยท ( โ™ฏ โ€˜ ๐‘ฅ ) ) ) ) โ†” ( ๐œ‘ โ†’ ( ๐‘ฆ โІ { ๐‘“ โˆฃ ๐‘“ : ๐ด โ€“1-1โ†’ ๐ต } โ†’ ( โ™ฏ โ€˜ { ๐‘“ โˆฃ ( ( ๐‘“ โ†พ ๐ด ) โˆˆ ๐‘ฆ โˆง ๐‘“ : ( ๐ด โˆช { ๐‘ง } ) โ€“1-1โ†’ ๐ต ) } ) = ( ( ( โ™ฏ โ€˜ ๐ต ) โˆ’ ( โ™ฏ โ€˜ ๐ด ) ) ยท ( โ™ฏ โ€˜ ๐‘ฆ ) ) ) ) ) )
41 sseq1 โŠข ( ๐‘ฅ = ( ๐‘ฆ โˆช { ๐‘Ž } ) โ†’ ( ๐‘ฅ โІ { ๐‘“ โˆฃ ๐‘“ : ๐ด โ€“1-1โ†’ ๐ต } โ†” ( ๐‘ฆ โˆช { ๐‘Ž } ) โІ { ๐‘“ โˆฃ ๐‘“ : ๐ด โ€“1-1โ†’ ๐ต } ) )
42 eleq2 โŠข ( ๐‘ฅ = ( ๐‘ฆ โˆช { ๐‘Ž } ) โ†’ ( ( ๐‘“ โ†พ ๐ด ) โˆˆ ๐‘ฅ โ†” ( ๐‘“ โ†พ ๐ด ) โˆˆ ( ๐‘ฆ โˆช { ๐‘Ž } ) ) )
43 42 anbi1d โŠข ( ๐‘ฅ = ( ๐‘ฆ โˆช { ๐‘Ž } ) โ†’ ( ( ( ๐‘“ โ†พ ๐ด ) โˆˆ ๐‘ฅ โˆง ๐‘“ : ( ๐ด โˆช { ๐‘ง } ) โ€“1-1โ†’ ๐ต ) โ†” ( ( ๐‘“ โ†พ ๐ด ) โˆˆ ( ๐‘ฆ โˆช { ๐‘Ž } ) โˆง ๐‘“ : ( ๐ด โˆช { ๐‘ง } ) โ€“1-1โ†’ ๐ต ) ) )
44 43 abbidv โŠข ( ๐‘ฅ = ( ๐‘ฆ โˆช { ๐‘Ž } ) โ†’ { ๐‘“ โˆฃ ( ( ๐‘“ โ†พ ๐ด ) โˆˆ ๐‘ฅ โˆง ๐‘“ : ( ๐ด โˆช { ๐‘ง } ) โ€“1-1โ†’ ๐ต ) } = { ๐‘“ โˆฃ ( ( ๐‘“ โ†พ ๐ด ) โˆˆ ( ๐‘ฆ โˆช { ๐‘Ž } ) โˆง ๐‘“ : ( ๐ด โˆช { ๐‘ง } ) โ€“1-1โ†’ ๐ต ) } )
45 44 fveq2d โŠข ( ๐‘ฅ = ( ๐‘ฆ โˆช { ๐‘Ž } ) โ†’ ( โ™ฏ โ€˜ { ๐‘“ โˆฃ ( ( ๐‘“ โ†พ ๐ด ) โˆˆ ๐‘ฅ โˆง ๐‘“ : ( ๐ด โˆช { ๐‘ง } ) โ€“1-1โ†’ ๐ต ) } ) = ( โ™ฏ โ€˜ { ๐‘“ โˆฃ ( ( ๐‘“ โ†พ ๐ด ) โˆˆ ( ๐‘ฆ โˆช { ๐‘Ž } ) โˆง ๐‘“ : ( ๐ด โˆช { ๐‘ง } ) โ€“1-1โ†’ ๐ต ) } ) )
46 fveq2 โŠข ( ๐‘ฅ = ( ๐‘ฆ โˆช { ๐‘Ž } ) โ†’ ( โ™ฏ โ€˜ ๐‘ฅ ) = ( โ™ฏ โ€˜ ( ๐‘ฆ โˆช { ๐‘Ž } ) ) )
47 46 oveq2d โŠข ( ๐‘ฅ = ( ๐‘ฆ โˆช { ๐‘Ž } ) โ†’ ( ( ( โ™ฏ โ€˜ ๐ต ) โˆ’ ( โ™ฏ โ€˜ ๐ด ) ) ยท ( โ™ฏ โ€˜ ๐‘ฅ ) ) = ( ( ( โ™ฏ โ€˜ ๐ต ) โˆ’ ( โ™ฏ โ€˜ ๐ด ) ) ยท ( โ™ฏ โ€˜ ( ๐‘ฆ โˆช { ๐‘Ž } ) ) ) )
48 45 47 eqeq12d โŠข ( ๐‘ฅ = ( ๐‘ฆ โˆช { ๐‘Ž } ) โ†’ ( ( โ™ฏ โ€˜ { ๐‘“ โˆฃ ( ( ๐‘“ โ†พ ๐ด ) โˆˆ ๐‘ฅ โˆง ๐‘“ : ( ๐ด โˆช { ๐‘ง } ) โ€“1-1โ†’ ๐ต ) } ) = ( ( ( โ™ฏ โ€˜ ๐ต ) โˆ’ ( โ™ฏ โ€˜ ๐ด ) ) ยท ( โ™ฏ โ€˜ ๐‘ฅ ) ) โ†” ( โ™ฏ โ€˜ { ๐‘“ โˆฃ ( ( ๐‘“ โ†พ ๐ด ) โˆˆ ( ๐‘ฆ โˆช { ๐‘Ž } ) โˆง ๐‘“ : ( ๐ด โˆช { ๐‘ง } ) โ€“1-1โ†’ ๐ต ) } ) = ( ( ( โ™ฏ โ€˜ ๐ต ) โˆ’ ( โ™ฏ โ€˜ ๐ด ) ) ยท ( โ™ฏ โ€˜ ( ๐‘ฆ โˆช { ๐‘Ž } ) ) ) ) )
49 41 48 imbi12d โŠข ( ๐‘ฅ = ( ๐‘ฆ โˆช { ๐‘Ž } ) โ†’ ( ( ๐‘ฅ โІ { ๐‘“ โˆฃ ๐‘“ : ๐ด โ€“1-1โ†’ ๐ต } โ†’ ( โ™ฏ โ€˜ { ๐‘“ โˆฃ ( ( ๐‘“ โ†พ ๐ด ) โˆˆ ๐‘ฅ โˆง ๐‘“ : ( ๐ด โˆช { ๐‘ง } ) โ€“1-1โ†’ ๐ต ) } ) = ( ( ( โ™ฏ โ€˜ ๐ต ) โˆ’ ( โ™ฏ โ€˜ ๐ด ) ) ยท ( โ™ฏ โ€˜ ๐‘ฅ ) ) ) โ†” ( ( ๐‘ฆ โˆช { ๐‘Ž } ) โІ { ๐‘“ โˆฃ ๐‘“ : ๐ด โ€“1-1โ†’ ๐ต } โ†’ ( โ™ฏ โ€˜ { ๐‘“ โˆฃ ( ( ๐‘“ โ†พ ๐ด ) โˆˆ ( ๐‘ฆ โˆช { ๐‘Ž } ) โˆง ๐‘“ : ( ๐ด โˆช { ๐‘ง } ) โ€“1-1โ†’ ๐ต ) } ) = ( ( ( โ™ฏ โ€˜ ๐ต ) โˆ’ ( โ™ฏ โ€˜ ๐ด ) ) ยท ( โ™ฏ โ€˜ ( ๐‘ฆ โˆช { ๐‘Ž } ) ) ) ) ) )
50 49 imbi2d โŠข ( ๐‘ฅ = ( ๐‘ฆ โˆช { ๐‘Ž } ) โ†’ ( ( ๐œ‘ โ†’ ( ๐‘ฅ โІ { ๐‘“ โˆฃ ๐‘“ : ๐ด โ€“1-1โ†’ ๐ต } โ†’ ( โ™ฏ โ€˜ { ๐‘“ โˆฃ ( ( ๐‘“ โ†พ ๐ด ) โˆˆ ๐‘ฅ โˆง ๐‘“ : ( ๐ด โˆช { ๐‘ง } ) โ€“1-1โ†’ ๐ต ) } ) = ( ( ( โ™ฏ โ€˜ ๐ต ) โˆ’ ( โ™ฏ โ€˜ ๐ด ) ) ยท ( โ™ฏ โ€˜ ๐‘ฅ ) ) ) ) โ†” ( ๐œ‘ โ†’ ( ( ๐‘ฆ โˆช { ๐‘Ž } ) โІ { ๐‘“ โˆฃ ๐‘“ : ๐ด โ€“1-1โ†’ ๐ต } โ†’ ( โ™ฏ โ€˜ { ๐‘“ โˆฃ ( ( ๐‘“ โ†พ ๐ด ) โˆˆ ( ๐‘ฆ โˆช { ๐‘Ž } ) โˆง ๐‘“ : ( ๐ด โˆช { ๐‘ง } ) โ€“1-1โ†’ ๐ต ) } ) = ( ( ( โ™ฏ โ€˜ ๐ต ) โˆ’ ( โ™ฏ โ€˜ ๐ด ) ) ยท ( โ™ฏ โ€˜ ( ๐‘ฆ โˆช { ๐‘Ž } ) ) ) ) ) ) )
51 sseq1 โŠข ( ๐‘ฅ = { ๐‘“ โˆฃ ๐‘“ : ๐ด โ€“1-1โ†’ ๐ต } โ†’ ( ๐‘ฅ โІ { ๐‘“ โˆฃ ๐‘“ : ๐ด โ€“1-1โ†’ ๐ต } โ†” { ๐‘“ โˆฃ ๐‘“ : ๐ด โ€“1-1โ†’ ๐ต } โІ { ๐‘“ โˆฃ ๐‘“ : ๐ด โ€“1-1โ†’ ๐ต } ) )
52 f1eq1 โŠข ( ๐‘“ = ๐‘ฆ โ†’ ( ๐‘“ : ๐ด โ€“1-1โ†’ ๐ต โ†” ๐‘ฆ : ๐ด โ€“1-1โ†’ ๐ต ) )
53 52 cbvabv โŠข { ๐‘“ โˆฃ ๐‘“ : ๐ด โ€“1-1โ†’ ๐ต } = { ๐‘ฆ โˆฃ ๐‘ฆ : ๐ด โ€“1-1โ†’ ๐ต }
54 53 eqeq2i โŠข ( ๐‘ฅ = { ๐‘“ โˆฃ ๐‘“ : ๐ด โ€“1-1โ†’ ๐ต } โ†” ๐‘ฅ = { ๐‘ฆ โˆฃ ๐‘ฆ : ๐ด โ€“1-1โ†’ ๐ต } )
55 ssun1 โŠข ๐ด โІ ( ๐ด โˆช { ๐‘ง } )
56 f1ssres โŠข ( ( ๐‘“ : ( ๐ด โˆช { ๐‘ง } ) โ€“1-1โ†’ ๐ต โˆง ๐ด โІ ( ๐ด โˆช { ๐‘ง } ) ) โ†’ ( ๐‘“ โ†พ ๐ด ) : ๐ด โ€“1-1โ†’ ๐ต )
57 55 56 mpan2 โŠข ( ๐‘“ : ( ๐ด โˆช { ๐‘ง } ) โ€“1-1โ†’ ๐ต โ†’ ( ๐‘“ โ†พ ๐ด ) : ๐ด โ€“1-1โ†’ ๐ต )
58 vex โŠข ๐‘“ โˆˆ V
59 58 resex โŠข ( ๐‘“ โ†พ ๐ด ) โˆˆ V
60 f1eq1 โŠข ( ๐‘ฆ = ( ๐‘“ โ†พ ๐ด ) โ†’ ( ๐‘ฆ : ๐ด โ€“1-1โ†’ ๐ต โ†” ( ๐‘“ โ†พ ๐ด ) : ๐ด โ€“1-1โ†’ ๐ต ) )
61 59 60 elab โŠข ( ( ๐‘“ โ†พ ๐ด ) โˆˆ { ๐‘ฆ โˆฃ ๐‘ฆ : ๐ด โ€“1-1โ†’ ๐ต } โ†” ( ๐‘“ โ†พ ๐ด ) : ๐ด โ€“1-1โ†’ ๐ต )
62 57 61 sylibr โŠข ( ๐‘“ : ( ๐ด โˆช { ๐‘ง } ) โ€“1-1โ†’ ๐ต โ†’ ( ๐‘“ โ†พ ๐ด ) โˆˆ { ๐‘ฆ โˆฃ ๐‘ฆ : ๐ด โ€“1-1โ†’ ๐ต } )
63 eleq2 โŠข ( ๐‘ฅ = { ๐‘ฆ โˆฃ ๐‘ฆ : ๐ด โ€“1-1โ†’ ๐ต } โ†’ ( ( ๐‘“ โ†พ ๐ด ) โˆˆ ๐‘ฅ โ†” ( ๐‘“ โ†พ ๐ด ) โˆˆ { ๐‘ฆ โˆฃ ๐‘ฆ : ๐ด โ€“1-1โ†’ ๐ต } ) )
64 62 63 imbitrrid โŠข ( ๐‘ฅ = { ๐‘ฆ โˆฃ ๐‘ฆ : ๐ด โ€“1-1โ†’ ๐ต } โ†’ ( ๐‘“ : ( ๐ด โˆช { ๐‘ง } ) โ€“1-1โ†’ ๐ต โ†’ ( ๐‘“ โ†พ ๐ด ) โˆˆ ๐‘ฅ ) )
65 64 pm4.71rd โŠข ( ๐‘ฅ = { ๐‘ฆ โˆฃ ๐‘ฆ : ๐ด โ€“1-1โ†’ ๐ต } โ†’ ( ๐‘“ : ( ๐ด โˆช { ๐‘ง } ) โ€“1-1โ†’ ๐ต โ†” ( ( ๐‘“ โ†พ ๐ด ) โˆˆ ๐‘ฅ โˆง ๐‘“ : ( ๐ด โˆช { ๐‘ง } ) โ€“1-1โ†’ ๐ต ) ) )
66 65 bicomd โŠข ( ๐‘ฅ = { ๐‘ฆ โˆฃ ๐‘ฆ : ๐ด โ€“1-1โ†’ ๐ต } โ†’ ( ( ( ๐‘“ โ†พ ๐ด ) โˆˆ ๐‘ฅ โˆง ๐‘“ : ( ๐ด โˆช { ๐‘ง } ) โ€“1-1โ†’ ๐ต ) โ†” ๐‘“ : ( ๐ด โˆช { ๐‘ง } ) โ€“1-1โ†’ ๐ต ) )
67 66 abbidv โŠข ( ๐‘ฅ = { ๐‘ฆ โˆฃ ๐‘ฆ : ๐ด โ€“1-1โ†’ ๐ต } โ†’ { ๐‘“ โˆฃ ( ( ๐‘“ โ†พ ๐ด ) โˆˆ ๐‘ฅ โˆง ๐‘“ : ( ๐ด โˆช { ๐‘ง } ) โ€“1-1โ†’ ๐ต ) } = { ๐‘“ โˆฃ ๐‘“ : ( ๐ด โˆช { ๐‘ง } ) โ€“1-1โ†’ ๐ต } )
68 54 67 sylbi โŠข ( ๐‘ฅ = { ๐‘“ โˆฃ ๐‘“ : ๐ด โ€“1-1โ†’ ๐ต } โ†’ { ๐‘“ โˆฃ ( ( ๐‘“ โ†พ ๐ด ) โˆˆ ๐‘ฅ โˆง ๐‘“ : ( ๐ด โˆช { ๐‘ง } ) โ€“1-1โ†’ ๐ต ) } = { ๐‘“ โˆฃ ๐‘“ : ( ๐ด โˆช { ๐‘ง } ) โ€“1-1โ†’ ๐ต } )
69 68 fveq2d โŠข ( ๐‘ฅ = { ๐‘“ โˆฃ ๐‘“ : ๐ด โ€“1-1โ†’ ๐ต } โ†’ ( โ™ฏ โ€˜ { ๐‘“ โˆฃ ( ( ๐‘“ โ†พ ๐ด ) โˆˆ ๐‘ฅ โˆง ๐‘“ : ( ๐ด โˆช { ๐‘ง } ) โ€“1-1โ†’ ๐ต ) } ) = ( โ™ฏ โ€˜ { ๐‘“ โˆฃ ๐‘“ : ( ๐ด โˆช { ๐‘ง } ) โ€“1-1โ†’ ๐ต } ) )
70 fveq2 โŠข ( ๐‘ฅ = { ๐‘“ โˆฃ ๐‘“ : ๐ด โ€“1-1โ†’ ๐ต } โ†’ ( โ™ฏ โ€˜ ๐‘ฅ ) = ( โ™ฏ โ€˜ { ๐‘“ โˆฃ ๐‘“ : ๐ด โ€“1-1โ†’ ๐ต } ) )
71 70 oveq2d โŠข ( ๐‘ฅ = { ๐‘“ โˆฃ ๐‘“ : ๐ด โ€“1-1โ†’ ๐ต } โ†’ ( ( ( โ™ฏ โ€˜ ๐ต ) โˆ’ ( โ™ฏ โ€˜ ๐ด ) ) ยท ( โ™ฏ โ€˜ ๐‘ฅ ) ) = ( ( ( โ™ฏ โ€˜ ๐ต ) โˆ’ ( โ™ฏ โ€˜ ๐ด ) ) ยท ( โ™ฏ โ€˜ { ๐‘“ โˆฃ ๐‘“ : ๐ด โ€“1-1โ†’ ๐ต } ) ) )
72 69 71 eqeq12d โŠข ( ๐‘ฅ = { ๐‘“ โˆฃ ๐‘“ : ๐ด โ€“1-1โ†’ ๐ต } โ†’ ( ( โ™ฏ โ€˜ { ๐‘“ โˆฃ ( ( ๐‘“ โ†พ ๐ด ) โˆˆ ๐‘ฅ โˆง ๐‘“ : ( ๐ด โˆช { ๐‘ง } ) โ€“1-1โ†’ ๐ต ) } ) = ( ( ( โ™ฏ โ€˜ ๐ต ) โˆ’ ( โ™ฏ โ€˜ ๐ด ) ) ยท ( โ™ฏ โ€˜ ๐‘ฅ ) ) โ†” ( โ™ฏ โ€˜ { ๐‘“ โˆฃ ๐‘“ : ( ๐ด โˆช { ๐‘ง } ) โ€“1-1โ†’ ๐ต } ) = ( ( ( โ™ฏ โ€˜ ๐ต ) โˆ’ ( โ™ฏ โ€˜ ๐ด ) ) ยท ( โ™ฏ โ€˜ { ๐‘“ โˆฃ ๐‘“ : ๐ด โ€“1-1โ†’ ๐ต } ) ) ) )
73 51 72 imbi12d โŠข ( ๐‘ฅ = { ๐‘“ โˆฃ ๐‘“ : ๐ด โ€“1-1โ†’ ๐ต } โ†’ ( ( ๐‘ฅ โІ { ๐‘“ โˆฃ ๐‘“ : ๐ด โ€“1-1โ†’ ๐ต } โ†’ ( โ™ฏ โ€˜ { ๐‘“ โˆฃ ( ( ๐‘“ โ†พ ๐ด ) โˆˆ ๐‘ฅ โˆง ๐‘“ : ( ๐ด โˆช { ๐‘ง } ) โ€“1-1โ†’ ๐ต ) } ) = ( ( ( โ™ฏ โ€˜ ๐ต ) โˆ’ ( โ™ฏ โ€˜ ๐ด ) ) ยท ( โ™ฏ โ€˜ ๐‘ฅ ) ) ) โ†” ( { ๐‘“ โˆฃ ๐‘“ : ๐ด โ€“1-1โ†’ ๐ต } โІ { ๐‘“ โˆฃ ๐‘“ : ๐ด โ€“1-1โ†’ ๐ต } โ†’ ( โ™ฏ โ€˜ { ๐‘“ โˆฃ ๐‘“ : ( ๐ด โˆช { ๐‘ง } ) โ€“1-1โ†’ ๐ต } ) = ( ( ( โ™ฏ โ€˜ ๐ต ) โˆ’ ( โ™ฏ โ€˜ ๐ด ) ) ยท ( โ™ฏ โ€˜ { ๐‘“ โˆฃ ๐‘“ : ๐ด โ€“1-1โ†’ ๐ต } ) ) ) ) )
74 73 imbi2d โŠข ( ๐‘ฅ = { ๐‘“ โˆฃ ๐‘“ : ๐ด โ€“1-1โ†’ ๐ต } โ†’ ( ( ๐œ‘ โ†’ ( ๐‘ฅ โІ { ๐‘“ โˆฃ ๐‘“ : ๐ด โ€“1-1โ†’ ๐ต } โ†’ ( โ™ฏ โ€˜ { ๐‘“ โˆฃ ( ( ๐‘“ โ†พ ๐ด ) โˆˆ ๐‘ฅ โˆง ๐‘“ : ( ๐ด โˆช { ๐‘ง } ) โ€“1-1โ†’ ๐ต ) } ) = ( ( ( โ™ฏ โ€˜ ๐ต ) โˆ’ ( โ™ฏ โ€˜ ๐ด ) ) ยท ( โ™ฏ โ€˜ ๐‘ฅ ) ) ) ) โ†” ( ๐œ‘ โ†’ ( { ๐‘“ โˆฃ ๐‘“ : ๐ด โ€“1-1โ†’ ๐ต } โІ { ๐‘“ โˆฃ ๐‘“ : ๐ด โ€“1-1โ†’ ๐ต } โ†’ ( โ™ฏ โ€˜ { ๐‘“ โˆฃ ๐‘“ : ( ๐ด โˆช { ๐‘ง } ) โ€“1-1โ†’ ๐ต } ) = ( ( ( โ™ฏ โ€˜ ๐ต ) โˆ’ ( โ™ฏ โ€˜ ๐ด ) ) ยท ( โ™ฏ โ€˜ { ๐‘“ โˆฃ ๐‘“ : ๐ด โ€“1-1โ†’ ๐ต } ) ) ) ) ) )
75 hashcl โŠข ( ๐ต โˆˆ Fin โ†’ ( โ™ฏ โ€˜ ๐ต ) โˆˆ โ„•0 )
76 2 75 syl โŠข ( ๐œ‘ โ†’ ( โ™ฏ โ€˜ ๐ต ) โˆˆ โ„•0 )
77 76 nn0cnd โŠข ( ๐œ‘ โ†’ ( โ™ฏ โ€˜ ๐ต ) โˆˆ โ„‚ )
78 hashcl โŠข ( ๐ด โˆˆ Fin โ†’ ( โ™ฏ โ€˜ ๐ด ) โˆˆ โ„•0 )
79 1 78 syl โŠข ( ๐œ‘ โ†’ ( โ™ฏ โ€˜ ๐ด ) โˆˆ โ„•0 )
80 79 nn0cnd โŠข ( ๐œ‘ โ†’ ( โ™ฏ โ€˜ ๐ด ) โˆˆ โ„‚ )
81 77 80 subcld โŠข ( ๐œ‘ โ†’ ( ( โ™ฏ โ€˜ ๐ต ) โˆ’ ( โ™ฏ โ€˜ ๐ด ) ) โˆˆ โ„‚ )
82 81 mul01d โŠข ( ๐œ‘ โ†’ ( ( ( โ™ฏ โ€˜ ๐ต ) โˆ’ ( โ™ฏ โ€˜ ๐ด ) ) ยท 0 ) = 0 )
83 82 eqcomd โŠข ( ๐œ‘ โ†’ 0 = ( ( ( โ™ฏ โ€˜ ๐ต ) โˆ’ ( โ™ฏ โ€˜ ๐ด ) ) ยท 0 ) )
84 83 a1d โŠข ( ๐œ‘ โ†’ ( โˆ… โІ { ๐‘“ โˆฃ ๐‘“ : ๐ด โ€“1-1โ†’ ๐ต } โ†’ 0 = ( ( ( โ™ฏ โ€˜ ๐ต ) โˆ’ ( โ™ฏ โ€˜ ๐ด ) ) ยท 0 ) ) )
85 ssun1 โŠข ๐‘ฆ โІ ( ๐‘ฆ โˆช { ๐‘Ž } )
86 sstr โŠข ( ( ๐‘ฆ โІ ( ๐‘ฆ โˆช { ๐‘Ž } ) โˆง ( ๐‘ฆ โˆช { ๐‘Ž } ) โІ { ๐‘“ โˆฃ ๐‘“ : ๐ด โ€“1-1โ†’ ๐ต } ) โ†’ ๐‘ฆ โІ { ๐‘“ โˆฃ ๐‘“ : ๐ด โ€“1-1โ†’ ๐ต } )
87 85 86 mpan โŠข ( ( ๐‘ฆ โˆช { ๐‘Ž } ) โІ { ๐‘“ โˆฃ ๐‘“ : ๐ด โ€“1-1โ†’ ๐ต } โ†’ ๐‘ฆ โІ { ๐‘“ โˆฃ ๐‘“ : ๐ด โ€“1-1โ†’ ๐ต } )
88 87 imim1i โŠข ( ( ๐‘ฆ โІ { ๐‘“ โˆฃ ๐‘“ : ๐ด โ€“1-1โ†’ ๐ต } โ†’ ( โ™ฏ โ€˜ { ๐‘“ โˆฃ ( ( ๐‘“ โ†พ ๐ด ) โˆˆ ๐‘ฆ โˆง ๐‘“ : ( ๐ด โˆช { ๐‘ง } ) โ€“1-1โ†’ ๐ต ) } ) = ( ( ( โ™ฏ โ€˜ ๐ต ) โˆ’ ( โ™ฏ โ€˜ ๐ด ) ) ยท ( โ™ฏ โ€˜ ๐‘ฆ ) ) ) โ†’ ( ( ๐‘ฆ โˆช { ๐‘Ž } ) โІ { ๐‘“ โˆฃ ๐‘“ : ๐ด โ€“1-1โ†’ ๐ต } โ†’ ( โ™ฏ โ€˜ { ๐‘“ โˆฃ ( ( ๐‘“ โ†พ ๐ด ) โˆˆ ๐‘ฆ โˆง ๐‘“ : ( ๐ด โˆช { ๐‘ง } ) โ€“1-1โ†’ ๐ต ) } ) = ( ( ( โ™ฏ โ€˜ ๐ต ) โˆ’ ( โ™ฏ โ€˜ ๐ด ) ) ยท ( โ™ฏ โ€˜ ๐‘ฆ ) ) ) )
89 oveq1 โŠข ( ( โ™ฏ โ€˜ { ๐‘“ โˆฃ ( ( ๐‘“ โ†พ ๐ด ) โˆˆ ๐‘ฆ โˆง ๐‘“ : ( ๐ด โˆช { ๐‘ง } ) โ€“1-1โ†’ ๐ต ) } ) = ( ( ( โ™ฏ โ€˜ ๐ต ) โˆ’ ( โ™ฏ โ€˜ ๐ด ) ) ยท ( โ™ฏ โ€˜ ๐‘ฆ ) ) โ†’ ( ( โ™ฏ โ€˜ { ๐‘“ โˆฃ ( ( ๐‘“ โ†พ ๐ด ) โˆˆ ๐‘ฆ โˆง ๐‘“ : ( ๐ด โˆช { ๐‘ง } ) โ€“1-1โ†’ ๐ต ) } ) + ( ( โ™ฏ โ€˜ ๐ต ) โˆ’ ( โ™ฏ โ€˜ ๐ด ) ) ) = ( ( ( ( โ™ฏ โ€˜ ๐ต ) โˆ’ ( โ™ฏ โ€˜ ๐ด ) ) ยท ( โ™ฏ โ€˜ ๐‘ฆ ) ) + ( ( โ™ฏ โ€˜ ๐ต ) โˆ’ ( โ™ฏ โ€˜ ๐ด ) ) ) )
90 elun โŠข ( ( ๐‘“ โ†พ ๐ด ) โˆˆ ( ๐‘ฆ โˆช { ๐‘Ž } ) โ†” ( ( ๐‘“ โ†พ ๐ด ) โˆˆ ๐‘ฆ โˆจ ( ๐‘“ โ†พ ๐ด ) โˆˆ { ๐‘Ž } ) )
91 59 elsn โŠข ( ( ๐‘“ โ†พ ๐ด ) โˆˆ { ๐‘Ž } โ†” ( ๐‘“ โ†พ ๐ด ) = ๐‘Ž )
92 91 orbi2i โŠข ( ( ( ๐‘“ โ†พ ๐ด ) โˆˆ ๐‘ฆ โˆจ ( ๐‘“ โ†พ ๐ด ) โˆˆ { ๐‘Ž } ) โ†” ( ( ๐‘“ โ†พ ๐ด ) โˆˆ ๐‘ฆ โˆจ ( ๐‘“ โ†พ ๐ด ) = ๐‘Ž ) )
93 90 92 bitri โŠข ( ( ๐‘“ โ†พ ๐ด ) โˆˆ ( ๐‘ฆ โˆช { ๐‘Ž } ) โ†” ( ( ๐‘“ โ†พ ๐ด ) โˆˆ ๐‘ฆ โˆจ ( ๐‘“ โ†พ ๐ด ) = ๐‘Ž ) )
94 93 anbi1i โŠข ( ( ( ๐‘“ โ†พ ๐ด ) โˆˆ ( ๐‘ฆ โˆช { ๐‘Ž } ) โˆง ๐‘“ : ( ๐ด โˆช { ๐‘ง } ) โ€“1-1โ†’ ๐ต ) โ†” ( ( ( ๐‘“ โ†พ ๐ด ) โˆˆ ๐‘ฆ โˆจ ( ๐‘“ โ†พ ๐ด ) = ๐‘Ž ) โˆง ๐‘“ : ( ๐ด โˆช { ๐‘ง } ) โ€“1-1โ†’ ๐ต ) )
95 andir โŠข ( ( ( ( ๐‘“ โ†พ ๐ด ) โˆˆ ๐‘ฆ โˆจ ( ๐‘“ โ†พ ๐ด ) = ๐‘Ž ) โˆง ๐‘“ : ( ๐ด โˆช { ๐‘ง } ) โ€“1-1โ†’ ๐ต ) โ†” ( ( ( ๐‘“ โ†พ ๐ด ) โˆˆ ๐‘ฆ โˆง ๐‘“ : ( ๐ด โˆช { ๐‘ง } ) โ€“1-1โ†’ ๐ต ) โˆจ ( ( ๐‘“ โ†พ ๐ด ) = ๐‘Ž โˆง ๐‘“ : ( ๐ด โˆช { ๐‘ง } ) โ€“1-1โ†’ ๐ต ) ) )
96 94 95 bitri โŠข ( ( ( ๐‘“ โ†พ ๐ด ) โˆˆ ( ๐‘ฆ โˆช { ๐‘Ž } ) โˆง ๐‘“ : ( ๐ด โˆช { ๐‘ง } ) โ€“1-1โ†’ ๐ต ) โ†” ( ( ( ๐‘“ โ†พ ๐ด ) โˆˆ ๐‘ฆ โˆง ๐‘“ : ( ๐ด โˆช { ๐‘ง } ) โ€“1-1โ†’ ๐ต ) โˆจ ( ( ๐‘“ โ†พ ๐ด ) = ๐‘Ž โˆง ๐‘“ : ( ๐ด โˆช { ๐‘ง } ) โ€“1-1โ†’ ๐ต ) ) )
97 96 abbii โŠข { ๐‘“ โˆฃ ( ( ๐‘“ โ†พ ๐ด ) โˆˆ ( ๐‘ฆ โˆช { ๐‘Ž } ) โˆง ๐‘“ : ( ๐ด โˆช { ๐‘ง } ) โ€“1-1โ†’ ๐ต ) } = { ๐‘“ โˆฃ ( ( ( ๐‘“ โ†พ ๐ด ) โˆˆ ๐‘ฆ โˆง ๐‘“ : ( ๐ด โˆช { ๐‘ง } ) โ€“1-1โ†’ ๐ต ) โˆจ ( ( ๐‘“ โ†พ ๐ด ) = ๐‘Ž โˆง ๐‘“ : ( ๐ด โˆช { ๐‘ง } ) โ€“1-1โ†’ ๐ต ) ) }
98 unab โŠข ( { ๐‘“ โˆฃ ( ( ๐‘“ โ†พ ๐ด ) โˆˆ ๐‘ฆ โˆง ๐‘“ : ( ๐ด โˆช { ๐‘ง } ) โ€“1-1โ†’ ๐ต ) } โˆช { ๐‘“ โˆฃ ( ( ๐‘“ โ†พ ๐ด ) = ๐‘Ž โˆง ๐‘“ : ( ๐ด โˆช { ๐‘ง } ) โ€“1-1โ†’ ๐ต ) } ) = { ๐‘“ โˆฃ ( ( ( ๐‘“ โ†พ ๐ด ) โˆˆ ๐‘ฆ โˆง ๐‘“ : ( ๐ด โˆช { ๐‘ง } ) โ€“1-1โ†’ ๐ต ) โˆจ ( ( ๐‘“ โ†พ ๐ด ) = ๐‘Ž โˆง ๐‘“ : ( ๐ด โˆช { ๐‘ง } ) โ€“1-1โ†’ ๐ต ) ) }
99 97 98 eqtr4i โŠข { ๐‘“ โˆฃ ( ( ๐‘“ โ†พ ๐ด ) โˆˆ ( ๐‘ฆ โˆช { ๐‘Ž } ) โˆง ๐‘“ : ( ๐ด โˆช { ๐‘ง } ) โ€“1-1โ†’ ๐ต ) } = ( { ๐‘“ โˆฃ ( ( ๐‘“ โ†พ ๐ด ) โˆˆ ๐‘ฆ โˆง ๐‘“ : ( ๐ด โˆช { ๐‘ง } ) โ€“1-1โ†’ ๐ต ) } โˆช { ๐‘“ โˆฃ ( ( ๐‘“ โ†พ ๐ด ) = ๐‘Ž โˆง ๐‘“ : ( ๐ด โˆช { ๐‘ง } ) โ€“1-1โ†’ ๐ต ) } )
100 99 fveq2i โŠข ( โ™ฏ โ€˜ { ๐‘“ โˆฃ ( ( ๐‘“ โ†พ ๐ด ) โˆˆ ( ๐‘ฆ โˆช { ๐‘Ž } ) โˆง ๐‘“ : ( ๐ด โˆช { ๐‘ง } ) โ€“1-1โ†’ ๐ต ) } ) = ( โ™ฏ โ€˜ ( { ๐‘“ โˆฃ ( ( ๐‘“ โ†พ ๐ด ) โˆˆ ๐‘ฆ โˆง ๐‘“ : ( ๐ด โˆช { ๐‘ง } ) โ€“1-1โ†’ ๐ต ) } โˆช { ๐‘“ โˆฃ ( ( ๐‘“ โ†พ ๐ด ) = ๐‘Ž โˆง ๐‘“ : ( ๐ด โˆช { ๐‘ง } ) โ€“1-1โ†’ ๐ต ) } ) )
101 snfi โŠข { ๐‘ง } โˆˆ Fin
102 unfi โŠข ( ( ๐ด โˆˆ Fin โˆง { ๐‘ง } โˆˆ Fin ) โ†’ ( ๐ด โˆช { ๐‘ง } ) โˆˆ Fin )
103 1 101 102 sylancl โŠข ( ๐œ‘ โ†’ ( ๐ด โˆช { ๐‘ง } ) โˆˆ Fin )
104 mapvalg โŠข ( ( ๐ต โˆˆ Fin โˆง ( ๐ด โˆช { ๐‘ง } ) โˆˆ Fin ) โ†’ ( ๐ต โ†‘m ( ๐ด โˆช { ๐‘ง } ) ) = { ๐‘“ โˆฃ ๐‘“ : ( ๐ด โˆช { ๐‘ง } ) โŸถ ๐ต } )
105 2 103 104 syl2anc โŠข ( ๐œ‘ โ†’ ( ๐ต โ†‘m ( ๐ด โˆช { ๐‘ง } ) ) = { ๐‘“ โˆฃ ๐‘“ : ( ๐ด โˆช { ๐‘ง } ) โŸถ ๐ต } )
106 mapfi โŠข ( ( ๐ต โˆˆ Fin โˆง ( ๐ด โˆช { ๐‘ง } ) โˆˆ Fin ) โ†’ ( ๐ต โ†‘m ( ๐ด โˆช { ๐‘ง } ) ) โˆˆ Fin )
107 2 103 106 syl2anc โŠข ( ๐œ‘ โ†’ ( ๐ต โ†‘m ( ๐ด โˆช { ๐‘ง } ) ) โˆˆ Fin )
108 105 107 eqeltrrd โŠข ( ๐œ‘ โ†’ { ๐‘“ โˆฃ ๐‘“ : ( ๐ด โˆช { ๐‘ง } ) โŸถ ๐ต } โˆˆ Fin )
109 f1f โŠข ( ๐‘“ : ( ๐ด โˆช { ๐‘ง } ) โ€“1-1โ†’ ๐ต โ†’ ๐‘“ : ( ๐ด โˆช { ๐‘ง } ) โŸถ ๐ต )
110 109 adantl โŠข ( ( ( ๐‘“ โ†พ ๐ด ) โˆˆ ๐‘ฆ โˆง ๐‘“ : ( ๐ด โˆช { ๐‘ง } ) โ€“1-1โ†’ ๐ต ) โ†’ ๐‘“ : ( ๐ด โˆช { ๐‘ง } ) โŸถ ๐ต )
111 110 ss2abi โŠข { ๐‘“ โˆฃ ( ( ๐‘“ โ†พ ๐ด ) โˆˆ ๐‘ฆ โˆง ๐‘“ : ( ๐ด โˆช { ๐‘ง } ) โ€“1-1โ†’ ๐ต ) } โІ { ๐‘“ โˆฃ ๐‘“ : ( ๐ด โˆช { ๐‘ง } ) โŸถ ๐ต }
112 ssfi โŠข ( ( { ๐‘“ โˆฃ ๐‘“ : ( ๐ด โˆช { ๐‘ง } ) โŸถ ๐ต } โˆˆ Fin โˆง { ๐‘“ โˆฃ ( ( ๐‘“ โ†พ ๐ด ) โˆˆ ๐‘ฆ โˆง ๐‘“ : ( ๐ด โˆช { ๐‘ง } ) โ€“1-1โ†’ ๐ต ) } โІ { ๐‘“ โˆฃ ๐‘“ : ( ๐ด โˆช { ๐‘ง } ) โŸถ ๐ต } ) โ†’ { ๐‘“ โˆฃ ( ( ๐‘“ โ†พ ๐ด ) โˆˆ ๐‘ฆ โˆง ๐‘“ : ( ๐ด โˆช { ๐‘ง } ) โ€“1-1โ†’ ๐ต ) } โˆˆ Fin )
113 108 111 112 sylancl โŠข ( ๐œ‘ โ†’ { ๐‘“ โˆฃ ( ( ๐‘“ โ†พ ๐ด ) โˆˆ ๐‘ฆ โˆง ๐‘“ : ( ๐ด โˆช { ๐‘ง } ) โ€“1-1โ†’ ๐ต ) } โˆˆ Fin )
114 113 adantr โŠข ( ( ๐œ‘ โˆง ( ( ๐‘ฆ โˆˆ Fin โˆง ยฌ ๐‘Ž โˆˆ ๐‘ฆ ) โˆง ( ๐‘ฆ โˆช { ๐‘Ž } ) โІ { ๐‘“ โˆฃ ๐‘“ : ๐ด โ€“1-1โ†’ ๐ต } ) ) โ†’ { ๐‘“ โˆฃ ( ( ๐‘“ โ†พ ๐ด ) โˆˆ ๐‘ฆ โˆง ๐‘“ : ( ๐ด โˆช { ๐‘ง } ) โ€“1-1โ†’ ๐ต ) } โˆˆ Fin )
115 109 adantl โŠข ( ( ( ๐‘“ โ†พ ๐ด ) = ๐‘Ž โˆง ๐‘“ : ( ๐ด โˆช { ๐‘ง } ) โ€“1-1โ†’ ๐ต ) โ†’ ๐‘“ : ( ๐ด โˆช { ๐‘ง } ) โŸถ ๐ต )
116 115 ss2abi โŠข { ๐‘“ โˆฃ ( ( ๐‘“ โ†พ ๐ด ) = ๐‘Ž โˆง ๐‘“ : ( ๐ด โˆช { ๐‘ง } ) โ€“1-1โ†’ ๐ต ) } โІ { ๐‘“ โˆฃ ๐‘“ : ( ๐ด โˆช { ๐‘ง } ) โŸถ ๐ต }
117 ssfi โŠข ( ( { ๐‘“ โˆฃ ๐‘“ : ( ๐ด โˆช { ๐‘ง } ) โŸถ ๐ต } โˆˆ Fin โˆง { ๐‘“ โˆฃ ( ( ๐‘“ โ†พ ๐ด ) = ๐‘Ž โˆง ๐‘“ : ( ๐ด โˆช { ๐‘ง } ) โ€“1-1โ†’ ๐ต ) } โІ { ๐‘“ โˆฃ ๐‘“ : ( ๐ด โˆช { ๐‘ง } ) โŸถ ๐ต } ) โ†’ { ๐‘“ โˆฃ ( ( ๐‘“ โ†พ ๐ด ) = ๐‘Ž โˆง ๐‘“ : ( ๐ด โˆช { ๐‘ง } ) โ€“1-1โ†’ ๐ต ) } โˆˆ Fin )
118 108 116 117 sylancl โŠข ( ๐œ‘ โ†’ { ๐‘“ โˆฃ ( ( ๐‘“ โ†พ ๐ด ) = ๐‘Ž โˆง ๐‘“ : ( ๐ด โˆช { ๐‘ง } ) โ€“1-1โ†’ ๐ต ) } โˆˆ Fin )
119 118 adantr โŠข ( ( ๐œ‘ โˆง ( ( ๐‘ฆ โˆˆ Fin โˆง ยฌ ๐‘Ž โˆˆ ๐‘ฆ ) โˆง ( ๐‘ฆ โˆช { ๐‘Ž } ) โІ { ๐‘“ โˆฃ ๐‘“ : ๐ด โ€“1-1โ†’ ๐ต } ) ) โ†’ { ๐‘“ โˆฃ ( ( ๐‘“ โ†พ ๐ด ) = ๐‘Ž โˆง ๐‘“ : ( ๐ด โˆช { ๐‘ง } ) โ€“1-1โ†’ ๐ต ) } โˆˆ Fin )
120 inab โŠข ( { ๐‘“ โˆฃ ( ( ๐‘“ โ†พ ๐ด ) โˆˆ ๐‘ฆ โˆง ๐‘“ : ( ๐ด โˆช { ๐‘ง } ) โ€“1-1โ†’ ๐ต ) } โˆฉ { ๐‘“ โˆฃ ( ( ๐‘“ โ†พ ๐ด ) = ๐‘Ž โˆง ๐‘“ : ( ๐ด โˆช { ๐‘ง } ) โ€“1-1โ†’ ๐ต ) } ) = { ๐‘“ โˆฃ ( ( ( ๐‘“ โ†พ ๐ด ) โˆˆ ๐‘ฆ โˆง ๐‘“ : ( ๐ด โˆช { ๐‘ง } ) โ€“1-1โ†’ ๐ต ) โˆง ( ( ๐‘“ โ†พ ๐ด ) = ๐‘Ž โˆง ๐‘“ : ( ๐ด โˆช { ๐‘ง } ) โ€“1-1โ†’ ๐ต ) ) }
121 simprlr โŠข ( ( ๐œ‘ โˆง ( ( ๐‘ฆ โˆˆ Fin โˆง ยฌ ๐‘Ž โˆˆ ๐‘ฆ ) โˆง ( ๐‘ฆ โˆช { ๐‘Ž } ) โІ { ๐‘“ โˆฃ ๐‘“ : ๐ด โ€“1-1โ†’ ๐ต } ) ) โ†’ ยฌ ๐‘Ž โˆˆ ๐‘ฆ )
122 abn0 โŠข ( { ๐‘“ โˆฃ ( ( ( ๐‘“ โ†พ ๐ด ) โˆˆ ๐‘ฆ โˆง ๐‘“ : ( ๐ด โˆช { ๐‘ง } ) โ€“1-1โ†’ ๐ต ) โˆง ( ( ๐‘“ โ†พ ๐ด ) = ๐‘Ž โˆง ๐‘“ : ( ๐ด โˆช { ๐‘ง } ) โ€“1-1โ†’ ๐ต ) ) } โ‰  โˆ… โ†” โˆƒ ๐‘“ ( ( ( ๐‘“ โ†พ ๐ด ) โˆˆ ๐‘ฆ โˆง ๐‘“ : ( ๐ด โˆช { ๐‘ง } ) โ€“1-1โ†’ ๐ต ) โˆง ( ( ๐‘“ โ†พ ๐ด ) = ๐‘Ž โˆง ๐‘“ : ( ๐ด โˆช { ๐‘ง } ) โ€“1-1โ†’ ๐ต ) ) )
123 simprl โŠข ( ( ( ( ๐‘“ โ†พ ๐ด ) โˆˆ ๐‘ฆ โˆง ๐‘“ : ( ๐ด โˆช { ๐‘ง } ) โ€“1-1โ†’ ๐ต ) โˆง ( ( ๐‘“ โ†พ ๐ด ) = ๐‘Ž โˆง ๐‘“ : ( ๐ด โˆช { ๐‘ง } ) โ€“1-1โ†’ ๐ต ) ) โ†’ ( ๐‘“ โ†พ ๐ด ) = ๐‘Ž )
124 simpll โŠข ( ( ( ( ๐‘“ โ†พ ๐ด ) โˆˆ ๐‘ฆ โˆง ๐‘“ : ( ๐ด โˆช { ๐‘ง } ) โ€“1-1โ†’ ๐ต ) โˆง ( ( ๐‘“ โ†พ ๐ด ) = ๐‘Ž โˆง ๐‘“ : ( ๐ด โˆช { ๐‘ง } ) โ€“1-1โ†’ ๐ต ) ) โ†’ ( ๐‘“ โ†พ ๐ด ) โˆˆ ๐‘ฆ )
125 123 124 eqeltrrd โŠข ( ( ( ( ๐‘“ โ†พ ๐ด ) โˆˆ ๐‘ฆ โˆง ๐‘“ : ( ๐ด โˆช { ๐‘ง } ) โ€“1-1โ†’ ๐ต ) โˆง ( ( ๐‘“ โ†พ ๐ด ) = ๐‘Ž โˆง ๐‘“ : ( ๐ด โˆช { ๐‘ง } ) โ€“1-1โ†’ ๐ต ) ) โ†’ ๐‘Ž โˆˆ ๐‘ฆ )
126 125 exlimiv โŠข ( โˆƒ ๐‘“ ( ( ( ๐‘“ โ†พ ๐ด ) โˆˆ ๐‘ฆ โˆง ๐‘“ : ( ๐ด โˆช { ๐‘ง } ) โ€“1-1โ†’ ๐ต ) โˆง ( ( ๐‘“ โ†พ ๐ด ) = ๐‘Ž โˆง ๐‘“ : ( ๐ด โˆช { ๐‘ง } ) โ€“1-1โ†’ ๐ต ) ) โ†’ ๐‘Ž โˆˆ ๐‘ฆ )
127 122 126 sylbi โŠข ( { ๐‘“ โˆฃ ( ( ( ๐‘“ โ†พ ๐ด ) โˆˆ ๐‘ฆ โˆง ๐‘“ : ( ๐ด โˆช { ๐‘ง } ) โ€“1-1โ†’ ๐ต ) โˆง ( ( ๐‘“ โ†พ ๐ด ) = ๐‘Ž โˆง ๐‘“ : ( ๐ด โˆช { ๐‘ง } ) โ€“1-1โ†’ ๐ต ) ) } โ‰  โˆ… โ†’ ๐‘Ž โˆˆ ๐‘ฆ )
128 127 necon1bi โŠข ( ยฌ ๐‘Ž โˆˆ ๐‘ฆ โ†’ { ๐‘“ โˆฃ ( ( ( ๐‘“ โ†พ ๐ด ) โˆˆ ๐‘ฆ โˆง ๐‘“ : ( ๐ด โˆช { ๐‘ง } ) โ€“1-1โ†’ ๐ต ) โˆง ( ( ๐‘“ โ†พ ๐ด ) = ๐‘Ž โˆง ๐‘“ : ( ๐ด โˆช { ๐‘ง } ) โ€“1-1โ†’ ๐ต ) ) } = โˆ… )
129 121 128 syl โŠข ( ( ๐œ‘ โˆง ( ( ๐‘ฆ โˆˆ Fin โˆง ยฌ ๐‘Ž โˆˆ ๐‘ฆ ) โˆง ( ๐‘ฆ โˆช { ๐‘Ž } ) โІ { ๐‘“ โˆฃ ๐‘“ : ๐ด โ€“1-1โ†’ ๐ต } ) ) โ†’ { ๐‘“ โˆฃ ( ( ( ๐‘“ โ†พ ๐ด ) โˆˆ ๐‘ฆ โˆง ๐‘“ : ( ๐ด โˆช { ๐‘ง } ) โ€“1-1โ†’ ๐ต ) โˆง ( ( ๐‘“ โ†พ ๐ด ) = ๐‘Ž โˆง ๐‘“ : ( ๐ด โˆช { ๐‘ง } ) โ€“1-1โ†’ ๐ต ) ) } = โˆ… )
130 120 129 eqtrid โŠข ( ( ๐œ‘ โˆง ( ( ๐‘ฆ โˆˆ Fin โˆง ยฌ ๐‘Ž โˆˆ ๐‘ฆ ) โˆง ( ๐‘ฆ โˆช { ๐‘Ž } ) โІ { ๐‘“ โˆฃ ๐‘“ : ๐ด โ€“1-1โ†’ ๐ต } ) ) โ†’ ( { ๐‘“ โˆฃ ( ( ๐‘“ โ†พ ๐ด ) โˆˆ ๐‘ฆ โˆง ๐‘“ : ( ๐ด โˆช { ๐‘ง } ) โ€“1-1โ†’ ๐ต ) } โˆฉ { ๐‘“ โˆฃ ( ( ๐‘“ โ†พ ๐ด ) = ๐‘Ž โˆง ๐‘“ : ( ๐ด โˆช { ๐‘ง } ) โ€“1-1โ†’ ๐ต ) } ) = โˆ… )
131 hashun โŠข ( ( { ๐‘“ โˆฃ ( ( ๐‘“ โ†พ ๐ด ) โˆˆ ๐‘ฆ โˆง ๐‘“ : ( ๐ด โˆช { ๐‘ง } ) โ€“1-1โ†’ ๐ต ) } โˆˆ Fin โˆง { ๐‘“ โˆฃ ( ( ๐‘“ โ†พ ๐ด ) = ๐‘Ž โˆง ๐‘“ : ( ๐ด โˆช { ๐‘ง } ) โ€“1-1โ†’ ๐ต ) } โˆˆ Fin โˆง ( { ๐‘“ โˆฃ ( ( ๐‘“ โ†พ ๐ด ) โˆˆ ๐‘ฆ โˆง ๐‘“ : ( ๐ด โˆช { ๐‘ง } ) โ€“1-1โ†’ ๐ต ) } โˆฉ { ๐‘“ โˆฃ ( ( ๐‘“ โ†พ ๐ด ) = ๐‘Ž โˆง ๐‘“ : ( ๐ด โˆช { ๐‘ง } ) โ€“1-1โ†’ ๐ต ) } ) = โˆ… ) โ†’ ( โ™ฏ โ€˜ ( { ๐‘“ โˆฃ ( ( ๐‘“ โ†พ ๐ด ) โˆˆ ๐‘ฆ โˆง ๐‘“ : ( ๐ด โˆช { ๐‘ง } ) โ€“1-1โ†’ ๐ต ) } โˆช { ๐‘“ โˆฃ ( ( ๐‘“ โ†พ ๐ด ) = ๐‘Ž โˆง ๐‘“ : ( ๐ด โˆช { ๐‘ง } ) โ€“1-1โ†’ ๐ต ) } ) ) = ( ( โ™ฏ โ€˜ { ๐‘“ โˆฃ ( ( ๐‘“ โ†พ ๐ด ) โˆˆ ๐‘ฆ โˆง ๐‘“ : ( ๐ด โˆช { ๐‘ง } ) โ€“1-1โ†’ ๐ต ) } ) + ( โ™ฏ โ€˜ { ๐‘“ โˆฃ ( ( ๐‘“ โ†พ ๐ด ) = ๐‘Ž โˆง ๐‘“ : ( ๐ด โˆช { ๐‘ง } ) โ€“1-1โ†’ ๐ต ) } ) ) )
132 114 119 130 131 syl3anc โŠข ( ( ๐œ‘ โˆง ( ( ๐‘ฆ โˆˆ Fin โˆง ยฌ ๐‘Ž โˆˆ ๐‘ฆ ) โˆง ( ๐‘ฆ โˆช { ๐‘Ž } ) โІ { ๐‘“ โˆฃ ๐‘“ : ๐ด โ€“1-1โ†’ ๐ต } ) ) โ†’ ( โ™ฏ โ€˜ ( { ๐‘“ โˆฃ ( ( ๐‘“ โ†พ ๐ด ) โˆˆ ๐‘ฆ โˆง ๐‘“ : ( ๐ด โˆช { ๐‘ง } ) โ€“1-1โ†’ ๐ต ) } โˆช { ๐‘“ โˆฃ ( ( ๐‘“ โ†พ ๐ด ) = ๐‘Ž โˆง ๐‘“ : ( ๐ด โˆช { ๐‘ง } ) โ€“1-1โ†’ ๐ต ) } ) ) = ( ( โ™ฏ โ€˜ { ๐‘“ โˆฃ ( ( ๐‘“ โ†พ ๐ด ) โˆˆ ๐‘ฆ โˆง ๐‘“ : ( ๐ด โˆช { ๐‘ง } ) โ€“1-1โ†’ ๐ต ) } ) + ( โ™ฏ โ€˜ { ๐‘“ โˆฃ ( ( ๐‘“ โ†พ ๐ด ) = ๐‘Ž โˆง ๐‘“ : ( ๐ด โˆช { ๐‘ง } ) โ€“1-1โ†’ ๐ต ) } ) ) )
133 100 132 eqtrid โŠข ( ( ๐œ‘ โˆง ( ( ๐‘ฆ โˆˆ Fin โˆง ยฌ ๐‘Ž โˆˆ ๐‘ฆ ) โˆง ( ๐‘ฆ โˆช { ๐‘Ž } ) โІ { ๐‘“ โˆฃ ๐‘“ : ๐ด โ€“1-1โ†’ ๐ต } ) ) โ†’ ( โ™ฏ โ€˜ { ๐‘“ โˆฃ ( ( ๐‘“ โ†พ ๐ด ) โˆˆ ( ๐‘ฆ โˆช { ๐‘Ž } ) โˆง ๐‘“ : ( ๐ด โˆช { ๐‘ง } ) โ€“1-1โ†’ ๐ต ) } ) = ( ( โ™ฏ โ€˜ { ๐‘“ โˆฃ ( ( ๐‘“ โ†พ ๐ด ) โˆˆ ๐‘ฆ โˆง ๐‘“ : ( ๐ด โˆช { ๐‘ง } ) โ€“1-1โ†’ ๐ต ) } ) + ( โ™ฏ โ€˜ { ๐‘“ โˆฃ ( ( ๐‘“ โ†พ ๐ด ) = ๐‘Ž โˆง ๐‘“ : ( ๐ด โˆช { ๐‘ง } ) โ€“1-1โ†’ ๐ต ) } ) ) )
134 simpr โŠข ( ( ( ๐‘ฆ โˆˆ Fin โˆง ยฌ ๐‘Ž โˆˆ ๐‘ฆ ) โˆง ( ๐‘ฆ โˆช { ๐‘Ž } ) โІ { ๐‘“ โˆฃ ๐‘“ : ๐ด โ€“1-1โ†’ ๐ต } ) โ†’ ( ๐‘ฆ โˆช { ๐‘Ž } ) โІ { ๐‘“ โˆฃ ๐‘“ : ๐ด โ€“1-1โ†’ ๐ต } )
135 134 unssbd โŠข ( ( ( ๐‘ฆ โˆˆ Fin โˆง ยฌ ๐‘Ž โˆˆ ๐‘ฆ ) โˆง ( ๐‘ฆ โˆช { ๐‘Ž } ) โІ { ๐‘“ โˆฃ ๐‘“ : ๐ด โ€“1-1โ†’ ๐ต } ) โ†’ { ๐‘Ž } โІ { ๐‘“ โˆฃ ๐‘“ : ๐ด โ€“1-1โ†’ ๐ต } )
136 vex โŠข ๐‘Ž โˆˆ V
137 136 snss โŠข ( ๐‘Ž โˆˆ { ๐‘“ โˆฃ ๐‘“ : ๐ด โ€“1-1โ†’ ๐ต } โ†” { ๐‘Ž } โІ { ๐‘“ โˆฃ ๐‘“ : ๐ด โ€“1-1โ†’ ๐ต } )
138 135 137 sylibr โŠข ( ( ( ๐‘ฆ โˆˆ Fin โˆง ยฌ ๐‘Ž โˆˆ ๐‘ฆ ) โˆง ( ๐‘ฆ โˆช { ๐‘Ž } ) โІ { ๐‘“ โˆฃ ๐‘“ : ๐ด โ€“1-1โ†’ ๐ต } ) โ†’ ๐‘Ž โˆˆ { ๐‘“ โˆฃ ๐‘“ : ๐ด โ€“1-1โ†’ ๐ต } )
139 f1eq1 โŠข ( ๐‘“ = ๐‘Ž โ†’ ( ๐‘“ : ๐ด โ€“1-1โ†’ ๐ต โ†” ๐‘Ž : ๐ด โ€“1-1โ†’ ๐ต ) )
140 136 139 elab โŠข ( ๐‘Ž โˆˆ { ๐‘“ โˆฃ ๐‘“ : ๐ด โ€“1-1โ†’ ๐ต } โ†” ๐‘Ž : ๐ด โ€“1-1โ†’ ๐ต )
141 138 140 sylib โŠข ( ( ( ๐‘ฆ โˆˆ Fin โˆง ยฌ ๐‘Ž โˆˆ ๐‘ฆ ) โˆง ( ๐‘ฆ โˆช { ๐‘Ž } ) โІ { ๐‘“ โˆฃ ๐‘“ : ๐ด โ€“1-1โ†’ ๐ต } ) โ†’ ๐‘Ž : ๐ด โ€“1-1โ†’ ๐ต )
142 80 adantr โŠข ( ( ๐œ‘ โˆง ๐‘Ž : ๐ด โ€“1-1โ†’ ๐ต ) โ†’ ( โ™ฏ โ€˜ ๐ด ) โˆˆ โ„‚ )
143 118 adantr โŠข ( ( ๐œ‘ โˆง ๐‘Ž : ๐ด โ€“1-1โ†’ ๐ต ) โ†’ { ๐‘“ โˆฃ ( ( ๐‘“ โ†พ ๐ด ) = ๐‘Ž โˆง ๐‘“ : ( ๐ด โˆช { ๐‘ง } ) โ€“1-1โ†’ ๐ต ) } โˆˆ Fin )
144 hashcl โŠข ( { ๐‘“ โˆฃ ( ( ๐‘“ โ†พ ๐ด ) = ๐‘Ž โˆง ๐‘“ : ( ๐ด โˆช { ๐‘ง } ) โ€“1-1โ†’ ๐ต ) } โˆˆ Fin โ†’ ( โ™ฏ โ€˜ { ๐‘“ โˆฃ ( ( ๐‘“ โ†พ ๐ด ) = ๐‘Ž โˆง ๐‘“ : ( ๐ด โˆช { ๐‘ง } ) โ€“1-1โ†’ ๐ต ) } ) โˆˆ โ„•0 )
145 143 144 syl โŠข ( ( ๐œ‘ โˆง ๐‘Ž : ๐ด โ€“1-1โ†’ ๐ต ) โ†’ ( โ™ฏ โ€˜ { ๐‘“ โˆฃ ( ( ๐‘“ โ†พ ๐ด ) = ๐‘Ž โˆง ๐‘“ : ( ๐ด โˆช { ๐‘ง } ) โ€“1-1โ†’ ๐ต ) } ) โˆˆ โ„•0 )
146 145 nn0cnd โŠข ( ( ๐œ‘ โˆง ๐‘Ž : ๐ด โ€“1-1โ†’ ๐ต ) โ†’ ( โ™ฏ โ€˜ { ๐‘“ โˆฃ ( ( ๐‘“ โ†พ ๐ด ) = ๐‘Ž โˆง ๐‘“ : ( ๐ด โˆช { ๐‘ง } ) โ€“1-1โ†’ ๐ต ) } ) โˆˆ โ„‚ )
147 142 146 pncan2d โŠข ( ( ๐œ‘ โˆง ๐‘Ž : ๐ด โ€“1-1โ†’ ๐ต ) โ†’ ( ( ( โ™ฏ โ€˜ ๐ด ) + ( โ™ฏ โ€˜ { ๐‘“ โˆฃ ( ( ๐‘“ โ†พ ๐ด ) = ๐‘Ž โˆง ๐‘“ : ( ๐ด โˆช { ๐‘ง } ) โ€“1-1โ†’ ๐ต ) } ) ) โˆ’ ( โ™ฏ โ€˜ ๐ด ) ) = ( โ™ฏ โ€˜ { ๐‘“ โˆฃ ( ( ๐‘“ โ†พ ๐ด ) = ๐‘Ž โˆง ๐‘“ : ( ๐ด โˆช { ๐‘ง } ) โ€“1-1โ†’ ๐ต ) } ) )
148 f1f1orn โŠข ( ๐‘Ž : ๐ด โ€“1-1โ†’ ๐ต โ†’ ๐‘Ž : ๐ด โ€“1-1-ontoโ†’ ran ๐‘Ž )
149 148 adantl โŠข ( ( ๐œ‘ โˆง ๐‘Ž : ๐ด โ€“1-1โ†’ ๐ต ) โ†’ ๐‘Ž : ๐ด โ€“1-1-ontoโ†’ ran ๐‘Ž )
150 f1oen3g โŠข ( ( ๐‘Ž โˆˆ V โˆง ๐‘Ž : ๐ด โ€“1-1-ontoโ†’ ran ๐‘Ž ) โ†’ ๐ด โ‰ˆ ran ๐‘Ž )
151 136 149 150 sylancr โŠข ( ( ๐œ‘ โˆง ๐‘Ž : ๐ด โ€“1-1โ†’ ๐ต ) โ†’ ๐ด โ‰ˆ ran ๐‘Ž )
152 hasheni โŠข ( ๐ด โ‰ˆ ran ๐‘Ž โ†’ ( โ™ฏ โ€˜ ๐ด ) = ( โ™ฏ โ€˜ ran ๐‘Ž ) )
153 151 152 syl โŠข ( ( ๐œ‘ โˆง ๐‘Ž : ๐ด โ€“1-1โ†’ ๐ต ) โ†’ ( โ™ฏ โ€˜ ๐ด ) = ( โ™ฏ โ€˜ ran ๐‘Ž ) )
154 1 adantr โŠข ( ( ๐œ‘ โˆง ๐‘Ž : ๐ด โ€“1-1โ†’ ๐ต ) โ†’ ๐ด โˆˆ Fin )
155 2 adantr โŠข ( ( ๐œ‘ โˆง ๐‘Ž : ๐ด โ€“1-1โ†’ ๐ต ) โ†’ ๐ต โˆˆ Fin )
156 3 adantr โŠข ( ( ๐œ‘ โˆง ๐‘Ž : ๐ด โ€“1-1โ†’ ๐ต ) โ†’ ยฌ ๐‘ง โˆˆ ๐ด )
157 4 adantr โŠข ( ( ๐œ‘ โˆง ๐‘Ž : ๐ด โ€“1-1โ†’ ๐ต ) โ†’ ( ( โ™ฏ โ€˜ ๐ด ) + 1 ) โ‰ค ( โ™ฏ โ€˜ ๐ต ) )
158 simpr โŠข ( ( ๐œ‘ โˆง ๐‘Ž : ๐ด โ€“1-1โ†’ ๐ต ) โ†’ ๐‘Ž : ๐ด โ€“1-1โ†’ ๐ต )
159 154 155 156 157 158 hashf1lem1 โŠข ( ( ๐œ‘ โˆง ๐‘Ž : ๐ด โ€“1-1โ†’ ๐ต ) โ†’ { ๐‘“ โˆฃ ( ( ๐‘“ โ†พ ๐ด ) = ๐‘Ž โˆง ๐‘“ : ( ๐ด โˆช { ๐‘ง } ) โ€“1-1โ†’ ๐ต ) } โ‰ˆ ( ๐ต โˆ– ran ๐‘Ž ) )
160 hasheni โŠข ( { ๐‘“ โˆฃ ( ( ๐‘“ โ†พ ๐ด ) = ๐‘Ž โˆง ๐‘“ : ( ๐ด โˆช { ๐‘ง } ) โ€“1-1โ†’ ๐ต ) } โ‰ˆ ( ๐ต โˆ– ran ๐‘Ž ) โ†’ ( โ™ฏ โ€˜ { ๐‘“ โˆฃ ( ( ๐‘“ โ†พ ๐ด ) = ๐‘Ž โˆง ๐‘“ : ( ๐ด โˆช { ๐‘ง } ) โ€“1-1โ†’ ๐ต ) } ) = ( โ™ฏ โ€˜ ( ๐ต โˆ– ran ๐‘Ž ) ) )
161 159 160 syl โŠข ( ( ๐œ‘ โˆง ๐‘Ž : ๐ด โ€“1-1โ†’ ๐ต ) โ†’ ( โ™ฏ โ€˜ { ๐‘“ โˆฃ ( ( ๐‘“ โ†พ ๐ด ) = ๐‘Ž โˆง ๐‘“ : ( ๐ด โˆช { ๐‘ง } ) โ€“1-1โ†’ ๐ต ) } ) = ( โ™ฏ โ€˜ ( ๐ต โˆ– ran ๐‘Ž ) ) )
162 153 161 oveq12d โŠข ( ( ๐œ‘ โˆง ๐‘Ž : ๐ด โ€“1-1โ†’ ๐ต ) โ†’ ( ( โ™ฏ โ€˜ ๐ด ) + ( โ™ฏ โ€˜ { ๐‘“ โˆฃ ( ( ๐‘“ โ†พ ๐ด ) = ๐‘Ž โˆง ๐‘“ : ( ๐ด โˆช { ๐‘ง } ) โ€“1-1โ†’ ๐ต ) } ) ) = ( ( โ™ฏ โ€˜ ran ๐‘Ž ) + ( โ™ฏ โ€˜ ( ๐ต โˆ– ran ๐‘Ž ) ) ) )
163 f1f โŠข ( ๐‘Ž : ๐ด โ€“1-1โ†’ ๐ต โ†’ ๐‘Ž : ๐ด โŸถ ๐ต )
164 163 frnd โŠข ( ๐‘Ž : ๐ด โ€“1-1โ†’ ๐ต โ†’ ran ๐‘Ž โІ ๐ต )
165 164 adantl โŠข ( ( ๐œ‘ โˆง ๐‘Ž : ๐ด โ€“1-1โ†’ ๐ต ) โ†’ ran ๐‘Ž โІ ๐ต )
166 155 165 ssfid โŠข ( ( ๐œ‘ โˆง ๐‘Ž : ๐ด โ€“1-1โ†’ ๐ต ) โ†’ ran ๐‘Ž โˆˆ Fin )
167 diffi โŠข ( ๐ต โˆˆ Fin โ†’ ( ๐ต โˆ– ran ๐‘Ž ) โˆˆ Fin )
168 155 167 syl โŠข ( ( ๐œ‘ โˆง ๐‘Ž : ๐ด โ€“1-1โ†’ ๐ต ) โ†’ ( ๐ต โˆ– ran ๐‘Ž ) โˆˆ Fin )
169 disjdif โŠข ( ran ๐‘Ž โˆฉ ( ๐ต โˆ– ran ๐‘Ž ) ) = โˆ…
170 169 a1i โŠข ( ( ๐œ‘ โˆง ๐‘Ž : ๐ด โ€“1-1โ†’ ๐ต ) โ†’ ( ran ๐‘Ž โˆฉ ( ๐ต โˆ– ran ๐‘Ž ) ) = โˆ… )
171 hashun โŠข ( ( ran ๐‘Ž โˆˆ Fin โˆง ( ๐ต โˆ– ran ๐‘Ž ) โˆˆ Fin โˆง ( ran ๐‘Ž โˆฉ ( ๐ต โˆ– ran ๐‘Ž ) ) = โˆ… ) โ†’ ( โ™ฏ โ€˜ ( ran ๐‘Ž โˆช ( ๐ต โˆ– ran ๐‘Ž ) ) ) = ( ( โ™ฏ โ€˜ ran ๐‘Ž ) + ( โ™ฏ โ€˜ ( ๐ต โˆ– ran ๐‘Ž ) ) ) )
172 166 168 170 171 syl3anc โŠข ( ( ๐œ‘ โˆง ๐‘Ž : ๐ด โ€“1-1โ†’ ๐ต ) โ†’ ( โ™ฏ โ€˜ ( ran ๐‘Ž โˆช ( ๐ต โˆ– ran ๐‘Ž ) ) ) = ( ( โ™ฏ โ€˜ ran ๐‘Ž ) + ( โ™ฏ โ€˜ ( ๐ต โˆ– ran ๐‘Ž ) ) ) )
173 undif โŠข ( ran ๐‘Ž โІ ๐ต โ†” ( ran ๐‘Ž โˆช ( ๐ต โˆ– ran ๐‘Ž ) ) = ๐ต )
174 165 173 sylib โŠข ( ( ๐œ‘ โˆง ๐‘Ž : ๐ด โ€“1-1โ†’ ๐ต ) โ†’ ( ran ๐‘Ž โˆช ( ๐ต โˆ– ran ๐‘Ž ) ) = ๐ต )
175 174 fveq2d โŠข ( ( ๐œ‘ โˆง ๐‘Ž : ๐ด โ€“1-1โ†’ ๐ต ) โ†’ ( โ™ฏ โ€˜ ( ran ๐‘Ž โˆช ( ๐ต โˆ– ran ๐‘Ž ) ) ) = ( โ™ฏ โ€˜ ๐ต ) )
176 162 172 175 3eqtr2d โŠข ( ( ๐œ‘ โˆง ๐‘Ž : ๐ด โ€“1-1โ†’ ๐ต ) โ†’ ( ( โ™ฏ โ€˜ ๐ด ) + ( โ™ฏ โ€˜ { ๐‘“ โˆฃ ( ( ๐‘“ โ†พ ๐ด ) = ๐‘Ž โˆง ๐‘“ : ( ๐ด โˆช { ๐‘ง } ) โ€“1-1โ†’ ๐ต ) } ) ) = ( โ™ฏ โ€˜ ๐ต ) )
177 176 oveq1d โŠข ( ( ๐œ‘ โˆง ๐‘Ž : ๐ด โ€“1-1โ†’ ๐ต ) โ†’ ( ( ( โ™ฏ โ€˜ ๐ด ) + ( โ™ฏ โ€˜ { ๐‘“ โˆฃ ( ( ๐‘“ โ†พ ๐ด ) = ๐‘Ž โˆง ๐‘“ : ( ๐ด โˆช { ๐‘ง } ) โ€“1-1โ†’ ๐ต ) } ) ) โˆ’ ( โ™ฏ โ€˜ ๐ด ) ) = ( ( โ™ฏ โ€˜ ๐ต ) โˆ’ ( โ™ฏ โ€˜ ๐ด ) ) )
178 147 177 eqtr3d โŠข ( ( ๐œ‘ โˆง ๐‘Ž : ๐ด โ€“1-1โ†’ ๐ต ) โ†’ ( โ™ฏ โ€˜ { ๐‘“ โˆฃ ( ( ๐‘“ โ†พ ๐ด ) = ๐‘Ž โˆง ๐‘“ : ( ๐ด โˆช { ๐‘ง } ) โ€“1-1โ†’ ๐ต ) } ) = ( ( โ™ฏ โ€˜ ๐ต ) โˆ’ ( โ™ฏ โ€˜ ๐ด ) ) )
179 141 178 sylan2 โŠข ( ( ๐œ‘ โˆง ( ( ๐‘ฆ โˆˆ Fin โˆง ยฌ ๐‘Ž โˆˆ ๐‘ฆ ) โˆง ( ๐‘ฆ โˆช { ๐‘Ž } ) โІ { ๐‘“ โˆฃ ๐‘“ : ๐ด โ€“1-1โ†’ ๐ต } ) ) โ†’ ( โ™ฏ โ€˜ { ๐‘“ โˆฃ ( ( ๐‘“ โ†พ ๐ด ) = ๐‘Ž โˆง ๐‘“ : ( ๐ด โˆช { ๐‘ง } ) โ€“1-1โ†’ ๐ต ) } ) = ( ( โ™ฏ โ€˜ ๐ต ) โˆ’ ( โ™ฏ โ€˜ ๐ด ) ) )
180 179 oveq2d โŠข ( ( ๐œ‘ โˆง ( ( ๐‘ฆ โˆˆ Fin โˆง ยฌ ๐‘Ž โˆˆ ๐‘ฆ ) โˆง ( ๐‘ฆ โˆช { ๐‘Ž } ) โІ { ๐‘“ โˆฃ ๐‘“ : ๐ด โ€“1-1โ†’ ๐ต } ) ) โ†’ ( ( โ™ฏ โ€˜ { ๐‘“ โˆฃ ( ( ๐‘“ โ†พ ๐ด ) โˆˆ ๐‘ฆ โˆง ๐‘“ : ( ๐ด โˆช { ๐‘ง } ) โ€“1-1โ†’ ๐ต ) } ) + ( โ™ฏ โ€˜ { ๐‘“ โˆฃ ( ( ๐‘“ โ†พ ๐ด ) = ๐‘Ž โˆง ๐‘“ : ( ๐ด โˆช { ๐‘ง } ) โ€“1-1โ†’ ๐ต ) } ) ) = ( ( โ™ฏ โ€˜ { ๐‘“ โˆฃ ( ( ๐‘“ โ†พ ๐ด ) โˆˆ ๐‘ฆ โˆง ๐‘“ : ( ๐ด โˆช { ๐‘ง } ) โ€“1-1โ†’ ๐ต ) } ) + ( ( โ™ฏ โ€˜ ๐ต ) โˆ’ ( โ™ฏ โ€˜ ๐ด ) ) ) )
181 133 180 eqtrd โŠข ( ( ๐œ‘ โˆง ( ( ๐‘ฆ โˆˆ Fin โˆง ยฌ ๐‘Ž โˆˆ ๐‘ฆ ) โˆง ( ๐‘ฆ โˆช { ๐‘Ž } ) โІ { ๐‘“ โˆฃ ๐‘“ : ๐ด โ€“1-1โ†’ ๐ต } ) ) โ†’ ( โ™ฏ โ€˜ { ๐‘“ โˆฃ ( ( ๐‘“ โ†พ ๐ด ) โˆˆ ( ๐‘ฆ โˆช { ๐‘Ž } ) โˆง ๐‘“ : ( ๐ด โˆช { ๐‘ง } ) โ€“1-1โ†’ ๐ต ) } ) = ( ( โ™ฏ โ€˜ { ๐‘“ โˆฃ ( ( ๐‘“ โ†พ ๐ด ) โˆˆ ๐‘ฆ โˆง ๐‘“ : ( ๐ด โˆช { ๐‘ง } ) โ€“1-1โ†’ ๐ต ) } ) + ( ( โ™ฏ โ€˜ ๐ต ) โˆ’ ( โ™ฏ โ€˜ ๐ด ) ) ) )
182 hashunsng โŠข ( ๐‘Ž โˆˆ V โ†’ ( ( ๐‘ฆ โˆˆ Fin โˆง ยฌ ๐‘Ž โˆˆ ๐‘ฆ ) โ†’ ( โ™ฏ โ€˜ ( ๐‘ฆ โˆช { ๐‘Ž } ) ) = ( ( โ™ฏ โ€˜ ๐‘ฆ ) + 1 ) ) )
183 182 elv โŠข ( ( ๐‘ฆ โˆˆ Fin โˆง ยฌ ๐‘Ž โˆˆ ๐‘ฆ ) โ†’ ( โ™ฏ โ€˜ ( ๐‘ฆ โˆช { ๐‘Ž } ) ) = ( ( โ™ฏ โ€˜ ๐‘ฆ ) + 1 ) )
184 183 ad2antrl โŠข ( ( ๐œ‘ โˆง ( ( ๐‘ฆ โˆˆ Fin โˆง ยฌ ๐‘Ž โˆˆ ๐‘ฆ ) โˆง ( ๐‘ฆ โˆช { ๐‘Ž } ) โІ { ๐‘“ โˆฃ ๐‘“ : ๐ด โ€“1-1โ†’ ๐ต } ) ) โ†’ ( โ™ฏ โ€˜ ( ๐‘ฆ โˆช { ๐‘Ž } ) ) = ( ( โ™ฏ โ€˜ ๐‘ฆ ) + 1 ) )
185 184 oveq2d โŠข ( ( ๐œ‘ โˆง ( ( ๐‘ฆ โˆˆ Fin โˆง ยฌ ๐‘Ž โˆˆ ๐‘ฆ ) โˆง ( ๐‘ฆ โˆช { ๐‘Ž } ) โІ { ๐‘“ โˆฃ ๐‘“ : ๐ด โ€“1-1โ†’ ๐ต } ) ) โ†’ ( ( ( โ™ฏ โ€˜ ๐ต ) โˆ’ ( โ™ฏ โ€˜ ๐ด ) ) ยท ( โ™ฏ โ€˜ ( ๐‘ฆ โˆช { ๐‘Ž } ) ) ) = ( ( ( โ™ฏ โ€˜ ๐ต ) โˆ’ ( โ™ฏ โ€˜ ๐ด ) ) ยท ( ( โ™ฏ โ€˜ ๐‘ฆ ) + 1 ) ) )
186 81 adantr โŠข ( ( ๐œ‘ โˆง ( ( ๐‘ฆ โˆˆ Fin โˆง ยฌ ๐‘Ž โˆˆ ๐‘ฆ ) โˆง ( ๐‘ฆ โˆช { ๐‘Ž } ) โІ { ๐‘“ โˆฃ ๐‘“ : ๐ด โ€“1-1โ†’ ๐ต } ) ) โ†’ ( ( โ™ฏ โ€˜ ๐ต ) โˆ’ ( โ™ฏ โ€˜ ๐ด ) ) โˆˆ โ„‚ )
187 simprll โŠข ( ( ๐œ‘ โˆง ( ( ๐‘ฆ โˆˆ Fin โˆง ยฌ ๐‘Ž โˆˆ ๐‘ฆ ) โˆง ( ๐‘ฆ โˆช { ๐‘Ž } ) โІ { ๐‘“ โˆฃ ๐‘“ : ๐ด โ€“1-1โ†’ ๐ต } ) ) โ†’ ๐‘ฆ โˆˆ Fin )
188 hashcl โŠข ( ๐‘ฆ โˆˆ Fin โ†’ ( โ™ฏ โ€˜ ๐‘ฆ ) โˆˆ โ„•0 )
189 187 188 syl โŠข ( ( ๐œ‘ โˆง ( ( ๐‘ฆ โˆˆ Fin โˆง ยฌ ๐‘Ž โˆˆ ๐‘ฆ ) โˆง ( ๐‘ฆ โˆช { ๐‘Ž } ) โІ { ๐‘“ โˆฃ ๐‘“ : ๐ด โ€“1-1โ†’ ๐ต } ) ) โ†’ ( โ™ฏ โ€˜ ๐‘ฆ ) โˆˆ โ„•0 )
190 189 nn0cnd โŠข ( ( ๐œ‘ โˆง ( ( ๐‘ฆ โˆˆ Fin โˆง ยฌ ๐‘Ž โˆˆ ๐‘ฆ ) โˆง ( ๐‘ฆ โˆช { ๐‘Ž } ) โІ { ๐‘“ โˆฃ ๐‘“ : ๐ด โ€“1-1โ†’ ๐ต } ) ) โ†’ ( โ™ฏ โ€˜ ๐‘ฆ ) โˆˆ โ„‚ )
191 1cnd โŠข ( ( ๐œ‘ โˆง ( ( ๐‘ฆ โˆˆ Fin โˆง ยฌ ๐‘Ž โˆˆ ๐‘ฆ ) โˆง ( ๐‘ฆ โˆช { ๐‘Ž } ) โІ { ๐‘“ โˆฃ ๐‘“ : ๐ด โ€“1-1โ†’ ๐ต } ) ) โ†’ 1 โˆˆ โ„‚ )
192 186 190 191 adddid โŠข ( ( ๐œ‘ โˆง ( ( ๐‘ฆ โˆˆ Fin โˆง ยฌ ๐‘Ž โˆˆ ๐‘ฆ ) โˆง ( ๐‘ฆ โˆช { ๐‘Ž } ) โІ { ๐‘“ โˆฃ ๐‘“ : ๐ด โ€“1-1โ†’ ๐ต } ) ) โ†’ ( ( ( โ™ฏ โ€˜ ๐ต ) โˆ’ ( โ™ฏ โ€˜ ๐ด ) ) ยท ( ( โ™ฏ โ€˜ ๐‘ฆ ) + 1 ) ) = ( ( ( ( โ™ฏ โ€˜ ๐ต ) โˆ’ ( โ™ฏ โ€˜ ๐ด ) ) ยท ( โ™ฏ โ€˜ ๐‘ฆ ) ) + ( ( ( โ™ฏ โ€˜ ๐ต ) โˆ’ ( โ™ฏ โ€˜ ๐ด ) ) ยท 1 ) ) )
193 186 mulridd โŠข ( ( ๐œ‘ โˆง ( ( ๐‘ฆ โˆˆ Fin โˆง ยฌ ๐‘Ž โˆˆ ๐‘ฆ ) โˆง ( ๐‘ฆ โˆช { ๐‘Ž } ) โІ { ๐‘“ โˆฃ ๐‘“ : ๐ด โ€“1-1โ†’ ๐ต } ) ) โ†’ ( ( ( โ™ฏ โ€˜ ๐ต ) โˆ’ ( โ™ฏ โ€˜ ๐ด ) ) ยท 1 ) = ( ( โ™ฏ โ€˜ ๐ต ) โˆ’ ( โ™ฏ โ€˜ ๐ด ) ) )
194 193 oveq2d โŠข ( ( ๐œ‘ โˆง ( ( ๐‘ฆ โˆˆ Fin โˆง ยฌ ๐‘Ž โˆˆ ๐‘ฆ ) โˆง ( ๐‘ฆ โˆช { ๐‘Ž } ) โІ { ๐‘“ โˆฃ ๐‘“ : ๐ด โ€“1-1โ†’ ๐ต } ) ) โ†’ ( ( ( ( โ™ฏ โ€˜ ๐ต ) โˆ’ ( โ™ฏ โ€˜ ๐ด ) ) ยท ( โ™ฏ โ€˜ ๐‘ฆ ) ) + ( ( ( โ™ฏ โ€˜ ๐ต ) โˆ’ ( โ™ฏ โ€˜ ๐ด ) ) ยท 1 ) ) = ( ( ( ( โ™ฏ โ€˜ ๐ต ) โˆ’ ( โ™ฏ โ€˜ ๐ด ) ) ยท ( โ™ฏ โ€˜ ๐‘ฆ ) ) + ( ( โ™ฏ โ€˜ ๐ต ) โˆ’ ( โ™ฏ โ€˜ ๐ด ) ) ) )
195 185 192 194 3eqtrd โŠข ( ( ๐œ‘ โˆง ( ( ๐‘ฆ โˆˆ Fin โˆง ยฌ ๐‘Ž โˆˆ ๐‘ฆ ) โˆง ( ๐‘ฆ โˆช { ๐‘Ž } ) โІ { ๐‘“ โˆฃ ๐‘“ : ๐ด โ€“1-1โ†’ ๐ต } ) ) โ†’ ( ( ( โ™ฏ โ€˜ ๐ต ) โˆ’ ( โ™ฏ โ€˜ ๐ด ) ) ยท ( โ™ฏ โ€˜ ( ๐‘ฆ โˆช { ๐‘Ž } ) ) ) = ( ( ( ( โ™ฏ โ€˜ ๐ต ) โˆ’ ( โ™ฏ โ€˜ ๐ด ) ) ยท ( โ™ฏ โ€˜ ๐‘ฆ ) ) + ( ( โ™ฏ โ€˜ ๐ต ) โˆ’ ( โ™ฏ โ€˜ ๐ด ) ) ) )
196 181 195 eqeq12d โŠข ( ( ๐œ‘ โˆง ( ( ๐‘ฆ โˆˆ Fin โˆง ยฌ ๐‘Ž โˆˆ ๐‘ฆ ) โˆง ( ๐‘ฆ โˆช { ๐‘Ž } ) โІ { ๐‘“ โˆฃ ๐‘“ : ๐ด โ€“1-1โ†’ ๐ต } ) ) โ†’ ( ( โ™ฏ โ€˜ { ๐‘“ โˆฃ ( ( ๐‘“ โ†พ ๐ด ) โˆˆ ( ๐‘ฆ โˆช { ๐‘Ž } ) โˆง ๐‘“ : ( ๐ด โˆช { ๐‘ง } ) โ€“1-1โ†’ ๐ต ) } ) = ( ( ( โ™ฏ โ€˜ ๐ต ) โˆ’ ( โ™ฏ โ€˜ ๐ด ) ) ยท ( โ™ฏ โ€˜ ( ๐‘ฆ โˆช { ๐‘Ž } ) ) ) โ†” ( ( โ™ฏ โ€˜ { ๐‘“ โˆฃ ( ( ๐‘“ โ†พ ๐ด ) โˆˆ ๐‘ฆ โˆง ๐‘“ : ( ๐ด โˆช { ๐‘ง } ) โ€“1-1โ†’ ๐ต ) } ) + ( ( โ™ฏ โ€˜ ๐ต ) โˆ’ ( โ™ฏ โ€˜ ๐ด ) ) ) = ( ( ( ( โ™ฏ โ€˜ ๐ต ) โˆ’ ( โ™ฏ โ€˜ ๐ด ) ) ยท ( โ™ฏ โ€˜ ๐‘ฆ ) ) + ( ( โ™ฏ โ€˜ ๐ต ) โˆ’ ( โ™ฏ โ€˜ ๐ด ) ) ) ) )
197 89 196 imbitrrid โŠข ( ( ๐œ‘ โˆง ( ( ๐‘ฆ โˆˆ Fin โˆง ยฌ ๐‘Ž โˆˆ ๐‘ฆ ) โˆง ( ๐‘ฆ โˆช { ๐‘Ž } ) โІ { ๐‘“ โˆฃ ๐‘“ : ๐ด โ€“1-1โ†’ ๐ต } ) ) โ†’ ( ( โ™ฏ โ€˜ { ๐‘“ โˆฃ ( ( ๐‘“ โ†พ ๐ด ) โˆˆ ๐‘ฆ โˆง ๐‘“ : ( ๐ด โˆช { ๐‘ง } ) โ€“1-1โ†’ ๐ต ) } ) = ( ( ( โ™ฏ โ€˜ ๐ต ) โˆ’ ( โ™ฏ โ€˜ ๐ด ) ) ยท ( โ™ฏ โ€˜ ๐‘ฆ ) ) โ†’ ( โ™ฏ โ€˜ { ๐‘“ โˆฃ ( ( ๐‘“ โ†พ ๐ด ) โˆˆ ( ๐‘ฆ โˆช { ๐‘Ž } ) โˆง ๐‘“ : ( ๐ด โˆช { ๐‘ง } ) โ€“1-1โ†’ ๐ต ) } ) = ( ( ( โ™ฏ โ€˜ ๐ต ) โˆ’ ( โ™ฏ โ€˜ ๐ด ) ) ยท ( โ™ฏ โ€˜ ( ๐‘ฆ โˆช { ๐‘Ž } ) ) ) ) )
198 197 expr โŠข ( ( ๐œ‘ โˆง ( ๐‘ฆ โˆˆ Fin โˆง ยฌ ๐‘Ž โˆˆ ๐‘ฆ ) ) โ†’ ( ( ๐‘ฆ โˆช { ๐‘Ž } ) โІ { ๐‘“ โˆฃ ๐‘“ : ๐ด โ€“1-1โ†’ ๐ต } โ†’ ( ( โ™ฏ โ€˜ { ๐‘“ โˆฃ ( ( ๐‘“ โ†พ ๐ด ) โˆˆ ๐‘ฆ โˆง ๐‘“ : ( ๐ด โˆช { ๐‘ง } ) โ€“1-1โ†’ ๐ต ) } ) = ( ( ( โ™ฏ โ€˜ ๐ต ) โˆ’ ( โ™ฏ โ€˜ ๐ด ) ) ยท ( โ™ฏ โ€˜ ๐‘ฆ ) ) โ†’ ( โ™ฏ โ€˜ { ๐‘“ โˆฃ ( ( ๐‘“ โ†พ ๐ด ) โˆˆ ( ๐‘ฆ โˆช { ๐‘Ž } ) โˆง ๐‘“ : ( ๐ด โˆช { ๐‘ง } ) โ€“1-1โ†’ ๐ต ) } ) = ( ( ( โ™ฏ โ€˜ ๐ต ) โˆ’ ( โ™ฏ โ€˜ ๐ด ) ) ยท ( โ™ฏ โ€˜ ( ๐‘ฆ โˆช { ๐‘Ž } ) ) ) ) ) )
199 198 a2d โŠข ( ( ๐œ‘ โˆง ( ๐‘ฆ โˆˆ Fin โˆง ยฌ ๐‘Ž โˆˆ ๐‘ฆ ) ) โ†’ ( ( ( ๐‘ฆ โˆช { ๐‘Ž } ) โІ { ๐‘“ โˆฃ ๐‘“ : ๐ด โ€“1-1โ†’ ๐ต } โ†’ ( โ™ฏ โ€˜ { ๐‘“ โˆฃ ( ( ๐‘“ โ†พ ๐ด ) โˆˆ ๐‘ฆ โˆง ๐‘“ : ( ๐ด โˆช { ๐‘ง } ) โ€“1-1โ†’ ๐ต ) } ) = ( ( ( โ™ฏ โ€˜ ๐ต ) โˆ’ ( โ™ฏ โ€˜ ๐ด ) ) ยท ( โ™ฏ โ€˜ ๐‘ฆ ) ) ) โ†’ ( ( ๐‘ฆ โˆช { ๐‘Ž } ) โІ { ๐‘“ โˆฃ ๐‘“ : ๐ด โ€“1-1โ†’ ๐ต } โ†’ ( โ™ฏ โ€˜ { ๐‘“ โˆฃ ( ( ๐‘“ โ†พ ๐ด ) โˆˆ ( ๐‘ฆ โˆช { ๐‘Ž } ) โˆง ๐‘“ : ( ๐ด โˆช { ๐‘ง } ) โ€“1-1โ†’ ๐ต ) } ) = ( ( ( โ™ฏ โ€˜ ๐ต ) โˆ’ ( โ™ฏ โ€˜ ๐ด ) ) ยท ( โ™ฏ โ€˜ ( ๐‘ฆ โˆช { ๐‘Ž } ) ) ) ) ) )
200 88 199 syl5 โŠข ( ( ๐œ‘ โˆง ( ๐‘ฆ โˆˆ Fin โˆง ยฌ ๐‘Ž โˆˆ ๐‘ฆ ) ) โ†’ ( ( ๐‘ฆ โІ { ๐‘“ โˆฃ ๐‘“ : ๐ด โ€“1-1โ†’ ๐ต } โ†’ ( โ™ฏ โ€˜ { ๐‘“ โˆฃ ( ( ๐‘“ โ†พ ๐ด ) โˆˆ ๐‘ฆ โˆง ๐‘“ : ( ๐ด โˆช { ๐‘ง } ) โ€“1-1โ†’ ๐ต ) } ) = ( ( ( โ™ฏ โ€˜ ๐ต ) โˆ’ ( โ™ฏ โ€˜ ๐ด ) ) ยท ( โ™ฏ โ€˜ ๐‘ฆ ) ) ) โ†’ ( ( ๐‘ฆ โˆช { ๐‘Ž } ) โІ { ๐‘“ โˆฃ ๐‘“ : ๐ด โ€“1-1โ†’ ๐ต } โ†’ ( โ™ฏ โ€˜ { ๐‘“ โˆฃ ( ( ๐‘“ โ†พ ๐ด ) โˆˆ ( ๐‘ฆ โˆช { ๐‘Ž } ) โˆง ๐‘“ : ( ๐ด โˆช { ๐‘ง } ) โ€“1-1โ†’ ๐ต ) } ) = ( ( ( โ™ฏ โ€˜ ๐ต ) โˆ’ ( โ™ฏ โ€˜ ๐ด ) ) ยท ( โ™ฏ โ€˜ ( ๐‘ฆ โˆช { ๐‘Ž } ) ) ) ) ) )
201 200 expcom โŠข ( ( ๐‘ฆ โˆˆ Fin โˆง ยฌ ๐‘Ž โˆˆ ๐‘ฆ ) โ†’ ( ๐œ‘ โ†’ ( ( ๐‘ฆ โІ { ๐‘“ โˆฃ ๐‘“ : ๐ด โ€“1-1โ†’ ๐ต } โ†’ ( โ™ฏ โ€˜ { ๐‘“ โˆฃ ( ( ๐‘“ โ†พ ๐ด ) โˆˆ ๐‘ฆ โˆง ๐‘“ : ( ๐ด โˆช { ๐‘ง } ) โ€“1-1โ†’ ๐ต ) } ) = ( ( ( โ™ฏ โ€˜ ๐ต ) โˆ’ ( โ™ฏ โ€˜ ๐ด ) ) ยท ( โ™ฏ โ€˜ ๐‘ฆ ) ) ) โ†’ ( ( ๐‘ฆ โˆช { ๐‘Ž } ) โІ { ๐‘“ โˆฃ ๐‘“ : ๐ด โ€“1-1โ†’ ๐ต } โ†’ ( โ™ฏ โ€˜ { ๐‘“ โˆฃ ( ( ๐‘“ โ†พ ๐ด ) โˆˆ ( ๐‘ฆ โˆช { ๐‘Ž } ) โˆง ๐‘“ : ( ๐ด โˆช { ๐‘ง } ) โ€“1-1โ†’ ๐ต ) } ) = ( ( ( โ™ฏ โ€˜ ๐ต ) โˆ’ ( โ™ฏ โ€˜ ๐ด ) ) ยท ( โ™ฏ โ€˜ ( ๐‘ฆ โˆช { ๐‘Ž } ) ) ) ) ) ) )
202 201 a2d โŠข ( ( ๐‘ฆ โˆˆ Fin โˆง ยฌ ๐‘Ž โˆˆ ๐‘ฆ ) โ†’ ( ( ๐œ‘ โ†’ ( ๐‘ฆ โІ { ๐‘“ โˆฃ ๐‘“ : ๐ด โ€“1-1โ†’ ๐ต } โ†’ ( โ™ฏ โ€˜ { ๐‘“ โˆฃ ( ( ๐‘“ โ†พ ๐ด ) โˆˆ ๐‘ฆ โˆง ๐‘“ : ( ๐ด โˆช { ๐‘ง } ) โ€“1-1โ†’ ๐ต ) } ) = ( ( ( โ™ฏ โ€˜ ๐ต ) โˆ’ ( โ™ฏ โ€˜ ๐ด ) ) ยท ( โ™ฏ โ€˜ ๐‘ฆ ) ) ) ) โ†’ ( ๐œ‘ โ†’ ( ( ๐‘ฆ โˆช { ๐‘Ž } ) โІ { ๐‘“ โˆฃ ๐‘“ : ๐ด โ€“1-1โ†’ ๐ต } โ†’ ( โ™ฏ โ€˜ { ๐‘“ โˆฃ ( ( ๐‘“ โ†พ ๐ด ) โˆˆ ( ๐‘ฆ โˆช { ๐‘Ž } ) โˆง ๐‘“ : ( ๐ด โˆช { ๐‘ง } ) โ€“1-1โ†’ ๐ต ) } ) = ( ( ( โ™ฏ โ€˜ ๐ต ) โˆ’ ( โ™ฏ โ€˜ ๐ด ) ) ยท ( โ™ฏ โ€˜ ( ๐‘ฆ โˆช { ๐‘Ž } ) ) ) ) ) ) )
203 30 40 50 74 84 202 findcard2s โŠข ( { ๐‘“ โˆฃ ๐‘“ : ๐ด โ€“1-1โ†’ ๐ต } โˆˆ Fin โ†’ ( ๐œ‘ โ†’ ( { ๐‘“ โˆฃ ๐‘“ : ๐ด โ€“1-1โ†’ ๐ต } โІ { ๐‘“ โˆฃ ๐‘“ : ๐ด โ€“1-1โ†’ ๐ต } โ†’ ( โ™ฏ โ€˜ { ๐‘“ โˆฃ ๐‘“ : ( ๐ด โˆช { ๐‘ง } ) โ€“1-1โ†’ ๐ต } ) = ( ( ( โ™ฏ โ€˜ ๐ต ) โˆ’ ( โ™ฏ โ€˜ ๐ด ) ) ยท ( โ™ฏ โ€˜ { ๐‘“ โˆฃ ๐‘“ : ๐ด โ€“1-1โ†’ ๐ต } ) ) ) ) )
204 12 203 mpcom โŠข ( ๐œ‘ โ†’ ( { ๐‘“ โˆฃ ๐‘“ : ๐ด โ€“1-1โ†’ ๐ต } โІ { ๐‘“ โˆฃ ๐‘“ : ๐ด โ€“1-1โ†’ ๐ต } โ†’ ( โ™ฏ โ€˜ { ๐‘“ โˆฃ ๐‘“ : ( ๐ด โˆช { ๐‘ง } ) โ€“1-1โ†’ ๐ต } ) = ( ( ( โ™ฏ โ€˜ ๐ต ) โˆ’ ( โ™ฏ โ€˜ ๐ด ) ) ยท ( โ™ฏ โ€˜ { ๐‘“ โˆฃ ๐‘“ : ๐ด โ€“1-1โ†’ ๐ต } ) ) ) )
205 5 204 mpi โŠข ( ๐œ‘ โ†’ ( โ™ฏ โ€˜ { ๐‘“ โˆฃ ๐‘“ : ( ๐ด โˆช { ๐‘ง } ) โ€“1-1โ†’ ๐ต } ) = ( ( ( โ™ฏ โ€˜ ๐ต ) โˆ’ ( โ™ฏ โ€˜ ๐ด ) ) ยท ( โ™ฏ โ€˜ { ๐‘“ โˆฃ ๐‘“ : ๐ด โ€“1-1โ†’ ๐ต } ) ) )