MPE Home Metamath Proof Explorer < Previous   Next >
Nearby theorems
Mirrors  >  Home  >  MPE Home  >  Th. List  >  ptcmplem2 Structured version   Visualization version   GIF version

Theorem ptcmplem2 23556
Description: Lemma for ptcmp 23561. (Contributed by Mario Carneiro, 26-Aug-2015.)
Hypotheses
Ref Expression
ptcmp.1 𝑆 = (π‘˜ ∈ 𝐴, 𝑒 ∈ (πΉβ€˜π‘˜) ↦ (β—‘(𝑀 ∈ 𝑋 ↦ (π‘€β€˜π‘˜)) β€œ 𝑒))
ptcmp.2 𝑋 = X𝑛 ∈ 𝐴 βˆͺ (πΉβ€˜π‘›)
ptcmp.3 (πœ‘ β†’ 𝐴 ∈ 𝑉)
ptcmp.4 (πœ‘ β†’ 𝐹:𝐴⟢Comp)
ptcmp.5 (πœ‘ β†’ 𝑋 ∈ (UFL ∩ dom card))
ptcmplem2.5 (πœ‘ β†’ π‘ˆ βŠ† ran 𝑆)
ptcmplem2.6 (πœ‘ β†’ 𝑋 = βˆͺ π‘ˆ)
ptcmplem2.7 (πœ‘ β†’ Β¬ βˆƒπ‘§ ∈ (𝒫 π‘ˆ ∩ Fin)𝑋 = βˆͺ 𝑧)
Assertion
Ref Expression
ptcmplem2 (πœ‘ β†’ βˆͺ π‘˜ ∈ {𝑛 ∈ 𝐴 ∣ Β¬ βˆͺ (πΉβ€˜π‘›) β‰ˆ 1o}βˆͺ (πΉβ€˜π‘˜) ∈ dom card)
Distinct variable groups:   π‘˜,𝑛,𝑒,𝑀,𝑧,𝐴   𝑆,π‘˜,𝑛,𝑒,𝑧   πœ‘,π‘˜,𝑛,𝑒   π‘ˆ,π‘˜,𝑒,𝑧   π‘˜,𝑉,𝑛,𝑒,𝑀,𝑧   π‘˜,𝐹,𝑛,𝑒,𝑀,𝑧   π‘˜,𝑋,𝑛,𝑒,𝑀,𝑧
Allowed substitution hints:   πœ‘(𝑧,𝑀)   𝑆(𝑀)   π‘ˆ(𝑀,𝑛)

