Users' Mathboxes Mathbox for Thierry Arnoux < Previous   Next >
Nearby theorems
Mirrors  >  Home  >  MPE Home  >  Th. List  >   Mathboxes  >  eulerpartlemgu Structured version   Visualization version   GIF version

Theorem eulerpartlemgu 29560
Description: Lemma for eulerpart 29565: Rewriting the 𝑈 set for an odd partition Note that interestingly, this proof reuses marypha2lem2 8203. (Contributed by Thierry Arnoux, 10-Aug-2018.)
Hypotheses
Ref Expression
eulerpart.p 𝑃 = {𝑓 ∈ (ℕ0𝑚 ℕ) ∣ ((𝑓 “ ℕ) ∈ Fin ∧ Σ𝑘 ∈ ℕ ((𝑓𝑘) · 𝑘) = 𝑁)}
eulerpart.o 𝑂 = {𝑔𝑃 ∣ ∀𝑛 ∈ (𝑔 “ ℕ) ¬ 2 ∥ 𝑛}
eulerpart.d 𝐷 = {𝑔𝑃 ∣ ∀𝑛 ∈ ℕ (𝑔𝑛) ≤ 1}
eulerpart.j 𝐽 = {𝑧 ∈ ℕ ∣ ¬ 2 ∥ 𝑧}
eulerpart.f 𝐹 = (𝑥𝐽, 𝑦 ∈ ℕ0 ↦ ((2↑𝑦) · 𝑥))
eulerpart.h 𝐻 = {𝑟 ∈ ((𝒫 ℕ0 ∩ Fin) ↑𝑚 𝐽) ∣ (𝑟 supp ∅) ∈ Fin}
eulerpart.m 𝑀 = (𝑟𝐻 ↦ {⟨𝑥, 𝑦⟩ ∣ (𝑥𝐽𝑦 ∈ (𝑟𝑥))})
eulerpart.r 𝑅 = {𝑓 ∣ (𝑓 “ ℕ) ∈ Fin}
eulerpart.t 𝑇 = {𝑓 ∈ (ℕ0𝑚 ℕ) ∣ (𝑓 “ ℕ) ⊆ 𝐽}
eulerpart.g 𝐺 = (𝑜 ∈ (𝑇𝑅) ↦ ((𝟭‘ℕ)‘(𝐹 “ (𝑀‘(bits ∘ (𝑜𝐽))))))
eulerpartlemgh.1 𝑈 = 𝑡 ∈ ((𝐴 “ ℕ) ∩ 𝐽)({𝑡} × (bits‘(𝐴𝑡)))
Assertion
Ref Expression
eulerpartlemgu (𝐴 ∈ (𝑇𝑅) → 𝑈 = {⟨𝑡, 𝑛⟩ ∣ (𝑡 ∈ ((𝐴 “ ℕ) ∩ 𝐽) ∧ 𝑛 ∈ ((bits ∘ 𝐴)‘𝑡))})
Distinct variable groups:   𝑧,𝑡   𝑓,𝑔,𝑘,𝑛,𝑡,𝐴   𝑓,𝐽,𝑛,𝑡   𝑓,𝑁,𝑘,𝑛,𝑡   𝑛,𝑂,𝑡   𝑃,𝑔,𝑘   𝑅,𝑓,𝑘,𝑛,𝑡   𝑇,𝑛,𝑡
Allowed substitution hints:   𝐴(𝑥,𝑦,𝑧,𝑜,𝑟)   𝐷(𝑥,𝑦,𝑧,𝑡,𝑓,𝑔,𝑘,𝑛,𝑜,𝑟)   𝑃(𝑥,𝑦,𝑧,𝑡,𝑓,𝑛,𝑜,𝑟)   𝑅(𝑥,𝑦,𝑧,𝑔,𝑜,𝑟)   𝑇(𝑥,𝑦,𝑧,𝑓,𝑔,𝑘,𝑜,𝑟)   𝑈(𝑥,𝑦,𝑧,𝑡,𝑓,𝑔,𝑘,𝑛,𝑜,𝑟)   𝐹(𝑥,𝑦,𝑧,𝑡,𝑓,𝑔,𝑘,𝑛,𝑜,𝑟)   𝐺(𝑥,𝑦,𝑧,𝑡,𝑓,𝑔,𝑘,𝑛,𝑜,𝑟)   𝐻(𝑥,𝑦,𝑧,𝑡,𝑓,𝑔,𝑘,𝑛,𝑜,𝑟)   𝐽(𝑥,𝑦,𝑧,𝑔,𝑘,𝑜,𝑟)   𝑀(𝑥,𝑦,𝑧,𝑡,𝑓,𝑔,𝑘,𝑛,𝑜,𝑟)   𝑁(𝑥,𝑦,𝑧,𝑔,𝑜,𝑟)   𝑂(𝑥,𝑦,𝑧,𝑓,𝑔,𝑘,𝑜,𝑟)

