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

Theorem fin1a2lem12 10354
Description: Lemma for fin1a2 10358. (Contributed by Stefan O'Rear, 8-Nov-2014.) (Revised by Mario Carneiro, 17-May-2015.)
Assertion
Ref Expression
fin1a2lem12 (((𝐴 βŠ† 𝒫 𝐡 ∧ [⊊] Or 𝐴 ∧ Β¬ βˆͺ 𝐴 ∈ 𝐴) ∧ (𝐴 βŠ† Fin ∧ 𝐴 β‰  βˆ…)) β†’ Β¬ 𝐡 ∈ FinIII)

Proof of Theorem fin1a2lem12
Dummy variables 𝑑 𝑒 𝑓 are mutually distinct and distinct from all other variables.
StepHypRef Expression
1 simpr 486 . . 3 ((((𝐴 βŠ† 𝒫 𝐡 ∧ [⊊] Or 𝐴 ∧ Β¬ βˆͺ 𝐴 ∈ 𝐴) ∧ (𝐴 βŠ† Fin ∧ 𝐴 β‰  βˆ…)) ∧ 𝐡 ∈ FinIII) β†’ 𝐡 ∈ FinIII)
2 simpll1 1213 . . . . . . 7 ((((𝐴 βŠ† 𝒫 𝐡 ∧ [⊊] Or 𝐴 ∧ Β¬ βˆͺ 𝐴 ∈ 𝐴) ∧ (𝐴 βŠ† Fin ∧ 𝐴 β‰  βˆ…)) ∧ 𝐡 ∈ FinIII) β†’ 𝐴 βŠ† 𝒫 𝐡)
32adantr 482 . . . . . 6 (((((𝐴 βŠ† 𝒫 𝐡 ∧ [⊊] Or 𝐴 ∧ Β¬ βˆͺ 𝐴 ∈ 𝐴) ∧ (𝐴 βŠ† Fin ∧ 𝐴 β‰  βˆ…)) ∧ 𝐡 ∈ FinIII) ∧ 𝑒 ∈ Ο‰) β†’ 𝐴 βŠ† 𝒫 𝐡)
4 ssrab2 4042 . . . . . . . 8 {𝑓 ∈ 𝐴 ∣ 𝑓 β‰Ό 𝑒} βŠ† 𝐴
54unissi 4879 . . . . . . 7 βˆͺ {𝑓 ∈ 𝐴 ∣ 𝑓 β‰Ό 𝑒} βŠ† βˆͺ 𝐴
6 sspwuni 5065 . . . . . . . 8 (𝐴 βŠ† 𝒫 𝐡 ↔ βˆͺ 𝐴 βŠ† 𝐡)
76biimpi 215 . . . . . . 7 (𝐴 βŠ† 𝒫 𝐡 β†’ βˆͺ 𝐴 βŠ† 𝐡)
85, 7sstrid 3960 . . . . . 6 (𝐴 βŠ† 𝒫 𝐡 β†’ βˆͺ {𝑓 ∈ 𝐴 ∣ 𝑓 β‰Ό 𝑒} βŠ† 𝐡)
93, 8syl 17 . . . . 5 (((((𝐴 βŠ† 𝒫 𝐡 ∧ [⊊] Or 𝐴 ∧ Β¬ βˆͺ 𝐴 ∈ 𝐴) ∧ (𝐴 βŠ† Fin ∧ 𝐴 β‰  βˆ…)) ∧ 𝐡 ∈ FinIII) ∧ 𝑒 ∈ Ο‰) β†’ βˆͺ {𝑓 ∈ 𝐴 ∣ 𝑓 β‰Ό 𝑒} βŠ† 𝐡)
10 elpw2g 5306 . . . . . 6 (𝐡 ∈ FinIII β†’ (βˆͺ {𝑓 ∈ 𝐴 ∣ 𝑓 β‰Ό 𝑒} ∈ 𝒫 𝐡 ↔ βˆͺ {𝑓 ∈ 𝐴 ∣ 𝑓 β‰Ό 𝑒} βŠ† 𝐡))
1110ad2antlr 726 . . . . 5 (((((𝐴 βŠ† 𝒫 𝐡 ∧ [⊊] Or 𝐴 ∧ Β¬ βˆͺ 𝐴 ∈ 𝐴) ∧ (𝐴 βŠ† Fin ∧ 𝐴 β‰  βˆ…)) ∧ 𝐡 ∈ FinIII) ∧ 𝑒 ∈ Ο‰) β†’ (βˆͺ {𝑓 ∈ 𝐴 ∣ 𝑓 β‰Ό 𝑒} ∈ 𝒫 𝐡 ↔ βˆͺ {𝑓 ∈ 𝐴 ∣ 𝑓 β‰Ό 𝑒} βŠ† 𝐡))
129, 11mpbird 257 . . . 4 (((((𝐴 βŠ† 𝒫 𝐡 ∧ [⊊] Or 𝐴 ∧ Β¬ βˆͺ 𝐴 ∈ 𝐴) ∧ (𝐴 βŠ† Fin ∧ 𝐴 β‰  βˆ…)) ∧ 𝐡 ∈ FinIII) ∧ 𝑒 ∈ Ο‰) β†’ βˆͺ {𝑓 ∈ 𝐴 ∣ 𝑓 β‰Ό 𝑒} ∈ 𝒫 𝐡)
1312fmpttd 7068 . . 3 ((((𝐴 βŠ† 𝒫 𝐡 ∧ [⊊] Or 𝐴 ∧ Β¬ βˆͺ 𝐴 ∈ 𝐴) ∧ (𝐴 βŠ† Fin ∧ 𝐴 β‰  βˆ…)) ∧ 𝐡 ∈ FinIII) β†’ (𝑒 ∈ Ο‰ ↦ βˆͺ {𝑓 ∈ 𝐴 ∣ 𝑓 β‰Ό 𝑒}):Ο‰βŸΆπ’« 𝐡)
14 vex 3452 . . . . . . . . . . 11 𝑑 ∈ V
1514sucex 7746 . . . . . . . . . 10 suc 𝑑 ∈ V
16 sssucid 6402 . . . . . . . . . 10 𝑑 βŠ† suc 𝑑
17 ssdomg 8947 . . . . . . . . . 10 (suc 𝑑 ∈ V β†’ (𝑑 βŠ† suc 𝑑 β†’ 𝑑 β‰Ό suc 𝑑))
1815, 16, 17mp2 9 . . . . . . . . 9 𝑑 β‰Ό suc 𝑑
19 domtr 8954 . . . . . . . . 9 ((𝑓 β‰Ό 𝑑 ∧ 𝑑 β‰Ό suc 𝑑) β†’ 𝑓 β‰Ό suc 𝑑)
2018, 19mpan2 690 . . . . . . . 8 (𝑓 β‰Ό 𝑑 β†’ 𝑓 β‰Ό suc 𝑑)
2120a1i 11 . . . . . . 7 (𝑓 ∈ 𝐴 β†’ (𝑓 β‰Ό 𝑑 β†’ 𝑓 β‰Ό suc 𝑑))
2221ss2rabi 4039 . . . . . 6 {𝑓 ∈ 𝐴 ∣ 𝑓 β‰Ό 𝑑} βŠ† {𝑓 ∈ 𝐴 ∣ 𝑓 β‰Ό suc 𝑑}
23 uniss 4878 . . . . . 6 ({𝑓 ∈ 𝐴 ∣ 𝑓 β‰Ό 𝑑} βŠ† {𝑓 ∈ 𝐴 ∣ 𝑓 β‰Ό suc 𝑑} β†’ βˆͺ {𝑓 ∈ 𝐴 ∣ 𝑓 β‰Ό 𝑑} βŠ† βˆͺ {𝑓 ∈ 𝐴 ∣ 𝑓 β‰Ό suc 𝑑})
2422, 23mp1i 13 . . . . 5 (((((𝐴 βŠ† 𝒫 𝐡 ∧ [⊊] Or 𝐴 ∧ Β¬ βˆͺ 𝐴 ∈ 𝐴) ∧ (𝐴 βŠ† Fin ∧ 𝐴 β‰  βˆ…)) ∧ 𝐡 ∈ FinIII) ∧ 𝑑 ∈ Ο‰) β†’ βˆͺ {𝑓 ∈ 𝐴 ∣ 𝑓 β‰Ό 𝑑} βŠ† βˆͺ {𝑓 ∈ 𝐴 ∣ 𝑓 β‰Ό suc 𝑑})
25 id 22 . . . . . 6 (𝑑 ∈ Ο‰ β†’ 𝑑 ∈ Ο‰)
26 pwexg 5338 . . . . . . . . 9 (𝐡 ∈ FinIII β†’ 𝒫 𝐡 ∈ V)
2726adantl 483 . . . . . . . 8 ((((𝐴 βŠ† 𝒫 𝐡 ∧ [⊊] Or 𝐴 ∧ Β¬ βˆͺ 𝐴 ∈ 𝐴) ∧ (𝐴 βŠ† Fin ∧ 𝐴 β‰  βˆ…)) ∧ 𝐡 ∈ FinIII) β†’ 𝒫 𝐡 ∈ V)
2827, 2ssexd 5286 . . . . . . 7 ((((𝐴 βŠ† 𝒫 𝐡 ∧ [⊊] Or 𝐴 ∧ Β¬ βˆͺ 𝐴 ∈ 𝐴) ∧ (𝐴 βŠ† Fin ∧ 𝐴 β‰  βˆ…)) ∧ 𝐡 ∈ FinIII) β†’ 𝐴 ∈ V)
29 rabexg 5293 . . . . . . 7 (𝐴 ∈ V β†’ {𝑓 ∈ 𝐴 ∣ 𝑓 β‰Ό 𝑑} ∈ V)
30 uniexg 7682 . . . . . . 7 ({𝑓 ∈ 𝐴 ∣ 𝑓 β‰Ό 𝑑} ∈ V β†’ βˆͺ {𝑓 ∈ 𝐴 ∣ 𝑓 β‰Ό 𝑑} ∈ V)
3128, 29, 303syl 18 . . . . . 6 ((((𝐴 βŠ† 𝒫 𝐡 ∧ [⊊] Or 𝐴 ∧ Β¬ βˆͺ 𝐴 ∈ 𝐴) ∧ (𝐴 βŠ† Fin ∧ 𝐴 β‰  βˆ…)) ∧ 𝐡 ∈ FinIII) β†’ βˆͺ {𝑓 ∈ 𝐴 ∣ 𝑓 β‰Ό 𝑑} ∈ V)
32 breq2 5114 . . . . . . . . 9 (𝑒 = 𝑑 β†’ (𝑓 β‰Ό 𝑒 ↔ 𝑓 β‰Ό 𝑑))
3332rabbidv 3418 . . . . . . . 8 (𝑒 = 𝑑 β†’ {𝑓 ∈ 𝐴 ∣ 𝑓 β‰Ό 𝑒} = {𝑓 ∈ 𝐴 ∣ 𝑓 β‰Ό 𝑑})
3433unieqd 4884 . . . . . . 7 (𝑒 = 𝑑 β†’ βˆͺ {𝑓 ∈ 𝐴 ∣ 𝑓 β‰Ό 𝑒} = βˆͺ {𝑓 ∈ 𝐴 ∣ 𝑓 β‰Ό 𝑑})
35 eqid 2737 . . . . . . 7 (𝑒 ∈ Ο‰ ↦ βˆͺ {𝑓 ∈ 𝐴 ∣ 𝑓 β‰Ό 𝑒}) = (𝑒 ∈ Ο‰ ↦ βˆͺ {𝑓 ∈ 𝐴 ∣ 𝑓 β‰Ό 𝑒})
3634, 35fvmptg 6951 . . . . . 6 ((𝑑 ∈ Ο‰ ∧ βˆͺ {𝑓 ∈ 𝐴 ∣ 𝑓 β‰Ό 𝑑} ∈ V) β†’ ((𝑒 ∈ Ο‰ ↦ βˆͺ {𝑓 ∈ 𝐴 ∣ 𝑓 β‰Ό 𝑒})β€˜π‘‘) = βˆͺ {𝑓 ∈ 𝐴 ∣ 𝑓 β‰Ό 𝑑})
3725, 31, 36syl2anr 598 . . . . 5 (((((𝐴 βŠ† 𝒫 𝐡 ∧ [⊊] Or 𝐴 ∧ Β¬ βˆͺ 𝐴 ∈ 𝐴) ∧ (𝐴 βŠ† Fin ∧ 𝐴 β‰  βˆ…)) ∧ 𝐡 ∈ FinIII) ∧ 𝑑 ∈ Ο‰) β†’ ((𝑒 ∈ Ο‰ ↦ βˆͺ {𝑓 ∈ 𝐴 ∣ 𝑓 β‰Ό 𝑒})β€˜π‘‘) = βˆͺ {𝑓 ∈ 𝐴 ∣ 𝑓 β‰Ό 𝑑})
38 peano2 7832 . . . . . 6 (𝑑 ∈ Ο‰ β†’ suc 𝑑 ∈ Ο‰)
39 rabexg 5293 . . . . . . 7 (𝐴 ∈ V β†’ {𝑓 ∈ 𝐴 ∣ 𝑓 β‰Ό suc 𝑑} ∈ V)
40 uniexg 7682 . . . . . . 7 ({𝑓 ∈ 𝐴 ∣ 𝑓 β‰Ό suc 𝑑} ∈ V β†’ βˆͺ {𝑓 ∈ 𝐴 ∣ 𝑓 β‰Ό suc 𝑑} ∈ V)
4128, 39, 403syl 18 . . . . . 6 ((((𝐴 βŠ† 𝒫 𝐡 ∧ [⊊] Or 𝐴 ∧ Β¬ βˆͺ 𝐴 ∈ 𝐴) ∧ (𝐴 βŠ† Fin ∧ 𝐴 β‰  βˆ…)) ∧ 𝐡 ∈ FinIII) β†’ βˆͺ {𝑓 ∈ 𝐴 ∣ 𝑓 β‰Ό suc 𝑑} ∈ V)
42 breq2 5114 . . . . . . . . 9 (𝑒 = suc 𝑑 β†’ (𝑓 β‰Ό 𝑒 ↔ 𝑓 β‰Ό suc 𝑑))
4342rabbidv 3418 . . . . . . . 8 (𝑒 = suc 𝑑 β†’ {𝑓 ∈ 𝐴 ∣ 𝑓 β‰Ό 𝑒} = {𝑓 ∈ 𝐴 ∣ 𝑓 β‰Ό suc 𝑑})
4443unieqd 4884 . . . . . . 7 (𝑒 = suc 𝑑 β†’ βˆͺ {𝑓 ∈ 𝐴 ∣ 𝑓 β‰Ό 𝑒} = βˆͺ {𝑓 ∈ 𝐴 ∣ 𝑓 β‰Ό suc 𝑑})
4544, 35fvmptg 6951 . . . . . 6 ((suc 𝑑 ∈ Ο‰ ∧ βˆͺ {𝑓 ∈ 𝐴 ∣ 𝑓 β‰Ό suc 𝑑} ∈ V) β†’ ((𝑒 ∈ Ο‰ ↦ βˆͺ {𝑓 ∈ 𝐴 ∣ 𝑓 β‰Ό 𝑒})β€˜suc 𝑑) = βˆͺ {𝑓 ∈ 𝐴 ∣ 𝑓 β‰Ό suc 𝑑})
4638, 41, 45syl2anr 598 . . . . 5 (((((𝐴 βŠ† 𝒫 𝐡 ∧ [⊊] Or 𝐴 ∧ Β¬ βˆͺ 𝐴 ∈ 𝐴) ∧ (𝐴 βŠ† Fin ∧ 𝐴 β‰  βˆ…)) ∧ 𝐡 ∈ FinIII) ∧ 𝑑 ∈ Ο‰) β†’ ((𝑒 ∈ Ο‰ ↦ βˆͺ {𝑓 ∈ 𝐴 ∣ 𝑓 β‰Ό 𝑒})β€˜suc 𝑑) = βˆͺ {𝑓 ∈ 𝐴 ∣ 𝑓 β‰Ό suc 𝑑})
4724, 37, 463sstr4d 3996 . . . 4 (((((𝐴 βŠ† 𝒫 𝐡 ∧ [⊊] Or 𝐴 ∧ Β¬ βˆͺ 𝐴 ∈ 𝐴) ∧ (𝐴 βŠ† Fin ∧ 𝐴 β‰  βˆ…)) ∧ 𝐡 ∈ FinIII) ∧ 𝑑 ∈ Ο‰) β†’ ((𝑒 ∈ Ο‰ ↦ βˆͺ {𝑓 ∈ 𝐴 ∣ 𝑓 β‰Ό 𝑒})β€˜π‘‘) βŠ† ((𝑒 ∈ Ο‰ ↦ βˆͺ {𝑓 ∈ 𝐴 ∣ 𝑓 β‰Ό 𝑒})β€˜suc 𝑑))
4847ralrimiva 3144 . . 3 ((((𝐴 βŠ† 𝒫 𝐡 ∧ [⊊] Or 𝐴 ∧ Β¬ βˆͺ 𝐴 ∈ 𝐴) ∧ (𝐴 βŠ† Fin ∧ 𝐴 β‰  βˆ…)) ∧ 𝐡 ∈ FinIII) β†’ βˆ€π‘‘ ∈ Ο‰ ((𝑒 ∈ Ο‰ ↦ βˆͺ {𝑓 ∈ 𝐴 ∣ 𝑓 β‰Ό 𝑒})β€˜π‘‘) βŠ† ((𝑒 ∈ Ο‰ ↦ βˆͺ {𝑓 ∈ 𝐴 ∣ 𝑓 β‰Ό 𝑒})β€˜suc 𝑑))
49 fin34i 10324 . . 3 ((𝐡 ∈ FinIII ∧ (𝑒 ∈ Ο‰ ↦ βˆͺ {𝑓 ∈ 𝐴 ∣ 𝑓 β‰Ό 𝑒}):Ο‰βŸΆπ’« 𝐡 ∧ βˆ€π‘‘ ∈ Ο‰ ((𝑒 ∈ Ο‰ ↦ βˆͺ {𝑓 ∈ 𝐴 ∣ 𝑓 β‰Ό 𝑒})β€˜π‘‘) βŠ† ((𝑒 ∈ Ο‰ ↦ βˆͺ {𝑓 ∈ 𝐴 ∣ 𝑓 β‰Ό 𝑒})β€˜suc 𝑑)) β†’ βˆͺ ran (𝑒 ∈ Ο‰ ↦ βˆͺ {𝑓 ∈ 𝐴 ∣ 𝑓 β‰Ό 𝑒}) ∈ ran (𝑒 ∈ Ο‰ ↦ βˆͺ {𝑓 ∈ 𝐴 ∣ 𝑓 β‰Ό 𝑒}))
501, 13, 48, 49syl3anc 1372 . 2 ((((𝐴 βŠ† 𝒫 𝐡 ∧ [⊊] Or 𝐴 ∧ Β¬ βˆͺ 𝐴 ∈ 𝐴) ∧ (𝐴 βŠ† Fin ∧ 𝐴 β‰  βˆ…)) ∧ 𝐡 ∈ FinIII) β†’ βˆͺ ran (𝑒 ∈ Ο‰ ↦ βˆͺ {𝑓 ∈ 𝐴 ∣ 𝑓 β‰Ό 𝑒}) ∈ ran (𝑒 ∈ Ο‰ ↦ βˆͺ {𝑓 ∈ 𝐴 ∣ 𝑓 β‰Ό 𝑒}))
51 fin1a2lem11 10353 . . . . . 6 (( [⊊] Or 𝐴 ∧ 𝐴 βŠ† Fin) β†’ ran (𝑒 ∈ Ο‰ ↦ βˆͺ {𝑓 ∈ 𝐴 ∣ 𝑓 β‰Ό 𝑒}) = (𝐴 βˆͺ {βˆ…}))
5251adantrr 716 . . . . 5 (( [⊊] Or 𝐴 ∧ (𝐴 βŠ† Fin ∧ 𝐴 β‰  βˆ…)) β†’ ran (𝑒 ∈ Ο‰ ↦ βˆͺ {𝑓 ∈ 𝐴 ∣ 𝑓 β‰Ό 𝑒}) = (𝐴 βˆͺ {βˆ…}))
53523ad2antl2 1187 . . . 4 (((𝐴 βŠ† 𝒫 𝐡 ∧ [⊊] Or 𝐴 ∧ Β¬ βˆͺ 𝐴 ∈ 𝐴) ∧ (𝐴 βŠ† Fin ∧ 𝐴 β‰  βˆ…)) β†’ ran (𝑒 ∈ Ο‰ ↦ βˆͺ {𝑓 ∈ 𝐴 ∣ 𝑓 β‰Ό 𝑒}) = (𝐴 βˆͺ {βˆ…}))
5453adantr 482 . . 3 ((((𝐴 βŠ† 𝒫 𝐡 ∧ [⊊] Or 𝐴 ∧ Β¬ βˆͺ 𝐴 ∈ 𝐴) ∧ (𝐴 βŠ† Fin ∧ 𝐴 β‰  βˆ…)) ∧ 𝐡 ∈ FinIII) β†’ ran (𝑒 ∈ Ο‰ ↦ βˆͺ {𝑓 ∈ 𝐴 ∣ 𝑓 β‰Ό 𝑒}) = (𝐴 βˆͺ {βˆ…}))
55 simpll3 1215 . . . . . 6 ((((𝐴 βŠ† 𝒫 𝐡 ∧ [⊊] Or 𝐴 ∧ Β¬ βˆͺ 𝐴 ∈ 𝐴) ∧ (𝐴 βŠ† Fin ∧ 𝐴 β‰  βˆ…)) ∧ 𝐡 ∈ FinIII) β†’ Β¬ βˆͺ 𝐴 ∈ 𝐴)
56 simplrr 777 . . . . . . 7 ((((𝐴 βŠ† 𝒫 𝐡 ∧ [⊊] Or 𝐴 ∧ Β¬ βˆͺ 𝐴 ∈ 𝐴) ∧ (𝐴 βŠ† Fin ∧ 𝐴 β‰  βˆ…)) ∧ 𝐡 ∈ FinIII) β†’ 𝐴 β‰  βˆ…)
57 sspwuni 5065 . . . . . . . . . . 11 (𝐴 βŠ† 𝒫 βˆ… ↔ βˆͺ 𝐴 βŠ† βˆ…)
58 ss0b 4362 . . . . . . . . . . 11 (βˆͺ 𝐴 βŠ† βˆ… ↔ βˆͺ 𝐴 = βˆ…)
5957, 58bitri 275 . . . . . . . . . 10 (𝐴 βŠ† 𝒫 βˆ… ↔ βˆͺ 𝐴 = βˆ…)
60 pw0 4777 . . . . . . . . . . . . 13 𝒫 βˆ… = {βˆ…}
6160sseq2i 3978 . . . . . . . . . . . 12 (𝐴 βŠ† 𝒫 βˆ… ↔ 𝐴 βŠ† {βˆ…})
62 sssn 4791 . . . . . . . . . . . 12 (𝐴 βŠ† {βˆ…} ↔ (𝐴 = βˆ… ∨ 𝐴 = {βˆ…}))
6361, 62bitri 275 . . . . . . . . . . 11 (𝐴 βŠ† 𝒫 βˆ… ↔ (𝐴 = βˆ… ∨ 𝐴 = {βˆ…}))
64 df-ne 2945 . . . . . . . . . . . 12 (𝐴 β‰  βˆ… ↔ Β¬ 𝐴 = βˆ…)
65 0ex 5269 . . . . . . . . . . . . . . . . 17 βˆ… ∈ V
6665unisn 4892 . . . . . . . . . . . . . . . 16 βˆͺ {βˆ…} = βˆ…
6765snid 4627 . . . . . . . . . . . . . . . 16 βˆ… ∈ {βˆ…}
6866, 67eqeltri 2834 . . . . . . . . . . . . . . 15 βˆͺ {βˆ…} ∈ {βˆ…}
69 unieq 4881 . . . . . . . . . . . . . . . 16 (𝐴 = {βˆ…} β†’ βˆͺ 𝐴 = βˆͺ {βˆ…})
70 id 22 . . . . . . . . . . . . . . . 16 (𝐴 = {βˆ…} β†’ 𝐴 = {βˆ…})
7169, 70eleq12d 2832 . . . . . . . . . . . . . . 15 (𝐴 = {βˆ…} β†’ (βˆͺ 𝐴 ∈ 𝐴 ↔ βˆͺ {βˆ…} ∈ {βˆ…}))
7268, 71mpbiri 258 . . . . . . . . . . . . . 14 (𝐴 = {βˆ…} β†’ βˆͺ 𝐴 ∈ 𝐴)
7372orim2i 910 . . . . . . . . . . . . 13 ((𝐴 = βˆ… ∨ 𝐴 = {βˆ…}) β†’ (𝐴 = βˆ… ∨ βˆͺ 𝐴 ∈ 𝐴))
7473ord 863 . . . . . . . . . . . 12 ((𝐴 = βˆ… ∨ 𝐴 = {βˆ…}) β†’ (Β¬ 𝐴 = βˆ… β†’ βˆͺ 𝐴 ∈ 𝐴))
7564, 74biimtrid 241 . . . . . . . . . . 11 ((𝐴 = βˆ… ∨ 𝐴 = {βˆ…}) β†’ (𝐴 β‰  βˆ… β†’ βˆͺ 𝐴 ∈ 𝐴))
7663, 75sylbi 216 . . . . . . . . . 10 (𝐴 βŠ† 𝒫 βˆ… β†’ (𝐴 β‰  βˆ… β†’ βˆͺ 𝐴 ∈ 𝐴))
7759, 76sylbir 234 . . . . . . . . 9 (βˆͺ 𝐴 = βˆ… β†’ (𝐴 β‰  βˆ… β†’ βˆͺ 𝐴 ∈ 𝐴))
7877com12 32 . . . . . . . 8 (𝐴 β‰  βˆ… β†’ (βˆͺ 𝐴 = βˆ… β†’ βˆͺ 𝐴 ∈ 𝐴))
7978con3d 152 . . . . . . 7 (𝐴 β‰  βˆ… β†’ (Β¬ βˆͺ 𝐴 ∈ 𝐴 β†’ Β¬ βˆͺ 𝐴 = βˆ…))
8056, 55, 79sylc 65 . . . . . 6 ((((𝐴 βŠ† 𝒫 𝐡 ∧ [⊊] Or 𝐴 ∧ Β¬ βˆͺ 𝐴 ∈ 𝐴) ∧ (𝐴 βŠ† Fin ∧ 𝐴 β‰  βˆ…)) ∧ 𝐡 ∈ FinIII) β†’ Β¬ βˆͺ 𝐴 = βˆ…)
81 ioran 983 . . . . . 6 (Β¬ (βˆͺ 𝐴 ∈ 𝐴 ∨ βˆͺ 𝐴 = βˆ…) ↔ (Β¬ βˆͺ 𝐴 ∈ 𝐴 ∧ Β¬ βˆͺ 𝐴 = βˆ…))
8255, 80, 81sylanbrc 584 . . . . 5 ((((𝐴 βŠ† 𝒫 𝐡 ∧ [⊊] Or 𝐴 ∧ Β¬ βˆͺ 𝐴 ∈ 𝐴) ∧ (𝐴 βŠ† Fin ∧ 𝐴 β‰  βˆ…)) ∧ 𝐡 ∈ FinIII) β†’ Β¬ (βˆͺ 𝐴 ∈ 𝐴 ∨ βˆͺ 𝐴 = βˆ…))
83 uniun 4896 . . . . . . . 8 βˆͺ (𝐴 βˆͺ {βˆ…}) = (βˆͺ 𝐴 βˆͺ βˆͺ {βˆ…})
8466uneq2i 4125 . . . . . . . 8 (βˆͺ 𝐴 βˆͺ βˆͺ {βˆ…}) = (βˆͺ 𝐴 βˆͺ βˆ…)
85 un0 4355 . . . . . . . 8 (βˆͺ 𝐴 βˆͺ βˆ…) = βˆͺ 𝐴
8683, 84, 853eqtri 2769 . . . . . . 7 βˆͺ (𝐴 βˆͺ {βˆ…}) = βˆͺ 𝐴
8786eleq1i 2829 . . . . . 6 (βˆͺ (𝐴 βˆͺ {βˆ…}) ∈ (𝐴 βˆͺ {βˆ…}) ↔ βˆͺ 𝐴 ∈ (𝐴 βˆͺ {βˆ…}))
88 elun 4113 . . . . . 6 (βˆͺ 𝐴 ∈ (𝐴 βˆͺ {βˆ…}) ↔ (βˆͺ 𝐴 ∈ 𝐴 ∨ βˆͺ 𝐴 ∈ {βˆ…}))
8965elsn2 4630 . . . . . . 7 (βˆͺ 𝐴 ∈ {βˆ…} ↔ βˆͺ 𝐴 = βˆ…)
9089orbi2i 912 . . . . . 6 ((βˆͺ 𝐴 ∈ 𝐴 ∨ βˆͺ 𝐴 ∈ {βˆ…}) ↔ (βˆͺ 𝐴 ∈ 𝐴 ∨ βˆͺ 𝐴 = βˆ…))
9187, 88, 903bitri 297 . . . . 5 (βˆͺ (𝐴 βˆͺ {βˆ…}) ∈ (𝐴 βˆͺ {βˆ…}) ↔ (βˆͺ 𝐴 ∈ 𝐴 ∨ βˆͺ 𝐴 = βˆ…))
9282, 91sylnibr 329 . . . 4 ((((𝐴 βŠ† 𝒫 𝐡 ∧ [⊊] Or 𝐴 ∧ Β¬ βˆͺ 𝐴 ∈ 𝐴) ∧ (𝐴 βŠ† Fin ∧ 𝐴 β‰  βˆ…)) ∧ 𝐡 ∈ FinIII) β†’ Β¬ βˆͺ (𝐴 βˆͺ {βˆ…}) ∈ (𝐴 βˆͺ {βˆ…}))
93 unieq 4881 . . . . . 6 (ran (𝑒 ∈ Ο‰ ↦ βˆͺ {𝑓 ∈ 𝐴 ∣ 𝑓 β‰Ό 𝑒}) = (𝐴 βˆͺ {βˆ…}) β†’ βˆͺ ran (𝑒 ∈ Ο‰ ↦ βˆͺ {𝑓 ∈ 𝐴 ∣ 𝑓 β‰Ό 𝑒}) = βˆͺ (𝐴 βˆͺ {βˆ…}))
94 id 22 . . . . . 6 (ran (𝑒 ∈ Ο‰ ↦ βˆͺ {𝑓 ∈ 𝐴 ∣ 𝑓 β‰Ό 𝑒}) = (𝐴 βˆͺ {βˆ…}) β†’ ran (𝑒 ∈ Ο‰ ↦ βˆͺ {𝑓 ∈ 𝐴 ∣ 𝑓 β‰Ό 𝑒}) = (𝐴 βˆͺ {βˆ…}))
9593, 94eleq12d 2832 . . . . 5 (ran (𝑒 ∈ Ο‰ ↦ βˆͺ {𝑓 ∈ 𝐴 ∣ 𝑓 β‰Ό 𝑒}) = (𝐴 βˆͺ {βˆ…}) β†’ (βˆͺ ran (𝑒 ∈ Ο‰ ↦ βˆͺ {𝑓 ∈ 𝐴 ∣ 𝑓 β‰Ό 𝑒}) ∈ ran (𝑒 ∈ Ο‰ ↦ βˆͺ {𝑓 ∈ 𝐴 ∣ 𝑓 β‰Ό 𝑒}) ↔ βˆͺ (𝐴 βˆͺ {βˆ…}) ∈ (𝐴 βˆͺ {βˆ…})))
9695notbid 318 . . . 4 (ran (𝑒 ∈ Ο‰ ↦ βˆͺ {𝑓 ∈ 𝐴 ∣ 𝑓 β‰Ό 𝑒}) = (𝐴 βˆͺ {βˆ…}) β†’ (Β¬ βˆͺ ran (𝑒 ∈ Ο‰ ↦ βˆͺ {𝑓 ∈ 𝐴 ∣ 𝑓 β‰Ό 𝑒}) ∈ ran (𝑒 ∈ Ο‰ ↦ βˆͺ {𝑓 ∈ 𝐴 ∣ 𝑓 β‰Ό 𝑒}) ↔ Β¬ βˆͺ (𝐴 βˆͺ {βˆ…}) ∈ (𝐴 βˆͺ {βˆ…})))
9792, 96syl5ibrcom 247 . . 3 ((((𝐴 βŠ† 𝒫 𝐡 ∧ [⊊] Or 𝐴 ∧ Β¬ βˆͺ 𝐴 ∈ 𝐴) ∧ (𝐴 βŠ† Fin ∧ 𝐴 β‰  βˆ…)) ∧ 𝐡 ∈ FinIII) β†’ (ran (𝑒 ∈ Ο‰ ↦ βˆͺ {𝑓 ∈ 𝐴 ∣ 𝑓 β‰Ό 𝑒}) = (𝐴 βˆͺ {βˆ…}) β†’ Β¬ βˆͺ ran (𝑒 ∈ Ο‰ ↦ βˆͺ {𝑓 ∈ 𝐴 ∣ 𝑓 β‰Ό 𝑒}) ∈ ran (𝑒 ∈ Ο‰ ↦ βˆͺ {𝑓 ∈ 𝐴 ∣ 𝑓 β‰Ό 𝑒})))
9854, 97mpd 15 . 2 ((((𝐴 βŠ† 𝒫 𝐡 ∧ [⊊] Or 𝐴 ∧ Β¬ βˆͺ 𝐴 ∈ 𝐴) ∧ (𝐴 βŠ† Fin ∧ 𝐴 β‰  βˆ…)) ∧ 𝐡 ∈ FinIII) β†’ Β¬ βˆͺ ran (𝑒 ∈ Ο‰ ↦ βˆͺ {𝑓 ∈ 𝐴 ∣ 𝑓 β‰Ό 𝑒}) ∈ ran (𝑒 ∈ Ο‰ ↦ βˆͺ {𝑓 ∈ 𝐴 ∣ 𝑓 β‰Ό 𝑒}))
9950, 98pm2.65da 816 1 (((𝐴 βŠ† 𝒫 𝐡 ∧ [⊊] Or 𝐴 ∧ Β¬ βˆͺ 𝐴 ∈ 𝐴) ∧ (𝐴 βŠ† Fin ∧ 𝐴 β‰  βˆ…)) β†’ Β¬ 𝐡 ∈ FinIII)
Colors of variables: wff setvar class
Syntax hints:  Β¬ wn 3   β†’ wi 4   ↔ wb 205   ∧ wa 397   ∨ wo 846   ∧ w3a 1088   = wceq 1542   ∈ wcel 2107   β‰  wne 2944  βˆ€wral 3065  {crab 3410  Vcvv 3448   βˆͺ cun 3913   βŠ† wss 3915  βˆ…c0 4287  π’« cpw 4565  {csn 4591  βˆͺ cuni 4870   class class class wbr 5110   ↦ cmpt 5193   Or wor 5549  ran crn 5639  suc csuc 6324  βŸΆwf 6497  β€˜cfv 6501   [⊊] crpss 7664  Ο‰com 7807   β‰Ό cdom 8888  Fincfn 8890  FinIIIcfin3 10224
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 2708  ax-rep 5247  ax-sep 5261  ax-nul 5268  ax-pow 5325  ax-pr 5389  ax-un 7677
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 2539  df-eu 2568  df-clab 2715  df-cleq 2729  df-clel 2815  df-nfc 2890  df-ne 2945  df-ral 3066  df-rex 3075  df-rmo 3356  df-reu 3357  df-rab 3411  df-v 3450  df-sbc 3745  df-csb 3861  df-dif 3918  df-un 3920  df-in 3922  df-ss 3932  df-pss 3934  df-nul 4288  df-if 4492  df-pw 4567  df-sn 4592  df-pr 4594  df-op 4598  df-uni 4871  df-int 4913  df-iun 4961  df-br 5111  df-opab 5173  df-mpt 5194  df-tr 5228  df-id 5536  df-eprel 5542  df-po 5550  df-so 5551  df-fr 5593  df-se 5594  df-we 5595  df-xp 5644  df-rel 5645  df-cnv 5646  df-co 5647  df-dm 5648  df-rn 5649  df-res 5650  df-ima 5651  df-pred 6258  df-ord 6325  df-on 6326  df-lim 6327  df-suc 6328  df-iota 6453  df-fun 6503  df-fn 6504  df-f 6505  df-f1 6506  df-fo 6507  df-f1o 6508  df-fv 6509  df-isom 6510  df-riota 7318  df-ov 7365  df-rpss 7665  df-om 7808  df-2nd 7927  df-frecs 8217  df-wrecs 8248  df-recs 8322  df-rdg 8361  df-1o 8417  df-er 8655  df-en 8891  df-dom 8892  df-sdom 8893  df-fin 8894  df-wdom 9508  df-card 9882  df-fin4 10230  df-fin3 10231
This theorem is referenced by:  fin1a2s  10357
  Copyright terms: Public domain W3C validator