Proof of Theorem ptcmplem2
Dummy variables 𝑓 𝑔 π‘š π‘₯ are mutually distinct and distinct from all other variables.
StepHypRef Expression
1 ptcmplem2.7 . . . 4 (πœ‘ β†’ Β¬ βˆƒπ‘§ ∈ (𝒫 π‘ˆ ∩ Fin)𝑋 = βˆͺ 𝑧)
2 0ss 4396 . . . . . . 7 βˆ… βŠ† π‘ˆ
3 0fin 9170 . . . . . . 7 βˆ… ∈ Fin
4 elfpw 9353 . . . . . . 7 (βˆ… ∈ (𝒫 π‘ˆ ∩ Fin) ↔ (βˆ… βŠ† π‘ˆ ∧ βˆ… ∈ Fin))
52, 3, 4mpbir2an 709 . . . . . 6 βˆ… ∈ (𝒫 π‘ˆ ∩ Fin)
6 unieq 4919 . . . . . . . 8 (𝑧 = βˆ… β†’ βˆͺ 𝑧 = βˆͺ βˆ…)
7 uni0 4939 . . . . . . . 8 βˆͺ βˆ… = βˆ…
86, 7eqtrdi 2788 . . . . . . 7 (𝑧 = βˆ… β†’ βˆͺ 𝑧 = βˆ…)
98rspceeqv 3633 . . . . . 6 ((βˆ… ∈ (𝒫 π‘ˆ ∩ Fin) ∧ 𝑋 = βˆ…) β†’ βˆƒπ‘§ ∈ (𝒫 π‘ˆ ∩ Fin)𝑋 = βˆͺ 𝑧)
105, 9mpan 688 . . . . 5 (𝑋 = βˆ… β†’ βˆƒπ‘§ ∈ (𝒫 π‘ˆ ∩ Fin)𝑋 = βˆͺ 𝑧)
1110necon3bi 2967 . . . 4 (Β¬ βˆƒπ‘§ ∈ (𝒫 π‘ˆ ∩ Fin)𝑋 = βˆͺ 𝑧 β†’ 𝑋 β‰  βˆ…)
121, 11syl 17 . . 3 (πœ‘ β†’ 𝑋 β‰  βˆ…)
13 n0 4346 . . 3 (𝑋 β‰  βˆ… ↔ βˆƒπ‘“ 𝑓 ∈ 𝑋)
1412, 13sylib 217 . 2 (πœ‘ β†’ βˆƒπ‘“ 𝑓 ∈ 𝑋)
15 ptcmp.2 . . . . . . 7 𝑋 = X𝑛 ∈ 𝐴 βˆͺ (πΉβ€˜π‘›)
16 fveq2 6891 . . . . . . . . 9 (𝑛 = π‘˜ β†’ (πΉβ€˜π‘›) = (πΉβ€˜π‘˜))
1716unieqd 4922 . . . . . . . 8 (𝑛 = π‘˜ β†’ βˆͺ (πΉβ€˜π‘›) = βˆͺ (πΉβ€˜π‘˜))
1817cbvixpv 8908 . . . . . . 7 X𝑛 ∈ 𝐴 βˆͺ (πΉβ€˜π‘›) = Xπ‘˜ ∈ 𝐴 βˆͺ (πΉβ€˜π‘˜)
1915, 18eqtri 2760 . . . . . 6 𝑋 = Xπ‘˜ ∈ 𝐴 βˆͺ (πΉβ€˜π‘˜)
20 ptcmp.5 . . . . . . . 8 (πœ‘ β†’ 𝑋 ∈ (UFL ∩ dom card))
2120elin2d 4199 . . . . . . 7 (πœ‘ β†’ 𝑋 ∈ dom card)
2221adantr 481 . . . . . 6 ((πœ‘ ∧ 𝑓 ∈ 𝑋) β†’ 𝑋 ∈ dom card)
2319, 22eqeltrrid 2838 . . . . 5 ((πœ‘ ∧ 𝑓 ∈ 𝑋) β†’ Xπ‘˜ ∈ 𝐴 βˆͺ (πΉβ€˜π‘˜) ∈ dom card)
24 ssrab2 4077 . . . . . 6 {𝑛 ∈ 𝐴 ∣ Β¬ βˆͺ (πΉβ€˜π‘›) β‰ˆ 1o} βŠ† 𝐴
2512adantr 481 . . . . . . 7 ((πœ‘ ∧ 𝑓 ∈ 𝑋) β†’ 𝑋 β‰  βˆ…)
2619, 25eqnetrrid 3016 . . . . . 6 ((πœ‘ ∧ 𝑓 ∈ 𝑋) β†’ Xπ‘˜ ∈ 𝐴 βˆͺ (πΉβ€˜π‘˜) β‰  βˆ…)
27 eqid 2732 . . . . . . 7 (𝑔 ∈ Xπ‘˜ ∈ 𝐴 βˆͺ (πΉβ€˜π‘˜) ↦ (𝑔 β†Ύ {𝑛 ∈ 𝐴 ∣ Β¬ βˆͺ (πΉβ€˜π‘›) β‰ˆ 1o})) = (𝑔 ∈ Xπ‘˜ ∈ 𝐴 βˆͺ (πΉβ€˜π‘˜) ↦ (𝑔 β†Ύ {𝑛 ∈ 𝐴 ∣ Β¬ βˆͺ (πΉβ€˜π‘›) β‰ˆ 1o}))
2827resixpfo 8929 . . . . . 6 (({𝑛 ∈ 𝐴 ∣ Β¬ βˆͺ (πΉβ€˜π‘›) β‰ˆ 1o} βŠ† 𝐴 ∧ Xπ‘˜ ∈ 𝐴 βˆͺ (πΉβ€˜π‘˜) β‰  βˆ…) β†’ (𝑔 ∈ Xπ‘˜ ∈ 𝐴 βˆͺ (πΉβ€˜π‘˜) ↦ (𝑔 β†Ύ {𝑛 ∈ 𝐴 ∣ Β¬ βˆͺ (πΉβ€˜π‘›) β‰ˆ 1o})):Xπ‘˜ ∈ 𝐴 βˆͺ (πΉβ€˜π‘˜)–ontoβ†’Xπ‘˜ ∈ {𝑛 ∈ 𝐴 ∣ Β¬ βˆͺ (πΉβ€˜π‘›) β‰ˆ 1o}βˆͺ (πΉβ€˜π‘˜))
2924, 26, 28sylancr 587 . . . . 5 ((πœ‘ ∧ 𝑓 ∈ 𝑋) β†’ (𝑔 ∈ Xπ‘˜ ∈ 𝐴 βˆͺ (πΉβ€˜π‘˜) ↦ (𝑔 β†Ύ {𝑛 ∈ 𝐴 ∣ Β¬ βˆͺ (πΉβ€˜π‘›) β‰ˆ 1o})):Xπ‘˜ ∈ 𝐴 βˆͺ (πΉβ€˜π‘˜)–ontoβ†’Xπ‘˜ ∈ {𝑛 ∈ 𝐴 ∣ Β¬ βˆͺ (πΉβ€˜π‘›) β‰ˆ 1o}βˆͺ (πΉβ€˜π‘˜))
30 fonum 10052 . . . . 5 ((Xπ‘˜ ∈ 𝐴 βˆͺ (πΉβ€˜π‘˜) ∈ dom card ∧ (𝑔 ∈ Xπ‘˜ ∈ 𝐴 βˆͺ (πΉβ€˜π‘˜) ↦ (𝑔 β†Ύ {𝑛 ∈ 𝐴 ∣ Β¬ βˆͺ (πΉβ€˜π‘›) β‰ˆ 1o})):Xπ‘˜ ∈ 𝐴 βˆͺ (πΉβ€˜π‘˜)–ontoβ†’Xπ‘˜ ∈ {𝑛 ∈ 𝐴 ∣ Β¬ βˆͺ (πΉβ€˜π‘›) β‰ˆ 1o}βˆͺ (πΉβ€˜π‘˜)) β†’ Xπ‘˜ ∈ {𝑛 ∈ 𝐴 ∣ Β¬ βˆͺ (πΉβ€˜π‘›) β‰ˆ 1o}βˆͺ (πΉβ€˜π‘˜) ∈ dom card)
3123, 29, 30syl2anc 584 . . . 4 ((πœ‘ ∧ 𝑓 ∈ 𝑋) β†’ Xπ‘˜ ∈ {𝑛 ∈ 𝐴 ∣ Β¬ βˆͺ (πΉβ€˜π‘›) β‰ˆ 1o}βˆͺ (πΉβ€˜π‘˜) ∈ dom card)
32 vex 3478 . . . . . . . . . . 11 𝑔 ∈ V
33 difexg 5327 . . . . . . . . . . 11 (𝑔 ∈ V β†’ (𝑔 βˆ– 𝑓) ∈ V)
3432, 33mp1i 13 . . . . . . . . . 10 ((πœ‘ ∧ 𝑓 ∈ 𝑋) β†’ (𝑔 βˆ– 𝑓) ∈ V)
35 dmexg 7893 . . . . . . . . . 10 ((𝑔 βˆ– 𝑓) ∈ V β†’ dom (𝑔 βˆ– 𝑓) ∈ V)
36 uniexg 7729 . . . . . . . . . 10 (dom (𝑔 βˆ– 𝑓) ∈ V β†’ βˆͺ dom (𝑔 βˆ– 𝑓) ∈ V)
3734, 35, 363syl 18 . . . . . . . . 9 ((πœ‘ ∧ 𝑓 ∈ 𝑋) β†’ βˆͺ dom (𝑔 βˆ– 𝑓) ∈ V)
3837ralrimivw 3150 . . . . . . . 8 ((πœ‘ ∧ 𝑓 ∈ 𝑋) β†’ βˆ€π‘” ∈ 𝑋 βˆͺ dom (𝑔 βˆ– 𝑓) ∈ V)
39 eqid 2732 . . . . . . . . 9 (𝑔 ∈ 𝑋 ↦ βˆͺ dom (𝑔 βˆ– 𝑓)) = (𝑔 ∈ 𝑋 ↦ βˆͺ dom (𝑔 βˆ– 𝑓))
4039fnmpt 6690 . . . . . . . 8 (βˆ€π‘” ∈ 𝑋 βˆͺ dom (𝑔 βˆ– 𝑓) ∈ V β†’ (𝑔 ∈ 𝑋 ↦ βˆͺ dom (𝑔 βˆ– 𝑓)) Fn 𝑋)
4138, 40syl 17 . . . . . . 7 ((πœ‘ ∧ 𝑓 ∈ 𝑋) β†’ (𝑔 ∈ 𝑋 ↦ βˆͺ dom (𝑔 βˆ– 𝑓)) Fn 𝑋)
42 dffn4 6811 . . . . . . 7 ((𝑔 ∈ 𝑋 ↦ βˆͺ dom (𝑔 βˆ– 𝑓)) Fn 𝑋 ↔ (𝑔 ∈ 𝑋 ↦ βˆͺ dom (𝑔 βˆ– 𝑓)):𝑋–ontoβ†’ran (𝑔 ∈ 𝑋 ↦ βˆͺ dom (𝑔 βˆ– 𝑓)))
4341, 42sylib 217 . . . . . 6 ((πœ‘ ∧ 𝑓 ∈ 𝑋) β†’ (𝑔 ∈ 𝑋 ↦ βˆͺ dom (𝑔 βˆ– 𝑓)):𝑋–ontoβ†’ran (𝑔 ∈ 𝑋 ↦ βˆͺ dom (𝑔 βˆ– 𝑓)))
44 fonum 10052 . . . . . 6 ((𝑋 ∈ dom card ∧ (𝑔 ∈ 𝑋 ↦ βˆͺ dom (𝑔 βˆ– 𝑓)):𝑋–ontoβ†’ran (𝑔 ∈ 𝑋 ↦ βˆͺ dom (𝑔 βˆ– 𝑓))) β†’ ran (𝑔 ∈ 𝑋 ↦ βˆͺ dom (𝑔 βˆ– 𝑓)) ∈ dom card)
4522, 43, 44syl2anc 584 . . . . 5 ((πœ‘ ∧ 𝑓 ∈ 𝑋) β†’ ran (𝑔 ∈ 𝑋 ↦ βˆͺ dom (𝑔 βˆ– 𝑓)) ∈ dom card)
46 ssdif0 4363 . . . . . . . . . . . 12 (βˆͺ (πΉβ€˜π‘˜) βŠ† {(π‘“β€˜π‘˜)} ↔ (βˆͺ (πΉβ€˜π‘˜) βˆ– {(π‘“β€˜π‘˜)}) = βˆ…)
47 simpr 485 . . . . . . . . . . . . . . 15 ((((πœ‘ ∧ 𝑓 ∈ 𝑋) ∧ π‘˜ ∈ 𝐴) ∧ βˆͺ (πΉβ€˜π‘˜) βŠ† {(π‘“β€˜π‘˜)}) β†’ βˆͺ (πΉβ€˜π‘˜) βŠ† {(π‘“β€˜π‘˜)})
48 simpr 485 . . . . . . . . . . . . . . . . . . . 20 ((πœ‘ ∧ 𝑓 ∈ 𝑋) β†’ 𝑓 ∈ 𝑋)
4948, 19eleqtrdi 2843 . . . . . . . . . . . . . . . . . . 19 ((πœ‘ ∧ 𝑓 ∈ 𝑋) β†’ 𝑓 ∈ Xπ‘˜ ∈ 𝐴 βˆͺ (πΉβ€˜π‘˜))
50 vex 3478 . . . . . . . . . . . . . . . . . . . . 21 𝑓 ∈ V
5150elixp 8897 . . . . . . . . . . . . . . . . . . . 20 (𝑓 ∈ Xπ‘˜ ∈ 𝐴 βˆͺ (πΉβ€˜π‘˜) ↔ (𝑓 Fn 𝐴 ∧ βˆ€π‘˜ ∈ 𝐴 (π‘“β€˜π‘˜) ∈ βˆͺ (πΉβ€˜π‘˜)))
5251simprbi 497 . . . . . . . . . . . . . . . . . . 19 (𝑓 ∈ Xπ‘˜ ∈ 𝐴 βˆͺ (πΉβ€˜π‘˜) β†’ βˆ€π‘˜ ∈ 𝐴 (π‘“β€˜π‘˜) ∈ βˆͺ (πΉβ€˜π‘˜))
5349, 52syl 17 . . . . . . . . . . . . . . . . . 18 ((πœ‘ ∧ 𝑓 ∈ 𝑋) β†’ βˆ€π‘˜ ∈ 𝐴 (π‘“β€˜π‘˜) ∈ βˆͺ (πΉβ€˜π‘˜))
5453r19.21bi 3248 . . . . . . . . . . . . . . . . 17 (((πœ‘ ∧ 𝑓 ∈ 𝑋) ∧ π‘˜ ∈ 𝐴) β†’ (π‘“β€˜π‘˜) ∈ βˆͺ (πΉβ€˜π‘˜))
5554snssd 4812 . . . . . . . . . . . . . . . 16 (((πœ‘ ∧ 𝑓 ∈ 𝑋) ∧ π‘˜ ∈ 𝐴) β†’ {(π‘“β€˜π‘˜)} βŠ† βˆͺ (πΉβ€˜π‘˜))
5655adantr 481 . . . . . . . . . . . . . . 15 ((((πœ‘ ∧ 𝑓 ∈ 𝑋) ∧ π‘˜ ∈ 𝐴) ∧ βˆͺ (πΉβ€˜π‘˜) βŠ† {(π‘“β€˜π‘˜)}) β†’ {(π‘“β€˜π‘˜)} βŠ† βˆͺ (πΉβ€˜π‘˜))
5747, 56eqssd 3999 . . . . . . . . . . . . . 14 ((((πœ‘ ∧ 𝑓 ∈ 𝑋) ∧ π‘˜ ∈ 𝐴) ∧ βˆͺ (πΉβ€˜π‘˜) βŠ† {(π‘“β€˜π‘˜)}) β†’ βˆͺ (πΉβ€˜π‘˜) = {(π‘“β€˜π‘˜)})
58 fvex 6904 . . . . . . . . . . . . . . 15 (π‘“β€˜π‘˜) ∈ V
5958ensn1 9016 . . . . . . . . . . . . . 14 {(π‘“β€˜π‘˜)} β‰ˆ 1o
6057, 59eqbrtrdi 5187 . . . . . . . . . . . . 13 ((((πœ‘ ∧ 𝑓 ∈ 𝑋) ∧ π‘˜ ∈ 𝐴) ∧ βˆͺ (πΉβ€˜π‘˜) βŠ† {(π‘“β€˜π‘˜)}) β†’ βˆͺ (πΉβ€˜π‘˜) β‰ˆ 1o)
6160ex 413 . . . . . . . . . . . 12 (((πœ‘ ∧ 𝑓 ∈ 𝑋) ∧ π‘˜ ∈ 𝐴) β†’ (βˆͺ (πΉβ€˜π‘˜) βŠ† {(π‘“β€˜π‘˜)} β†’ βˆͺ (πΉβ€˜π‘˜) β‰ˆ 1o))
6246, 61biimtrrid 242 . . . . . . . . . . 11 (((πœ‘ ∧ 𝑓 ∈ 𝑋) ∧ π‘˜ ∈ 𝐴) β†’ ((βˆͺ (πΉβ€˜π‘˜) βˆ– {(π‘“β€˜π‘˜)}) = βˆ… β†’ βˆͺ (πΉβ€˜π‘˜) β‰ˆ 1o))
6362con3d 152 . . . . . . . . . 10 (((πœ‘ ∧ 𝑓 ∈ 𝑋) ∧ π‘˜ ∈ 𝐴) β†’ (Β¬ βˆͺ (πΉβ€˜π‘˜) β‰ˆ 1o β†’ Β¬ (βˆͺ (πΉβ€˜π‘˜) βˆ– {(π‘“β€˜π‘˜)}) = βˆ…))
64 neq0 4345 . . . . . . . . . 10 (Β¬ (βˆͺ (πΉβ€˜π‘˜) βˆ– {(π‘“β€˜π‘˜)}) = βˆ… ↔ βˆƒπ‘₯ π‘₯ ∈ (βˆͺ (πΉβ€˜π‘˜) βˆ– {(π‘“β€˜π‘˜)}))
6563, 64imbitrdi 250 . . . . . . . . 9 (((πœ‘ ∧ 𝑓 ∈ 𝑋) ∧ π‘˜ ∈ 𝐴) β†’ (Β¬ βˆͺ (πΉβ€˜π‘˜) β‰ˆ 1o β†’ βˆƒπ‘₯ π‘₯ ∈ (βˆͺ (πΉβ€˜π‘˜) βˆ– {(π‘“β€˜π‘˜)})))
66 eldifi 4126 . . . . . . . . . . . . 13 (π‘₯ ∈ (βˆͺ (πΉβ€˜π‘˜) βˆ– {(π‘“β€˜π‘˜)}) β†’ π‘₯ ∈ βˆͺ (πΉβ€˜π‘˜))
67 simplr 767 . . . . . . . . . . . . . . . . . 18 (((((πœ‘ ∧ 𝑓 ∈ 𝑋) ∧ π‘˜ ∈ 𝐴) ∧ π‘₯ ∈ βˆͺ (πΉβ€˜π‘˜)) ∧ 𝑛 ∈ 𝐴) β†’ π‘₯ ∈ βˆͺ (πΉβ€˜π‘˜))
68 iftrue 4534 . . . . . . . . . . . . . . . . . . 19 (𝑛 = π‘˜ β†’ if(𝑛 = π‘˜, π‘₯, (π‘“β€˜π‘›)) = π‘₯)
6968, 17eleq12d 2827 . . . . . . . . . . . . . . . . . 18 (𝑛 = π‘˜ β†’ (if(𝑛 = π‘˜, π‘₯, (π‘“β€˜π‘›)) ∈ βˆͺ (πΉβ€˜π‘›) ↔ π‘₯ ∈ βˆͺ (πΉβ€˜π‘˜)))
7067, 69syl5ibrcom 246 . . . . . . . . . . . . . . . . 17 (((((πœ‘ ∧ 𝑓 ∈ 𝑋) ∧ π‘˜ ∈ 𝐴) ∧ π‘₯ ∈ βˆͺ (πΉβ€˜π‘˜)) ∧ 𝑛 ∈ 𝐴) β†’ (𝑛 = π‘˜ β†’ if(𝑛 = π‘˜, π‘₯, (π‘“β€˜π‘›)) ∈ βˆͺ (πΉβ€˜π‘›)))
7148, 15eleqtrdi 2843 . . . . . . . . . . . . . . . . . . . . 21 ((πœ‘ ∧ 𝑓 ∈ 𝑋) β†’ 𝑓 ∈ X𝑛 ∈ 𝐴 βˆͺ (πΉβ€˜π‘›))
7250elixp 8897 . . . . . . . . . . . . . . . . . . . . . 22 (𝑓 ∈ X𝑛 ∈ 𝐴 βˆͺ (πΉβ€˜π‘›) ↔ (𝑓 Fn 𝐴 ∧ βˆ€π‘› ∈ 𝐴 (π‘“β€˜π‘›) ∈ βˆͺ (πΉβ€˜π‘›)))
7372simprbi 497 . . . . . . . . . . . . . . . . . . . . 21 (𝑓 ∈ X𝑛 ∈ 𝐴 βˆͺ (πΉβ€˜π‘›) β†’ βˆ€π‘› ∈ 𝐴 (π‘“β€˜π‘›) ∈ βˆͺ (πΉβ€˜π‘›))
7471, 73syl 17 . . . . . . . . . . . . . . . . . . . 20 ((πœ‘ ∧ 𝑓 ∈ 𝑋) β†’ βˆ€π‘› ∈ 𝐴 (π‘“β€˜π‘›) ∈ βˆͺ (πΉβ€˜π‘›))
7574ad2antrr 724 . . . . . . . . . . . . . . . . . . 19 ((((πœ‘ ∧ 𝑓 ∈ 𝑋) ∧ π‘˜ ∈ 𝐴) ∧ π‘₯ ∈ βˆͺ (πΉβ€˜π‘˜)) β†’ βˆ€π‘› ∈ 𝐴 (π‘“β€˜π‘›) ∈ βˆͺ (πΉβ€˜π‘›))
7675r19.21bi 3248 . . . . . . . . . . . . . . . . . 18 (((((πœ‘ ∧ 𝑓 ∈ 𝑋) ∧ π‘˜ ∈ 𝐴) ∧ π‘₯ ∈ βˆͺ (πΉβ€˜π‘˜)) ∧ 𝑛 ∈ 𝐴) β†’ (π‘“β€˜π‘›) ∈ βˆͺ (πΉβ€˜π‘›))
77 iffalse 4537 . . . . . . . . . . . . . . . . . . 19 (Β¬ 𝑛 = π‘˜ β†’ if(𝑛 = π‘˜, π‘₯, (π‘“β€˜π‘›)) = (π‘“β€˜π‘›))
7877eleq1d 2818 . . . . . . . . . . . . . . . . . 18 (Β¬ 𝑛 = π‘˜ β†’ (if(𝑛 = π‘˜, π‘₯, (π‘“β€˜π‘›)) ∈ βˆͺ (πΉβ€˜π‘›) ↔ (π‘“β€˜π‘›) ∈ βˆͺ (πΉβ€˜π‘›)))
7976, 78syl5ibrcom 246 . . . . . . . . . . . . . . . . 17 (((((πœ‘ ∧ 𝑓 ∈ 𝑋) ∧ π‘˜ ∈ 𝐴) ∧ π‘₯ ∈ βˆͺ (πΉβ€˜π‘˜)) ∧ 𝑛 ∈ 𝐴) β†’ (Β¬ 𝑛 = π‘˜ β†’ if(𝑛 = π‘˜, π‘₯, (π‘“β€˜π‘›)) ∈ βˆͺ (πΉβ€˜π‘›)))
8070, 79pm2.61d 179 . . . . . . . . . . . . . . . 16 (((((πœ‘ ∧ 𝑓 ∈ 𝑋) ∧ π‘˜ ∈ 𝐴) ∧ π‘₯ ∈ βˆͺ (πΉβ€˜π‘˜)) ∧ 𝑛 ∈ 𝐴) β†’ if(𝑛 = π‘˜, π‘₯, (π‘“β€˜π‘›)) ∈ βˆͺ (πΉβ€˜π‘›))
8180ralrimiva 3146 . . . . . . . . . . . . . . 15 ((((πœ‘ ∧ 𝑓 ∈ 𝑋) ∧ π‘˜ ∈ 𝐴) ∧ π‘₯ ∈ βˆͺ (πΉβ€˜π‘˜)) β†’ βˆ€π‘› ∈ 𝐴 if(𝑛 = π‘˜, π‘₯, (π‘“β€˜π‘›)) ∈ βˆͺ (πΉβ€˜π‘›))
82 ptcmp.3 . . . . . . . . . . . . . . . . 17 (πœ‘ β†’ 𝐴 ∈ 𝑉)
8382ad3antrrr 728 . . . . . . . . . . . . . . . 16 ((((πœ‘ ∧ 𝑓 ∈ 𝑋) ∧ π‘˜ ∈ 𝐴) ∧ π‘₯ ∈ βˆͺ (πΉβ€˜π‘˜)) β†’ 𝐴 ∈ 𝑉)
84 mptelixpg 8928 . . . . . . . . . . . . . . . 16 (𝐴 ∈ 𝑉 β†’ ((𝑛 ∈ 𝐴 ↦ if(𝑛 = π‘˜, π‘₯, (π‘“β€˜π‘›))) ∈ X𝑛 ∈ 𝐴 βˆͺ (πΉβ€˜π‘›) ↔ βˆ€π‘› ∈ 𝐴 if(𝑛 = π‘˜, π‘₯, (π‘“β€˜π‘›)) ∈ βˆͺ (πΉβ€˜π‘›)))
8583, 84syl 17 . . . . . . . . . . . . . . 15 ((((πœ‘ ∧ 𝑓 ∈ 𝑋) ∧ π‘˜ ∈ 𝐴) ∧ π‘₯ ∈ βˆͺ (πΉβ€˜π‘˜)) β†’ ((𝑛 ∈ 𝐴 ↦ if(𝑛 = π‘˜, π‘₯, (π‘“β€˜π‘›))) ∈ X𝑛 ∈ 𝐴 βˆͺ (πΉβ€˜π‘›) ↔ βˆ€π‘› ∈ 𝐴 if(𝑛 = π‘˜, π‘₯, (π‘“β€˜π‘›)) ∈ βˆͺ (πΉβ€˜π‘›)))
8681, 85mpbird 256 . . . . . . . . . . . . . 14 ((((πœ‘ ∧ 𝑓 ∈ 𝑋) ∧ π‘˜ ∈ 𝐴) ∧ π‘₯ ∈ βˆͺ (πΉβ€˜π‘˜)) β†’ (𝑛 ∈ 𝐴 ↦ if(𝑛 = π‘˜, π‘₯, (π‘“β€˜π‘›))) ∈ X𝑛 ∈ 𝐴 βˆͺ (πΉβ€˜π‘›))
8786, 15eleqtrrdi 2844 . . . . . . . . . . . . 13 ((((πœ‘ ∧ 𝑓 ∈ 𝑋) ∧ π‘˜ ∈ 𝐴) ∧ π‘₯ ∈ βˆͺ (πΉβ€˜π‘˜)) β†’ (𝑛 ∈ 𝐴 ↦ if(𝑛 = π‘˜, π‘₯, (π‘“β€˜π‘›))) ∈ 𝑋)
8866, 87sylan2 593 . . . . . . . . . . . 12 ((((πœ‘ ∧ 𝑓 ∈ 𝑋) ∧ π‘˜ ∈ 𝐴) ∧ π‘₯ ∈ (βˆͺ (πΉβ€˜π‘˜) βˆ– {(π‘“β€˜π‘˜)})) β†’ (𝑛 ∈ 𝐴 ↦ if(𝑛 = π‘˜, π‘₯, (π‘“β€˜π‘›))) ∈ 𝑋)
89 unisnv 4931 . . . . . . . . . . . . 13 βˆͺ {π‘˜} = π‘˜
90 simplr 767 . . . . . . . . . . . . . . . . . . . 20 ((((πœ‘ ∧ 𝑓 ∈ 𝑋) ∧ π‘˜ ∈ 𝐴) ∧ π‘₯ ∈ (βˆͺ (πΉβ€˜π‘˜) βˆ– {(π‘“β€˜π‘˜)})) β†’ π‘˜ ∈ 𝐴)
91 eleq1w 2816 . . . . . . . . . . . . . . . . . . . 20 (π‘š = π‘˜ β†’ (π‘š ∈ 𝐴 ↔ π‘˜ ∈ 𝐴))
9290, 91syl5ibrcom 246 . . . . . . . . . . . . . . . . . . 19 ((((πœ‘ ∧ 𝑓 ∈ 𝑋) ∧ π‘˜ ∈ 𝐴) ∧ π‘₯ ∈ (βˆͺ (πΉβ€˜π‘˜) βˆ– {(π‘“β€˜π‘˜)})) β†’ (π‘š = π‘˜ β†’ π‘š ∈ 𝐴))
9392pm4.71rd 563 . . . . . . . . . . . . . . . . . 18 ((((πœ‘ ∧ 𝑓 ∈ 𝑋) ∧ π‘˜ ∈ 𝐴) ∧ π‘₯ ∈ (βˆͺ (πΉβ€˜π‘˜) βˆ– {(π‘“β€˜π‘˜)})) β†’ (π‘š = π‘˜ ↔ (π‘š ∈ 𝐴 ∧ π‘š = π‘˜)))
94 equequ1 2028 . . . . . . . . . . . . . . . . . . . . . . . 24 (𝑛 = π‘š β†’ (𝑛 = π‘˜ ↔ π‘š = π‘˜))
95 fveq2 6891 . . . . . . . . . . . . . . . . . . . . . . . 24 (𝑛 = π‘š β†’ (π‘“β€˜π‘›) = (π‘“β€˜π‘š))
9694, 95ifbieq2d 4554 . . . . . . . . . . . . . . . . . . . . . . 23 (𝑛 = π‘š β†’ if(𝑛 = π‘˜, π‘₯, (π‘“β€˜π‘›)) = if(π‘š = π‘˜, π‘₯, (π‘“β€˜π‘š)))
97 eqid 2732 . . . . . . . . . . . . . . . . . . . . . . 23 (𝑛 ∈ 𝐴 ↦ if(𝑛 = π‘˜, π‘₯, (π‘“β€˜π‘›))) = (𝑛 ∈ 𝐴 ↦ if(𝑛 = π‘˜, π‘₯, (π‘“β€˜π‘›)))
98 vex 3478 . . . . . . . . . . . . . . . . . . . . . . . 24 π‘₯ ∈ V
99 fvex 6904 . . . . . . . . . . . . . . . . . . . . . . . 24 (π‘“β€˜π‘š) ∈ V
10098, 99ifex 4578 . . . . . . . . . . . . . . . . . . . . . . 23 if(π‘š = π‘˜, π‘₯, (π‘“β€˜π‘š)) ∈ V
10196, 97, 100fvmpt 6998 . . . . . . . . . . . . . . . . . . . . . 22 (π‘š ∈ 𝐴 β†’ ((𝑛 ∈ 𝐴 ↦ if(𝑛 = π‘˜, π‘₯, (π‘“β€˜π‘›)))β€˜π‘š) = if(π‘š = π‘˜, π‘₯, (π‘“β€˜π‘š)))
102101neeq1d 3000 . . . . . . . . . . . . . . . . . . . . 21 (π‘š ∈ 𝐴 β†’ (((𝑛 ∈ 𝐴 ↦ if(𝑛 = π‘˜, π‘₯, (π‘“β€˜π‘›)))β€˜π‘š) β‰  (π‘“β€˜π‘š) ↔ if(π‘š = π‘˜, π‘₯, (π‘“β€˜π‘š)) β‰  (π‘“β€˜π‘š)))
103102adantl 482 . . . . . . . . . . . . . . . . . . . 20 (((((πœ‘ ∧ 𝑓 ∈ 𝑋) ∧ π‘˜ ∈ 𝐴) ∧ π‘₯ ∈ (βˆͺ (πΉβ€˜π‘˜) βˆ– {(π‘“β€˜π‘˜)})) ∧ π‘š ∈ 𝐴) β†’ (((𝑛 ∈ 𝐴 ↦ if(𝑛 = π‘˜, π‘₯, (π‘“β€˜π‘›)))β€˜π‘š) β‰  (π‘“β€˜π‘š) ↔ if(π‘š = π‘˜, π‘₯, (π‘“β€˜π‘š)) β‰  (π‘“β€˜π‘š)))
104 iffalse 4537 . . . . . . . . . . . . . . . . . . . . . 22 (Β¬ π‘š = π‘˜ β†’ if(π‘š = π‘˜, π‘₯, (π‘“β€˜π‘š)) = (π‘“β€˜π‘š))
105104necon1ai 2968 . . . . . . . . . . . . . . . . . . . . 21 (if(π‘š = π‘˜, π‘₯, (π‘“β€˜π‘š)) β‰  (π‘“β€˜π‘š) β†’ π‘š = π‘˜)
106 eldifsni 4793 . . . . . . . . . . . . . . . . . . . . . . 23 (π‘₯ ∈ (βˆͺ (πΉβ€˜π‘˜) βˆ– {(π‘“β€˜π‘˜)}) β†’ π‘₯ β‰  (π‘“β€˜π‘˜))
107106ad2antlr 725 . . . . . . . . . . . . . . . . . . . . . 22 (((((πœ‘ ∧ 𝑓 ∈ 𝑋) ∧ π‘˜ ∈ 𝐴) ∧ π‘₯ ∈ (βˆͺ (πΉβ€˜π‘˜) βˆ– {(π‘“β€˜π‘˜)})) ∧ π‘š ∈ 𝐴) β†’ π‘₯ β‰  (π‘“β€˜π‘˜))
108 iftrue 4534 . . . . . . . . . . . . . . . . . . . . . . 23 (π‘š = π‘˜ β†’ if(π‘š = π‘˜, π‘₯, (π‘“β€˜π‘š)) = π‘₯)
109 fveq2 6891 . . . . . . . . . . . . . . . . . . . . . . 23 (π‘š = π‘˜ β†’ (π‘“β€˜π‘š) = (π‘“β€˜π‘˜))
110108, 109neeq12d 3002 . . . . . . . . . . . . . . . . . . . . . 22 (π‘š = π‘˜ β†’ (if(π‘š = π‘˜, π‘₯, (π‘“β€˜π‘š)) β‰  (π‘“β€˜π‘š) ↔ π‘₯ β‰  (π‘“β€˜π‘˜)))
111107, 110syl5ibrcom 246 . . . . . . . . . . . . . . . . . . . . 21 (((((πœ‘ ∧ 𝑓 ∈ 𝑋) ∧ π‘˜ ∈ 𝐴) ∧ π‘₯ ∈ (βˆͺ (πΉβ€˜π‘˜) βˆ– {(π‘“β€˜π‘˜)})) ∧ π‘š ∈ 𝐴) β†’ (π‘š = π‘˜ β†’ if(π‘š = π‘˜, π‘₯, (π‘“β€˜π‘š)) β‰  (π‘“β€˜π‘š)))
112105, 111impbid2 225 . . . . . . . . . . . . . . . . . . . 20 (((((πœ‘ ∧ 𝑓 ∈ 𝑋) ∧ π‘˜ ∈ 𝐴) ∧ π‘₯ ∈ (βˆͺ (πΉβ€˜π‘˜) βˆ– {(π‘“β€˜π‘˜)})) ∧ π‘š ∈ 𝐴) β†’ (if(π‘š = π‘˜, π‘₯, (π‘“β€˜π‘š)) β‰  (π‘“β€˜π‘š) ↔ π‘š = π‘˜))
113103, 112bitrd 278 . . . . . . . . . . . . . . . . . . 19 (((((πœ‘ ∧ 𝑓 ∈ 𝑋) ∧ π‘˜ ∈ 𝐴) ∧ π‘₯ ∈ (βˆͺ (πΉβ€˜π‘˜) βˆ– {(π‘“β€˜π‘˜)})) ∧ π‘š ∈ 𝐴) β†’ (((𝑛 ∈ 𝐴 ↦ if(𝑛 = π‘˜, π‘₯, (π‘“β€˜π‘›)))β€˜π‘š) β‰  (π‘“β€˜π‘š) ↔ π‘š = π‘˜))
114113pm5.32da 579 . . . . . . . . . . . . . . . . . 18 ((((πœ‘ ∧ 𝑓 ∈ 𝑋) ∧ π‘˜ ∈ 𝐴) ∧ π‘₯ ∈ (βˆͺ (πΉβ€˜π‘˜) βˆ– {(π‘“β€˜π‘˜)})) β†’ ((π‘š ∈ 𝐴 ∧ ((𝑛 ∈ 𝐴 ↦ if(𝑛 = π‘˜, π‘₯, (π‘“β€˜π‘›)))β€˜π‘š) β‰  (π‘“β€˜π‘š)) ↔ (π‘š ∈ 𝐴 ∧ π‘š = π‘˜)))
11593, 114bitr4d 281 . . . . . . . . . . . . . . . . 17 ((((πœ‘ ∧ 𝑓 ∈ 𝑋) ∧ π‘˜ ∈ 𝐴) ∧ π‘₯ ∈ (βˆͺ (πΉβ€˜π‘˜) βˆ– {(π‘“β€˜π‘˜)})) β†’ (π‘š = π‘˜ ↔ (π‘š ∈ 𝐴 ∧ ((𝑛 ∈ 𝐴 ↦ if(𝑛 = π‘˜, π‘₯, (π‘“β€˜π‘›)))β€˜π‘š) β‰  (π‘“β€˜π‘š))))
116115abbidv 2801 . . . . . . . . . . . . . . . 16 ((((πœ‘ ∧ 𝑓 ∈ 𝑋) ∧ π‘˜ ∈ 𝐴) ∧ π‘₯ ∈ (βˆͺ (πΉβ€˜π‘˜) βˆ– {(π‘“β€˜π‘˜)})) β†’ {π‘š ∣ π‘š = π‘˜} = {π‘š ∣ (π‘š ∈ 𝐴 ∧ ((𝑛 ∈ 𝐴 ↦ if(𝑛 = π‘˜, π‘₯, (π‘“β€˜π‘›)))β€˜π‘š) β‰  (π‘“β€˜π‘š))})
117 df-sn 4629 . . . . . . . . . . . . . . . 16 {π‘˜} = {π‘š ∣ π‘š = π‘˜}
118 df-rab 3433 . . . . . . . . . . . . . . . 16 {π‘š ∈ 𝐴 ∣ ((𝑛 ∈ 𝐴 ↦ if(𝑛 = π‘˜, π‘₯, (π‘“β€˜π‘›)))β€˜π‘š) β‰  (π‘“β€˜π‘š)} = {π‘š ∣ (π‘š ∈ 𝐴 ∧ ((𝑛 ∈ 𝐴 ↦ if(𝑛 = π‘˜, π‘₯, (π‘“β€˜π‘›)))β€˜π‘š) β‰  (π‘“β€˜π‘š))}
119116, 117, 1183eqtr4g 2797 . . . . . . . . . . . . . . 15 ((((πœ‘ ∧ 𝑓 ∈ 𝑋) ∧ π‘˜ ∈ 𝐴) ∧ π‘₯ ∈ (βˆͺ (πΉβ€˜π‘˜) βˆ– {(π‘“β€˜π‘˜)})) β†’ {π‘˜} = {π‘š ∈ 𝐴 ∣ ((𝑛 ∈ 𝐴 ↦ if(𝑛 = π‘˜, π‘₯, (π‘“β€˜π‘›)))β€˜π‘š) β‰  (π‘“β€˜π‘š)})
120 fvex 6904 . . . . . . . . . . . . . . . . . . 19 (π‘“β€˜π‘›) ∈ V
12198, 120ifex 4578 . . . . . . . . . . . . . . . . . 18 if(𝑛 = π‘˜, π‘₯, (π‘“β€˜π‘›)) ∈ V
122121rgenw 3065 . . . . . . . . . . . . . . . . 17 βˆ€π‘› ∈ 𝐴 if(𝑛 = π‘˜, π‘₯, (π‘“β€˜π‘›)) ∈ V
12397fnmpt 6690 . . . . . . . . . . . . . . . . 17 (βˆ€π‘› ∈ 𝐴 if(𝑛 = π‘˜, π‘₯, (π‘“β€˜π‘›)) ∈ V β†’ (𝑛 ∈ 𝐴 ↦ if(𝑛 = π‘˜, π‘₯, (π‘“β€˜π‘›))) Fn 𝐴)
124122, 123mp1i 13 . . . . . . . . . . . . . . . 16 ((((πœ‘ ∧ 𝑓 ∈ 𝑋) ∧ π‘˜ ∈ 𝐴) ∧ π‘₯ ∈ (βˆͺ (πΉβ€˜π‘˜) βˆ– {(π‘“β€˜π‘˜)})) β†’ (𝑛 ∈ 𝐴 ↦ if(𝑛 = π‘˜, π‘₯, (π‘“β€˜π‘›))) Fn 𝐴)
125 ixpfn 8896 . . . . . . . . . . . . . . . . . 18 (𝑓 ∈ X𝑛 ∈ 𝐴 βˆͺ (πΉβ€˜π‘›) β†’ 𝑓 Fn 𝐴)
12671, 125syl 17 . . . . . . . . . . . . . . . . 17 ((πœ‘ ∧ 𝑓 ∈ 𝑋) β†’ 𝑓 Fn 𝐴)
127126ad2antrr 724 . . . . . . . . . . . . . . . 16 ((((πœ‘ ∧ 𝑓 ∈ 𝑋) ∧ π‘˜ ∈ 𝐴) ∧ π‘₯ ∈ (βˆͺ (πΉβ€˜π‘˜) βˆ– {(π‘“β€˜π‘˜)})) β†’ 𝑓 Fn 𝐴)
128 fndmdif 7043 . . . . . . . . . . . . . . . 16 (((𝑛 ∈ 𝐴 ↦ if(𝑛 = π‘˜, π‘₯, (π‘“β€˜π‘›))) Fn 𝐴 ∧ 𝑓 Fn 𝐴) β†’ dom ((𝑛 ∈ 𝐴 ↦ if(𝑛 = π‘˜, π‘₯, (π‘“β€˜π‘›))) βˆ– 𝑓) = {π‘š ∈ 𝐴 ∣ ((𝑛 ∈ 𝐴 ↦ if(𝑛 = π‘˜, π‘₯, (π‘“β€˜π‘›)))β€˜π‘š) β‰  (π‘“β€˜π‘š)})
129124, 127, 128syl2anc 584 . . . . . . . . . . . . . . 15 ((((πœ‘ ∧ 𝑓 ∈ 𝑋) ∧ π‘˜ ∈ 𝐴) ∧ π‘₯ ∈ (βˆͺ (πΉβ€˜π‘˜) βˆ– {(π‘“β€˜π‘˜)})) β†’ dom ((𝑛 ∈ 𝐴 ↦ if(𝑛 = π‘˜, π‘₯, (π‘“β€˜π‘›))) βˆ– 𝑓) = {π‘š ∈ 𝐴 ∣ ((𝑛 ∈ 𝐴 ↦ if(𝑛 = π‘˜, π‘₯, (π‘“β€˜π‘›)))β€˜π‘š) β‰  (π‘“β€˜π‘š)})
130119, 129eqtr4d 2775 . . . . . . . . . . . . . 14 ((((πœ‘ ∧ 𝑓 ∈ 𝑋) ∧ π‘˜ ∈ 𝐴) ∧ π‘₯ ∈ (βˆͺ (πΉβ€˜π‘˜) βˆ– {(π‘“β€˜π‘˜)})) β†’ {π‘˜} = dom ((𝑛 ∈ 𝐴 ↦ if(𝑛 = π‘˜, π‘₯, (π‘“β€˜π‘›))) βˆ– 𝑓))
131130unieqd 4922 . . . . . . . . . . . . 13 ((((πœ‘ ∧ 𝑓 ∈ 𝑋) ∧ π‘˜ ∈ 𝐴) ∧ π‘₯ ∈ (βˆͺ (πΉβ€˜π‘˜) βˆ– {(π‘“β€˜π‘˜)})) β†’ βˆͺ {π‘˜} = βˆͺ dom ((𝑛 ∈ 𝐴 ↦ if(𝑛 = π‘˜, π‘₯, (π‘“β€˜π‘›))) βˆ– 𝑓))
13289, 131eqtr3id 2786 . . . . . . . . . . . 12 ((((πœ‘ ∧ 𝑓 ∈ 𝑋) ∧ π‘˜ ∈ 𝐴) ∧ π‘₯ ∈ (βˆͺ (πΉβ€˜π‘˜) βˆ– {(π‘“β€˜π‘˜)})) β†’ π‘˜ = βˆͺ dom ((𝑛 ∈ 𝐴 ↦ if(𝑛 = π‘˜, π‘₯, (π‘“β€˜π‘›))) βˆ– 𝑓))
133 difeq1 4115 . . . . . . . . . . . . . . 15 (𝑔 = (𝑛 ∈ 𝐴 ↦ if(𝑛 = π‘˜, π‘₯, (π‘“β€˜π‘›))) β†’ (𝑔 βˆ– 𝑓) = ((𝑛 ∈ 𝐴 ↦ if(𝑛 = π‘˜, π‘₯, (π‘“β€˜π‘›))) βˆ– 𝑓))
134133dmeqd 5905 . . . . . . . . . . . . . 14 (𝑔 = (𝑛 ∈ 𝐴 ↦ if(𝑛 = π‘˜, π‘₯, (π‘“β€˜π‘›))) β†’ dom (𝑔 βˆ– 𝑓) = dom ((𝑛 ∈ 𝐴 ↦ if(𝑛 = π‘˜, π‘₯, (π‘“β€˜π‘›))) βˆ– 𝑓))
135134unieqd 4922 . . . . . . . . . . . . 13 (𝑔 = (𝑛 ∈ 𝐴 ↦ if(𝑛 = π‘˜, π‘₯, (π‘“β€˜π‘›))) β†’ βˆͺ dom (𝑔 βˆ– 𝑓) = βˆͺ dom ((𝑛 ∈ 𝐴 ↦ if(𝑛 = π‘˜, π‘₯, (π‘“β€˜π‘›))) βˆ– 𝑓))
136135rspceeqv 3633 . . . . . . . . . . . 12 (((𝑛 ∈ 𝐴 ↦ if(𝑛 = π‘˜, π‘₯, (π‘“β€˜π‘›))) ∈ 𝑋 ∧ π‘˜ = βˆͺ dom ((𝑛 ∈ 𝐴 ↦ if(𝑛 = π‘˜, π‘₯, (π‘“β€˜π‘›))) βˆ– 𝑓)) β†’ βˆƒπ‘” ∈ 𝑋 π‘˜ = βˆͺ dom (𝑔 βˆ– 𝑓))
13788, 132, 136syl2anc 584 . . . . . . . . . . 11 ((((πœ‘ ∧ 𝑓 ∈ 𝑋) ∧ π‘˜ ∈ 𝐴) ∧ π‘₯ ∈ (βˆͺ (πΉβ€˜π‘˜) βˆ– {(π‘“β€˜π‘˜)})) β†’ βˆƒπ‘” ∈ 𝑋 π‘˜ = βˆͺ dom (𝑔 βˆ– 𝑓))
138137ex 413 . . . . . . . . . 10 (((πœ‘ ∧ 𝑓 ∈ 𝑋) ∧ π‘˜ ∈ 𝐴) β†’ (π‘₯ ∈ (βˆͺ (πΉβ€˜π‘˜) βˆ– {(π‘“β€˜π‘˜)}) β†’ βˆƒπ‘” ∈ 𝑋 π‘˜ = βˆͺ dom (𝑔 βˆ– 𝑓)))
139138exlimdv 1936 . . . . . . . . 9 (((πœ‘ ∧ 𝑓 ∈ 𝑋) ∧ π‘˜ ∈ 𝐴) β†’ (βˆƒπ‘₯ π‘₯ ∈ (βˆͺ (πΉβ€˜π‘˜) βˆ– {(π‘“β€˜π‘˜)}) β†’ βˆƒπ‘” ∈ 𝑋 π‘˜ = βˆͺ dom (𝑔 βˆ– 𝑓)))
14065, 139syld 47 . . . . . . . 8 (((πœ‘ ∧ 𝑓 ∈ 𝑋) ∧ π‘˜ ∈ 𝐴) β†’ (Β¬ βˆͺ (πΉβ€˜π‘˜) β‰ˆ 1o β†’ βˆƒπ‘” ∈ 𝑋 π‘˜ = βˆͺ dom (𝑔 βˆ– 𝑓)))
141140expimpd 454 . . . . . . 7 ((πœ‘ ∧ 𝑓 ∈ 𝑋) β†’ ((π‘˜ ∈ 𝐴 ∧ Β¬ βˆͺ (πΉβ€˜π‘˜) β‰ˆ 1o) β†’ βˆƒπ‘” ∈ 𝑋 π‘˜ = βˆͺ dom (𝑔 βˆ– 𝑓)))
14217breq1d 5158 . . . . . . . . 9 (𝑛 = π‘˜ β†’ (βˆͺ (πΉβ€˜π‘›) β‰ˆ 1o ↔ βˆͺ (πΉβ€˜π‘˜) β‰ˆ 1o))
143142notbid 317 . . . . . . . 8 (𝑛 = π‘˜ β†’ (Β¬ βˆͺ (πΉβ€˜π‘›) β‰ˆ 1o ↔ Β¬ βˆͺ (πΉβ€˜π‘˜) β‰ˆ 1o))
144143elrab 3683 . . . . . . 7 (π‘˜ ∈ {𝑛 ∈ 𝐴 ∣ Β¬ βˆͺ (πΉβ€˜π‘›) β‰ˆ 1o} ↔ (π‘˜ ∈ 𝐴 ∧ Β¬ βˆͺ (πΉβ€˜π‘˜) β‰ˆ 1o))
14539elrnmpt 5955 . . . . . . . 8 (π‘˜ ∈ V β†’ (π‘˜ ∈ ran (𝑔 ∈ 𝑋 ↦ βˆͺ dom (𝑔 βˆ– 𝑓)) ↔ βˆƒπ‘” ∈ 𝑋 π‘˜ = βˆͺ dom (𝑔 βˆ– 𝑓)))
146145elv 3480 . . . . . . 7 (π‘˜ ∈ ran (𝑔 ∈ 𝑋 ↦ βˆͺ dom (𝑔 βˆ– 𝑓)) ↔ βˆƒπ‘” ∈ 𝑋 π‘˜ = βˆͺ dom (𝑔 βˆ– 𝑓))
147141, 144, 1463imtr4g 295 . . . . . 6 ((πœ‘ ∧ 𝑓 ∈ 𝑋) β†’ (π‘˜ ∈ {𝑛 ∈ 𝐴 ∣ Β¬ βˆͺ (πΉβ€˜π‘›) β‰ˆ 1o} β†’ π‘˜ ∈ ran (𝑔 ∈ 𝑋 ↦ βˆͺ dom (𝑔 βˆ– 𝑓))))
148147ssrdv 3988 . . . . 5 ((πœ‘ ∧ 𝑓 ∈ 𝑋) β†’ {𝑛 ∈ 𝐴 ∣ Β¬ βˆͺ (πΉβ€˜π‘›) β‰ˆ 1o} βŠ† ran (𝑔 ∈ 𝑋 ↦ βˆͺ dom (𝑔 βˆ– 𝑓)))
149 ssnum 10033 . . . . 5 ((ran (𝑔 ∈ 𝑋 ↦ βˆͺ dom (𝑔 βˆ– 𝑓)) ∈ dom card ∧ {𝑛 ∈ 𝐴 ∣ Β¬ βˆͺ (πΉβ€˜π‘›) β‰ˆ 1o} βŠ† ran (𝑔 ∈ 𝑋 ↦ βˆͺ dom (𝑔 βˆ– 𝑓))) β†’ {𝑛 ∈ 𝐴 ∣ Β¬ βˆͺ (πΉβ€˜π‘›) β‰ˆ 1o} ∈ dom card)
15045, 148, 149syl2anc 584 . . . 4 ((πœ‘ ∧ 𝑓 ∈ 𝑋) β†’ {𝑛 ∈ 𝐴 ∣ Β¬ βˆͺ (πΉβ€˜π‘›) β‰ˆ 1o} ∈ dom card)
151 xpnum 9945 . . . 4 ((Xπ‘˜ ∈ {𝑛 ∈ 𝐴 ∣ Β¬ βˆͺ (πΉβ€˜π‘›) β‰ˆ 1o}βˆͺ (πΉβ€˜π‘˜) ∈ dom card ∧ {𝑛 ∈ 𝐴 ∣ Β¬ βˆͺ (πΉβ€˜π‘›) β‰ˆ 1o} ∈ dom card) β†’ (Xπ‘˜ ∈ {𝑛 ∈ 𝐴 ∣ Β¬ βˆͺ (πΉβ€˜π‘›) β‰ˆ 1o}βˆͺ (πΉβ€˜π‘˜) Γ— {𝑛 ∈ 𝐴 ∣ Β¬ βˆͺ (πΉβ€˜π‘›) β‰ˆ 1o}) ∈ dom card)
15231, 150, 151syl2anc 584 . . 3 ((πœ‘ ∧ 𝑓 ∈ 𝑋) β†’ (Xπ‘˜ ∈ {𝑛 ∈ 𝐴 ∣ Β¬ βˆͺ (πΉβ€˜π‘›) β‰ˆ 1o}βˆͺ (πΉβ€˜π‘˜) Γ— {𝑛 ∈ 𝐴 ∣ Β¬ βˆͺ (πΉβ€˜π‘›) β‰ˆ 1o}) ∈ dom card)
15382adantr 481 . . . . 5 ((πœ‘ ∧ 𝑓 ∈ 𝑋) β†’ 𝐴 ∈ 𝑉)
154 rabexg 5331 . . . . 5 (𝐴 ∈ 𝑉 β†’ {𝑛 ∈ 𝐴 ∣ Β¬ βˆͺ (πΉβ€˜π‘›) β‰ˆ 1o} ∈ V)
155153, 154syl 17 . . . 4 ((πœ‘ ∧ 𝑓 ∈ 𝑋) β†’ {𝑛 ∈ 𝐴 ∣ Β¬ βˆͺ (πΉβ€˜π‘›) β‰ˆ 1o} ∈ V)
156 fvex 6904 . . . . . . 7 (πΉβ€˜π‘˜) ∈ V
157156uniex 7730 . . . . . 6 βˆͺ (πΉβ€˜π‘˜) ∈ V
158157rgenw 3065 . . . . 5 βˆ€π‘˜ ∈ {𝑛 ∈ 𝐴 ∣ Β¬ βˆͺ (πΉβ€˜π‘›) β‰ˆ 1o}βˆͺ (πΉβ€˜π‘˜) ∈ V
159 iunexg 7949 . . . . 5 (({𝑛 ∈ 𝐴 ∣ Β¬ βˆͺ (πΉβ€˜π‘›) β‰ˆ 1o} ∈ V ∧ βˆ€π‘˜ ∈ {𝑛 ∈ 𝐴 ∣ Β¬ βˆͺ (πΉβ€˜π‘›) β‰ˆ 1o}βˆͺ (πΉβ€˜π‘˜) ∈ V) β†’ βˆͺ π‘˜ ∈ {𝑛 ∈ 𝐴 ∣ Β¬ βˆͺ (πΉβ€˜π‘›) β‰ˆ 1o}βˆͺ (πΉβ€˜π‘˜) ∈ V)
160155, 158, 159sylancl 586 . . . 4 ((πœ‘ ∧ 𝑓 ∈ 𝑋) β†’ βˆͺ π‘˜ ∈ {𝑛 ∈ 𝐴 ∣ Β¬ βˆͺ (πΉβ€˜π‘›) β‰ˆ 1o}βˆͺ (πΉβ€˜π‘˜) ∈ V)
161 resixp 8926 . . . . . 6 (({𝑛 ∈ 𝐴 ∣ Β¬ βˆͺ (πΉβ€˜π‘›) β‰ˆ 1o} βŠ† 𝐴 ∧ 𝑓 ∈ Xπ‘˜ ∈ 𝐴 βˆͺ (πΉβ€˜π‘˜)) β†’ (𝑓 β†Ύ {𝑛 ∈ 𝐴 ∣ Β¬ βˆͺ (πΉβ€˜π‘›) β‰ˆ 1o}) ∈ Xπ‘˜ ∈ {𝑛 ∈ 𝐴 ∣ Β¬ βˆͺ (πΉβ€˜π‘›) β‰ˆ 1o}βˆͺ (πΉβ€˜π‘˜))
16224, 49, 161sylancr 587 . . . . 5 ((πœ‘ ∧ 𝑓 ∈ 𝑋) β†’ (𝑓 β†Ύ {𝑛 ∈ 𝐴 ∣ Β¬ βˆͺ (πΉβ€˜π‘›) β‰ˆ 1o}) ∈ Xπ‘˜ ∈ {𝑛 ∈ 𝐴 ∣ Β¬ βˆͺ (πΉβ€˜π‘›) β‰ˆ 1o}βˆͺ (πΉβ€˜π‘˜))
163162ne0d 4335 . . . 4 ((πœ‘ ∧ 𝑓 ∈ 𝑋) β†’ Xπ‘˜ ∈ {𝑛 ∈ 𝐴 ∣ Β¬ βˆͺ (πΉβ€˜π‘›) β‰ˆ 1o}βˆͺ (πΉβ€˜π‘˜) β‰  βˆ…)
164 ixpiunwdom 9584 . . . 4 (({𝑛 ∈ 𝐴 ∣ Β¬ βˆͺ (πΉβ€˜π‘›) β‰ˆ 1o} ∈ V ∧ βˆͺ π‘˜ ∈ {𝑛 ∈ 𝐴 ∣ Β¬ βˆͺ (πΉβ€˜π‘›) β‰ˆ 1o}βˆͺ (πΉβ€˜π‘˜) ∈ V ∧ Xπ‘˜ ∈ {𝑛 ∈ 𝐴 ∣ Β¬ βˆͺ (πΉβ€˜π‘›) β‰ˆ 1o}βˆͺ (πΉβ€˜π‘˜) β‰  βˆ…) β†’ βˆͺ π‘˜ ∈ {𝑛 ∈ 𝐴 ∣ Β¬ βˆͺ (πΉβ€˜π‘›) β‰ˆ 1o}βˆͺ (πΉβ€˜π‘˜) β‰Ό* (Xπ‘˜ ∈ {𝑛 ∈ 𝐴 ∣ Β¬ βˆͺ (πΉβ€˜π‘›) β‰ˆ 1o}βˆͺ (πΉβ€˜π‘˜) Γ— {𝑛 ∈ 𝐴 ∣ Β¬ βˆͺ (πΉβ€˜π‘›) β‰ˆ 1o}))
165155, 160, 163, 164syl3anc 1371 . . 3 ((πœ‘ ∧ 𝑓 ∈ 𝑋) β†’ βˆͺ π‘˜ ∈ {𝑛 ∈ 𝐴 ∣ Β¬ βˆͺ (πΉβ€˜π‘›) β‰ˆ 1o}βˆͺ (πΉβ€˜π‘˜) β‰Ό* (Xπ‘˜ ∈ {𝑛 ∈ 𝐴 ∣ Β¬ βˆͺ (πΉβ€˜π‘›) β‰ˆ 1o}βˆͺ (πΉβ€˜π‘˜) Γ— {𝑛 ∈ 𝐴 ∣ Β¬ βˆͺ (πΉβ€˜π‘›) β‰ˆ 1o}))
166 numwdom 10053 . . 3 (((Xπ‘˜ ∈ {𝑛 ∈ 𝐴 ∣ Β¬ βˆͺ (πΉβ€˜π‘›) β‰ˆ 1o}βˆͺ (πΉβ€˜π‘˜) Γ— {𝑛 ∈ 𝐴 ∣ Β¬ βˆͺ (πΉβ€˜π‘›) β‰ˆ 1o}) ∈ dom card ∧ βˆͺ π‘˜ ∈ {𝑛 ∈ 𝐴 ∣ Β¬ βˆͺ (πΉβ€˜π‘›) β‰ˆ 1o}βˆͺ (πΉβ€˜π‘˜) β‰Ό* (Xπ‘˜ ∈ {𝑛 ∈ 𝐴 ∣ Β¬ βˆͺ (πΉβ€˜π‘›) β‰ˆ 1o}βˆͺ (πΉβ€˜π‘˜) Γ— {𝑛 ∈ 𝐴 ∣ Β¬ βˆͺ (πΉβ€˜π‘›) β‰ˆ 1o})) β†’ βˆͺ π‘˜ ∈ {𝑛 ∈ 𝐴 ∣ Β¬ βˆͺ (πΉβ€˜π‘›) β‰ˆ 1o}βˆͺ (πΉβ€˜π‘˜) ∈ dom card)
167152, 165, 166syl2anc 584 . 2 ((πœ‘ ∧ 𝑓 ∈ 𝑋) β†’ βˆͺ π‘˜ ∈ {𝑛 ∈ 𝐴 ∣ Β¬ βˆͺ (πΉβ€˜π‘›) β‰ˆ 1o}βˆͺ (πΉβ€˜π‘˜) ∈ dom card)
16814, 167exlimddv 1938 1 (πœ‘ β†’ βˆͺ π‘˜ ∈ {𝑛 ∈ 𝐴 ∣ Β¬ βˆͺ (πΉβ€˜π‘›) β‰ˆ 1o}βˆͺ (πΉβ€˜π‘˜) ∈ dom card)
Colors of variables: wff setvar class
Syntax hints:  Β¬ wn 3   β†’ wi 4   ↔ wb 205   ∧ wa 396   = wceq 1541  βˆƒwex 1781   ∈ wcel 2106  {cab 2709   β‰  wne 2940  βˆ€wral 3061  βˆƒwrex 3070  {crab 3432  Vcvv 3474   βˆ– cdif 3945   ∩ cin 3947   βŠ† wss 3948  βˆ…c0 4322  ifcif 4528  π’« cpw 4602  {csn 4628  βˆͺ cuni 4908  βˆͺ ciun 4997   class class class wbr 5148   ↦ cmpt 5231   Γ— cxp 5674  β—‘ccnv 5675  dom cdm 5676  ran crn 5677   β†Ύ cres 5678   β€œ cima 5679   Fn wfn 6538  βŸΆwf 6539  β€“ontoβ†’wfo 6541  β€˜cfv 6543   ∈ cmpo 7410  1oc1o 8458  Xcixp 8890   β‰ˆ cen 8935  Fincfn 8938   β‰Ό* cwdom 9558  cardccrd 9929  Compccmp 22889  UFLcufl 23403
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1797  ax-4 1811  ax-5 1913  ax-6 1971  ax-7 2011  ax-8 2108  ax-9 2116  ax-10 2137  ax-11 2154  ax-12 2171  ax-ext 2703  ax-rep 5285  ax-sep 5299  ax-nul 5306  ax-pow 5363  ax-pr 5427  ax-un 7724
This theorem depends on definitions:  df-bi 206  df-an 397  df-or 846  df-3or 1088  df-3an 1089  df-tru 1544  df-fal 1554  df-ex 1782  df-nf 1786  df-sb 2068  df-mo 2534  df-eu 2563  df-clab 2710  df-cleq 2724  df-clel 2810  df-nfc 2885  df-ne 2941  df-ral 3062  df-rex 3071  df-rmo 3376  df-reu 3377  df-rab 3433  df-v 3476  df-sbc 3778  df-csb 3894  df-dif 3951  df-un 3953  df-in 3955  df-ss 3965  df-pss 3967  df-nul 4323  df-if 4529  df-pw 4604  df-sn 4629  df-pr 4631  df-op 4635  df-uni 4909  df-int 4951  df-iun 4999  df-br 5149  df-opab 5211  df-mpt 5232  df-tr 5266  df-id 5574  df-eprel 5580  df-po 5588  df-so 5589  df-fr 5631  df-se 5632  df-we 5633  df-xp 5682  df-rel 5683  df-cnv 5684  df-co 5685  df-dm 5686  df-rn 5687  df-res 5688  df-ima 5689  df-pred 6300  df-ord 6367  df-on 6368  df-lim 6369  df-suc 6370  df-iota 6495  df-fun 6545  df-fn 6546  df-f 6547  df-f1 6548  df-fo 6549  df-f1o 6550  df-fv 6551  df-isom 6552  df-riota 7364  df-ov 7411  df-oprab 7412  df-mpo 7413  df-om 7855  df-1st 7974  df-2nd 7975  df-frecs 8265  df-wrecs 8296  df-recs 8370  df-rdg 8409  df-1o 8465  df-oadd 8469  df-omul 8470  df-er 8702  df-map 8821  df-ixp 8891  df-en 8939  df-dom 8940  df-fin 8942  df-wdom 9559  df-card 9933  df-acn 9936
This theorem is referenced by:  ptcmplem3  23557
  Copyright terms: Public domain W3C validator