Proof of Theorem eulerpartlemgu
StepHypRef Expression
1 eulerpartlemgh.1 . 2 𝑈 = 𝑡 ∈ ((𝐴 “ ℕ) ∩ 𝐽)({𝑡} × (bits‘(𝐴𝑡)))
2 eqid 2610 . . . 4 𝑡 ∈ ((𝐴 “ ℕ) ∩ 𝐽)({𝑡} × ((bits ∘ 𝐴)‘𝑡)) = 𝑡 ∈ ((𝐴 “ ℕ) ∩ 𝐽)({𝑡} × ((bits ∘ 𝐴)‘𝑡))
32marypha2lem2 8203 . . 3 𝑡 ∈ ((𝐴 “ ℕ) ∩ 𝐽)({𝑡} × ((bits ∘ 𝐴)‘𝑡)) = {⟨𝑡, 𝑛⟩ ∣ (𝑡 ∈ ((𝐴 “ ℕ) ∩ 𝐽) ∧ 𝑛 ∈ ((bits ∘ 𝐴)‘𝑡))}
4 eulerpart.p . . . . . . . . . . 11 𝑃 = {𝑓 ∈ (ℕ0𝑚 ℕ) ∣ ((𝑓 “ ℕ) ∈ Fin ∧ Σ𝑘 ∈ ℕ ((𝑓𝑘) · 𝑘) = 𝑁)}
5 eulerpart.o . . . . . . . . . . 11 𝑂 = {𝑔𝑃 ∣ ∀𝑛 ∈ (𝑔 “ ℕ) ¬ 2 ∥ 𝑛}
6 eulerpart.d . . . . . . . . . . 11 𝐷 = {𝑔𝑃 ∣ ∀𝑛 ∈ ℕ (𝑔𝑛) ≤ 1}
7 eulerpart.j . . . . . . . . . . 11 𝐽 = {𝑧 ∈ ℕ ∣ ¬ 2 ∥ 𝑧}
8 eulerpart.f . . . . . . . . . . 11 𝐹 = (𝑥𝐽, 𝑦 ∈ ℕ0 ↦ ((2↑𝑦) · 𝑥))
9 eulerpart.h . . . . . . . . . . 11 𝐻 = {𝑟 ∈ ((𝒫 ℕ0 ∩ Fin) ↑𝑚 𝐽) ∣ (𝑟 supp ∅) ∈ Fin}
10 eulerpart.m . . . . . . . . . . 11 𝑀 = (𝑟𝐻 ↦ {⟨𝑥, 𝑦⟩ ∣ (𝑥𝐽𝑦 ∈ (𝑟𝑥))})
11 eulerpart.r . . . . . . . . . . 11 𝑅 = {𝑓 ∣ (𝑓 “ ℕ) ∈ Fin}
12 eulerpart.t . . . . . . . . . . 11 𝑇 = {𝑓 ∈ (ℕ0𝑚 ℕ) ∣ (𝑓 “ ℕ) ⊆ 𝐽}
134, 5, 6, 7, 8, 9, 10, 11, 12eulerpartlemt0 29552 . . . . . . . . . 10 (𝐴 ∈ (𝑇𝑅) ↔ (𝐴 ∈ (ℕ0𝑚 ℕ) ∧ (𝐴 “ ℕ) ∈ Fin ∧ (𝐴 “ ℕ) ⊆ 𝐽))
1413simp1bi 1069 . . . . . . . . 9 (𝐴 ∈ (𝑇𝑅) → 𝐴 ∈ (ℕ0𝑚 ℕ))
15 elmapi 7743 . . . . . . . . 9 (𝐴 ∈ (ℕ0𝑚 ℕ) → 𝐴:ℕ⟶ℕ0)
1614, 15syl 17 . . . . . . . 8 (𝐴 ∈ (𝑇𝑅) → 𝐴:ℕ⟶ℕ0)
1716adantr 480 . . . . . . 7 ((𝐴 ∈ (𝑇𝑅) ∧ 𝑡 ∈ ((𝐴 “ ℕ) ∩ 𝐽)) → 𝐴:ℕ⟶ℕ0)
18 ffun 5947 . . . . . . 7 (𝐴:ℕ⟶ℕ0 → Fun 𝐴)
1917, 18syl 17 . . . . . 6 ((𝐴 ∈ (𝑇𝑅) ∧ 𝑡 ∈ ((𝐴 “ ℕ) ∩ 𝐽)) → Fun 𝐴)
20 inss1 3795 . . . . . . . . 9 ((𝐴 “ ℕ) ∩ 𝐽) ⊆ (𝐴 “ ℕ)
21 cnvimass 5391 . . . . . . . . . 10 (𝐴 “ ℕ) ⊆ dom 𝐴
22 fdm 5950 . . . . . . . . . . 11 (𝐴:ℕ⟶ℕ0 → dom 𝐴 = ℕ)
2316, 22syl 17 . . . . . . . . . 10 (𝐴 ∈ (𝑇𝑅) → dom 𝐴 = ℕ)
2421, 23syl5sseq 3616 . . . . . . . . 9 (𝐴 ∈ (𝑇𝑅) → (𝐴 “ ℕ) ⊆ ℕ)
2520, 24syl5ss 3579 . . . . . . . 8 (𝐴 ∈ (𝑇𝑅) → ((𝐴 “ ℕ) ∩ 𝐽) ⊆ ℕ)
2625sselda 3568 . . . . . . 7 ((𝐴 ∈ (𝑇𝑅) ∧ 𝑡 ∈ ((𝐴 “ ℕ) ∩ 𝐽)) → 𝑡 ∈ ℕ)
2723eleq2d 2673 . . . . . . . 8 (𝐴 ∈ (𝑇𝑅) → (𝑡 ∈ dom 𝐴𝑡 ∈ ℕ))
2827adantr 480 . . . . . . 7 ((𝐴 ∈ (𝑇𝑅) ∧ 𝑡 ∈ ((𝐴 “ ℕ) ∩ 𝐽)) → (𝑡 ∈ dom 𝐴𝑡 ∈ ℕ))
2926, 28mpbird 246 . . . . . 6 ((𝐴 ∈ (𝑇𝑅) ∧ 𝑡 ∈ ((𝐴 “ ℕ) ∩ 𝐽)) → 𝑡 ∈ dom 𝐴)
30 fvco 6169 . . . . . 6 ((Fun 𝐴𝑡 ∈ dom 𝐴) → ((bits ∘ 𝐴)‘𝑡) = (bits‘(𝐴𝑡)))
3119, 29, 30syl2anc 691 . . . . 5 ((𝐴 ∈ (𝑇𝑅) ∧ 𝑡 ∈ ((𝐴 “ ℕ) ∩ 𝐽)) → ((bits ∘ 𝐴)‘𝑡) = (bits‘(𝐴𝑡)))
3231xpeq2d 5053 . . . 4 ((𝐴 ∈ (𝑇𝑅) ∧ 𝑡 ∈ ((𝐴 “ ℕ) ∩ 𝐽)) → ({𝑡} × ((bits ∘ 𝐴)‘𝑡)) = ({𝑡} × (bits‘(𝐴𝑡))))
3332iuneq2dv 4473 . . 3 (𝐴 ∈ (𝑇𝑅) → 𝑡 ∈ ((𝐴 “ ℕ) ∩ 𝐽)({𝑡} × ((bits ∘ 𝐴)‘𝑡)) = 𝑡 ∈ ((𝐴 “ ℕ) ∩ 𝐽)({𝑡} × (bits‘(𝐴𝑡))))
343, 33syl5reqr 2659 . 2 (𝐴 ∈ (𝑇𝑅) → 𝑡 ∈ ((𝐴 “ ℕ) ∩ 𝐽)({𝑡} × (bits‘(𝐴𝑡))) = {⟨𝑡, 𝑛⟩ ∣ (𝑡 ∈ ((𝐴 “ ℕ) ∩ 𝐽) ∧ 𝑛 ∈ ((bits ∘ 𝐴)‘𝑡))})
351, 34syl5eq 2656 1 (𝐴 ∈ (𝑇𝑅) → 𝑈 = {⟨𝑡, 𝑛⟩ ∣ (𝑡 ∈ ((𝐴 “ ℕ) ∩ 𝐽) ∧ 𝑛 ∈ ((bits ∘ 𝐴)‘𝑡))})
Colors of variables: wff setvar class
Syntax hints:  ¬ wn 3  wi 4  wb 195  wa 383   = wceq 1475  wcel 1977  {cab 2596  wral 2896  {crab 2900  cin 3539  wss 3540  c0 3874  𝒫 cpw 4108  {csn 4125   ciun 4450   class class class wbr 4578  {copab 4637  cmpt 4638   × cxp 5026  ccnv 5027  dom cdm 5028  cres 5030  cima 5031  ccom 5032  Fun wfun 5784  wf 5786  cfv 5790  (class class class)co 6527  cmpt2 6529   supp csupp 7160  𝑚 cmap 7722  Fincfn 7819  1c1 9794   · cmul 9798  cle 9932  cn 10870  2c2 10920  0cn0 11142  cexp 12680  Σcsu 14213  cdvds 14770  bitscbits 14928  𝟭cind 29194
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1713  ax-4 1728  ax-5 1827  ax-6 1875  ax-7 1922  ax-8 1979  ax-9 1986  ax-10 2006  ax-11 2021  ax-12 2034  ax-13 2234  ax-ext 2590  ax-sep 4704  ax-nul 4712  ax-pow 4764  ax-pr 4828  ax-un 6825
This theorem depends on definitions:  df-bi 196  df-or 384  df-an 385  df-3an 1033  df-tru 1478  df-ex 1696  df-nf 1701  df-sb 1868  df-eu 2462  df-mo 2463  df-clab 2597  df-cleq 2603  df-clel 2606  df-nfc 2740  df-ne 2782  df-ral 2901  df-rex 2902  df-rab 2905  df-v 3175  df-sbc 3403  df-csb 3500  df-dif 3543  df-un 3545  df-in 3547  df-ss 3554  df-nul 3875  df-if 4037  df-pw 4110  df-sn 4126  df-pr 4128  df-op 4132  df-uni 4368  df-iun 4452  df-br 4579  df-opab 4639  df-mpt 4640  df-id 4943  df-xp 5034  df-rel 5035  df-cnv 5036  df-co 5037  df-dm 5038  df-rn 5039  df-res 5040  df-ima 5041  df-iota 5754  df-fun 5792  df-fn 5793  df-f 5794  df-fv 5798  df-ov 6530  df-oprab 6531  df-mpt2 6532  df-1st 7037  df-2nd 7038  df-map 7724
This theorem is referenced by: (None)
  Copyright terms: Public domain W3C validator