Metamath Proof Explorer


Theorem pwfseq

Description: The powerset of a Dedekind-infinite set does not inject into the set of finite sequences. The proof is due to Halbeisen and Shelah. Proposition 1.7 of KanamoriPincus p. 418. (Contributed by Mario Carneiro, 31-May-2015)

Ref Expression
Assertion pwfseq ωA¬𝒫AnωAn

Proof

Step Hyp Ref Expression
1 reldom Rel
2 1 brrelex2i ωAAV
3 domeng AVωAtωttA
4 bren ωthh:ω1-1 ontot
5 harcl har𝒫AOn
6 infxpenc2 har𝒫AOnmbhar𝒫Aωbmb:b×b1-1 ontob
7 5 6 ax-mp mbhar𝒫Aωbmb:b×b1-1 ontob
8 simpr h:ω1-1 ontottAbhar𝒫Aωbmb:b×b1-1 ontobg:𝒫A1-1nωAng:𝒫A1-1nωAn
9 oveq2 n=kAn=Ak
10 9 cbviunv nωAn=kωAk
11 f1eq3 nωAn=kωAkg:𝒫A1-1nωAng:𝒫A1-1kωAk
12 10 11 ax-mp g:𝒫A1-1nωAng:𝒫A1-1kωAk
13 8 12 sylib h:ω1-1 ontottAbhar𝒫Aωbmb:b×b1-1 ontobg:𝒫A1-1nωAng:𝒫A1-1kωAk
14 simpllr h:ω1-1 ontottAbhar𝒫Aωbmb:b×b1-1 ontobg:𝒫A1-1nωAntA
15 simplll h:ω1-1 ontottAbhar𝒫Aωbmb:b×b1-1 ontobg:𝒫A1-1nωAnh:ω1-1 ontot
16 biid uAru×urWeuωuuAru×urWeuωu
17 simplr h:ω1-1 ontottAbhar𝒫Aωbmb:b×b1-1 ontobg:𝒫A1-1nωAnbhar𝒫Aωbmb:b×b1-1 ontob
18 sseq2 b=wωbωw
19 fveq2 b=wmb=mw
20 19 f1oeq1d b=wmb:b×b1-1 ontobmw:b×b1-1 ontob
21 xpeq12 b=wb=wb×b=w×w
22 21 anidms b=wb×b=w×w
23 22 f1oeq2d b=wmw:b×b1-1 ontobmw:w×w1-1 ontob
24 f1oeq3 b=wmw:w×w1-1 ontobmw:w×w1-1 ontow
25 20 23 24 3bitrd b=wmb:b×b1-1 ontobmw:w×w1-1 ontow
26 18 25 imbi12d b=wωbmb:b×b1-1 ontobωwmw:w×w1-1 ontow
27 26 cbvralvw bhar𝒫Aωbmb:b×b1-1 ontobwhar𝒫Aωwmw:w×w1-1 ontow
28 17 27 sylib h:ω1-1 ontottAbhar𝒫Aωbmb:b×b1-1 ontobg:𝒫A1-1nωAnwhar𝒫Aωwmw:w×w1-1 ontow
29 eqid OrdIsoru=OrdIsoru
30 eqid sdomOrdIsoru,zdomOrdIsoruOrdIsorusOrdIsoruz=sdomOrdIsoru,zdomOrdIsoruOrdIsorusOrdIsoruz
31 eqid OrdIsorumdomOrdIsorusdomOrdIsoru,zdomOrdIsoruOrdIsorusOrdIsoruz-1=OrdIsorumdomOrdIsorusdomOrdIsoru,zdomOrdIsoruOrdIsorusOrdIsoruz-1
32 eqid seqωpV,fVxusucpfxpOrdIsorumdomOrdIsorusdomOrdIsoru,zdomOrdIsoruOrdIsorusOrdIsoruz-1xpOrdIsoru=seqωpV,fVxusucpfxpOrdIsorumdomOrdIsorusdomOrdIsoru,zdomOrdIsoruOrdIsorusOrdIsoruz-1xpOrdIsoru
33 oveq2 n=kun=uk
34 33 cbviunv nωun=kωuk
35 34 mpteq1i ynωundomyseqωpV,fVxusucpfxpOrdIsorumdomOrdIsorusdomOrdIsoru,zdomOrdIsoruOrdIsorusOrdIsoruz-1xpOrdIsorudomyy=ykωukdomyseqωpV,fVxusucpfxpOrdIsorumdomOrdIsorusdomOrdIsoru,zdomOrdIsoruOrdIsorusOrdIsoruz-1xpOrdIsorudomyy
36 eqid xω,yuOrdIsoruxy=xω,yuOrdIsoruxy
37 eqid OrdIsorumdomOrdIsorusdomOrdIsoru,zdomOrdIsoruOrdIsorusOrdIsoruz-1xω,yuOrdIsoruxyynωundomyseqωpV,fVxusucpfxpOrdIsorumdomOrdIsorusdomOrdIsoru,zdomOrdIsoruOrdIsorusOrdIsoruz-1xpOrdIsorudomyy=OrdIsorumdomOrdIsorusdomOrdIsoru,zdomOrdIsoruOrdIsorusOrdIsoruz-1xω,yuOrdIsoruxyynωundomyseqωpV,fVxusucpfxpOrdIsorumdomOrdIsorusdomOrdIsoru,zdomOrdIsoruOrdIsorusOrdIsoruz-1xpOrdIsorudomyy
38 13 14 15 16 28 29 30 31 32 35 36 37 pwfseqlem5 ¬h:ω1-1 ontottAbhar𝒫Aωbmb:b×b1-1 ontobg:𝒫A1-1nωAn
39 38 imnani h:ω1-1 ontottAbhar𝒫Aωbmb:b×b1-1 ontob¬g:𝒫A1-1nωAn
40 39 nexdv h:ω1-1 ontottAbhar𝒫Aωbmb:b×b1-1 ontob¬gg:𝒫A1-1nωAn
41 brdomi 𝒫AnωAngg:𝒫A1-1nωAn
42 40 41 nsyl h:ω1-1 ontottAbhar𝒫Aωbmb:b×b1-1 ontob¬𝒫AnωAn
43 42 ex h:ω1-1 ontottAbhar𝒫Aωbmb:b×b1-1 ontob¬𝒫AnωAn
44 43 exlimdv h:ω1-1 ontottAmbhar𝒫Aωbmb:b×b1-1 ontob¬𝒫AnωAn
45 7 44 mpi h:ω1-1 ontottA¬𝒫AnωAn
46 45 ex h:ω1-1 ontottA¬𝒫AnωAn
47 46 exlimiv hh:ω1-1 ontottA¬𝒫AnωAn
48 4 47 sylbi ωttA¬𝒫AnωAn
49 48 imp ωttA¬𝒫AnωAn
50 49 exlimiv tωttA¬𝒫AnωAn
51 3 50 syl6bi AVωA¬𝒫AnωAn
52 2 51 mpcom ωA¬𝒫AnωAn