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

Theorem pwfseqlem5 10749
Description: Lemma for pwfseq 10750. Although in some ways pwfseqlem4 10748 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 𝐾 from the set of finite sequences on an infinite set 𝑥 to 𝑥. Now this alone would not be difficult to prove; this is mostly the claim of fseqen 10107. However, what is needed for the proof is a canonical 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 10094. 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 9708), which can be used to construct a pairing function explicitly using properties of the ordinal exponential (infxpenc 10098). (Contributed by Mario Carneiro, 31-May-2015.)

Hypotheses
Ref Expression
pwfseqlem5.g (𝜑 → 𝐺:𝒫 𝐴–1-1→∪ 𝑛 ∈ ω (𝐴 ↑m 𝑛))
pwfseqlem5.x (𝜑 → 𝑋 ⊆ 𝐴)
pwfseqlem5.h (𝜑 → 𝐻:ω–1-1-onto→𝑋)
pwfseqlem5.ps (𝜓 ↔ ((𝑡 ⊆ 𝐴 ∧ 𝑟 ⊆ (𝑡 × 𝑡) ∧ 𝑟 We 𝑡) ∧ ω ≼ 𝑡))
pwfseqlem5.n (𝜑 → ∀𝑏 ∈ (har‘𝒫 𝐴)(ω ⊆ 𝑏 → (𝑁‘𝑏):(𝑏 × 𝑏)–1-1-onto→𝑏))
pwfseqlem5.o 𝑂 = OrdIso(𝑟, 𝑡)
pwfseqlem5.t 𝑇 = (𝑢 ∈ dom 𝑂, 𝑣 ∈ dom 𝑂 ↦ ⟨(𝑂‘𝑢), (𝑂‘𝑣)⟩)
pwfseqlem5.p 𝑃 = ((𝑂 ∘ (𝑁‘dom 𝑂)) ∘ ◡𝑇)
pwfseqlem5.s 𝑆 = seqω((𝑘 ∈ V, 𝑓 ∈ V ↦ (𝑥 ∈ (𝑡 ↑m suc 𝑘) ↦ ((𝑓‘(𝑥 ↾ 𝑘))𝑃(𝑥‘𝑘)))), {⟨∅, (𝑂‘∅)⟩})
pwfseqlem5.q 𝑄 = (𝑦 ∈ ∪ 𝑛 ∈ ω (𝑡 ↑m 𝑛) ↦ ⟨dom 𝑦, ((𝑆‘dom 𝑦)‘𝑦)⟩)
pwfseqlem5.i 𝐼 = (𝑥 ∈ ω, 𝑦 ∈ 𝑡 ↦ ⟨(𝑂‘𝑥), 𝑦⟩)
pwfseqlem5.k 𝐾 = ((𝑃 ∘ 𝐼) ∘ 𝑄)
Assertion
Ref Expression
pwfseqlem5 ¬ 𝜑
Distinct variable groups:   𝑛,𝑏,𝐺   𝑟,𝑏,𝑡,𝐻   𝑓,𝑘,𝑥,𝑃   𝑓,𝑏,𝑘,𝑢,𝑣,𝑥,𝑦,𝑛,𝑟,𝑡   𝜑,𝑏,𝑘,𝑛,𝑟,𝑡,𝑥,𝑦   𝐾,𝑏,𝑛   𝑁,𝑏   𝜓,𝑘,𝑛,𝑥,𝑦   𝑆,𝑛,𝑦   𝐴,𝑏,𝑛,𝑟,𝑡   𝑂,𝑏,𝑢,𝑣,𝑥,𝑦
Allowed substitution hints:   𝜑(𝑣, 𝑢, 𝑓)   𝜓(𝑣, 𝑢, 𝑡, 𝑓, 𝑟, 𝑏)   𝐴(𝑥, 𝑦, 𝑣, 𝑢, 𝑓, 𝑘)   𝑃(𝑦, 𝑣, 𝑢, 𝑡, 𝑛, 𝑟, 𝑏)   𝑄(𝑥, 𝑦, 𝑣, 𝑢, 𝑡, 𝑓, 𝑘, 𝑛, 𝑟, 𝑏)   𝑆(𝑥, 𝑣, 𝑢, 𝑡, 𝑓, 𝑘, 𝑟, 𝑏)   𝑇(𝑥, 𝑦, 𝑣, 𝑢, 𝑡, 𝑓, 𝑘, 𝑛, 𝑟, 𝑏)   𝐺(𝑥, 𝑦, 𝑣, 𝑢, 𝑡, 𝑓, 𝑘, 𝑟)   𝐻(𝑥, 𝑦, 𝑣, 𝑢, 𝑓, 𝑘, 𝑛)   𝐼(𝑥, 𝑦, 𝑣, 𝑢, 𝑡, 𝑓, 𝑘, 𝑛, 𝑟, 𝑏)   𝐾(𝑥, 𝑦, 𝑣, 𝑢, 𝑡, 𝑓, 𝑘, 𝑟)   𝑁(𝑥, 𝑦, 𝑣, 𝑢, 𝑡, 𝑓, 𝑘, 𝑛, 𝑟)   𝑂(𝑡, 𝑓, 𝑘, 𝑛, 𝑟)   𝑋(𝑥, 𝑦, 𝑣, 𝑢, 𝑡, 𝑓, 𝑘, 𝑛, 𝑟, 𝑏)

