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

Theorem fseqen 9921
Description: A set that is equinumerous to its Cartesian product is equinumerous to the set of finite sequences on it. (This can be proven more easily using some choice but this proof avoids it.) (Contributed by Mario Carneiro, 18-Nov-2014.)
Assertion
Ref Expression
fseqen (((𝐴 × 𝐴) ≈ 𝐴𝐴 ≠ ∅) → 𝑛 ∈ ω (𝐴m 𝑛) ≈ (ω × 𝐴))
Distinct variable group:   𝐴,𝑛

Proof of Theorem fseqen
Dummy variables 𝑓 𝑏 𝑔 𝑘 𝑥 𝑦 are mutually distinct and distinct from all other variables.
StepHypRef Expression
1 bren 8851 . 2 ((𝐴 × 𝐴) ≈ 𝐴 ↔ ∃𝑓 𝑓:(𝐴 × 𝐴)–1-1-onto𝐴)
2 n0 4304 . 2 (𝐴 ≠ ∅ ↔ ∃𝑏 𝑏𝐴)
3 exdistrv 1959 . . 3 (∃𝑓𝑏(𝑓:(𝐴 × 𝐴)–1-1-onto𝐴𝑏𝐴) ↔ (∃𝑓 𝑓:(𝐴 × 𝐴)–1-1-onto𝐴 ∧ ∃𝑏 𝑏𝐴))
4 omex 9537 . . . . . . 7 ω ∈ V
5 simpl 483 . . . . . . . . 9 ((𝑓:(𝐴 × 𝐴)–1-1-onto𝐴𝑏𝐴) → 𝑓:(𝐴 × 𝐴)–1-1-onto𝐴)
6 f1ofo 6788 . . . . . . . . 9 (𝑓:(𝐴 × 𝐴)–1-1-onto𝐴𝑓:(𝐴 × 𝐴)–onto𝐴)
7 forn 6756 . . . . . . . . 9 (𝑓:(𝐴 × 𝐴)–onto𝐴 → ran 𝑓 = 𝐴)
85, 6, 73syl 18 . . . . . . . 8 ((𝑓:(𝐴 × 𝐴)–1-1-onto𝐴𝑏𝐴) → ran 𝑓 = 𝐴)
9 vex 3447 . . . . . . . . 9 𝑓 ∈ V
109rnex 7841 . . . . . . . 8 ran 𝑓 ∈ V
118, 10eqeltrrdi 2847 . . . . . . 7 ((𝑓:(𝐴 × 𝐴)–1-1-onto𝐴𝑏𝐴) → 𝐴 ∈ V)
12 xpexg 7676 . . . . . . 7 ((ω ∈ V ∧ 𝐴 ∈ V) → (ω × 𝐴) ∈ V)
134, 11, 12sylancr 587 . . . . . 6 ((𝑓:(𝐴 × 𝐴)–1-1-onto𝐴𝑏𝐴) → (ω × 𝐴) ∈ V)
14 simpr 485 . . . . . . 7 ((𝑓:(𝐴 × 𝐴)–1-1-onto𝐴𝑏𝐴) → 𝑏𝐴)
15 eqid 2736 . . . . . . 7 seqω((𝑘 ∈ V, 𝑔 ∈ V ↦ (𝑦 ∈ (𝐴m suc 𝑘) ↦ ((𝑔‘(𝑦𝑘))𝑓(𝑦𝑘)))), {⟨∅, 𝑏⟩}) = seqω((𝑘 ∈ V, 𝑔 ∈ V ↦ (𝑦 ∈ (𝐴m suc 𝑘) ↦ ((𝑔‘(𝑦𝑘))𝑓(𝑦𝑘)))), {⟨∅, 𝑏⟩})
16 eqid 2736 . . . . . . 7 (𝑥 𝑛 ∈ ω (𝐴m 𝑛) ↦ ⟨dom 𝑥, ((seqω((𝑘 ∈ V, 𝑔 ∈ V ↦ (𝑦 ∈ (𝐴m suc 𝑘) ↦ ((𝑔‘(𝑦𝑘))𝑓(𝑦𝑘)))), {⟨∅, 𝑏⟩})‘dom 𝑥)‘𝑥)⟩) = (𝑥 𝑛 ∈ ω (𝐴m 𝑛) ↦ ⟨dom 𝑥, ((seqω((𝑘 ∈ V, 𝑔 ∈ V ↦ (𝑦 ∈ (𝐴m suc 𝑘) ↦ ((𝑔‘(𝑦𝑘))𝑓(𝑦𝑘)))), {⟨∅, 𝑏⟩})‘dom 𝑥)‘𝑥)⟩)
1711, 14, 5, 15, 16fseqenlem2 9919 . . . . . 6 ((𝑓:(𝐴 × 𝐴)–1-1-onto𝐴𝑏𝐴) → (𝑥 𝑛 ∈ ω (𝐴m 𝑛) ↦ ⟨dom 𝑥, ((seqω((𝑘 ∈ V, 𝑔 ∈ V ↦ (𝑦 ∈ (𝐴m suc 𝑘) ↦ ((𝑔‘(𝑦𝑘))𝑓(𝑦𝑘)))), {⟨∅, 𝑏⟩})‘dom 𝑥)‘𝑥)⟩): 𝑛 ∈ ω (𝐴m 𝑛)–1-1→(ω × 𝐴))
18 f1domg 8870 . . . . . 6 ((ω × 𝐴) ∈ V → ((𝑥 𝑛 ∈ ω (𝐴m 𝑛) ↦ ⟨dom 𝑥, ((seqω((𝑘 ∈ V, 𝑔 ∈ V ↦ (𝑦 ∈ (𝐴m suc 𝑘) ↦ ((𝑔‘(𝑦𝑘))𝑓(𝑦𝑘)))), {⟨∅, 𝑏⟩})‘dom 𝑥)‘𝑥)⟩): 𝑛 ∈ ω (𝐴m 𝑛)–1-1→(ω × 𝐴) → 𝑛 ∈ ω (𝐴m 𝑛) ≼ (ω × 𝐴)))
1913, 17, 18sylc 65 . . . . 5 ((𝑓:(𝐴 × 𝐴)–1-1-onto𝐴𝑏𝐴) → 𝑛 ∈ ω (𝐴m 𝑛) ≼ (ω × 𝐴))
20 fseqdom 9920 . . . . . 6 (𝐴 ∈ V → (ω × 𝐴) ≼ 𝑛 ∈ ω (𝐴m 𝑛))
2111, 20syl 17 . . . . 5 ((𝑓:(𝐴 × 𝐴)–1-1-onto𝐴𝑏𝐴) → (ω × 𝐴) ≼ 𝑛 ∈ ω (𝐴m 𝑛))
22 sbth 8995 . . . . 5 (( 𝑛 ∈ ω (𝐴m 𝑛) ≼ (ω × 𝐴) ∧ (ω × 𝐴) ≼ 𝑛 ∈ ω (𝐴m 𝑛)) → 𝑛 ∈ ω (𝐴m 𝑛) ≈ (ω × 𝐴))
2319, 21, 22syl2anc 584 . . . 4 ((𝑓:(𝐴 × 𝐴)–1-1-onto𝐴𝑏𝐴) → 𝑛 ∈ ω (𝐴m 𝑛) ≈ (ω × 𝐴))
2423exlimivv 1935 . . 3 (∃𝑓𝑏(𝑓:(𝐴 × 𝐴)–1-1-onto𝐴𝑏𝐴) → 𝑛 ∈ ω (𝐴m 𝑛) ≈ (ω × 𝐴))
253, 24sylbir 234 . 2 ((∃𝑓 𝑓:(𝐴 × 𝐴)–1-1-onto𝐴 ∧ ∃𝑏 𝑏𝐴) → 𝑛 ∈ ω (𝐴m 𝑛) ≈ (ω × 𝐴))
261, 2, 25syl2anb 598 1 (((𝐴 × 𝐴) ≈ 𝐴𝐴 ≠ ∅) → 𝑛 ∈ ω (𝐴m 𝑛) ≈ (ω × 𝐴))
Colors of variables: wff setvar class
Syntax hints:  wi 4  wa 396   = wceq 1541  wex 1781  wcel 2106  wne 2941  Vcvv 3443  c0 4280  {csn 4584  cop 4590   ciun 4952   class class class wbr 5103  cmpt 5186   × cxp 5629  dom cdm 5631  ran crn 5632  cres 5633  suc csuc 6317  1-1wf1 6490  ontowfo 6491  1-1-ontowf1o 6492  cfv 6493  (class class class)co 7351  cmpo 7353  ωcom 7794  seqωcseqom 8385  m cmap 8723  cen 8838  cdom 8839
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 2707  ax-rep 5240  ax-sep 5254  ax-nul 5261  ax-pow 5318  ax-pr 5382  ax-un 7664  ax-inf2 9535
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 2538  df-eu 2567  df-clab 2714  df-cleq 2728  df-clel 2814  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-1st 7913  df-2nd 7914  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-dom 8843
This theorem is referenced by:  infpwfien  9956
  Copyright terms: Public domain W3C validator