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

Theorem cantnfp1lem1 9572
Description: Lemma for cantnfp1 9575. (Contributed by Mario Carneiro, 20-Jun-2015.) (Revised by AV, 30-Jun-2019.)
Hypotheses
Ref Expression
cantnfs.s 𝑆 = dom (𝐴 CNF 𝐵)
cantnfs.a (𝜑𝐴 ∈ On)
cantnfs.b (𝜑𝐵 ∈ On)
cantnfp1.g (𝜑𝐺𝑆)
cantnfp1.x (𝜑𝑋𝐵)
cantnfp1.y (𝜑𝑌𝐴)
cantnfp1.s (𝜑 → (𝐺 supp ∅) ⊆ 𝑋)
cantnfp1.f 𝐹 = (𝑡𝐵 ↦ if(𝑡 = 𝑋, 𝑌, (𝐺𝑡)))
Assertion
Ref Expression
cantnfp1lem1 (𝜑𝐹𝑆)
Distinct variable groups:   𝑡,𝐵   𝑡,𝐴   𝑡,𝑆   𝑡,𝐺   𝜑,𝑡   𝑡,𝑌   𝑡,𝑋
Allowed substitution hint:   𝐹(𝑡)

Proof of Theorem cantnfp1lem1
Dummy variable 𝑘 is distinct from all other variables.
StepHypRef Expression
1 cantnfp1.y . . . . 5 (𝜑𝑌𝐴)
21adantr 481 . . . 4 ((𝜑𝑡𝐵) → 𝑌𝐴)
3 cantnfp1.g . . . . . . 7 (𝜑𝐺𝑆)
4 cantnfs.s . . . . . . . 8 𝑆 = dom (𝐴 CNF 𝐵)
5 cantnfs.a . . . . . . . 8 (𝜑𝐴 ∈ On)
6 cantnfs.b . . . . . . . 8 (𝜑𝐵 ∈ On)
74, 5, 6cantnfs 9560 . . . . . . 7 (𝜑 → (𝐺𝑆 ↔ (𝐺:𝐵𝐴𝐺 finSupp ∅)))
83, 7mpbid 231 . . . . . 6 (𝜑 → (𝐺:𝐵𝐴𝐺 finSupp ∅))
98simpld 495 . . . . 5 (𝜑𝐺:𝐵𝐴)
109ffvelcdmda 7031 . . . 4 ((𝜑𝑡𝐵) → (𝐺𝑡) ∈ 𝐴)
112, 10ifcld 4530 . . 3 ((𝜑𝑡𝐵) → if(𝑡 = 𝑋, 𝑌, (𝐺𝑡)) ∈ 𝐴)
12 cantnfp1.f . . 3 𝐹 = (𝑡𝐵 ↦ if(𝑡 = 𝑋, 𝑌, (𝐺𝑡)))
1311, 12fmptd 7058 . 2 (𝜑𝐹:𝐵𝐴)
148simprd 496 . . . . . 6 (𝜑𝐺 finSupp ∅)
1514fsuppimpd 9270 . . . . 5 (𝜑 → (𝐺 supp ∅) ∈ Fin)
16 snfi 8946 . . . . 5 {𝑋} ∈ Fin
17 unfi 9074 . . . . 5 (((𝐺 supp ∅) ∈ Fin ∧ {𝑋} ∈ Fin) → ((𝐺 supp ∅) ∪ {𝑋}) ∈ Fin)
1815, 16, 17sylancl 586 . . . 4 (𝜑 → ((𝐺 supp ∅) ∪ {𝑋}) ∈ Fin)
19 eqeq1 2741 . . . . . . . 8 (𝑡 = 𝑘 → (𝑡 = 𝑋𝑘 = 𝑋))
20 fveq2 6839 . . . . . . . 8 (𝑡 = 𝑘 → (𝐺𝑡) = (𝐺𝑘))
2119, 20ifbieq2d 4510 . . . . . . 7 (𝑡 = 𝑘 → if(𝑡 = 𝑋, 𝑌, (𝐺𝑡)) = if(𝑘 = 𝑋, 𝑌, (𝐺𝑘)))
22 eldifi 4084 . . . . . . . 8 (𝑘 ∈ (𝐵 ∖ ((𝐺 supp ∅) ∪ {𝑋})) → 𝑘𝐵)
2322adantl 482 . . . . . . 7 ((𝜑𝑘 ∈ (𝐵 ∖ ((𝐺 supp ∅) ∪ {𝑋}))) → 𝑘𝐵)
241adantr 481 . . . . . . . 8 ((𝜑𝑘 ∈ (𝐵 ∖ ((𝐺 supp ∅) ∪ {𝑋}))) → 𝑌𝐴)
25 fvex 6852 . . . . . . . 8 (𝐺𝑘) ∈ V
26 ifexg 4533 . . . . . . . 8 ((𝑌𝐴 ∧ (𝐺𝑘) ∈ V) → if(𝑘 = 𝑋, 𝑌, (𝐺𝑘)) ∈ V)
2724, 25, 26sylancl 586 . . . . . . 7 ((𝜑𝑘 ∈ (𝐵 ∖ ((𝐺 supp ∅) ∪ {𝑋}))) → if(𝑘 = 𝑋, 𝑌, (𝐺𝑘)) ∈ V)
2812, 21, 23, 27fvmptd3 6968 . . . . . 6 ((𝜑𝑘 ∈ (𝐵 ∖ ((𝐺 supp ∅) ∪ {𝑋}))) → (𝐹𝑘) = if(𝑘 = 𝑋, 𝑌, (𝐺𝑘)))
29 eldifn 4085 . . . . . . . . 9 (𝑘 ∈ (𝐵 ∖ ((𝐺 supp ∅) ∪ {𝑋})) → ¬ 𝑘 ∈ ((𝐺 supp ∅) ∪ {𝑋}))
3029adantl 482 . . . . . . . 8 ((𝜑𝑘 ∈ (𝐵 ∖ ((𝐺 supp ∅) ∪ {𝑋}))) → ¬ 𝑘 ∈ ((𝐺 supp ∅) ∪ {𝑋}))
31 velsn 4600 . . . . . . . . 9 (𝑘 ∈ {𝑋} ↔ 𝑘 = 𝑋)
32 elun2 4135 . . . . . . . . 9 (𝑘 ∈ {𝑋} → 𝑘 ∈ ((𝐺 supp ∅) ∪ {𝑋}))
3331, 32sylbir 234 . . . . . . . 8 (𝑘 = 𝑋𝑘 ∈ ((𝐺 supp ∅) ∪ {𝑋}))
3430, 33nsyl 140 . . . . . . 7 ((𝜑𝑘 ∈ (𝐵 ∖ ((𝐺 supp ∅) ∪ {𝑋}))) → ¬ 𝑘 = 𝑋)
3534iffalsed 4495 . . . . . 6 ((𝜑𝑘 ∈ (𝐵 ∖ ((𝐺 supp ∅) ∪ {𝑋}))) → if(𝑘 = 𝑋, 𝑌, (𝐺𝑘)) = (𝐺𝑘))
36 ssun1 4130 . . . . . . . . 9 (𝐺 supp ∅) ⊆ ((𝐺 supp ∅) ∪ {𝑋})
37 sscon 4096 . . . . . . . . 9 ((𝐺 supp ∅) ⊆ ((𝐺 supp ∅) ∪ {𝑋}) → (𝐵 ∖ ((𝐺 supp ∅) ∪ {𝑋})) ⊆ (𝐵 ∖ (𝐺 supp ∅)))
3836, 37ax-mp 5 . . . . . . . 8 (𝐵 ∖ ((𝐺 supp ∅) ∪ {𝑋})) ⊆ (𝐵 ∖ (𝐺 supp ∅))
3938sseli 3938 . . . . . . 7 (𝑘 ∈ (𝐵 ∖ ((𝐺 supp ∅) ∪ {𝑋})) → 𝑘 ∈ (𝐵 ∖ (𝐺 supp ∅)))
40 ssidd 3965 . . . . . . . 8 (𝜑 → (𝐺 supp ∅) ⊆ (𝐺 supp ∅))
41 0ex 5262 . . . . . . . . 9 ∅ ∈ V
4241a1i 11 . . . . . . . 8 (𝜑 → ∅ ∈ V)
439, 40, 6, 42suppssr 8119 . . . . . . 7 ((𝜑𝑘 ∈ (𝐵 ∖ (𝐺 supp ∅))) → (𝐺𝑘) = ∅)
4439, 43sylan2 593 . . . . . 6 ((𝜑𝑘 ∈ (𝐵 ∖ ((𝐺 supp ∅) ∪ {𝑋}))) → (𝐺𝑘) = ∅)
4528, 35, 443eqtrd 2781 . . . . 5 ((𝜑𝑘 ∈ (𝐵 ∖ ((𝐺 supp ∅) ∪ {𝑋}))) → (𝐹𝑘) = ∅)
4613, 45suppss 8117 . . . 4 (𝜑 → (𝐹 supp ∅) ⊆ ((𝐺 supp ∅) ∪ {𝑋}))
4718, 46ssfid 9169 . . 3 (𝜑 → (𝐹 supp ∅) ∈ Fin)
4812funmpt2 6537 . . . 4 Fun 𝐹
49 mptexg 7167 . . . . . 6 (𝐵 ∈ On → (𝑡𝐵 ↦ if(𝑡 = 𝑋, 𝑌, (𝐺𝑡))) ∈ V)
5012, 49eqeltrid 2842 . . . . 5 (𝐵 ∈ On → 𝐹 ∈ V)
516, 50syl 17 . . . 4 (𝜑𝐹 ∈ V)
52 funisfsupp 9268 . . . 4 ((Fun 𝐹𝐹 ∈ V ∧ ∅ ∈ V) → (𝐹 finSupp ∅ ↔ (𝐹 supp ∅) ∈ Fin))
5348, 51, 42, 52mp3an2i 1466 . . 3 (𝜑 → (𝐹 finSupp ∅ ↔ (𝐹 supp ∅) ∈ Fin))
5447, 53mpbird 256 . 2 (𝜑𝐹 finSupp ∅)
554, 5, 6cantnfs 9560 . 2 (𝜑 → (𝐹𝑆 ↔ (𝐹:𝐵𝐴𝐹 finSupp ∅)))
5613, 54, 55mpbir2and 711 1 (𝜑𝐹𝑆)
Colors of variables: wff setvar class
Syntax hints:  ¬ wn 3  wi 4  wb 205  wa 396   = wceq 1541  wcel 2106  Vcvv 3443  cdif 3905  cun 3906  wss 3908  c0 4280  ifcif 4484  {csn 4584   class class class wbr 5103  cmpt 5186  dom cdm 5631  Oncon0 6315  Fun wfun 6487  wf 6489  cfv 6493  (class class class)co 7351   supp csupp 8084  Fincfn 8841   finSupp cfsupp 9263   CNF ccnf 9555
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 2708  ax-rep 5240  ax-sep 5254  ax-nul 5261  ax-pow 5318  ax-pr 5382  ax-un 7664
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 2539  df-eu 2568  df-clab 2715  df-cleq 2729  df-clel 2815  df-nfc 2887  df-ne 2942  df-ral 3063  df-rex 3072  df-reu 3352  df-rab 3406  df-v 3445  df-sbc 3738  df-csb 3854  df-dif 3911  df-un 3913  df-in 3915  df-ss 3925  df-pss 3927  df-nul 4281  df-if 4485  df-pw 4560  df-sn 4585  df-pr 4587  df-op 4591  df-uni 4864  df-iun 4954  df-br 5104  df-opab 5166  df-mpt 5187  df-tr 5221  df-id 5529  df-eprel 5535  df-po 5543  df-so 5544  df-fr 5586  df-we 5588  df-xp 5637  df-rel 5638  df-cnv 5639  df-co 5640  df-dm 5641  df-rn 5642  df-res 5643  df-ima 5644  df-pred 6251  df-ord 6318  df-on 6319  df-lim 6320  df-suc 6321  df-iota 6445  df-fun 6495  df-fn 6496  df-f 6497  df-f1 6498  df-fo 6499  df-f1o 6500  df-fv 6501  df-ov 7354  df-oprab 7355  df-mpo 7356  df-om 7795  df-supp 8085  df-frecs 8204  df-wrecs 8235  df-recs 8309  df-rdg 8348  df-seqom 8386  df-1o 8404  df-map 8725  df-en 8842  df-fin 8845  df-fsupp 9264  df-cnf 9556
This theorem is referenced by:  cantnfp1lem2  9573  cantnfp1lem3  9574  cantnfp1  9575
  Copyright terms: Public domain W3C validator