Proof of Theorem pwfseqlem5
Dummy variables 𝑎 𝑐 𝑑 𝑖 𝑗 𝑚 𝑠 𝑤 𝑧 are mutually distinct and distinct from all other variables.
StepHypRef Expression
1 pwfseqlem5.g . 2 (𝜑 → 𝐺:𝒫 𝐴–1-1→∪ 𝑛 ∈ ω (𝐴 ↑m 𝑛))
2 pwfseqlem5.x . 2 (𝜑 → 𝑋 ⊆ 𝐴)
3 pwfseqlem5.h . 2 (𝜑 → 𝐻:ω–1-1-onto→𝑋)
4 pwfseqlem5.ps . 2 (𝜓 ↔ ((𝑡 ⊆ 𝐴 ∧ 𝑟 ⊆ (𝑡 × 𝑡) ∧ 𝑟 We 𝑡) ∧ ω ≼ 𝑡))
5 vex 3454 . . . . . . . . . . 11 𝑡 ∈ V
6 simprl3 1239 . . . . . . . . . . . 12 ((𝜑 ∧ ((𝑡 ⊆ 𝐴 ∧ 𝑟 ⊆ (𝑡 × 𝑡) ∧ 𝑟 We 𝑡) ∧ ω ≼ 𝑡)) → 𝑟 We 𝑡)
74, 6sylan2b 606 . . . . . . . . . . 11 ((𝜑 ∧ 𝜓) → 𝑟 We 𝑡)
8 pwfseqlem5.o . . . . . . . . . . . 12 𝑂 = OrdIso(𝑟, 𝑡)
98oiiso 9532 . . . . . . . . . . 11 ((𝑡 ∈ V ∧ 𝑟 We 𝑡) → 𝑂 Isom E , 𝑟 (dom 𝑂, 𝑡))
105, 7, 9sylancr 599 . . . . . . . . . 10 ((𝜑 ∧ 𝜓) → 𝑂 Isom E , 𝑟 (dom 𝑂, 𝑡))
11 isof1o 7331 . . . . . . . . . 10 (𝑂 Isom E , 𝑟 (dom 𝑂, 𝑡) → 𝑂:dom 𝑂–1-1-onto→𝑡)
1210, 11syl 18 . . . . . . . . 9 ((𝜑 ∧ 𝜓) → 𝑂:dom 𝑂–1-1-onto→𝑡)
13 cardom 10068 . . . . . . . . . . . 12 (card‘ω) = ω
14 simprr 785 . . . . . . . . . . . . . . 15 ((𝜑 ∧ ((𝑡 ⊆ 𝐴 ∧ 𝑟 ⊆ (𝑡 × 𝑡) ∧ 𝑟 We 𝑡) ∧ ω ≼ 𝑡)) → ω ≼ 𝑡)
154, 14sylan2b 606 . . . . . . . . . . . . . 14 ((𝜑 ∧ 𝜓) → ω ≼ 𝑡)
168oien 9533 . . . . . . . . . . . . . . . 16 ((𝑡 ∈ V ∧ 𝑟 We 𝑡) → dom 𝑂 ≈ 𝑡)
175, 7, 16sylancr 599 . . . . . . . . . . . . . . 15 ((𝜑 ∧ 𝜓) → dom 𝑂 ≈ 𝑡)
1817ensymd 9033 . . . . . . . . . . . . . 14 ((𝜑 ∧ 𝜓) → 𝑡 ≈ dom 𝑂)
19 domentr 9041 . . . . . . . . . . . . . 14 ((ω ≼ 𝑡 ∧ 𝑡 ≈ dom 𝑂) → ω ≼ dom 𝑂)
2015, 18, 19syl2anc 596 . . . . . . . . . . . . 13 ((𝜑 ∧ 𝜓) → ω ≼ dom 𝑂)
21 omelon 9648 . . . . . . . . . . . . . . 15 ω ∈ On
22 onenon 10031 . . . . . . . . . . . . . . 15 (ω ∈ On → ω ∈ dom card)
2321, 22ax-mp 5 . . . . . . . . . . . . . 14 ω ∈ dom card
248oion 9531 . . . . . . . . . . . . . . . 16 (𝑡 ∈ V → dom 𝑂 ∈ On)
2524elv 3455 . . . . . . . . . . . . . . 15 dom 𝑂 ∈ On
26 onenon 10031 . . . . . . . . . . . . . . 15 (dom 𝑂 ∈ On → dom 𝑂 ∈ dom card)
2725, 26mp1i 14 . . . . . . . . . . . . . 14 ((𝜑 ∧ 𝜓) → dom 𝑂 ∈ dom card)
28 carddom2 10059 . . . . . . . . . . . . . 14 ((ω ∈ dom card ∧ dom 𝑂 ∈ dom card) → ((card‘ω) ⊆ (card‘dom 𝑂) ↔ ω ≼ dom 𝑂))
2923, 27, 28sylancr 599 . . . . . . . . . . . . 13 ((𝜑 ∧ 𝜓) → ((card‘ω) ⊆ (card‘dom 𝑂) ↔ ω ≼ dom 𝑂))
3020, 29mpbird 260 . . . . . . . . . . . 12 ((𝜑 ∧ 𝜓) → (card‘ω) ⊆ (card‘dom 𝑂))
3113, 30eqsstrrid 3947 . . . . . . . . . . 11 ((𝜑 ∧ 𝜓) → ω ⊆ (card‘dom 𝑂))
32 cardonle 10039 . . . . . . . . . . . 12 (dom 𝑂 ∈ On → (card‘dom 𝑂) ⊆ dom 𝑂)
3325, 32mp1i 14 . . . . . . . . . . 11 ((𝜑 ∧ 𝜓) → (card‘dom 𝑂) ⊆ dom 𝑂)
3431, 33sstrd 3918 . . . . . . . . . 10 ((𝜑 ∧ 𝜓) → ω ⊆ dom 𝑂)
35 sseq2 3934 . . . . . . . . . . . 12 (𝑏 = dom 𝑂 → (ω ⊆ 𝑏 ↔ ω ⊆ dom 𝑂))
36 fveq2 6885 . . . . . . . . . . . . . 14 (𝑏 = dom 𝑂 → (𝑁‘𝑏) = (𝑁‘dom 𝑂))
3736f1oeq1d 6819 . . . . . . . . . . . . 13 (𝑏 = dom 𝑂 → ((𝑁‘𝑏):(𝑏 × 𝑏)–1-1-onto→𝑏 ↔ (𝑁‘dom 𝑂):(𝑏 × 𝑏)–1-1-onto→𝑏))
38 xpeq12 5675 . . . . . . . . . . . . . . 15 ((𝑏 = dom 𝑂 ∧ 𝑏 = dom 𝑂) → (𝑏 × 𝑏) = (dom 𝑂 × dom 𝑂))
3938anidms 577 . . . . . . . . . . . . . 14 (𝑏 = dom 𝑂 → (𝑏 × 𝑏) = (dom 𝑂 × dom 𝑂))
4039f1oeq2d 6820 . . . . . . . . . . . . 13 (𝑏 = dom 𝑂 → ((𝑁‘dom 𝑂):(𝑏 × 𝑏)–1-1-onto→𝑏 ↔ (𝑁‘dom 𝑂):(dom 𝑂 × dom 𝑂)–1-1-onto→𝑏))
41 f1oeq3 6814 . . . . . . . . . . . . 13 (𝑏 = dom 𝑂 → ((𝑁‘dom 𝑂):(dom 𝑂 × dom 𝑂)–1-1-onto→𝑏 ↔ (𝑁‘dom 𝑂):(dom 𝑂 × dom 𝑂)–1-1-onto→dom 𝑂))
4237, 40, 413bitrd 308 . . . . . . . . . . . 12 (𝑏 = dom 𝑂 → ((𝑁‘𝑏):(𝑏 × 𝑏)–1-1-onto→𝑏 ↔ (𝑁‘dom 𝑂):(dom 𝑂 × dom 𝑂)–1-1-onto→dom 𝑂))
4335, 42imbi12d 347 . . . . . . . . . . 11 (𝑏 = dom 𝑂 → ((ω ⊆ 𝑏 → (𝑁‘𝑏):(𝑏 × 𝑏)–1-1-onto→𝑏) ↔ (ω ⊆ dom 𝑂 → (𝑁‘dom 𝑂):(dom 𝑂 × dom 𝑂)–1-1-onto→dom 𝑂)))
44 pwfseqlem5.n . . . . . . . . . . . 12 (𝜑 → ∀𝑏 ∈ (har‘𝒫 𝐴)(ω ⊆ 𝑏 → (𝑁‘𝑏):(𝑏 × 𝑏)–1-1-onto→𝑏))
4544adantr 486 . . . . . . . . . . 11 ((𝜑 ∧ 𝜓) → ∀𝑏 ∈ (har‘𝒫 𝐴)(ω ⊆ 𝑏 → (𝑁‘𝑏):(𝑏 × 𝑏)–1-1-onto→𝑏))
4625a1i 11 . . . . . . . . . . . 12 ((𝜑 ∧ 𝜓) → dom 𝑂 ∈ On)
471adantr 486 . . . . . . . . . . . . . . . . 17 ((𝜑 ∧ 𝜓) → 𝐺:𝒫 𝐴–1-1→∪ 𝑛 ∈ ω (𝐴 ↑m 𝑛))
48 omex 9645 . . . . . . . . . . . . . . . . . 18 ω ∈ V
49 ovex 7453 . . . . . . . . . . . . . . . . . 18 (𝐴 ↑m 𝑛) ∈ V
5048, 49iunex 7980 . . . . . . . . . . . . . . . . 17 ∪ 𝑛 ∈ ω (𝐴 ↑m 𝑛) ∈ V
51 f1dmex 7969 . . . . . . . . . . . . . . . . 17 ((𝐺:𝒫 𝐴–1-1→∪ 𝑛 ∈ ω (𝐴 ↑m 𝑛) ∧ ∪ 𝑛 ∈ ω (𝐴 ↑m 𝑛) ∈ V) → 𝒫 𝐴 ∈ V)
5247, 50, 51sylancl 598 . . . . . . . . . . . . . . . 16 ((𝜑 ∧ 𝜓) → 𝒫 𝐴 ∈ V)
53 pwexb 7780 . . . . . . . . . . . . . . . 16 (𝐴 ∈ V ↔ 𝒫 𝐴 ∈ V)
5452, 53sylibr 237 . . . . . . . . . . . . . . 15 ((𝜑 ∧ 𝜓) → 𝐴 ∈ V)
55 simprl1 1237 . . . . . . . . . . . . . . . 16 ((𝜑 ∧ ((𝑡 ⊆ 𝐴 ∧ 𝑟 ⊆ (𝑡 × 𝑡) ∧ 𝑟 We 𝑡) ∧ ω ≼ 𝑡)) → 𝑡 ⊆ 𝐴)
564, 55sylan2b 606 . . . . . . . . . . . . . . 15 ((𝜑 ∧ 𝜓) → 𝑡 ⊆ 𝐴)
57 ssdomg 9028 . . . . . . . . . . . . . . 15 (𝐴 ∈ V → (𝑡 ⊆ 𝐴 → 𝑡 ≼ 𝐴))
5854, 56, 57sylc 66 . . . . . . . . . . . . . 14 ((𝜑 ∧ 𝜓) → 𝑡 ≼ 𝐴)
59 canth2g 9151 . . . . . . . . . . . . . . 15 (𝐴 ∈ V → 𝐴 ≺ 𝒫 𝐴)
60 sdomdom 9008 . . . . . . . . . . . . . . 15 (𝐴 ≺ 𝒫 𝐴 → 𝐴 ≼ 𝒫 𝐴)
6154, 59, 603syl 19 . . . . . . . . . . . . . 14 ((𝜑 ∧ 𝜓) → 𝐴 ≼ 𝒫 𝐴)
62 domtr 9035 . . . . . . . . . . . . . 14 ((𝑡 ≼ 𝐴 ∧ 𝐴 ≼ 𝒫 𝐴) → 𝑡 ≼ 𝒫 𝐴)
6358, 61, 62syl2anc 596 . . . . . . . . . . . . 13 ((𝜑 ∧ 𝜓) → 𝑡 ≼ 𝒫 𝐴)
64 endomtr 9040 . . . . . . . . . . . . 13 ((dom 𝑂 ≈ 𝑡 ∧ 𝑡 ≼ 𝒫 𝐴) → dom 𝑂 ≼ 𝒫 𝐴)
6517, 63, 64syl2anc 596 . . . . . . . . . . . 12 ((𝜑 ∧ 𝜓) → dom 𝑂 ≼ 𝒫 𝐴)
66 elharval 9556 . . . . . . . . . . . 12 (dom 𝑂 ∈ (har‘𝒫 𝐴) ↔ (dom 𝑂 ∈ On ∧ dom 𝑂 ≼ 𝒫 𝐴))
6746, 65, 66sylanbrc 595 . . . . . . . . . . 11 ((𝜑 ∧ 𝜓) → dom 𝑂 ∈ (har‘𝒫 𝐴))
6843, 45, 67rspcdva 3577 . . . . . . . . . 10 ((𝜑 ∧ 𝜓) → (ω ⊆ dom 𝑂 → (𝑁‘dom 𝑂):(dom 𝑂 × dom 𝑂)–1-1-onto→dom 𝑂))
6934, 68mpd 16 . . . . . . . . 9 ((𝜑 ∧ 𝜓) → (𝑁‘dom 𝑂):(dom 𝑂 × dom 𝑂)–1-1-onto→dom 𝑂)
70 f1oco 6848 . . . . . . . . 9 ((𝑂:dom 𝑂–1-1-onto→𝑡 ∧ (𝑁‘dom 𝑂):(dom 𝑂 × dom 𝑂)–1-1-onto→dom 𝑂) → (𝑂 ∘ (𝑁‘dom 𝑂)):(dom 𝑂 × dom 𝑂)–1-1-onto→𝑡)
7112, 69, 70syl2anc 596 . . . . . . . 8 ((𝜑 ∧ 𝜓) → (𝑂 ∘ (𝑁‘dom 𝑂)):(dom 𝑂 × dom 𝑂)–1-1-onto→𝑡)
72 f1of 6824 . . . . . . . . . . . . . . 15 (𝑂:dom 𝑂–1-1-onto→𝑡 → 𝑂:dom 𝑂⟶𝑡)
7312, 72syl 18 . . . . . . . . . . . . . 14 ((𝜑 ∧ 𝜓) → 𝑂:dom 𝑂⟶𝑡)
7473feqmptd 6953 . . . . . . . . . . . . 13 ((𝜑 ∧ 𝜓) → 𝑂 = (𝑢 ∈ dom 𝑂 ↦ (𝑂‘𝑢)))
7574f1oeq1d 6819 . . . . . . . . . . . 12 ((𝜑 ∧ 𝜓) → (𝑂:dom 𝑂–1-1-onto→𝑡 ↔ (𝑢 ∈ dom 𝑂 ↦ (𝑂‘𝑢)):dom 𝑂–1-1-onto→𝑡))
7612, 75mpbid 235 . . . . . . . . . . 11 ((𝜑 ∧ 𝜓) → (𝑢 ∈ dom 𝑂 ↦ (𝑂‘𝑢)):dom 𝑂–1-1-onto→𝑡)
7773feqmptd 6953 . . . . . . . . . . . . 13 ((𝜑 ∧ 𝜓) → 𝑂 = (𝑣 ∈ dom 𝑂 ↦ (𝑂‘𝑣)))
7877f1oeq1d 6819 . . . . . . . . . . . 12 ((𝜑 ∧ 𝜓) → (𝑂:dom 𝑂–1-1-onto→𝑡 ↔ (𝑣 ∈ dom 𝑂 ↦ (𝑂‘𝑣)):dom 𝑂–1-1-onto→𝑡))
7912, 78mpbid 235 . . . . . . . . . . 11 ((𝜑 ∧ 𝜓) → (𝑣 ∈ dom 𝑂 ↦ (𝑂‘𝑣)):dom 𝑂–1-1-onto→𝑡)
8076, 79xpf1o 9159 . . . . . . . . . 10 ((𝜑 ∧ 𝜓) → (𝑢 ∈ dom 𝑂, 𝑣 ∈ dom 𝑂 ↦ ⟨(𝑂‘𝑢), (𝑂‘𝑣)⟩):(dom 𝑂 × dom 𝑂)–1-1-onto→(𝑡 × 𝑡))
81 pwfseqlem5.t . . . . . . . . . . 11 𝑇 = (𝑢 ∈ dom 𝑂, 𝑣 ∈ dom 𝑂 ↦ ⟨(𝑂‘𝑢), (𝑂‘𝑣)⟩)
82 f1oeq1 6812 . . . . . . . . . . 11 (𝑇 = (𝑢 ∈ dom 𝑂, 𝑣 ∈ dom 𝑂 ↦ ⟨(𝑂‘𝑢), (𝑂‘𝑣)⟩) → (𝑇:(dom 𝑂 × dom 𝑂)–1-1-onto→(𝑡 × 𝑡) ↔ (𝑢 ∈ dom 𝑂, 𝑣 ∈ dom 𝑂 ↦ ⟨(𝑂‘𝑢), (𝑂‘𝑣)⟩):(dom 𝑂 × dom 𝑂)–1-1-onto→(𝑡 × 𝑡)))
8381, 82ax-mp 5 . . . . . . . . . 10 (𝑇:(dom 𝑂 × dom 𝑂)–1-1-onto→(𝑡 × 𝑡) ↔ (𝑢 ∈ dom 𝑂, 𝑣 ∈ dom 𝑂 ↦ ⟨(𝑂‘𝑢), (𝑂‘𝑣)⟩):(dom 𝑂 × dom 𝑂)–1-1-onto→(𝑡 × 𝑡))
8480, 83sylibr 237 . . . . . . . . 9 ((𝜑 ∧ 𝜓) → 𝑇:(dom 𝑂 × dom 𝑂)–1-1-onto→(𝑡 × 𝑡))
85 f1ocnv 6837 . . . . . . . . 9 (𝑇:(dom 𝑂 × dom 𝑂)–1-1-onto→(𝑡 × 𝑡) → ◡𝑇:(𝑡 × 𝑡)–1-1-onto→(dom 𝑂 × dom 𝑂))
8684, 85syl 18 . . . . . . . 8 ((𝜑 ∧ 𝜓) → ◡𝑇:(𝑡 × 𝑡)–1-1-onto→(dom 𝑂 × dom 𝑂))
87 f1oco 6848 . . . . . . . 8 (((𝑂 ∘ (𝑁‘dom 𝑂)):(dom 𝑂 × dom 𝑂)–1-1-onto→𝑡 ∧ ◡𝑇:(𝑡 × 𝑡)–1-1-onto→(dom 𝑂 × dom 𝑂)) → ((𝑂 ∘ (𝑁‘dom 𝑂)) ∘ ◡𝑇):(𝑡 × 𝑡)–1-1-onto→𝑡)
8871, 86, 87syl2anc 596 . . . . . . 7 ((𝜑 ∧ 𝜓) → ((𝑂 ∘ (𝑁‘dom 𝑂)) ∘ ◡𝑇):(𝑡 × 𝑡)–1-1-onto→𝑡)
89 pwfseqlem5.p . . . . . . . 8 𝑃 = ((𝑂 ∘ (𝑁‘dom 𝑂)) ∘ ◡𝑇)
90 f1oeq1 6812 . . . . . . . 8 (𝑃 = ((𝑂 ∘ (𝑁‘dom 𝑂)) ∘ ◡𝑇) → (𝑃:(𝑡 × 𝑡)–1-1-onto→𝑡 ↔ ((𝑂 ∘ (𝑁‘dom 𝑂)) ∘ ◡𝑇):(𝑡 × 𝑡)–1-1-onto→𝑡))
9189, 90ax-mp 5 . . . . . . 7 (𝑃:(𝑡 × 𝑡)–1-1-onto→𝑡 ↔ ((𝑂 ∘ (𝑁‘dom 𝑂)) ∘ ◡𝑇):(𝑡 × 𝑡)–1-1-onto→𝑡)
9288, 91sylibr 237 . . . . . 6 ((𝜑 ∧ 𝜓) → 𝑃:(𝑡 × 𝑡)–1-1-onto→𝑡)
93 f1of1 6823 . . . . . 6 (𝑃:(𝑡 × 𝑡)–1-1-onto→𝑡 → 𝑃:(𝑡 × 𝑡)–1-1→𝑡)
9492, 93syl 18 . . . . 5 ((𝜑 ∧ 𝜓) → 𝑃:(𝑡 × 𝑡)–1-1→𝑡)
95 f1of1 6823 . . . . . . . . . . . . 13 (𝑂:dom 𝑂–1-1-onto→𝑡 → 𝑂:dom 𝑂–1-1→𝑡)
9612, 95syl 18 . . . . . . . . . . . 12 ((𝜑 ∧ 𝜓) → 𝑂:dom 𝑂–1-1→𝑡)
97 f1ssres 6787 . . . . . . . . . . . 12 ((𝑂:dom 𝑂–1-1→𝑡 ∧ ω ⊆ dom 𝑂) → (𝑂 ↾ ω):ω–1-1→𝑡)
9896, 34, 97syl2anc 596 . . . . . . . . . . 11 ((𝜑 ∧ 𝜓) → (𝑂 ↾ ω):ω–1-1→𝑡)
99 f1f1orn 6836 . . . . . . . . . . 11 ((𝑂 ↾ ω):ω–1-1→𝑡 → (𝑂 ↾ ω):ω–1-1-onto→ran (𝑂 ↾ ω))
10098, 99syl 18 . . . . . . . . . 10 ((𝜑 ∧ 𝜓) → (𝑂 ↾ ω):ω–1-1-onto→ran (𝑂 ↾ ω))
10173, 34feqresmpt 6954 . . . . . . . . . . 11 ((𝜑 ∧ 𝜓) → (𝑂 ↾ ω) = (𝑥 ∈ ω ↦ (𝑂‘𝑥)))
102101f1oeq1d 6819 . . . . . . . . . 10 ((𝜑 ∧ 𝜓) → ((𝑂 ↾ ω):ω–1-1-onto→ran (𝑂 ↾ ω) ↔ (𝑥 ∈ ω ↦ (𝑂‘𝑥)):ω–1-1-onto→ran (𝑂 ↾ ω)))
103100, 102mpbid 235 . . . . . . . . 9 ((𝜑 ∧ 𝜓) → (𝑥 ∈ ω ↦ (𝑂‘𝑥)):ω–1-1-onto→ran (𝑂 ↾ ω))
104 mptresid 6042 . . . . . . . . . . 11 ( I ↾ 𝑡) = (𝑦 ∈ 𝑡 ↦ 𝑦)
105104eqcomi 2769 . . . . . . . . . 10 (𝑦 ∈ 𝑡 ↦ 𝑦) = ( I ↾ 𝑡)
106 f1oi 6863 . . . . . . . . . . 11 ( I ↾ 𝑡):𝑡–1-1-onto→𝑡
107 f1oeq1 6812 . . . . . . . . . . 11 ((𝑦 ∈ 𝑡 ↦ 𝑦) = ( I ↾ 𝑡) → ((𝑦 ∈ 𝑡 ↦ 𝑦):𝑡–1-1-onto→𝑡 ↔ ( I ↾ 𝑡):𝑡–1-1-onto→𝑡))
108106, 107mpbiri 261 . . . . . . . . . 10 ((𝑦 ∈ 𝑡 ↦ 𝑦) = ( I ↾ 𝑡) → (𝑦 ∈ 𝑡 ↦ 𝑦):𝑡–1-1-onto→𝑡)
109105, 108mp1i 14 . . . . . . . . 9 ((𝜑 ∧ 𝜓) → (𝑦 ∈ 𝑡 ↦ 𝑦):𝑡–1-1-onto→𝑡)
110103, 109xpf1o 9159 . . . . . . . 8 ((𝜑 ∧ 𝜓) → (𝑥 ∈ ω, 𝑦 ∈ 𝑡 ↦ ⟨(𝑂‘𝑥), 𝑦⟩):(ω × 𝑡)–1-1-onto→(ran (𝑂 ↾ ω) × 𝑡))
111 pwfseqlem5.i . . . . . . . . 9 𝐼 = (𝑥 ∈ ω, 𝑦 ∈ 𝑡 ↦ ⟨(𝑂‘𝑥), 𝑦⟩)
112 f1oeq1 6812 . . . . . . . . 9 (𝐼 = (𝑥 ∈ ω, 𝑦 ∈ 𝑡 ↦ ⟨(𝑂‘𝑥), 𝑦⟩) → (𝐼:(ω × 𝑡)–1-1-onto→(ran (𝑂 ↾ ω) × 𝑡) ↔ (𝑥 ∈ ω, 𝑦 ∈ 𝑡 ↦ ⟨(𝑂‘𝑥), 𝑦⟩):(ω × 𝑡)–1-1-onto→(ran (𝑂 ↾ ω) × 𝑡)))
113111, 112ax-mp 5 . . . . . . . 8 (𝐼:(ω × 𝑡)–1-1-onto→(ran (𝑂 ↾ ω) × 𝑡) ↔ (𝑥 ∈ ω, 𝑦 ∈ 𝑡 ↦ ⟨(𝑂‘𝑥), 𝑦⟩):(ω × 𝑡)–1-1-onto→(ran (𝑂 ↾ ω) × 𝑡))
114110, 113sylibr 237 . . . . . . 7 ((𝜑 ∧ 𝜓) → 𝐼:(ω × 𝑡)–1-1-onto→(ran (𝑂 ↾ ω) × 𝑡))
115 f1of1 6823 . . . . . . 7 (𝐼:(ω × 𝑡)–1-1-onto→(ran (𝑂 ↾ ω) × 𝑡) → 𝐼:(ω × 𝑡)–1-1→(ran (𝑂 ↾ ω) × 𝑡))
116114, 115syl 18 . . . . . 6 ((𝜑 ∧ 𝜓) → 𝐼:(ω × 𝑡)–1-1→(ran (𝑂 ↾ ω) × 𝑡))
117 f1f 6778 . . . . . . 7 ((𝑂 ↾ ω):ω–1-1→𝑡 → (𝑂 ↾ ω):ω⟶𝑡)
118 frn 6717 . . . . . . 7 ((𝑂 ↾ ω):ω⟶𝑡 → ran (𝑂 ↾ ω) ⊆ 𝑡)
119 xpss1 5669 . . . . . . 7 (ran (𝑂 ↾ ω) ⊆ 𝑡 → (ran (𝑂 ↾ ω) × 𝑡) ⊆ (𝑡 × 𝑡))
12098, 117, 118, 1194syl 20 . . . . . 6 ((𝜑 ∧ 𝜓) → (ran (𝑂 ↾ ω) × 𝑡) ⊆ (𝑡 × 𝑡))
121 f1ss 6785 . . . . . 6 ((𝐼:(ω × 𝑡)–1-1→(ran (𝑂 ↾ ω) × 𝑡) ∧ (ran (𝑂 ↾ ω) × 𝑡) ⊆ (𝑡 × 𝑡)) → 𝐼:(ω × 𝑡)–1-1→(𝑡 × 𝑡))
122116, 120, 121syl2anc 596 . . . . 5 ((𝜑 ∧ 𝜓) → 𝐼:(ω × 𝑡)–1-1→(𝑡 × 𝑡))
123 f1co 6791 . . . . 5 ((𝑃:(𝑡 × 𝑡)–1-1→𝑡 ∧ 𝐼:(ω × 𝑡)–1-1→(𝑡 × 𝑡)) → (𝑃 ∘ 𝐼):(ω × 𝑡)–1-1→𝑡)
12494, 122, 123syl2anc 596 . . . 4 ((𝜑 ∧ 𝜓) → (𝑃 ∘ 𝐼):(ω × 𝑡)–1-1→𝑡)
1255a1i 11 . . . . 5 ((𝜑 ∧ 𝜓) → 𝑡 ∈ V)
126 peano1 7900 . . . . . . . 8 ∅ ∈ ω
127126a1i 11 . . . . . . 7 ((𝜑 ∧ 𝜓) → ∅ ∈ ω)
12834, 127sseldd 3909 . . . . . 6 ((𝜑 ∧ 𝜓) → ∅ ∈ dom 𝑂)
12973, 128ffvelcdmd 7085 . . . . 5 ((𝜑 ∧ 𝜓) → (𝑂‘∅) ∈ 𝑡)
130 pwfseqlem5.s . . . . 5 𝑆 = seqω((𝑘 ∈ V, 𝑓 ∈ V ↦ (𝑥 ∈ (𝑡 ↑m suc 𝑘) ↦ ((𝑓‘(𝑥 ↾ 𝑘))𝑃(𝑥‘𝑘)))), {⟨∅, (𝑂‘∅)⟩})
131 pwfseqlem5.q . . . . 5 𝑄 = (𝑦 ∈ ∪ 𝑛 ∈ ω (𝑡 ↑m 𝑛) ↦ ⟨dom 𝑦, ((𝑆‘dom 𝑦)‘𝑦)⟩)
132125, 129, 92, 130, 131fseqenlem2 10105 . . . 4 ((𝜑 ∧ 𝜓) → 𝑄:∪ 𝑛 ∈ ω (𝑡 ↑m 𝑛)–1-1→(ω × 𝑡))
133 f1co 6791 . . . 4 (((𝑃 ∘ 𝐼):(ω × 𝑡)–1-1→𝑡 ∧ 𝑄:∪ 𝑛 ∈ ω (𝑡 ↑m 𝑛)–1-1→(ω × 𝑡)) → ((𝑃 ∘ 𝐼) ∘ 𝑄):∪ 𝑛 ∈ ω (𝑡 ↑m 𝑛)–1-1→𝑡)
134124, 132, 133syl2anc 596 . . 3 ((𝜑 ∧ 𝜓) → ((𝑃 ∘ 𝐼) ∘ 𝑄):∪ 𝑛 ∈ ω (𝑡 ↑m 𝑛)–1-1→𝑡)
135 pwfseqlem5.k . . . 4 𝐾 = ((𝑃 ∘ 𝐼) ∘ 𝑄)
136 f1eq1 6773 . . . 4 (𝐾 = ((𝑃 ∘ 𝐼) ∘ 𝑄) → (𝐾:∪ 𝑛 ∈ ω (𝑡 ↑m 𝑛)–1-1→𝑡 ↔ ((𝑃 ∘ 𝐼) ∘ 𝑄):∪ 𝑛 ∈ ω (𝑡 ↑m 𝑛)–1-1→𝑡))
137135, 136ax-mp 5 . . 3 (𝐾:∪ 𝑛 ∈ ω (𝑡 ↑m 𝑛)–1-1→𝑡 ↔ ((𝑃 ∘ 𝐼) ∘ 𝑄):∪ 𝑛 ∈ ω (𝑡 ↑m 𝑛)–1-1→𝑡)
138134, 137sylibr 237 . 2 ((𝜑 ∧ 𝜓) → 𝐾:∪ 𝑛 ∈ ω (𝑡 ↑m 𝑛)–1-1→𝑡)
139 eqid 2760 . 2 (𝐺‘{𝑖 ∈ 𝑡 ∣ ((◡𝐾‘𝑖) ∈ ran 𝐺 ∧ ¬ 𝑖 ∈ (◡𝐺‘(◡𝐾‘𝑖)))}) = (𝐺‘{𝑖 ∈ 𝑡 ∣ ((◡𝐾‘𝑖) ∈ ran 𝐺 ∧ ¬ 𝑖 ∈ (◡𝐺‘(◡𝐾‘𝑖)))})
140 eqid 2760 . 2 (𝑡 ∈ V, 𝑟 ∈ V ↦ if(𝑡 ∈ Fin, (𝐻‘(card‘𝑡)), ((𝐺‘{𝑖 ∈ 𝑡 ∣ ((◡𝐾‘𝑖) ∈ ran 𝐺 ∧ ¬ 𝑖 ∈ (◡𝐺‘(◡𝐾‘𝑖)))})‘∩ {𝑧 ∈ ω ∣ ¬ ((𝐺‘{𝑖 ∈ 𝑡 ∣ ((◡𝐾‘𝑖) ∈ ran 𝐺 ∧ ¬ 𝑖 ∈ (◡𝐺‘(◡𝐾‘𝑖)))})‘𝑧) ∈ 𝑡}))) = (𝑡 ∈ V, 𝑟 ∈ V ↦ if(𝑡 ∈ Fin, (𝐻‘(card‘𝑡)), ((𝐺‘{𝑖 ∈ 𝑡 ∣ ((◡𝐾‘𝑖) ∈ ran 𝐺 ∧ ¬ 𝑖 ∈ (◡𝐺‘(◡𝐾‘𝑖)))})‘∩ {𝑧 ∈ ω ∣ ¬ ((𝐺‘{𝑖 ∈ 𝑡 ∣ ((◡𝐾‘𝑖) ∈ ran 𝐺 ∧ ¬ 𝑖 ∈ (◡𝐺‘(◡𝐾‘𝑖)))})‘𝑧) ∈ 𝑡})))
141 eqid 2760 . . 3 {⟨𝑐, 𝑑⟩ ∣ ((𝑐 ⊆ 𝐴 ∧ 𝑑 ⊆ (𝑐 × 𝑐)) ∧ (𝑑 We 𝑐 ∧ ∀𝑚 ∈ 𝑐 [(◡𝑑 “ {𝑚}) / 𝑗](𝑗(𝑡 ∈ V, 𝑟 ∈ V ↦ if(𝑡 ∈ Fin, (𝐻‘(card‘𝑡)), ((𝐺‘{𝑖 ∈ 𝑡 ∣ ((◡𝐾‘𝑖) ∈ ran 𝐺 ∧ ¬ 𝑖 ∈ (◡𝐺‘(◡𝐾‘𝑖)))})‘∩ {𝑧 ∈ ω ∣ ¬ ((𝐺‘{𝑖 ∈ 𝑡 ∣ ((◡𝐾‘𝑖) ∈ ran 𝐺 ∧ ¬ 𝑖 ∈ (◡𝐺‘(◡𝐾‘𝑖)))})‘𝑧) ∈ 𝑡})))(𝑑 ∩ (𝑗 × 𝑗))) = 𝑚))} = {⟨𝑐, 𝑑⟩ ∣ ((𝑐 ⊆ 𝐴 ∧ 𝑑 ⊆ (𝑐 × 𝑐)) ∧ (𝑑 We 𝑐 ∧ ∀𝑚 ∈ 𝑐 [(◡𝑑 “ {𝑚}) / 𝑗](𝑗(𝑡 ∈ V, 𝑟 ∈ V ↦ if(𝑡 ∈ Fin, (𝐻‘(card‘𝑡)), ((𝐺‘{𝑖 ∈ 𝑡 ∣ ((◡𝐾‘𝑖) ∈ ran 𝐺 ∧ ¬ 𝑖 ∈ (◡𝐺‘(◡𝐾‘𝑖)))})‘∩ {𝑧 ∈ ω ∣ ¬ ((𝐺‘{𝑖 ∈ 𝑡 ∣ ((◡𝐾‘𝑖) ∈ ran 𝐺 ∧ ¬ 𝑖 ∈ (◡𝐺‘(◡𝐾‘𝑖)))})‘𝑧) ∈ 𝑡})))(𝑑 ∩ (𝑗 × 𝑗))) = 𝑚))}
142141fpwwe2cbv 10716 . 2 {⟨𝑐, 𝑑⟩ ∣ ((𝑐 ⊆ 𝐴 ∧ 𝑑 ⊆ (𝑐 × 𝑐)) ∧ (𝑑 We 𝑐 ∧ ∀𝑚 ∈ 𝑐 [(◡𝑑 “ {𝑚}) / 𝑗](𝑗(𝑡 ∈ V, 𝑟 ∈ V ↦ if(𝑡 ∈ Fin, (𝐻‘(card‘𝑡)), ((𝐺‘{𝑖 ∈ 𝑡 ∣ ((◡𝐾‘𝑖) ∈ ran 𝐺 ∧ ¬ 𝑖 ∈ (◡𝐺‘(◡𝐾‘𝑖)))})‘∩ {𝑧 ∈ ω ∣ ¬ ((𝐺‘{𝑖 ∈ 𝑡 ∣ ((◡𝐾‘𝑖) ∈ ran 𝐺 ∧ ¬ 𝑖 ∈ (◡𝐺‘(◡𝐾‘𝑖)))})‘𝑧) ∈ 𝑡})))(𝑑 ∩ (𝑗 × 𝑗))) = 𝑚))} = {⟨𝑎, 𝑠⟩ ∣ ((𝑎 ⊆ 𝐴 ∧ 𝑠 ⊆ (𝑎 × 𝑎)) ∧ (𝑠 We 𝑎 ∧ ∀𝑏 ∈ 𝑎 [(◡𝑠 “ {𝑏}) / 𝑤](𝑤(𝑡 ∈ V, 𝑟 ∈ V ↦ if(𝑡 ∈ Fin, (𝐻‘(card‘𝑡)), ((𝐺‘{𝑖 ∈ 𝑡 ∣ ((◡𝐾‘𝑖) ∈ ran 𝐺 ∧ ¬ 𝑖 ∈ (◡𝐺‘(◡𝐾‘𝑖)))})‘∩ {𝑧 ∈ ω ∣ ¬ ((𝐺‘{𝑖 ∈ 𝑡 ∣ ((◡𝐾‘𝑖) ∈ ran 𝐺 ∧ ¬ 𝑖 ∈ (◡𝐺‘(◡𝐾‘𝑖)))})‘𝑧) ∈ 𝑡})))(𝑠 ∩ (𝑤 × 𝑤))) = 𝑏))}
143 eqid 2760 . 2 ∪ dom {⟨𝑐, 𝑑⟩ ∣ ((𝑐 ⊆ 𝐴 ∧ 𝑑 ⊆ (𝑐 × 𝑐)) ∧ (𝑑 We 𝑐 ∧ ∀𝑚 ∈ 𝑐 [(◡𝑑 “ {𝑚}) / 𝑗](𝑗(𝑡 ∈ V, 𝑟 ∈ V ↦ if(𝑡 ∈ Fin, (𝐻‘(card‘𝑡)), ((𝐺‘{𝑖 ∈ 𝑡 ∣ ((◡𝐾‘𝑖) ∈ ran 𝐺 ∧ ¬ 𝑖 ∈ (◡𝐺‘(◡𝐾‘𝑖)))})‘∩ {𝑧 ∈ ω ∣ ¬ ((𝐺‘{𝑖 ∈ 𝑡 ∣ ((◡𝐾‘𝑖) ∈ ran 𝐺 ∧ ¬ 𝑖 ∈ (◡𝐺‘(◡𝐾‘𝑖)))})‘𝑧) ∈ 𝑡})))(𝑑 ∩ (𝑗 × 𝑗))) = 𝑚))} = ∪ dom {⟨𝑐, 𝑑⟩ ∣ ((𝑐 ⊆ 𝐴 ∧ 𝑑 ⊆ (𝑐 × 𝑐)) ∧ (𝑑 We 𝑐 ∧ ∀𝑚 ∈ 𝑐 [(◡𝑑 “ {𝑚}) / 𝑗](𝑗(𝑡 ∈ V, 𝑟 ∈ V ↦ if(𝑡 ∈ Fin, (𝐻‘(card‘𝑡)), ((𝐺‘{𝑖 ∈ 𝑡 ∣ ((◡𝐾‘𝑖) ∈ ran 𝐺 ∧ ¬ 𝑖 ∈ (◡𝐺‘(◡𝐾‘𝑖)))})‘∩ {𝑧 ∈ ω ∣ ¬ ((𝐺‘{𝑖 ∈ 𝑡 ∣ ((◡𝐾‘𝑖) ∈ ran 𝐺 ∧ ¬ 𝑖 ∈ (◡𝐺‘(◡𝐾‘𝑖)))})‘𝑧) ∈ 𝑡})))(𝑑 ∩ (𝑗 × 𝑗))) = 𝑚))}
1441, 2, 3, 4, 138, 139, 140, 142, 143pwfseqlem4 10748 1 ¬ 𝜑
Colors of variables:    wff setvar class
This proof depends on syntax axioms:  ¬ wn 3   → wi 4   ↔ wb 209   ∧ wa 401   ∧ w3a 1103   = wceq 1569   ∈ wcel 2144  ∀wral 3076  {crab 3412  Vcvv 3450  [wsbc 3738   ⊆ wss 3895   ∩ cin 4089  ∅c0 4278  ifcif 4481  𝒫 cpw 4556  {csn 4583  ⟨cop 4589  ∪ cuni 4866  ∩ cint 4906  ∪ ciun 4950   class class class wbr 5102  {copab 5166   ↦ cmpt 5185   I cid 5544   E cep 5549   We wwe 5602   × cxp 5648  ◡ccnv 5649  dom cdm 5650  ran crn 5651   ↾ cres 5652   “ cima 5653   ∘ ccom 5654  Oncon0 6362  suc csuc 6364  ⟶wf 6534  –1-1→wf1 6535  –1-1-onto→wf1o 6537  ‘cfv 6538   Isom wiso 6539  (class class class)co 7420   ∈ cmpo 7422  ωcom 7877  seqωcseqom 8458   ↑m cmap 8848   ≈ cen 8971   ≼ cdom 8972   ≺ csdm 8973  Fincfn 8974  OrdIsocoi 9504  harchar 9551  cardccrd 10017
This proof depends on axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1827  ax-4 1841  ax-5 1942  ax-6 1999  ax-7 2040  ax-8 2146  ax-9 2154  ax-10 2177  ax-11 2193  ax-12 2212  ax-ext 2732  ax-rep 5231  ax-sep 5248  ax-nul 5259  ax-pow 5326  ax-pr 5390  ax-un 7751  ax-inf2 9643
This proof depends on definitions:  df-bi 210  df-an 402  df-or 862  df-3or 1104  df-3an 1105  df-tru 1572  df-fal 1582  df-ex 1812  df-nf 1816  df-sb 2099  df-mo 2564  df-eu 2594  df-clab 2739  df-cleq 2752  df-clel 2835  df-nfc 2909  df-ne 2956  df-ral 3077  df-rex 3087  df-rmo 3365  df-reu 3366  df-rab 3413  df-v 3452  df-sbc 3739  df-csb 3847  df-ss 3896  df-pss 4014  df-dif 4047  df-in 4091  df-un 4151  df-nul 4279  df-if 4482  df-pw 4558  df-sn 4584  df-pr 4586  df-tp 4588  df-op 4590  df-uni 4867  df-int 4907  df-iun 4952  df-br 5103  df-opab 5167  df-mpt 5186  df-tr 5212  df-id 5545  df-eprel 5550  df-po 5558  df-so 5559  df-fr 5603  df-se 5604  df-we 5605  df-xp 5656  df-rel 5657  df-cnv 5658  df-co 5659  df-dm 5660  df-rn 5661  df-res 5662  df-ima 5663  df-pred 6304  df-ord 6365  df-on 6366  df-lim 6367  df-suc 6368  df-iota 6494  df-fun 6540  df-fn 6541  df-f 6542  df-f1 6543  df-fo 6544  df-f1o 6545  df-fv 6546  df-isom 6547  df-riota 7377  df-ov 7423  df-oprab 7424  df-mpo 7425  df-om 7878  df-1st 8001  df-2nd 8002  df-frecs 8300  df-wrecs 8331  df-recs 8380  df-rdg 8419  df-seqom 8459  df-1o 8477  df-er 8718  df-map 8850  df-en 8975  df-dom 8976  df-sdom 8977  df-fin 8978  df-oi 9505  df-har 9552  df-card 10021
This theorem is used by:  pwfseq  10750
  Copyright terms: Public domain W3C validator