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

Theorem ptcmplem5 22185
Description: Lemma for ptcmp 22187. (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))
Assertion
Ref Expression
ptcmplem5 (𝜑 → (∏t𝐹) ∈ Comp)
Distinct variable groups:   𝑘,𝑛,𝑢,𝑤,𝐴   𝑆,𝑘,𝑛,𝑢   𝜑,𝑘,𝑛,𝑢   𝑘,𝑉,𝑛,𝑢,𝑤   𝑘,𝐹,𝑛,𝑢,𝑤   𝑘,𝑋,𝑛,𝑢,𝑤
Allowed substitution hints:   𝜑(𝑤)   𝑆(𝑤)

Proof of Theorem ptcmplem5
Dummy variables 𝑦 𝑧 are mutually distinct and distinct from all other variables.
StepHypRef Expression
1 inss1 4026 . . 3 (UFL ∩ dom card) ⊆ UFL
2 ptcmp.5 . . 3 (𝜑𝑋 ∈ (UFL ∩ dom card))
31, 2sseldi 3794 . 2 (𝜑𝑋 ∈ UFL)
4 ptcmp.1 . . . 4 𝑆 = (𝑘𝐴, 𝑢 ∈ (𝐹𝑘) ↦ ((𝑤𝑋 ↦ (𝑤𝑘)) “ 𝑢))
5 ptcmp.2 . . . 4 𝑋 = X𝑛𝐴 (𝐹𝑛)
6 ptcmp.3 . . . 4 (𝜑𝐴𝑉)
7 ptcmp.4 . . . 4 (𝜑𝐹:𝐴⟶Comp)
84, 5, 6, 7, 2ptcmplem1 22181 . . 3 (𝜑 → (𝑋 = (ran 𝑆 ∪ {𝑋}) ∧ (∏t𝐹) = (topGen‘(fi‘(ran 𝑆 ∪ {𝑋})))))
98simpld 489 . 2 (𝜑𝑋 = (ran 𝑆 ∪ {𝑋}))
108simprd 490 . 2 (𝜑 → (∏t𝐹) = (topGen‘(fi‘(ran 𝑆 ∪ {𝑋}))))
11 elpwi 4357 . . . . . 6 (𝑦 ∈ 𝒫 ran 𝑆𝑦 ⊆ ran 𝑆)
126ad2antrr 718 . . . . . . . . 9 (((𝜑 ∧ (𝑦 ⊆ ran 𝑆𝑋 = 𝑦)) ∧ ¬ ∃𝑧 ∈ (𝒫 𝑦 ∩ Fin)𝑋 = 𝑧) → 𝐴𝑉)
137ad2antrr 718 . . . . . . . . 9 (((𝜑 ∧ (𝑦 ⊆ ran 𝑆𝑋 = 𝑦)) ∧ ¬ ∃𝑧 ∈ (𝒫 𝑦 ∩ Fin)𝑋 = 𝑧) → 𝐹:𝐴⟶Comp)
142ad2antrr 718 . . . . . . . . 9 (((𝜑 ∧ (𝑦 ⊆ ran 𝑆𝑋 = 𝑦)) ∧ ¬ ∃𝑧 ∈ (𝒫 𝑦 ∩ Fin)𝑋 = 𝑧) → 𝑋 ∈ (UFL ∩ dom card))
15 simplrl 796 . . . . . . . . 9 (((𝜑 ∧ (𝑦 ⊆ ran 𝑆𝑋 = 𝑦)) ∧ ¬ ∃𝑧 ∈ (𝒫 𝑦 ∩ Fin)𝑋 = 𝑧) → 𝑦 ⊆ ran 𝑆)
16 simplrr 797 . . . . . . . . 9 (((𝜑 ∧ (𝑦 ⊆ ran 𝑆𝑋 = 𝑦)) ∧ ¬ ∃𝑧 ∈ (𝒫 𝑦 ∩ Fin)𝑋 = 𝑧) → 𝑋 = 𝑦)
17 simpr 478 . . . . . . . . 9 (((𝜑 ∧ (𝑦 ⊆ ran 𝑆𝑋 = 𝑦)) ∧ ¬ ∃𝑧 ∈ (𝒫 𝑦 ∩ Fin)𝑋 = 𝑧) → ¬ ∃𝑧 ∈ (𝒫 𝑦 ∩ Fin)𝑋 = 𝑧)
18 imaeq2 5677 . . . . . . . . . . 11 (𝑧 = 𝑢 → ((𝑤𝑋 ↦ (𝑤𝑘)) “ 𝑧) = ((𝑤𝑋 ↦ (𝑤𝑘)) “ 𝑢))
1918eleq1d 2861 . . . . . . . . . 10 (𝑧 = 𝑢 → (((𝑤𝑋 ↦ (𝑤𝑘)) “ 𝑧) ∈ 𝑦 ↔ ((𝑤𝑋 ↦ (𝑤𝑘)) “ 𝑢) ∈ 𝑦))
2019cbvrabv 3381 . . . . . . . . 9 {𝑧 ∈ (𝐹𝑘) ∣ ((𝑤𝑋 ↦ (𝑤𝑘)) “ 𝑧) ∈ 𝑦} = {𝑢 ∈ (𝐹𝑘) ∣ ((𝑤𝑋 ↦ (𝑤𝑘)) “ 𝑢) ∈ 𝑦}
214, 5, 12, 13, 14, 15, 16, 17, 20ptcmplem4 22184 . . . . . . . 8 ¬ ((𝜑 ∧ (𝑦 ⊆ ran 𝑆𝑋 = 𝑦)) ∧ ¬ ∃𝑧 ∈ (𝒫 𝑦 ∩ Fin)𝑋 = 𝑧)
22 iman 391 . . . . . . . 8 (((𝜑 ∧ (𝑦 ⊆ ran 𝑆𝑋 = 𝑦)) → ∃𝑧 ∈ (𝒫 𝑦 ∩ Fin)𝑋 = 𝑧) ↔ ¬ ((𝜑 ∧ (𝑦 ⊆ ran 𝑆𝑋 = 𝑦)) ∧ ¬ ∃𝑧 ∈ (𝒫 𝑦 ∩ Fin)𝑋 = 𝑧))
2321, 22mpbir 223 . . . . . . 7 ((𝜑 ∧ (𝑦 ⊆ ran 𝑆𝑋 = 𝑦)) → ∃𝑧 ∈ (𝒫 𝑦 ∩ Fin)𝑋 = 𝑧)
2423expr 449 . . . . . 6 ((𝜑𝑦 ⊆ ran 𝑆) → (𝑋 = 𝑦 → ∃𝑧 ∈ (𝒫 𝑦 ∩ Fin)𝑋 = 𝑧))
2511, 24sylan2 587 . . . . 5 ((𝜑𝑦 ∈ 𝒫 ran 𝑆) → (𝑋 = 𝑦 → ∃𝑧 ∈ (𝒫 𝑦 ∩ Fin)𝑋 = 𝑧))
2625adantlr 707 . . . 4 (((𝜑𝑦 ⊆ (ran 𝑆 ∪ {𝑋})) ∧ 𝑦 ∈ 𝒫 ran 𝑆) → (𝑋 = 𝑦 → ∃𝑧 ∈ (𝒫 𝑦 ∩ Fin)𝑋 = 𝑧))
27 selpw 4354 . . . . . . 7 (𝑦 ∈ 𝒫 (ran 𝑆 ∪ {𝑋}) ↔ 𝑦 ⊆ (ran 𝑆 ∪ {𝑋}))
28 eldif 3777 . . . . . . . 8 (𝑦 ∈ (𝒫 (ran 𝑆 ∪ {𝑋}) ∖ 𝒫 ran 𝑆) ↔ (𝑦 ∈ 𝒫 (ran 𝑆 ∪ {𝑋}) ∧ ¬ 𝑦 ∈ 𝒫 ran 𝑆))
29 elpwunsn 4413 . . . . . . . 8 (𝑦 ∈ (𝒫 (ran 𝑆 ∪ {𝑋}) ∖ 𝒫 ran 𝑆) → 𝑋𝑦)
3028, 29sylbir 227 . . . . . . 7 ((𝑦 ∈ 𝒫 (ran 𝑆 ∪ {𝑋}) ∧ ¬ 𝑦 ∈ 𝒫 ran 𝑆) → 𝑋𝑦)
3127, 30sylanbr 578 . . . . . 6 ((𝑦 ⊆ (ran 𝑆 ∪ {𝑋}) ∧ ¬ 𝑦 ∈ 𝒫 ran 𝑆) → 𝑋𝑦)
3231adantll 706 . . . . 5 (((𝜑𝑦 ⊆ (ran 𝑆 ∪ {𝑋})) ∧ ¬ 𝑦 ∈ 𝒫 ran 𝑆) → 𝑋𝑦)
33 snssi 4525 . . . . . . . . 9 (𝑋𝑦 → {𝑋} ⊆ 𝑦)
3433adantl 474 . . . . . . . 8 (((𝜑𝑦 ⊆ (ran 𝑆 ∪ {𝑋})) ∧ 𝑋𝑦) → {𝑋} ⊆ 𝑦)
35 snfi 8278 . . . . . . . . 9 {𝑋} ∈ Fin
3635a1i 11 . . . . . . . 8 (((𝜑𝑦 ⊆ (ran 𝑆 ∪ {𝑋})) ∧ 𝑋𝑦) → {𝑋} ∈ Fin)
37 elfpw 8508 . . . . . . . 8 ({𝑋} ∈ (𝒫 𝑦 ∩ Fin) ↔ ({𝑋} ⊆ 𝑦 ∧ {𝑋} ∈ Fin))
3834, 36, 37sylanbrc 579 . . . . . . 7 (((𝜑𝑦 ⊆ (ran 𝑆 ∪ {𝑋})) ∧ 𝑋𝑦) → {𝑋} ∈ (𝒫 𝑦 ∩ Fin))
39 unisng 4641 . . . . . . . . 9 (𝑋𝑦 {𝑋} = 𝑋)
4039eqcomd 2803 . . . . . . . 8 (𝑋𝑦𝑋 = {𝑋})
4140adantl 474 . . . . . . 7 (((𝜑𝑦 ⊆ (ran 𝑆 ∪ {𝑋})) ∧ 𝑋𝑦) → 𝑋 = {𝑋})
42 unieq 4634 . . . . . . . 8 (𝑧 = {𝑋} → 𝑧 = {𝑋})
4342rspceeqv 3513 . . . . . . 7 (({𝑋} ∈ (𝒫 𝑦 ∩ Fin) ∧ 𝑋 = {𝑋}) → ∃𝑧 ∈ (𝒫 𝑦 ∩ Fin)𝑋 = 𝑧)
4438, 41, 43syl2anc 580 . . . . . 6 (((𝜑𝑦 ⊆ (ran 𝑆 ∪ {𝑋})) ∧ 𝑋𝑦) → ∃𝑧 ∈ (𝒫 𝑦 ∩ Fin)𝑋 = 𝑧)
4544a1d 25 . . . . 5 (((𝜑𝑦 ⊆ (ran 𝑆 ∪ {𝑋})) ∧ 𝑋𝑦) → (𝑋 = 𝑦 → ∃𝑧 ∈ (𝒫 𝑦 ∩ Fin)𝑋 = 𝑧))
4632, 45syldan 586 . . . 4 (((𝜑𝑦 ⊆ (ran 𝑆 ∪ {𝑋})) ∧ ¬ 𝑦 ∈ 𝒫 ran 𝑆) → (𝑋 = 𝑦 → ∃𝑧 ∈ (𝒫 𝑦 ∩ Fin)𝑋 = 𝑧))
4726, 46pm2.61dan 848 . . 3 ((𝜑𝑦 ⊆ (ran 𝑆 ∪ {𝑋})) → (𝑋 = 𝑦 → ∃𝑧 ∈ (𝒫 𝑦 ∩ Fin)𝑋 = 𝑧))
4847impr 447 . 2 ((𝜑 ∧ (𝑦 ⊆ (ran 𝑆 ∪ {𝑋}) ∧ 𝑋 = 𝑦)) → ∃𝑧 ∈ (𝒫 𝑦 ∩ Fin)𝑋 = 𝑧)
493, 9, 10, 48alexsub 22174 1 (𝜑 → (∏t𝐹) ∈ Comp)
Colors of variables: wff setvar class
Syntax hints:  ¬ wn 3  wi 4  wa 385   = wceq 1653  wcel 2157  wrex 3088  {crab 3091  cdif 3764  cun 3765  cin 3766  wss 3767  𝒫 cpw 4347  {csn 4366   cuni 4626  cmpt 4920  ccnv 5309  dom cdm 5310  ran crn 5311  cima 5313  wf 6095  cfv 6099  cmpt2 6878  Xcixp 8146  Fincfn 8193  ficfi 8556  cardccrd 9045  topGenctg 16410  tcpt 16411  Compccmp 21515  UFLcufl 22029
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1891  ax-4 1905  ax-5 2006  ax-6 2072  ax-7 2107  ax-8 2159  ax-9 2166  ax-10 2185  ax-11 2200  ax-12 2213  ax-13 2354  ax-ext 2775  ax-rep 4962  ax-sep 4973  ax-nul 4981  ax-pow 5033  ax-pr 5095  ax-un 7181
This theorem depends on definitions:  df-bi 199  df-an 386  df-or 875  df-3or 1109  df-3an 1110  df-tru 1657  df-ex 1876  df-nf 1880  df-sb 2065  df-mo 2590  df-eu 2607  df-clab 2784  df-cleq 2790  df-clel 2793  df-nfc 2928  df-ne 2970  df-nel 3073  df-ral 3092  df-rex 3093  df-reu 3094  df-rmo 3095  df-rab 3096  df-v 3385  df-sbc 3632  df-csb 3727  df-dif 3770  df-un 3772  df-in 3774  df-ss 3781  df-pss 3783  df-nul 4114  df-if 4276  df-pw 4349  df-sn 4367  df-pr 4369  df-tp 4371  df-op 4373  df-uni 4627  df-int 4666  df-iun 4710  df-iin 4711  df-br 4842  df-opab 4904  df-mpt 4921  df-tr 4944  df-id 5218  df-eprel 5223  df-po 5231  df-so 5232  df-fr 5269  df-se 5270  df-we 5271  df-xp 5316  df-rel 5317  df-cnv 5318  df-co 5319  df-dm 5320  df-rn 5321  df-res 5322  df-ima 5323  df-pred 5896  df-ord 5942  df-on 5943  df-lim 5944  df-suc 5945  df-iota 6062  df-fun 6101  df-fn 6102  df-f 6103  df-f1 6104  df-fo 6105  df-f1o 6106  df-fv 6107  df-isom 6108  df-riota 6837  df-ov 6879  df-oprab 6880  df-mpt2 6881  df-om 7298  df-1st 7399  df-2nd 7400  df-wrecs 7643  df-recs 7705  df-rdg 7743  df-1o 7797  df-2o 7798  df-oadd 7801  df-omul 7802  df-er 7980  df-map 8095  df-ixp 8147  df-en 8194  df-dom 8195  df-sdom 8196  df-fin 8197  df-fi 8557  df-wdom 8704  df-card 9049  df-acn 9052  df-topgen 16416  df-pt 16417  df-fbas 20062  df-fg 20063  df-top 21024  df-topon 21041  df-bases 21076  df-cld 21149  df-ntr 21150  df-cls 21151  df-nei 21228  df-cmp 21516  df-fil 21975  df-ufil 22030  df-ufl 22031  df-flim 22068  df-fcls 22070
This theorem is referenced by:  ptcmpg  22186
  Copyright terms: Public domain W3C validator