Metamath Proof Explorer


Theorem pwfseqlem5

Description: Lemma for pwfseq . Although in some ways pwfseqlem4 is the "main" part of the proof, one last aspect which makes up a remark in the original text is by far the hardest part to formalize. The main proof relies on the existence of an injection K from the set of finite sequences on an infinite set x to x . Now this alone would not be difficult to prove; this is mostly the claim of fseqen . However, what is needed for the proof is acanonical injection on these sets, so we have to start from scratch pulling together explicit bijections from the lemmas.

If one attempts such a program, it will mostly go through, but there is one key step which is inherently nonconstructive, namely the proof of infxpen . The resolution is not obvious, but it turns out that reversing an infinite ordinal's Cantor normal form absorbs all the non-leading terms ( cnfcom3c ), which can be used to construct a pairing function explicitly using properties of the ordinal exponential ( infxpenc ). (Contributed by Mario Carneiro, 31-May-2015)

Ref Expression
Hypotheses pwfseqlem5.g φ G : 𝒫 A 1-1 n ω A n
pwfseqlem5.x φ X A
pwfseqlem5.h φ H : ω 1-1 onto X
pwfseqlem5.ps ψ t A r t × t r We t ω t
pwfseqlem5.n φ b har 𝒫 A ω b N b : b × b 1-1 onto b
pwfseqlem5.o O = OrdIso r t
pwfseqlem5.t T = u dom O , v dom O O u O v
pwfseqlem5.p P = O N dom O T -1
pwfseqlem5.s S = seq ω k V , f V x t suc k f x k P x k O
pwfseqlem5.q Q = y n ω t n dom y S dom y y
pwfseqlem5.i I = x ω , y t O x y
pwfseqlem5.k K = P I Q
Assertion pwfseqlem5 ¬ φ

Proof

