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

Theorem ptcmplem2 23427
Description: Lemma for ptcmp 23432. (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 4360 . . . . . . 7 βˆ… βŠ† π‘ˆ
3 0fin 9121 . . . . . . 7 βˆ… ∈ Fin
4 elfpw 9304 . . . . . . 7 (βˆ… ∈ (𝒫 π‘ˆ ∩ Fin) ↔ (βˆ… βŠ† π‘ˆ ∧ βˆ… ∈ Fin))
52, 3, 4mpbir2an 710 . . . . . 6 βˆ… ∈ (𝒫 π‘ˆ ∩ Fin)
6 unieq 4880 . . . . . . . 8 (𝑧 = βˆ… β†’ βˆͺ 𝑧 = βˆͺ βˆ…)
7 uni0 4900 . . . . . . . 8 βˆͺ βˆ… = βˆ…
86, 7eqtrdi 2789 . . . . . . 7 (𝑧 = βˆ… β†’ βˆͺ 𝑧 = βˆ…)
98rspceeqv 3599 . . . . . 6 ((βˆ… ∈ (𝒫 π‘ˆ ∩ Fin) ∧ 𝑋 = βˆ…) β†’ βˆƒπ‘§ ∈ (𝒫 π‘ˆ ∩ Fin)𝑋 = βˆͺ 𝑧)
105, 9mpan 689 . . . . 5 (𝑋 = βˆ… β†’ βˆƒπ‘§ ∈ (𝒫 π‘ˆ ∩ Fin)𝑋 = βˆͺ 𝑧)
1110necon3bi 2967 . . . 4 (Β¬ βˆƒπ‘§ ∈ (𝒫 π‘ˆ ∩ Fin)𝑋 = βˆͺ 𝑧 β†’ 𝑋 β‰  βˆ…)
121, 11syl 17 . . 3 (πœ‘ β†’ 𝑋 β‰  βˆ…)
13 n0 4310 . . 3 (𝑋 β‰  βˆ… ↔ βˆƒπ‘“ 𝑓 ∈ 𝑋)
1412, 13sylib 217 . 2 (πœ‘ β†’ βˆƒπ‘“ 𝑓 ∈ 𝑋)
15 ptcmp.2 . . . . . . 7 𝑋 = X𝑛 ∈ 𝐴 βˆͺ (πΉβ€˜π‘›)
16 fveq2 6846 . . . . . . . . 9 (𝑛 = π‘˜ β†’ (πΉβ€˜π‘›) = (πΉβ€˜π‘˜))
1716unieqd 4883 . . . . . . . 8 (𝑛 = π‘˜ β†’ βˆͺ (πΉβ€˜π‘›) = βˆͺ (πΉβ€˜π‘˜))
1817cbvixpv 8859 . . . . . . 7 X𝑛 ∈ 𝐴 βˆͺ (πΉβ€˜π‘›) = Xπ‘˜ ∈ 𝐴 βˆͺ (πΉβ€˜π‘˜)
1915, 18eqtri 2761 . . . . . 6 𝑋 = Xπ‘˜ ∈ 𝐴 βˆͺ (πΉβ€˜π‘˜)
20 ptcmp.5 . . . . . . . 8 (πœ‘ β†’ 𝑋 ∈ (UFL ∩ dom card))
2120elin2d 4163 . . . . . . 7 (πœ‘ β†’ 𝑋 ∈ dom card)
2221adantr 482 . . . . . 6 ((πœ‘ ∧ 𝑓 ∈ 𝑋) β†’ 𝑋 ∈ dom card)
2319, 22eqeltrrid 2839 . . . . 5 ((πœ‘ ∧ 𝑓 ∈ 𝑋) β†’ Xπ‘˜ ∈ 𝐴 βˆͺ (πΉβ€˜π‘˜) ∈ dom card)
24 ssrab2 4041 . . . . . 6 {𝑛 ∈ 𝐴 ∣ Β¬ βˆͺ (πΉβ€˜π‘›) β‰ˆ 1o} βŠ† 𝐴
2512adantr 482 . . . . . . 7 ((πœ‘ ∧ 𝑓 ∈ 𝑋) β†’ 𝑋 β‰  βˆ…)
2619, 25eqnetrrid 3016 . . . . . 6 ((πœ‘ ∧ 𝑓 ∈ 𝑋) β†’ Xπ‘˜ ∈ 𝐴 βˆͺ (πΉβ€˜π‘˜) β‰  βˆ…)
27 eqid 2733 . . . . . . 7 (𝑔 ∈ Xπ‘˜ ∈ 𝐴 βˆͺ (πΉβ€˜π‘˜) ↦ (𝑔 β†Ύ {𝑛 ∈ 𝐴 ∣ Β¬ βˆͺ (πΉβ€˜π‘›) β‰ˆ 1o})) = (𝑔 ∈ Xπ‘˜ ∈ 𝐴 βˆͺ (πΉβ€˜π‘˜) ↦ (𝑔 β†Ύ {𝑛 ∈ 𝐴 ∣ Β¬ βˆͺ (πΉβ€˜π‘›) β‰ˆ 1o}))
2827resixpfo 8880 . . . . . 6 (({𝑛 ∈ 𝐴 ∣ Β¬ βˆͺ (πΉβ€˜π‘›) β‰ˆ 1o} βŠ† 𝐴 ∧ Xπ‘˜ ∈ 𝐴 βˆͺ (πΉβ€˜π‘˜) β‰  βˆ…) β†’ (𝑔 ∈ Xπ‘˜ ∈ 𝐴 βˆͺ (πΉβ€˜π‘˜) ↦ (𝑔 β†Ύ {𝑛 ∈ 𝐴 ∣ Β¬ βˆͺ (πΉβ€˜π‘›) β‰ˆ 1o})):Xπ‘˜ ∈ 𝐴 βˆͺ (πΉβ€˜π‘˜)–ontoβ†’Xπ‘˜ ∈ {𝑛 ∈ 𝐴 ∣ Β¬ βˆͺ (πΉβ€˜π‘›) β‰ˆ 1o}βˆͺ (πΉβ€˜π‘˜))
2924, 26, 28sylancr 588 . . . . 5 ((πœ‘ ∧ 𝑓 ∈ 𝑋) β†’ (𝑔 ∈ Xπ‘˜ ∈ 𝐴 βˆͺ (πΉβ€˜π‘˜) ↦ (𝑔 β†Ύ {𝑛 ∈ 𝐴 ∣ Β¬ βˆͺ (πΉβ€˜π‘›) β‰ˆ 1o})):Xπ‘˜ ∈ 𝐴 βˆͺ (πΉβ€˜π‘˜)–ontoβ†’Xπ‘˜ ∈ {𝑛 ∈ 𝐴 ∣ Β¬ βˆͺ (πΉβ€˜π‘›) β‰ˆ 1o}βˆͺ (πΉβ€˜π‘˜))
30 fonum 10002 . . . . 5 ((Xπ‘˜ ∈ 𝐴 βˆͺ (πΉβ€˜π‘˜) ∈ dom card ∧ (𝑔 ∈ Xπ‘˜ ∈ 𝐴 βˆͺ (πΉβ€˜π‘˜) ↦ (𝑔 β†Ύ {𝑛 ∈ 𝐴 ∣ Β¬ βˆͺ (πΉβ€˜π‘›) β‰ˆ 1o})):Xπ‘˜ ∈ 𝐴 βˆͺ (πΉβ€˜π‘˜)–ontoβ†’Xπ‘˜ ∈ {𝑛 ∈ 𝐴 ∣ Β¬ βˆͺ (πΉβ€˜π‘›) β‰ˆ 1o}βˆͺ (πΉβ€˜π‘˜)) β†’ Xπ‘˜ ∈ {𝑛 ∈ 𝐴 ∣ Β¬ βˆͺ (πΉβ€˜π‘›) β‰ˆ 1o}βˆͺ (πΉβ€˜π‘˜) ∈ dom card)
3123, 29, 30syl2anc 585 . . . 4 ((πœ‘ ∧ 𝑓 ∈ 𝑋) β†’ Xπ‘˜ ∈ {𝑛 ∈ 𝐴 ∣ Β¬ βˆͺ (πΉβ€˜π‘›) β‰ˆ 1o}βˆͺ (πΉβ€˜π‘˜) ∈ dom card)
32 vex 3451 . . . . . . . . . . 11 𝑔 ∈ V
33 difexg 5288 . . . . . . . . . . 11 (𝑔 ∈ V β†’ (𝑔 βˆ– 𝑓) ∈ V)
3432, 33mp1i 13 . . . . . . . . . 10 ((πœ‘ ∧ 𝑓 ∈ 𝑋) β†’ (𝑔 βˆ– 𝑓) ∈ V)
35 dmexg 7844 . . . . . . . . . 10 ((𝑔 βˆ– 𝑓) ∈ V β†’ dom (𝑔 βˆ– 𝑓) ∈ V)
36 uniexg 7681 . . . . . . . . . 10 (dom (𝑔 βˆ– 𝑓) ∈ V β†’ βˆͺ dom (𝑔 βˆ– 𝑓) ∈ V)
3734, 35, 363syl 18 . . . . . . . . 9 ((πœ‘ ∧ 𝑓 ∈ 𝑋) β†’ βˆͺ dom (𝑔 βˆ– 𝑓) ∈ V)
3837ralrimivw 3144 . . . . . . . 8 ((πœ‘ ∧ 𝑓 ∈ 𝑋) β†’ βˆ€π‘” ∈ 𝑋 βˆͺ dom (𝑔 βˆ– 𝑓) ∈ V)
39 eqid 2733 . . . . . . . . 9 (𝑔 ∈ 𝑋 ↦ βˆͺ dom (𝑔 βˆ– 𝑓)) = (𝑔 ∈ 𝑋 ↦ βˆͺ dom (𝑔 βˆ– 𝑓))
4039fnmpt 6645 . . . . . . . 8 (βˆ€π‘” ∈ 𝑋 βˆͺ dom (𝑔 βˆ– 𝑓) ∈ V β†’ (𝑔 ∈ 𝑋 ↦ βˆͺ dom (𝑔 βˆ– 𝑓)) Fn 𝑋)
4138, 40syl 17 . . . . . . 7 ((πœ‘ ∧ 𝑓 ∈ 𝑋) β†’ (𝑔 ∈ 𝑋 ↦ βˆͺ dom (𝑔 βˆ– 𝑓)) Fn 𝑋)
42 dffn4 6766 . . . . . . 7 ((𝑔 ∈ 𝑋 ↦ βˆͺ dom (𝑔 βˆ– 𝑓)) Fn 𝑋 ↔ (𝑔 ∈ 𝑋 ↦ βˆͺ dom (𝑔 βˆ– 𝑓)):𝑋–ontoβ†’ran (𝑔 ∈ 𝑋 ↦ βˆͺ dom (𝑔 βˆ– 𝑓)))
4341, 42sylib 217 . . . . . 6 ((πœ‘ ∧ 𝑓 ∈ 𝑋) β†’ (𝑔 ∈ 𝑋 ↦ βˆͺ dom (𝑔 βˆ– 𝑓)):𝑋–ontoβ†’ran (𝑔 ∈ 𝑋 ↦ βˆͺ dom (𝑔 βˆ– 𝑓)))
44 fonum 10002 . . . . . 6 ((𝑋 ∈ dom card ∧ (𝑔 ∈ 𝑋 ↦ βˆͺ dom (𝑔 βˆ– 𝑓)):𝑋–ontoβ†’ran (𝑔 ∈ 𝑋 ↦ βˆͺ dom (𝑔 βˆ– 𝑓))) β†’ ran (𝑔 ∈ 𝑋 ↦ βˆͺ dom (𝑔 βˆ– 𝑓)) ∈ dom card)
4522, 43, 44syl2anc 585 . . . . 5 ((πœ‘ ∧ 𝑓 ∈ 𝑋) β†’ ran (𝑔 ∈ 𝑋 ↦ βˆͺ dom (𝑔 βˆ– 𝑓)) ∈ dom card)
46 ssdif0 4327 . . . . . . . . . . . 12 (βˆͺ (πΉβ€˜π‘˜) βŠ† {(π‘“β€˜π‘˜)} ↔ (βˆͺ (πΉβ€˜π‘˜) βˆ– {(π‘“β€˜π‘˜)}) = βˆ…)
47 simpr 486 . . . . . . . . . . . . . . 15 ((((πœ‘ ∧ 𝑓 ∈ 𝑋) ∧ π‘˜ ∈ 𝐴) ∧ βˆͺ (πΉβ€˜π‘˜) βŠ† {(π‘“β€˜π‘˜)}) β†’ βˆͺ (πΉβ€˜π‘˜) βŠ† {(π‘“β€˜π‘˜)})
48 simpr 486 . . . . . . . . . . . . . . . . . . . 20 ((πœ‘ ∧ 𝑓 ∈ 𝑋) β†’ 𝑓 ∈ 𝑋)
4948, 19eleqtrdi 2844 . . . . . . . . . . . . . . . . . . 19 ((πœ‘ ∧ 𝑓 ∈ 𝑋) β†’ 𝑓 ∈ Xπ‘˜ ∈ 𝐴 βˆͺ (πΉβ€˜π‘˜))
50 vex 3451 . . . . . . . . . . . . . . . . . . . . 21 𝑓 ∈ V
5150elixp 8848 . . . . . . . . . . . . . . . . . . . 20 (𝑓 ∈ Xπ‘˜ ∈ 𝐴 βˆͺ (πΉβ€˜π‘˜) ↔ (𝑓 Fn 𝐴 ∧ βˆ€π‘˜ ∈ 𝐴 (π‘“β€˜π‘˜) ∈ βˆͺ (πΉβ€˜π‘˜)))
5251simprbi 498 . . . . . . . . . . . . . . . . . . 19 (𝑓 ∈ Xπ‘˜ ∈ 𝐴 βˆͺ (πΉβ€˜π‘˜) β†’ βˆ€π‘˜ ∈ 𝐴 (π‘“β€˜π‘˜) ∈ βˆͺ (πΉβ€˜π‘˜))
5349, 52syl 17 . . . . . . . . . . . . . . . . . 18 ((πœ‘ ∧ 𝑓 ∈ 𝑋) β†’ βˆ€π‘˜ ∈ 𝐴 (π‘“β€˜π‘˜) ∈ βˆͺ (πΉβ€˜π‘˜))
5453r19.21bi 3233 . . . . . . . . . . . . . . . . 17 (((πœ‘ ∧ 𝑓 ∈ 𝑋) ∧ π‘˜ ∈ 𝐴) β†’ (π‘“β€˜π‘˜) ∈ βˆͺ (πΉβ€˜π‘˜))
5554snssd 4773 . . . . . . . . . . . . . . . 16 (((πœ‘ ∧ 𝑓 ∈ 𝑋) ∧ π‘˜ ∈ 𝐴) β†’ {(π‘“β€˜π‘˜)} βŠ† βˆͺ (πΉβ€˜π‘˜))
5655adantr 482 . . . . . . . . . . . . . . 15 ((((πœ‘ ∧ 𝑓 ∈ 𝑋) ∧ π‘˜ ∈ 𝐴) ∧ βˆͺ (πΉβ€˜π‘˜) βŠ† {(π‘“β€˜π‘˜)}) β†’ {(π‘“β€˜π‘˜)} βŠ† βˆͺ (πΉβ€˜π‘˜))
5747, 56eqssd 3965 . . . . . . . . . . . . . 14 ((((πœ‘ ∧ 𝑓 ∈ 𝑋) ∧ π‘˜ ∈ 𝐴) ∧ βˆͺ (πΉβ€˜π‘˜) βŠ† {(π‘“β€˜π‘˜)}) β†’ βˆͺ (πΉβ€˜π‘˜) = {(π‘“β€˜π‘˜)})
58 fvex 6859 . . . . . . . . . . . . . . 15 (π‘“β€˜π‘˜) ∈ V
5958ensn1 8967 . . . . . . . . . . . . . 14 {(π‘“β€˜π‘˜)} β‰ˆ 1o
6057, 59eqbrtrdi 5148 . . . . . . . . . . . . 13 ((((πœ‘ ∧ 𝑓 ∈ 𝑋) ∧ π‘˜ ∈ 𝐴) ∧ βˆͺ (πΉβ€˜π‘˜) βŠ† {(π‘“β€˜π‘˜)}) β†’ βˆͺ (πΉβ€˜π‘˜) β‰ˆ 1o)
6160ex 414 . . . . . . . . . . . 12 (((πœ‘ ∧ 𝑓 ∈ 𝑋) ∧ π‘˜ ∈ 𝐴) β†’ (βˆͺ (πΉβ€˜π‘˜) βŠ† {(π‘“β€˜π‘˜)} β†’ βˆͺ (πΉβ€˜π‘˜) β‰ˆ 1o))
6246, 61biimtrrid 242 . . . . . . . . . . 11 (((πœ‘ ∧ 𝑓 ∈ 𝑋) ∧ π‘˜ ∈ 𝐴) β†’ ((βˆͺ (πΉβ€˜π‘˜) βˆ– {(π‘“β€˜π‘˜)}) = βˆ… β†’ βˆͺ (πΉβ€˜π‘˜) β‰ˆ 1o))
6362con3d 152 . . . . . . . . . 10 (((πœ‘ ∧ 𝑓 ∈ 𝑋) ∧ π‘˜ ∈ 𝐴) β†’ (Β¬ βˆͺ (πΉβ€˜π‘˜) β‰ˆ 1o β†’ Β¬ (βˆͺ (πΉβ€˜π‘˜) βˆ– {(π‘“β€˜π‘˜)}) = βˆ…))
64 neq0 4309 . . . . . . . . . 10 (Β¬ (βˆͺ (πΉβ€˜π‘˜) βˆ– {(π‘“β€˜π‘˜)}) = βˆ… ↔ βˆƒπ‘₯ π‘₯ ∈ (βˆͺ (πΉβ€˜π‘˜) βˆ– {(π‘“β€˜π‘˜)}))
6563, 64syl6ib 251 . . . . . . . . 9 (((πœ‘ ∧ 𝑓 ∈ 𝑋) ∧ π‘˜ ∈ 𝐴) β†’ (Β¬ βˆͺ (πΉβ€˜π‘˜) β‰ˆ 1o β†’ βˆƒπ‘₯ π‘₯ ∈ (βˆͺ (πΉβ€˜π‘˜) βˆ– {(π‘“β€˜π‘˜)})))
66 eldifi 4090 . . . . . . . . . . . . 13 (π‘₯ ∈ (βˆͺ (πΉβ€˜π‘˜) βˆ– {(π‘“β€˜π‘˜)}) β†’ π‘₯ ∈ βˆͺ (πΉβ€˜π‘˜))
67 simplr 768 . . . . . . . . . . . . . . . . . 18 (((((πœ‘ ∧ 𝑓 ∈ 𝑋) ∧ π‘˜ ∈ 𝐴) ∧ π‘₯ ∈ βˆͺ (πΉβ€˜π‘˜)) ∧ 𝑛 ∈ 𝐴) β†’ π‘₯ ∈ βˆͺ (πΉβ€˜π‘˜))
68 iftrue 4496 . . . . . . . . . . . . . . . . . . 19 (𝑛 = π‘˜ β†’ if(𝑛 = π‘˜, π‘₯, (π‘“β€˜π‘›)) = π‘₯)
6968, 17eleq12d 2828 . . . . . . . . . . . . . . . . . 18 (𝑛 = π‘˜ β†’ (if(𝑛 = π‘˜, π‘₯, (π‘“β€˜π‘›)) ∈ βˆͺ (πΉβ€˜π‘›) ↔ π‘₯ ∈ βˆͺ (πΉβ€˜π‘˜)))
7067, 69syl5ibrcom 247 . . . . . . . . . . . . . . . . 17 (((((πœ‘ ∧ 𝑓 ∈ 𝑋) ∧ π‘˜ ∈ 𝐴) ∧ π‘₯ ∈ βˆͺ (πΉβ€˜π‘˜)) ∧ 𝑛 ∈ 𝐴) β†’ (𝑛 = π‘˜ β†’ if(𝑛 = π‘˜, π‘₯, (π‘“β€˜π‘›)) ∈ βˆͺ (πΉβ€˜π‘›)))
7148, 15eleqtrdi 2844 . . . . . . . . . . . . . . . . . . . . 21 ((πœ‘ ∧ 𝑓 ∈ 𝑋) β†’ 𝑓 ∈ X𝑛 ∈ 𝐴 βˆͺ (πΉβ€˜π‘›))
7250elixp 8848 . . . . . . . . . . . . . . . . . . . . . 22 (𝑓 ∈ X𝑛 ∈ 𝐴 βˆͺ (πΉβ€˜π‘›) ↔ (𝑓 Fn 𝐴 ∧ βˆ€π‘› ∈ 𝐴 (π‘“β€˜π‘›) ∈ βˆͺ (πΉβ€˜π‘›)))
7372simprbi 498 . . . . . . . . . . . . . . . . . . . . 21 (𝑓 ∈ X𝑛 ∈ 𝐴 βˆͺ (πΉβ€˜π‘›) β†’ βˆ€π‘› ∈ 𝐴 (π‘“β€˜π‘›) ∈ βˆͺ (πΉβ€˜π‘›))
7471, 73syl 17 . . . . . . . . . . . . . . . . . . . 20 ((πœ‘ ∧ 𝑓 ∈ 𝑋) β†’ βˆ€π‘› ∈ 𝐴 (π‘“β€˜π‘›) ∈ βˆͺ (πΉβ€˜π‘›))
7574ad2antrr 725 . . . . . . . . . . . . . . . . . . 19 ((((πœ‘ ∧ 𝑓 ∈ 𝑋) ∧ π‘˜ ∈ 𝐴) ∧ π‘₯ ∈ βˆͺ (πΉβ€˜π‘˜)) β†’ βˆ€π‘› ∈ 𝐴 (π‘“β€˜π‘›) ∈ βˆͺ (πΉβ€˜π‘›))
7675r19.21bi 3233 . . . . . . . . . . . . . . . . . 18 (((((πœ‘ ∧ 𝑓 ∈ 𝑋) ∧ π‘˜ ∈ 𝐴) ∧ π‘₯ ∈ βˆͺ (πΉβ€˜π‘˜)) ∧ 𝑛 ∈ 𝐴) β†’ (π‘“β€˜π‘›) ∈ βˆͺ (πΉβ€˜π‘›))
77 iffalse 4499 . . . . . . . . . . . . . . . . . . 19 (Β¬ 𝑛 = π‘˜ β†’ if(𝑛 = π‘˜, π‘₯, (π‘“β€˜π‘›)) = (π‘“β€˜π‘›))
7877eleq1d 2819 . . . . . . . . . . . . . . . . . 18 (Β¬ 𝑛 = π‘˜ β†’ (if(𝑛 = π‘˜, π‘₯, (π‘“β€˜π‘›)) ∈ βˆͺ (πΉβ€˜π‘›) ↔ (π‘“β€˜π‘›) ∈ βˆͺ (πΉβ€˜π‘›)))
7976, 78syl5ibrcom 247 . . . . . . . . . . . . . . . . 17 (((((πœ‘ ∧ 𝑓 ∈ 𝑋) ∧ π‘˜ ∈ 𝐴) ∧ π‘₯ ∈ βˆͺ (πΉβ€˜π‘˜)) ∧ 𝑛 ∈ 𝐴) β†’ (Β¬ 𝑛 = π‘˜ β†’ if(𝑛 = π‘˜, π‘₯, (π‘“β€˜π‘›)) ∈ βˆͺ (πΉβ€˜π‘›)))
8070, 79pm2.61d 179 . . . . . . . . . . . . . . . 16 (((((πœ‘ ∧ 𝑓 ∈ 𝑋) ∧ π‘˜ ∈ 𝐴) ∧ π‘₯ ∈ βˆͺ (πΉβ€˜π‘˜)) ∧ 𝑛 ∈ 𝐴) β†’ if(𝑛 = π‘˜, π‘₯, (π‘“β€˜π‘›)) ∈ βˆͺ (πΉβ€˜π‘›))
8180ralrimiva 3140 . . . . . . . . . . . . . . 15 ((((πœ‘ ∧ 𝑓 ∈ 𝑋) ∧ π‘˜ ∈ 𝐴) ∧ π‘₯ ∈ βˆͺ (πΉβ€˜π‘˜)) β†’ βˆ€π‘› ∈ 𝐴 if(𝑛 = π‘˜, π‘₯, (π‘“β€˜π‘›)) ∈ βˆͺ (πΉβ€˜π‘›))
82 ptcmp.3 . . . . . . . . . . . . . . . . 17 (πœ‘ β†’ 𝐴 ∈ 𝑉)
8382ad3antrrr 729 . . . . . . . . . . . . . . . 16 ((((πœ‘ ∧ 𝑓 ∈ 𝑋) ∧ π‘˜ ∈ 𝐴) ∧ π‘₯ ∈ βˆͺ (πΉβ€˜π‘˜)) β†’ 𝐴 ∈ 𝑉)
84 mptelixpg 8879 . . . . . . . . . . . . . . . 16 (𝐴 ∈ 𝑉 β†’ ((𝑛 ∈ 𝐴 ↦ if(𝑛 = π‘˜, π‘₯, (π‘“β€˜π‘›))) ∈ X𝑛 ∈ 𝐴 βˆͺ (πΉβ€˜π‘›) ↔ βˆ€π‘› ∈ 𝐴 if(𝑛 = π‘˜, π‘₯, (π‘“β€˜π‘›)) ∈ βˆͺ (πΉβ€˜π‘›)))
8583, 84syl 17 . . . . . . . . . . . . . . 15 ((((πœ‘ ∧ 𝑓 ∈ 𝑋) ∧ π‘˜ ∈ 𝐴) ∧ π‘₯ ∈ βˆͺ (πΉβ€˜π‘˜)) β†’ ((𝑛 ∈ 𝐴 ↦ if(𝑛 = π‘˜, π‘₯, (π‘“β€˜π‘›))) ∈ X𝑛 ∈ 𝐴 βˆͺ (πΉβ€˜π‘›) ↔ βˆ€π‘› ∈ 𝐴 if(𝑛 = π‘˜, π‘₯, (π‘“β€˜π‘›)) ∈ βˆͺ (πΉβ€˜π‘›)))
8681, 85mpbird 257 . . . . . . . . . . . . . 14 ((((πœ‘ ∧ 𝑓 ∈ 𝑋) ∧ π‘˜ ∈ 𝐴) ∧ π‘₯ ∈ βˆͺ (πΉβ€˜π‘˜)) β†’ (𝑛 ∈ 𝐴 ↦ if(𝑛 = π‘˜, π‘₯, (π‘“β€˜π‘›))) ∈ X𝑛 ∈ 𝐴 βˆͺ (πΉβ€˜π‘›))
8786, 15eleqtrrdi 2845 . . . . . . . . . . . . 13 ((((πœ‘ ∧ 𝑓 ∈ 𝑋) ∧ π‘˜ ∈ 𝐴) ∧ π‘₯ ∈ βˆͺ (πΉβ€˜π‘˜)) β†’ (𝑛 ∈ 𝐴 ↦ if(𝑛 = π‘˜, π‘₯, (π‘“β€˜π‘›))) ∈ 𝑋)
8866, 87sylan2 594 . . . . . . . . . . . 12 ((((πœ‘ ∧ 𝑓 ∈ 𝑋) ∧ π‘˜ ∈ 𝐴) ∧ π‘₯ ∈ (βˆͺ (πΉβ€˜π‘˜) βˆ– {(π‘“β€˜π‘˜)})) β†’ (𝑛 ∈ 𝐴 ↦ if(𝑛 = π‘˜, π‘₯, (π‘“β€˜π‘›))) ∈ 𝑋)
89 unisnv 4892 . . . . . . . . . . . . 13 βˆͺ {π‘˜} = π‘˜
90 simplr 768 . . . . . . . . . . . . . . . . . . . 20 ((((πœ‘ ∧ 𝑓 ∈ 𝑋) ∧ π‘˜ ∈ 𝐴) ∧ π‘₯ ∈ (βˆͺ (πΉβ€˜π‘˜) βˆ– {(π‘“β€˜π‘˜)})) β†’ π‘˜ ∈ 𝐴)
91 eleq1w 2817 . . . . . . . . . . . . . . . . . . . 20 (π‘š = π‘˜ β†’ (π‘š ∈ 𝐴 ↔ π‘˜ ∈ 𝐴))
9290, 91syl5ibrcom 247 . . . . . . . . . . . . . . . . . . 19 ((((πœ‘ ∧ 𝑓 ∈ 𝑋) ∧ π‘˜ ∈ 𝐴) ∧ π‘₯ ∈ (βˆͺ (πΉβ€˜π‘˜) βˆ– {(π‘“β€˜π‘˜)})) β†’ (π‘š = π‘˜ β†’ π‘š ∈ 𝐴))
9392pm4.71rd 564 . . . . . . . . . . . . . . . . . 18 ((((πœ‘ ∧ 𝑓 ∈ 𝑋) ∧ π‘˜ ∈ 𝐴) ∧ π‘₯ ∈ (βˆͺ (πΉβ€˜π‘˜) βˆ– {(π‘“β€˜π‘˜)})) β†’ (π‘š = π‘˜ ↔ (π‘š ∈ 𝐴 ∧ π‘š = π‘˜)))
94 equequ1 2029 . . . . . . . . . . . . . . . . . . . . . . . 24 (𝑛 = π‘š β†’ (𝑛 = π‘˜ ↔ π‘š = π‘˜))
95 fveq2 6846 . . . . . . . . . . . . . . . . . . . . . . . 24 (𝑛 = π‘š β†’ (π‘“β€˜π‘›) = (π‘“β€˜π‘š))
9694, 95ifbieq2d 4516 . . . . . . . . . . . . . . . . . . . . . . 23 (𝑛 = π‘š β†’ if(𝑛 = π‘˜, π‘₯, (π‘“β€˜π‘›)) = if(π‘š = π‘˜, π‘₯, (π‘“β€˜π‘š)))
97 eqid 2733 . . . . . . . . . . . . . . . . . . . . . . 23 (𝑛 ∈ 𝐴 ↦ if(𝑛 = π‘˜, π‘₯, (π‘“β€˜π‘›))) = (𝑛 ∈ 𝐴 ↦ if(𝑛 = π‘˜, π‘₯, (π‘“β€˜π‘›)))
98 vex 3451 . . . . . . . . . . . . . . . . . . . . . . . 24 π‘₯ ∈ V
99 fvex 6859 . . . . . . . . . . . . . . . . . . . . . . . 24 (π‘“β€˜π‘š) ∈ V
10098, 99ifex 4540 . . . . . . . . . . . . . . . . . . . . . . 23 if(π‘š = π‘˜, π‘₯, (π‘“β€˜π‘š)) ∈ V
10196, 97, 100fvmpt 6952 . . . . . . . . . . . . . . . . . . . . . 22 (π‘š ∈ 𝐴 β†’ ((𝑛 ∈ 𝐴 ↦ if(𝑛 = π‘˜, π‘₯, (π‘“β€˜π‘›)))β€˜π‘š) = if(π‘š = π‘˜, π‘₯, (π‘“β€˜π‘š)))
102101neeq1d 3000 . . . . . . . . . . . . . . . . . . . . 21 (π‘š ∈ 𝐴 β†’ (((𝑛 ∈ 𝐴 ↦ if(𝑛 = π‘˜, π‘₯, (π‘“β€˜π‘›)))β€˜π‘š) β‰  (π‘“β€˜π‘š) ↔ if(π‘š = π‘˜, π‘₯, (π‘“β€˜π‘š)) β‰  (π‘“β€˜π‘š)))
103102adantl 483 . . . . . . . . . . . . . . . . . . . 20 (((((πœ‘ ∧ 𝑓 ∈ 𝑋) ∧ π‘˜ ∈ 𝐴) ∧ π‘₯ ∈ (βˆͺ (πΉβ€˜π‘˜) βˆ– {(π‘“β€˜π‘˜)})) ∧ π‘š ∈ 𝐴) β†’ (((𝑛 ∈ 𝐴 ↦ if(𝑛 = π‘˜, π‘₯, (π‘“β€˜π‘›)))β€˜π‘š) β‰  (π‘“β€˜π‘š) ↔ if(π‘š = π‘˜, π‘₯, (π‘“β€˜π‘š)) β‰  (π‘“β€˜π‘š)))
104 iffalse 4499 . . . . . . . . . . . . . . . . . . . . . 22 (Β¬ π‘š = π‘˜ β†’ if(π‘š = π‘˜, π‘₯, (π‘“β€˜π‘š)) = (π‘“β€˜π‘š))
105104necon1ai 2968 . . . . . . . . . . . . . . . . . . . . 21 (if(π‘š = π‘˜, π‘₯, (π‘“β€˜π‘š)) β‰  (π‘“β€˜π‘š) β†’ π‘š = π‘˜)
106 eldifsni 4754 . . . . . . . . . . . . . . . . . . . . . . 23 (π‘₯ ∈ (βˆͺ (πΉβ€˜π‘˜) βˆ– {(π‘“β€˜π‘˜)}) β†’ π‘₯ β‰  (π‘“β€˜π‘˜))
107106ad2antlr 726 . . . . . . . . . . . . . . . . . . . . . 22 (((((πœ‘ ∧ 𝑓 ∈ 𝑋) ∧ π‘˜ ∈ 𝐴) ∧ π‘₯ ∈ (βˆͺ (πΉβ€˜π‘˜) βˆ– {(π‘“β€˜π‘˜)})) ∧ π‘š ∈ 𝐴) β†’ π‘₯ β‰  (π‘“β€˜π‘˜))
108 iftrue 4496 . . . . . . . . . . . . . . . . . . . . . . 23 (π‘š = π‘˜ β†’ if(π‘š = π‘˜, π‘₯, (π‘“β€˜π‘š)) = π‘₯)
109 fveq2 6846 . . . . . . . . . . . . . . . . . . . . . . 23 (π‘š = π‘˜ β†’ (π‘“β€˜π‘š) = (π‘“β€˜π‘˜))
110108, 109neeq12d 3002 . . . . . . . . . . . . . . . . . . . . . 22 (π‘š = π‘˜ β†’ (if(π‘š = π‘˜, π‘₯, (π‘“β€˜π‘š)) β‰  (π‘“β€˜π‘š) ↔ π‘₯ β‰  (π‘“β€˜π‘˜)))
111107, 110syl5ibrcom 247 . . . . . . . . . . . . . . . . . . . . 21 (((((πœ‘ ∧ 𝑓 ∈ 𝑋) ∧ π‘˜ ∈ 𝐴) ∧ π‘₯ ∈ (βˆͺ (πΉβ€˜π‘˜) βˆ– {(π‘“β€˜π‘˜)})) ∧ π‘š ∈ 𝐴) β†’ (π‘š = π‘˜ β†’ if(π‘š = π‘˜, π‘₯, (π‘“β€˜π‘š)) β‰  (π‘“β€˜π‘š)))
112105, 111impbid2 225 . . . . . . . . . . . . . . . . . . . 20 (((((πœ‘ ∧ 𝑓 ∈ 𝑋) ∧ π‘˜ ∈ 𝐴) ∧ π‘₯ ∈ (βˆͺ (πΉβ€˜π‘˜) βˆ– {(π‘“β€˜π‘˜)})) ∧ π‘š ∈ 𝐴) β†’ (if(π‘š = π‘˜, π‘₯, (π‘“β€˜π‘š)) β‰  (π‘“β€˜π‘š) ↔ π‘š = π‘˜))
113103, 112bitrd 279 . . . . . . . . . . . . . . . . . . 19 (((((πœ‘ ∧ 𝑓 ∈ 𝑋) ∧ π‘˜ ∈ 𝐴) ∧ π‘₯ ∈ (βˆͺ (πΉβ€˜π‘˜) βˆ– {(π‘“β€˜π‘˜)})) ∧ π‘š ∈ 𝐴) β†’ (((𝑛 ∈ 𝐴 ↦ if(𝑛 = π‘˜, π‘₯, (π‘“β€˜π‘›)))β€˜π‘š) β‰  (π‘“β€˜π‘š) ↔ π‘š = π‘˜))
114113pm5.32da 580 . . . . . . . . . . . . . . . . . 18 ((((πœ‘ ∧ 𝑓 ∈ 𝑋) ∧ π‘˜ ∈ 𝐴) ∧ π‘₯ ∈ (βˆͺ (πΉβ€˜π‘˜) βˆ– {(π‘“β€˜π‘˜)})) β†’ ((π‘š ∈ 𝐴 ∧ ((𝑛 ∈ 𝐴 ↦ if(𝑛 = π‘˜, π‘₯, (π‘“β€˜π‘›)))β€˜π‘š) β‰  (π‘“β€˜π‘š)) ↔ (π‘š ∈ 𝐴 ∧ π‘š = π‘˜)))
11593, 114bitr4d 282 . . . . . . . . . . . . . . . . 17 ((((πœ‘ ∧ 𝑓 ∈ 𝑋) ∧ π‘˜ ∈ 𝐴) ∧ π‘₯ ∈ (βˆͺ (πΉβ€˜π‘˜) βˆ– {(π‘“β€˜π‘˜)})) β†’ (π‘š = π‘˜ ↔ (π‘š ∈ 𝐴 ∧ ((𝑛 ∈ 𝐴 ↦ if(𝑛 = π‘˜, π‘₯, (π‘“β€˜π‘›)))β€˜π‘š) β‰  (π‘“β€˜π‘š))))
116115abbidv 2802 . . . . . . . . . . . . . . . 16 ((((πœ‘ ∧ 𝑓 ∈ 𝑋) ∧ π‘˜ ∈ 𝐴) ∧ π‘₯ ∈ (βˆͺ (πΉβ€˜π‘˜) βˆ– {(π‘“β€˜π‘˜)})) β†’ {π‘š ∣ π‘š = π‘˜} = {π‘š ∣ (π‘š ∈ 𝐴 ∧ ((𝑛 ∈ 𝐴 ↦ if(𝑛 = π‘˜, π‘₯, (π‘“β€˜π‘›)))β€˜π‘š) β‰  (π‘“β€˜π‘š))})
117 df-sn 4591 . . . . . . . . . . . . . . . 16 {π‘˜} = {π‘š ∣ π‘š = π‘˜}
118 df-rab 3407 . . . . . . . . . . . . . . . 16 {π‘š ∈ 𝐴 ∣ ((𝑛 ∈ 𝐴 ↦ if(𝑛 = π‘˜, π‘₯, (π‘“β€˜π‘›)))β€˜π‘š) β‰  (π‘“β€˜π‘š)} = {π‘š ∣ (π‘š ∈ 𝐴 ∧ ((𝑛 ∈ 𝐴 ↦ if(𝑛 = π‘˜, π‘₯, (π‘“β€˜π‘›)))β€˜π‘š) β‰  (π‘“β€˜π‘š))}
119116, 117, 1183eqtr4g 2798 . . . . . . . . . . . . . . 15 ((((πœ‘ ∧ 𝑓 ∈ 𝑋) ∧ π‘˜ ∈ 𝐴) ∧ π‘₯ ∈ (βˆͺ (πΉβ€˜π‘˜) βˆ– {(π‘“β€˜π‘˜)})) β†’ {π‘˜} = {π‘š ∈ 𝐴 ∣ ((𝑛 ∈ 𝐴 ↦ if(𝑛 = π‘˜, π‘₯, (π‘“β€˜π‘›)))β€˜π‘š) β‰  (π‘“β€˜π‘š)})
120 fvex 6859 . . . . . . . . . . . . . . . . . . 19 (π‘“β€˜π‘›) ∈ V
12198, 120ifex 4540 . . . . . . . . . . . . . . . . . 18 if(𝑛 = π‘˜, π‘₯, (π‘“β€˜π‘›)) ∈ V
122121rgenw 3065 . . . . . . . . . . . . . . . . 17 βˆ€π‘› ∈ 𝐴 if(𝑛 = π‘˜, π‘₯, (π‘“β€˜π‘›)) ∈ V
12397fnmpt 6645 . . . . . . . . . . . . . . . . 17 (βˆ€π‘› ∈ 𝐴 if(𝑛 = π‘˜, π‘₯, (π‘“β€˜π‘›)) ∈ V β†’ (𝑛 ∈ 𝐴 ↦ if(𝑛 = π‘˜, π‘₯, (π‘“β€˜π‘›))) Fn 𝐴)
124122, 123mp1i 13 . . . . . . . . . . . . . . . 16 ((((πœ‘ ∧ 𝑓 ∈ 𝑋) ∧ π‘˜ ∈ 𝐴) ∧ π‘₯ ∈ (βˆͺ (πΉβ€˜π‘˜) βˆ– {(π‘“β€˜π‘˜)})) β†’ (𝑛 ∈ 𝐴 ↦ if(𝑛 = π‘˜, π‘₯, (π‘“β€˜π‘›))) Fn 𝐴)
125 ixpfn 8847 . . . . . . . . . . . . . . . . . 18 (𝑓 ∈ X𝑛 ∈ 𝐴 βˆͺ (πΉβ€˜π‘›) β†’ 𝑓 Fn 𝐴)
12671, 125syl 17 . . . . . . . . . . . . . . . . 17 ((πœ‘ ∧ 𝑓 ∈ 𝑋) β†’ 𝑓 Fn 𝐴)
127126ad2antrr 725 . . . . . . . . . . . . . . . 16 ((((πœ‘ ∧ 𝑓 ∈ 𝑋) ∧ π‘˜ ∈ 𝐴) ∧ π‘₯ ∈ (βˆͺ (πΉβ€˜π‘˜) βˆ– {(π‘“β€˜π‘˜)})) β†’ 𝑓 Fn 𝐴)
128 fndmdif 6996 . . . . . . . . . . . . . . . 16 (((𝑛 ∈ 𝐴 ↦ if(𝑛 = π‘˜, π‘₯, (π‘“β€˜π‘›))) Fn 𝐴 ∧ 𝑓 Fn 𝐴) β†’ dom ((𝑛 ∈ 𝐴 ↦ if(𝑛 = π‘˜, π‘₯, (π‘“β€˜π‘›))) βˆ– 𝑓) = {π‘š ∈ 𝐴 ∣ ((𝑛 ∈ 𝐴 ↦ if(𝑛 = π‘˜, π‘₯, (π‘“β€˜π‘›)))β€˜π‘š) β‰  (π‘“β€˜π‘š)})
129124, 127, 128syl2anc 585 . . . . . . . . . . . . . . 15 ((((πœ‘ ∧ 𝑓 ∈ 𝑋) ∧ π‘˜ ∈ 𝐴) ∧ π‘₯ ∈ (βˆͺ (πΉβ€˜π‘˜) βˆ– {(π‘“β€˜π‘˜)})) β†’ dom ((𝑛 ∈ 𝐴 ↦ if(𝑛 = π‘˜, π‘₯, (π‘“β€˜π‘›))) βˆ– 𝑓) = {π‘š ∈ 𝐴 ∣ ((𝑛 ∈ 𝐴 ↦ if(𝑛 = π‘˜, π‘₯, (π‘“β€˜π‘›)))β€˜π‘š) β‰  (π‘“β€˜π‘š)})
130119, 129eqtr4d 2776 . . . . . . . . . . . . . 14 ((((πœ‘ ∧ 𝑓 ∈ 𝑋) ∧ π‘˜ ∈ 𝐴) ∧ π‘₯ ∈ (βˆͺ (πΉβ€˜π‘˜) βˆ– {(π‘“β€˜π‘˜)})) β†’ {π‘˜} = dom ((𝑛 ∈ 𝐴 ↦ if(𝑛 = π‘˜, π‘₯, (π‘“β€˜π‘›))) βˆ– 𝑓))
131130unieqd 4883 . . . . . . . . . . . . 13 ((((πœ‘ ∧ 𝑓 ∈ 𝑋) ∧ π‘˜ ∈ 𝐴) ∧ π‘₯ ∈ (βˆͺ (πΉβ€˜π‘˜) βˆ– {(π‘“β€˜π‘˜)})) β†’ βˆͺ {π‘˜} = βˆͺ dom ((𝑛 ∈ 𝐴 ↦ if(𝑛 = π‘˜, π‘₯, (π‘“β€˜π‘›))) βˆ– 𝑓))
13289, 131eqtr3id 2787 . . . . . . . . . . . 12 ((((πœ‘ ∧ 𝑓 ∈ 𝑋) ∧ π‘˜ ∈ 𝐴) ∧ π‘₯ ∈ (βˆͺ (πΉβ€˜π‘˜) βˆ– {(π‘“β€˜π‘˜)})) β†’ π‘˜ = βˆͺ dom ((𝑛 ∈ 𝐴 ↦ if(𝑛 = π‘˜, π‘₯, (π‘“β€˜π‘›))) βˆ– 𝑓))
133 difeq1 4079 . . . . . . . . . . . . . . 15 (𝑔 = (𝑛 ∈ 𝐴 ↦ if(𝑛 = π‘˜, π‘₯, (π‘“β€˜π‘›))) β†’ (𝑔 βˆ– 𝑓) = ((𝑛 ∈ 𝐴 ↦ if(𝑛 = π‘˜, π‘₯, (π‘“β€˜π‘›))) βˆ– 𝑓))
134133dmeqd 5865 . . . . . . . . . . . . . 14 (𝑔 = (𝑛 ∈ 𝐴 ↦ if(𝑛 = π‘˜, π‘₯, (π‘“β€˜π‘›))) β†’ dom (𝑔 βˆ– 𝑓) = dom ((𝑛 ∈ 𝐴 ↦ if(𝑛 = π‘˜, π‘₯, (π‘“β€˜π‘›))) βˆ– 𝑓))
135134unieqd 4883 . . . . . . . . . . . . 13 (𝑔 = (𝑛 ∈ 𝐴 ↦ if(𝑛 = π‘˜, π‘₯, (π‘“β€˜π‘›))) β†’ βˆͺ dom (𝑔 βˆ– 𝑓) = βˆͺ dom ((𝑛 ∈ 𝐴 ↦ if(𝑛 = π‘˜, π‘₯, (π‘“β€˜π‘›))) βˆ– 𝑓))
136135rspceeqv 3599 . . . . . . . . . . . 12 (((𝑛 ∈ 𝐴 ↦ if(𝑛 = π‘˜, π‘₯, (π‘“β€˜π‘›))) ∈ 𝑋 ∧ π‘˜ = βˆͺ dom ((𝑛 ∈ 𝐴 ↦ if(𝑛 = π‘˜, π‘₯, (π‘“β€˜π‘›))) βˆ– 𝑓)) β†’ βˆƒπ‘” ∈ 𝑋 π‘˜ = βˆͺ dom (𝑔 βˆ– 𝑓))
13788, 132, 136syl2anc 585 . . . . . . . . . . 11 ((((πœ‘ ∧ 𝑓 ∈ 𝑋) ∧ π‘˜ ∈ 𝐴) ∧ π‘₯ ∈ (βˆͺ (πΉβ€˜π‘˜) βˆ– {(π‘“β€˜π‘˜)})) β†’ βˆƒπ‘” ∈ 𝑋 π‘˜ = βˆͺ dom (𝑔 βˆ– 𝑓))
138137ex 414 . . . . . . . . . 10 (((πœ‘ ∧ 𝑓 ∈ 𝑋) ∧ π‘˜ ∈ 𝐴) β†’ (π‘₯ ∈ (βˆͺ (πΉβ€˜π‘˜) βˆ– {(π‘“β€˜π‘˜)}) β†’ βˆƒπ‘” ∈ 𝑋 π‘˜ = βˆͺ dom (𝑔 βˆ– 𝑓)))
139138exlimdv 1937 . . . . . . . . 9 (((πœ‘ ∧ 𝑓 ∈ 𝑋) ∧ π‘˜ ∈ 𝐴) β†’ (βˆƒπ‘₯ π‘₯ ∈ (βˆͺ (πΉβ€˜π‘˜) βˆ– {(π‘“β€˜π‘˜)}) β†’ βˆƒπ‘” ∈ 𝑋 π‘˜ = βˆͺ dom (𝑔 βˆ– 𝑓)))
14065, 139syld 47 . . . . . . . 8 (((πœ‘ ∧ 𝑓 ∈ 𝑋) ∧ π‘˜ ∈ 𝐴) β†’ (Β¬ βˆͺ (πΉβ€˜π‘˜) β‰ˆ 1o β†’ βˆƒπ‘” ∈ 𝑋 π‘˜ = βˆͺ dom (𝑔 βˆ– 𝑓)))
141140expimpd 455 . . . . . . 7 ((πœ‘ ∧ 𝑓 ∈ 𝑋) β†’ ((π‘˜ ∈ 𝐴 ∧ Β¬ βˆͺ (πΉβ€˜π‘˜) β‰ˆ 1o) β†’ βˆƒπ‘” ∈ 𝑋 π‘˜ = βˆͺ dom (𝑔 βˆ– 𝑓)))
14217breq1d 5119 . . . . . . . . 9 (𝑛 = π‘˜ β†’ (βˆͺ (πΉβ€˜π‘›) β‰ˆ 1o ↔ βˆͺ (πΉβ€˜π‘˜) β‰ˆ 1o))
143142notbid 318 . . . . . . . 8 (𝑛 = π‘˜ β†’ (Β¬ βˆͺ (πΉβ€˜π‘›) β‰ˆ 1o ↔ Β¬ βˆͺ (πΉβ€˜π‘˜) β‰ˆ 1o))
144143elrab 3649 . . . . . . 7 (π‘˜ ∈ {𝑛 ∈ 𝐴 ∣ Β¬ βˆͺ (πΉβ€˜π‘›) β‰ˆ 1o} ↔ (π‘˜ ∈ 𝐴 ∧ Β¬ βˆͺ (πΉβ€˜π‘˜) β‰ˆ 1o))
14539elrnmpt 5915 . . . . . . . 8 (π‘˜ ∈ V β†’ (π‘˜ ∈ ran (𝑔 ∈ 𝑋 ↦ βˆͺ dom (𝑔 βˆ– 𝑓)) ↔ βˆƒπ‘” ∈ 𝑋 π‘˜ = βˆͺ dom (𝑔 βˆ– 𝑓)))
146145elv 3453 . . . . . . 7 (π‘˜ ∈ ran (𝑔 ∈ 𝑋 ↦ βˆͺ dom (𝑔 βˆ– 𝑓)) ↔ βˆƒπ‘” ∈ 𝑋 π‘˜ = βˆͺ dom (𝑔 βˆ– 𝑓))
147141, 144, 1463imtr4g 296 . . . . . 6 ((πœ‘ ∧ 𝑓 ∈ 𝑋) β†’ (π‘˜ ∈ {𝑛 ∈ 𝐴 ∣ Β¬ βˆͺ (πΉβ€˜π‘›) β‰ˆ 1o} β†’ π‘˜ ∈ ran (𝑔 ∈ 𝑋 ↦ βˆͺ dom (𝑔 βˆ– 𝑓))))
148147ssrdv 3954 . . . . 5 ((πœ‘ ∧ 𝑓 ∈ 𝑋) β†’ {𝑛 ∈ 𝐴 ∣ Β¬ βˆͺ (πΉβ€˜π‘›) β‰ˆ 1o} βŠ† ran (𝑔 ∈ 𝑋 ↦ βˆͺ dom (𝑔 βˆ– 𝑓)))
149 ssnum 9983 . . . . 5 ((ran (𝑔 ∈ 𝑋 ↦ βˆͺ dom (𝑔 βˆ– 𝑓)) ∈ dom card ∧ {𝑛 ∈ 𝐴 ∣ Β¬ βˆͺ (πΉβ€˜π‘›) β‰ˆ 1o} βŠ† ran (𝑔 ∈ 𝑋 ↦ βˆͺ dom (𝑔 βˆ– 𝑓))) β†’ {𝑛 ∈ 𝐴 ∣ Β¬ βˆͺ (πΉβ€˜π‘›) β‰ˆ 1o} ∈ dom card)
15045, 148, 149syl2anc 585 . . . 4 ((πœ‘ ∧ 𝑓 ∈ 𝑋) β†’ {𝑛 ∈ 𝐴 ∣ Β¬ βˆͺ (πΉβ€˜π‘›) β‰ˆ 1o} ∈ dom card)
151 xpnum 9895 . . . 4 ((Xπ‘˜ ∈ {𝑛 ∈ 𝐴 ∣ Β¬ βˆͺ (πΉβ€˜π‘›) β‰ˆ 1o}βˆͺ (πΉβ€˜π‘˜) ∈ dom card ∧ {𝑛 ∈ 𝐴 ∣ Β¬ βˆͺ (πΉβ€˜π‘›) β‰ˆ 1o} ∈ dom card) β†’ (Xπ‘˜ ∈ {𝑛 ∈ 𝐴 ∣ Β¬ βˆͺ (πΉβ€˜π‘›) β‰ˆ 1o}βˆͺ (πΉβ€˜π‘˜) Γ— {𝑛 ∈ 𝐴 ∣ Β¬ βˆͺ (πΉβ€˜π‘›) β‰ˆ 1o}) ∈ dom card)
15231, 150, 151syl2anc 585 . . 3 ((πœ‘ ∧ 𝑓 ∈ 𝑋) β†’ (Xπ‘˜ ∈ {𝑛 ∈ 𝐴 ∣ Β¬ βˆͺ (πΉβ€˜π‘›) β‰ˆ 1o}βˆͺ (πΉβ€˜π‘˜) Γ— {𝑛 ∈ 𝐴 ∣ Β¬ βˆͺ (πΉβ€˜π‘›) β‰ˆ 1o}) ∈ dom card)
15382adantr 482 . . . . 5 ((πœ‘ ∧ 𝑓 ∈ 𝑋) β†’ 𝐴 ∈ 𝑉)
154 rabexg 5292 . . . . 5 (𝐴 ∈ 𝑉 β†’ {𝑛 ∈ 𝐴 ∣ Β¬ βˆͺ (πΉβ€˜π‘›) β‰ˆ 1o} ∈ V)
155153, 154syl 17 . . . 4 ((πœ‘ ∧ 𝑓 ∈ 𝑋) β†’ {𝑛 ∈ 𝐴 ∣ Β¬ βˆͺ (πΉβ€˜π‘›) β‰ˆ 1o} ∈ V)
156 fvex 6859 . . . . . . 7 (πΉβ€˜π‘˜) ∈ V
157156uniex 7682 . . . . . 6 βˆͺ (πΉβ€˜π‘˜) ∈ V
158157rgenw 3065 . . . . 5 βˆ€π‘˜ ∈ {𝑛 ∈ 𝐴 ∣ Β¬ βˆͺ (πΉβ€˜π‘›) β‰ˆ 1o}βˆͺ (πΉβ€˜π‘˜) ∈ V
159 iunexg 7900 . . . . 5 (({𝑛 ∈ 𝐴 ∣ Β¬ βˆͺ (πΉβ€˜π‘›) β‰ˆ 1o} ∈ V ∧ βˆ€π‘˜ ∈ {𝑛 ∈ 𝐴 ∣ Β¬ βˆͺ (πΉβ€˜π‘›) β‰ˆ 1o}βˆͺ (πΉβ€˜π‘˜) ∈ V) β†’ βˆͺ π‘˜ ∈ {𝑛 ∈ 𝐴 ∣ Β¬ βˆͺ (πΉβ€˜π‘›) β‰ˆ 1o}βˆͺ (πΉβ€˜π‘˜) ∈ V)
160155, 158, 159sylancl 587 . . . 4 ((πœ‘ ∧ 𝑓 ∈ 𝑋) β†’ βˆͺ π‘˜ ∈ {𝑛 ∈ 𝐴 ∣ Β¬ βˆͺ (πΉβ€˜π‘›) β‰ˆ 1o}βˆͺ (πΉβ€˜π‘˜) ∈ V)
161 resixp 8877 . . . . . 6 (({𝑛 ∈ 𝐴 ∣ Β¬ βˆͺ (πΉβ€˜π‘›) β‰ˆ 1o} βŠ† 𝐴 ∧ 𝑓 ∈ Xπ‘˜ ∈ 𝐴 βˆͺ (πΉβ€˜π‘˜)) β†’ (𝑓 β†Ύ {𝑛 ∈ 𝐴 ∣ Β¬ βˆͺ (πΉβ€˜π‘›) β‰ˆ 1o}) ∈ Xπ‘˜ ∈ {𝑛 ∈ 𝐴 ∣ Β¬ βˆͺ (πΉβ€˜π‘›) β‰ˆ 1o}βˆͺ (πΉβ€˜π‘˜))
16224, 49, 161sylancr 588 . . . . 5 ((πœ‘ ∧ 𝑓 ∈ 𝑋) β†’ (𝑓 β†Ύ {𝑛 ∈ 𝐴 ∣ Β¬ βˆͺ (πΉβ€˜π‘›) β‰ˆ 1o}) ∈ Xπ‘˜ ∈ {𝑛 ∈ 𝐴 ∣ Β¬ βˆͺ (πΉβ€˜π‘›) β‰ˆ 1o}βˆͺ (πΉβ€˜π‘˜))
163162ne0d 4299 . . . 4 ((πœ‘ ∧ 𝑓 ∈ 𝑋) β†’ Xπ‘˜ ∈ {𝑛 ∈ 𝐴 ∣ Β¬ βˆͺ (πΉβ€˜π‘›) β‰ˆ 1o}βˆͺ (πΉβ€˜π‘˜) β‰  βˆ…)
164 ixpiunwdom 9534 . . . 4 (({𝑛 ∈ 𝐴 ∣ Β¬ βˆͺ (πΉβ€˜π‘›) β‰ˆ 1o} ∈ V ∧ βˆͺ π‘˜ ∈ {𝑛 ∈ 𝐴 ∣ Β¬ βˆͺ (πΉβ€˜π‘›) β‰ˆ 1o}βˆͺ (πΉβ€˜π‘˜) ∈ V ∧ Xπ‘˜ ∈ {𝑛 ∈ 𝐴 ∣ Β¬ βˆͺ (πΉβ€˜π‘›) β‰ˆ 1o}βˆͺ (πΉβ€˜π‘˜) β‰  βˆ…) β†’ βˆͺ π‘˜ ∈ {𝑛 ∈ 𝐴 ∣ Β¬ βˆͺ (πΉβ€˜π‘›) β‰ˆ 1o}βˆͺ (πΉβ€˜π‘˜) β‰Ό* (Xπ‘˜ ∈ {𝑛 ∈ 𝐴 ∣ Β¬ βˆͺ (πΉβ€˜π‘›) β‰ˆ 1o}βˆͺ (πΉβ€˜π‘˜) Γ— {𝑛 ∈ 𝐴 ∣ Β¬ βˆͺ (πΉβ€˜π‘›) β‰ˆ 1o}))
165155, 160, 163, 164syl3anc 1372 . . 3 ((πœ‘ ∧ 𝑓 ∈ 𝑋) β†’ βˆͺ π‘˜ ∈ {𝑛 ∈ 𝐴 ∣ Β¬ βˆͺ (πΉβ€˜π‘›) β‰ˆ 1o}βˆͺ (πΉβ€˜π‘˜) β‰Ό* (Xπ‘˜ ∈ {𝑛 ∈ 𝐴 ∣ Β¬ βˆͺ (πΉβ€˜π‘›) β‰ˆ 1o}βˆͺ (πΉβ€˜π‘˜) Γ— {𝑛 ∈ 𝐴 ∣ Β¬ βˆͺ (πΉβ€˜π‘›) β‰ˆ 1o}))
166 numwdom 10003 . . 3 (((Xπ‘˜ ∈ {𝑛 ∈ 𝐴 ∣ Β¬ βˆͺ (πΉβ€˜π‘›) β‰ˆ 1o}βˆͺ (πΉβ€˜π‘˜) Γ— {𝑛 ∈ 𝐴 ∣ Β¬ βˆͺ (πΉβ€˜π‘›) β‰ˆ 1o}) ∈ dom card ∧ βˆͺ π‘˜ ∈ {𝑛 ∈ 𝐴 ∣ Β¬ βˆͺ (πΉβ€˜π‘›) β‰ˆ 1o}βˆͺ (πΉβ€˜π‘˜) β‰Ό* (Xπ‘˜ ∈ {𝑛 ∈ 𝐴 ∣ Β¬ βˆͺ (πΉβ€˜π‘›) β‰ˆ 1o}βˆͺ (πΉβ€˜π‘˜) Γ— {𝑛 ∈ 𝐴 ∣ Β¬ βˆͺ (πΉβ€˜π‘›) β‰ˆ 1o})) β†’ βˆͺ π‘˜ ∈ {𝑛 ∈ 𝐴 ∣ Β¬ βˆͺ (πΉβ€˜π‘›) β‰ˆ 1o}βˆͺ (πΉβ€˜π‘˜) ∈ dom card)
167152, 165, 166syl2anc 585 . 2 ((πœ‘ ∧ 𝑓 ∈ 𝑋) β†’ βˆͺ π‘˜ ∈ {𝑛 ∈ 𝐴 ∣ Β¬ βˆͺ (πΉβ€˜π‘›) β‰ˆ 1o}βˆͺ (πΉβ€˜π‘˜) ∈ dom card)
16814, 167exlimddv 1939 1 (πœ‘ β†’ βˆͺ π‘˜ ∈ {𝑛 ∈ 𝐴 ∣ Β¬ βˆͺ (πΉβ€˜π‘›) β‰ˆ 1o}βˆͺ (πΉβ€˜π‘˜) ∈ dom card)
Colors of variables: wff setvar class
Syntax hints:  Β¬ wn 3   β†’ wi 4   ↔ wb 205   ∧ wa 397   = wceq 1542  βˆƒwex 1782   ∈ wcel 2107  {cab 2710   β‰  wne 2940  βˆ€wral 3061  βˆƒwrex 3070  {crab 3406  Vcvv 3447   βˆ– cdif 3911   ∩ cin 3913   βŠ† wss 3914  βˆ…c0 4286  ifcif 4490  π’« cpw 4564  {csn 4590  βˆͺ cuni 4869  βˆͺ ciun 4958   class class class wbr 5109   ↦ cmpt 5192   Γ— cxp 5635  β—‘ccnv 5636  dom cdm 5637  ran crn 5638   β†Ύ cres 5639   β€œ cima 5640   Fn wfn 6495  βŸΆwf 6496  β€“ontoβ†’wfo 6498  β€˜cfv 6500   ∈ cmpo 7363  1oc1o 8409  Xcixp 8841   β‰ˆ cen 8886  Fincfn 8889   β‰Ό* cwdom 9508  cardccrd 9879  Compccmp 22760  UFLcufl 23274
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1798  ax-4 1812  ax-5 1914  ax-6 1972  ax-7 2012  ax-8 2109  ax-9 2117  ax-10 2138  ax-11 2155  ax-12 2172  ax-ext 2704  ax-rep 5246  ax-sep 5260  ax-nul 5267  ax-pow 5324  ax-pr 5388  ax-un 7676
This theorem depends on definitions:  df-bi 206  df-an 398  df-or 847  df-3or 1089  df-3an 1090  df-tru 1545  df-fal 1555  df-ex 1783  df-nf 1787  df-sb 2069  df-mo 2535  df-eu 2564  df-clab 2711  df-cleq 2725  df-clel 2811  df-nfc 2886  df-ne 2941  df-ral 3062  df-rex 3071  df-rmo 3352  df-reu 3353  df-rab 3407  df-v 3449  df-sbc 3744  df-csb 3860  df-dif 3917  df-un 3919  df-in 3921  df-ss 3931  df-pss 3933  df-nul 4287  df-if 4491  df-pw 4566  df-sn 4591  df-pr 4593  df-op 4597  df-uni 4870  df-int 4912  df-iun 4960  df-br 5110  df-opab 5172  df-mpt 5193  df-tr 5227  df-id 5535  df-eprel 5541  df-po 5549  df-so 5550  df-fr 5592  df-se 5593  df-we 5594  df-xp 5643  df-rel 5644  df-cnv 5645  df-co 5646  df-dm 5647  df-rn 5648  df-res 5649  df-ima 5650  df-pred 6257  df-ord 6324  df-on 6325  df-lim 6326  df-suc 6327  df-iota 6452  df-fun 6502  df-fn 6503  df-f 6504  df-f1 6505  df-fo 6506  df-f1o 6507  df-fv 6508  df-isom 6509  df-riota 7317  df-ov 7364  df-oprab 7365  df-mpo 7366  df-om 7807  df-1st 7925  df-2nd 7926  df-frecs 8216  df-wrecs 8247  df-recs 8321  df-rdg 8360  df-1o 8416  df-oadd 8420  df-omul 8421  df-er 8654  df-map 8773  df-ixp 8842  df-en 8890  df-dom 8891  df-fin 8893  df-wdom 9509  df-card 9883  df-acn 9886
This theorem is referenced by:  ptcmplem3  23428
  Copyright terms: Public domain W3C validator