Step Hyp Ref Expression
1 pwfseqlem5.g φ G : 𝒫 A 1-1 n ω A n
2 pwfseqlem5.x φ X A
3 pwfseqlem5.h φ H : ω 1-1 onto X
4 pwfseqlem5.ps ψ t A r t × t r We t ω t
5 pwfseqlem5.n φ b har 𝒫 A ω b N b : b × b 1-1 onto b
6 pwfseqlem5.o O = OrdIso r t
7 pwfseqlem5.t T = u dom O , v dom O O u O v
8 pwfseqlem5.p P = O N dom O T -1
9 pwfseqlem5.s S = seq ω k V , f V x t suc k f x k P x k O
10 pwfseqlem5.q Q = y n ω t n dom y S dom y y
11 pwfseqlem5.i I = x ω , y t O x y
12 pwfseqlem5.k K = P I Q
13 vex t V
14 simprl3 φ t A r t × t r We t ω t r We t
15 4 14 sylan2b φ ψ r We t
16 6 oiiso t V r We t O Isom E , r dom O t
17 13 15 16 sylancr φ ψ O Isom E , r dom O t
18 isof1o O Isom E , r dom O t O : dom O 1-1 onto t
19 17 18 syl φ ψ O : dom O 1-1 onto t
20 cardom card ω = ω
21 simprr φ t A r t × t r We t ω t ω t
22 4 21 sylan2b φ ψ ω t
23 6 oien t V r We t dom O t
24 13 15 23 sylancr φ ψ dom O t
25 24 ensymd φ ψ t dom O
26 domentr ω t t dom O ω dom O
27 22 25 26 syl2anc φ ψ ω dom O
28 omelon ω On
29 onenon ω On ω dom card
30 28 29 ax-mp ω dom card
31 6 oion t V dom O On
32 31 elv dom O On
33 onenon dom O On dom O dom card
34 32 33 mp1i φ ψ dom O dom card
35 carddom2 ω dom card dom O dom card card ω card dom O ω dom O
36 30 34 35 sylancr φ ψ card ω card dom O ω dom O
37 27 36 mpbird φ ψ card ω card dom O
38 20 37 eqsstrrid φ ψ ω card dom O
39 cardonle dom O On card dom O dom O
40 32 39 mp1i φ ψ card dom O dom O
41 38 40 sstrd φ ψ ω dom O
42 sseq2 b = dom O ω b ω dom O
43 fveq2 b = dom O N b = N dom O
44 f1oeq1 N b = N dom O N b : b × b 1-1 onto b N dom O : b × b 1-1 onto b
45 43 44 syl b = dom O N b : b × b 1-1 onto b N dom O : b × b 1-1 onto b
46 xpeq12 b = dom O b = dom O b × b = dom O × dom O
47 46 anidms b = dom O b × b = dom O × dom O
48 47 f1oeq2d b = dom O N dom O : b × b 1-1 onto b N dom O : dom O × dom O 1-1 onto b
49 f1oeq3 b = dom O N dom O : dom O × dom O 1-1 onto b N dom O : dom O × dom O 1-1 onto dom O
50 45 48 49 3bitrd b = dom O N b : b × b 1-1 onto b N dom O : dom O × dom O 1-1 onto dom O
51 42 50 imbi12d b = dom O ω b N b : b × b 1-1 onto b ω dom O N dom O : dom O × dom O 1-1 onto dom O
52 5 adantr φ ψ b har 𝒫 A ω b N b : b × b 1-1 onto b
53 32 a1i φ ψ dom O On
54 1 adantr φ ψ G : 𝒫 A 1-1 n ω A n
55 omex ω V
56 ovex A n V
57 55 56 iunex n ω A n V
58 f1dmex G : 𝒫 A 1-1 n ω A n n ω A n V 𝒫 A V
59 54 57 58 sylancl φ ψ 𝒫 A V
60 pwexb A V 𝒫 A V
61 59 60 sylibr φ ψ A V
62 simprl1 φ t A r t × t r We t ω t t A
63 4 62 sylan2b φ ψ t A
64 ssdomg A V t A t A
65 61 63 64 sylc φ ψ t A
66 canth2g A V A 𝒫 A
67 sdomdom A 𝒫 A A 𝒫 A
68 61 66 67 3syl φ ψ A 𝒫 A
69 domtr t A A 𝒫 A t 𝒫 A
70 65 68 69 syl2anc φ ψ t 𝒫 A
71 endomtr dom O t t 𝒫 A dom O 𝒫 A
72 24 70 71 syl2anc φ ψ dom O 𝒫 A
73 elharval dom O har 𝒫 A dom O On dom O 𝒫 A
74 53 72 73 sylanbrc φ ψ dom O har 𝒫 A
75 51 52 74 rspcdva φ ψ ω dom O N dom O : dom O × dom O 1-1 onto dom O
76 41 75 mpd φ ψ N dom O : dom O × dom O 1-1 onto dom O
77 f1oco O : dom O 1-1 onto t N dom O : dom O × dom O 1-1 onto dom O O N dom O : dom O × dom O 1-1 onto t
78 19 76 77 syl2anc φ ψ O N dom O : dom O × dom O 1-1 onto t
79 f1of O : dom O 1-1 onto t O : dom O t
80 19 79 syl φ ψ O : dom O t
81 80 feqmptd φ ψ O = u dom O O u
82 f1oeq1 O = u dom O O u O : dom O 1-1 onto t u dom O O u : dom O 1-1 onto t
83 81 82 syl φ ψ O : dom O 1-1 onto t u dom O O u : dom O 1-1 onto t
84 19 83 mpbid φ ψ u dom O O u : dom O 1-1 onto t
85 80 feqmptd φ ψ O = v dom O O v
86 f1oeq1 O = v dom O O v O : dom O 1-1 onto t v dom O O v : dom O 1-1 onto t
87 85 86 syl φ ψ O : dom O 1-1 onto t v dom O O v : dom O 1-1 onto t
88 19 87 mpbid φ ψ v dom O O v : dom O 1-1 onto t
89 84 88 xpf1o φ ψ u dom O , v dom O O u O v : dom O × dom O 1-1 onto t × t
90 f1oeq1 T = u dom O , v dom O O u O v T : dom O × dom O 1-1 onto t × t u dom O , v dom O O u O v : dom O × dom O 1-1 onto t × t
91 7 90 ax-mp T : dom O × dom O 1-1 onto t × t u dom O , v dom O O u O v : dom O × dom O 1-1 onto t × t
92 89 91 sylibr φ ψ T : dom O × dom O 1-1 onto t × t
93 f1ocnv T : dom O × dom O 1-1 onto t × t T -1 : t × t 1-1 onto dom O × dom O
94 92 93 syl φ ψ T -1 : t × t 1-1 onto dom O × dom O
95 f1oco O N dom O : dom O × dom O 1-1 onto t T -1 : t × t 1-1 onto dom O × dom O O N dom O T -1 : t × t 1-1 onto t
96 78 94 95 syl2anc φ ψ O N dom O T -1 : t × t 1-1 onto t
97 f1oeq1 P = O N dom O T -1 P : t × t 1-1 onto t O N dom O T -1 : t × t 1-1 onto t
98 8 97 ax-mp P : t × t 1-1 onto t O N dom O T -1 : t × t 1-1 onto t
99 96 98 sylibr φ ψ P : t × t 1-1 onto t
100 f1of1 P : t × t 1-1 onto t P : t × t 1-1 t
101 99 100 syl φ ψ P : t × t 1-1 t
102 f1of1 O : dom O 1-1 onto t O : dom O 1-1 t
103 19 102 syl φ ψ O : dom O 1-1 t
104 f1ssres O : dom O 1-1 t ω dom O O ω : ω 1-1 t
105 103 41 104 syl2anc φ ψ O ω : ω 1-1 t
106 f1f1orn O ω : ω 1-1 t O ω : ω 1-1 onto ran O ω
107 105 106 syl φ ψ O ω : ω 1-1 onto ran O ω
108 80 41 feqresmpt φ ψ O ω = x ω O x
109 f1oeq1 O ω = x ω O x O ω : ω 1-1 onto ran O ω x ω O x : ω 1-1 onto ran O ω
110 108 109 syl φ ψ O ω : ω 1-1 onto ran O ω x ω O x : ω 1-1 onto ran O ω
111 107 110 mpbid φ ψ x ω O x : ω 1-1 onto ran O ω
112 mptresid I t = y t y
113 112 eqcomi y t y = I t
114 f1oi I t : t 1-1 onto t
115 f1oeq1 y t y = I t y t y : t 1-1 onto t I t : t 1-1 onto t
116 114 115 mpbiri y t y = I t y t y : t 1-1 onto t
117 113 116 mp1i φ ψ y t y : t 1-1 onto t
118 111 117 xpf1o φ ψ x ω , y t O x y : ω × t 1-1 onto ran O ω × t
119 f1oeq1 I = x ω , y t O x y I : ω × t 1-1 onto ran O ω × t x ω , y t O x y : ω × t 1-1 onto ran O ω × t
120 11 119 ax-mp I : ω × t 1-1 onto ran O ω × t x ω , y t O x y : ω × t 1-1 onto ran O ω × t
121 118 120 sylibr φ ψ I : ω × t 1-1 onto ran O ω × t
122 f1of1 I : ω × t 1-1 onto ran O ω × t I : ω × t 1-1 ran O ω × t
123 121 122 syl φ ψ I : ω × t 1-1 ran O ω × t
124 f1f O ω : ω 1-1 t O ω : ω t
125 frn O ω : ω t ran O ω t
126 xpss1 ran O ω t ran O ω × t t × t
127 105 124 125 126 4syl φ ψ ran O ω × t t × t
128 f1ss I : ω × t 1-1 ran O ω × t ran O ω × t t × t I : ω × t 1-1 t × t
129 123 127 128 syl2anc φ ψ I : ω × t 1-1 t × t
130 f1co P : t × t 1-1 t I : ω × t 1-1 t × t P I : ω × t 1-1 t
131 101 129 130 syl2anc φ ψ P I : ω × t 1-1 t
132 13 a1i φ ψ t V
133 peano1 ω
134 133 a1i φ ψ ω
135 41 134 sseldd φ ψ dom O
136 80 135 ffvelrnd φ ψ O t
137 132 136 99 9 10 fseqenlem2 φ ψ Q : n ω t n 1-1 ω × t
138 f1co P I : ω × t 1-1 t Q : n ω t n 1-1 ω × t P I Q : n ω t n 1-1 t
139 131 137 138 syl2anc φ ψ P I Q : n ω t n 1-1 t
140 f1eq1 K = P I Q K : n ω t n 1-1 t P I Q : n ω t n 1-1 t
141 12 140 ax-mp K : n ω t n 1-1 t P I Q : n ω t n 1-1 t
142 139 141 sylibr φ ψ K : n ω t n 1-1 t
143 eqid G i t | K -1 i ran G ¬ i G -1 K -1 i = G i t | K -1 i ran G ¬ i G -1 K -1 i
144 eqid t V , r V if t Fin H card t G i t | K -1 i ran G ¬ i G -1 K -1 i z ω | ¬ G i t | K -1 i ran G ¬ i G -1 K -1 i z t = t V , r V if t Fin H card t G i t | K -1 i ran G ¬ i G -1 K -1 i z ω | ¬ G i t | K -1 i ran G ¬ i G -1 K -1 i z t
145 eqid c d | c A d c × c d We c m c [˙ d -1 m / j]˙ j t V , r V if t Fin H card t G i t | K -1 i ran G ¬ i G -1 K -1 i z ω | ¬ G i t | K -1 i ran G ¬ i G -1 K -1 i z t d j × j = m = c d | c A d c × c d We c m c [˙ d -1 m / j]˙ j t V , r V if t Fin H card t G i t | K -1 i ran G ¬ i G -1 K -1 i z ω | ¬ G i t | K -1 i ran G ¬ i G -1 K -1 i z t d j × j = m
146 145 fpwwe2cbv c d | c A d c × c d We c m c [˙ d -1 m / j]˙ j t V , r V if t Fin H card t G i t | K -1 i ran G ¬ i G -1 K -1 i z ω | ¬ G i t | K -1 i ran G ¬ i G -1 K -1 i z t d j × j = m = a s | a A s a × a s We a b a [˙ s -1 b / w]˙ w t V , r V if t Fin H card t G i t | K -1 i ran G ¬ i G -1 K -1 i z ω | ¬ G i t | K -1 i ran G ¬ i G -1 K -1 i z t s w × w = b
147 eqid dom c d | c A d c × c d We c m c [˙ d -1 m / j]˙ j t V , r V if t Fin H card t G i t | K -1 i ran G ¬ i G -1 K -1 i z ω | ¬ G i t | K -1 i ran G ¬ i G -1 K -1 i z t d j × j = m = dom c d | c A d c × c d We c m c [˙ d -1 m / j]˙ j t V , r V if t Fin H card t G i t | K -1 i ran G ¬ i G -1 K -1 i z ω | ¬ G i t | K -1 i ran G ¬ i G -1 K -1 i z t d j × j = m
148 1 2 3 4 142 143 144 146 147 pwfseqlem4 ¬ φ