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

Theorem pwfseqlem5 10720
Description: Lemma for pwfseq 10721. Although in some ways pwfseqlem4 10719 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 10078. 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 10065. 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 9685), which can be used to construct a pairing function explicitly using properties of the ordinal exponential (infxpenc 10069). (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 9509 . . . . . . . . . . 11 ((𝑡 ∈ V ∧ 𝑟 We 𝑡) → 𝑂 Isom E , 𝑟 (dom 𝑂, 𝑡))
105, 7, 9sylancr 599 . . . . . . . . . 10 ((𝜑 ∧ 𝜓) → 𝑂 Isom E , 𝑟 (dom 𝑂, 𝑡))
11 isof1o 7319 . . . . . . . . . 10 (𝑂 Isom E , 𝑟 (dom 𝑂, 𝑡) → 𝑂:dom 𝑂–1-1-onto→𝑡)
1210, 11syl 18 . . . . . . . . 9 ((𝜑 ∧ 𝜓) → 𝑂:dom 𝑂–1-1-onto→𝑡)
13 cardom 10039 . . . . . . . . . . . 12 (card‘ω) = ω
14 simprr 785 . . . . . . . . . . . . . . 15 ((𝜑 ∧ ((𝑡 ⊆ 𝐴 ∧ 𝑟 ⊆ (𝑡 × 𝑡) ∧ 𝑟 We 𝑡) ∧ ω ≼ 𝑡)) → ω ≼ 𝑡)
154, 14sylan2b 606 . . . . . . . . . . . . . 14 ((𝜑 ∧ 𝜓) → ω ≼ 𝑡)
168oien 9510 . . . . . . . . . . . . . . . 16 ((𝑡 ∈ V ∧ 𝑟 We 𝑡) → dom 𝑂 ≈ 𝑡)
175, 7, 16sylancr 599 . . . . . . . . . . . . . . 15 ((𝜑 ∧ 𝜓) → dom 𝑂 ≈ 𝑡)
1817ensymd 9010 . . . . . . . . . . . . . 14 ((𝜑 ∧ 𝜓) → 𝑡 ≈ dom 𝑂)
19 domentr 9018 . . . . . . . . . . . . . 14 ((ω ≼ 𝑡 ∧ 𝑡 ≈ dom 𝑂) → ω ≼ dom 𝑂)
2015, 18, 19syl2anc 596 . . . . . . . . . . . . 13 ((𝜑 ∧ 𝜓) → ω ≼ dom 𝑂)
21 omelon 9625 . . . . . . . . . . . . . . 15 ω ∈ On
22 onenon 10002 . . . . . . . . . . . . . . 15 (ω ∈ On → ω ∈ dom card)
2321, 22ax-mp 5 . . . . . . . . . . . . . 14 ω ∈ dom card
248oion 9508 . . . . . . . . . . . . . . . 16 (𝑡 ∈ V → dom 𝑂 ∈ On)
2524elv 3455 . . . . . . . . . . . . . . 15 dom 𝑂 ∈ On
26 onenon 10002 . . . . . . . . . . . . . . 15 (dom 𝑂 ∈ On → dom 𝑂 ∈ dom card)
2725, 26mp1i 14 . . . . . . . . . . . . . 14 ((𝜑 ∧ 𝜓) → dom 𝑂 ∈ dom card)
28 carddom2 10030 . . . . . . . . . . . . . 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 3969 . . . . . . . . . . 11 ((𝜑 ∧ 𝜓) → ω ⊆ (card‘dom 𝑂))
32 cardonle 10010 . . . . . . . . . . . 12 (dom 𝑂 ∈ On → (card‘dom 𝑂) ⊆ dom 𝑂)
3325, 32mp1i 14 . . . . . . . . . . 11 ((𝜑 ∧ 𝜓) → (card‘dom 𝑂) ⊆ dom 𝑂)
3431, 33sstrd 3940 . . . . . . . . . 10 ((𝜑 ∧ 𝜓) → ω ⊆ dom 𝑂)
35 sseq2 3956 . . . . . . . . . . . 12 (𝑏 = dom 𝑂 → (ω ⊆ 𝑏 ↔ ω ⊆ dom 𝑂))
36 fveq2 6873 . . . . . . . . . . . . . 14 (𝑏 = dom 𝑂 → (𝑁‘𝑏) = (𝑁‘dom 𝑂))
3736f1oeq1d 6807 . . . . . . . . . . . . 13 (𝑏 = dom 𝑂 → ((𝑁‘𝑏):(𝑏 × 𝑏)–1-1-onto→𝑏 ↔ (𝑁‘dom 𝑂):(𝑏 × 𝑏)–1-1-onto→𝑏))
38 xpeq12 5672 . . . . . . . . . . . . . . 15 ((𝑏 = dom 𝑂 ∧ 𝑏 = dom 𝑂) → (𝑏 × 𝑏) = (dom 𝑂 × dom 𝑂))
3938anidms 577 . . . . . . . . . . . . . 14 (𝑏 = dom 𝑂 → (𝑏 × 𝑏) = (dom 𝑂 × dom 𝑂))
4039f1oeq2d 6808 . . . . . . . . . . . . 13 (𝑏 = dom 𝑂 → ((𝑁‘dom 𝑂):(𝑏 × 𝑏)–1-1-onto→𝑏 ↔ (𝑁‘dom 𝑂):(dom 𝑂 × dom 𝑂)–1-1-onto→𝑏))
41 f1oeq3 6802 . . . . . . . . . . . . 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 9622 . . . . . . . . . . . . . . . . . 18 ω ∈ V
49 ovex 7441 . . . . . . . . . . . . . . . . . 18 (𝐴 ↑m 𝑛) ∈ V
5048, 49iunex 7963 . . . . . . . . . . . . . . . . 17 ∪ 𝑛 ∈ ω (𝐴 ↑m 𝑛) ∈ V
51 f1dmex 7952 . . . . . . . . . . . . . . . . 17 ((𝐺:𝒫 𝐴–1-1→∪ 𝑛 ∈ ω (𝐴 ↑m 𝑛) ∧ ∪ 𝑛 ∈ ω (𝐴 ↑m 𝑛) ∈ V) → 𝒫 𝐴 ∈ V)
5247, 50, 51sylancl 598 . . . . . . . . . . . . . . . 16 ((𝜑 ∧ 𝜓) → 𝒫 𝐴 ∈ V)
53 pwexb 7763 . . . . . . . . . . . . . . . 16 (𝐴 ∈ V ↔ 𝒫 𝐴 ∈ V)
5452, 53sylibr 237 . . . . . . . . . . . . . . 15 ((𝜑 ∧ 𝜓) → 𝐴 ∈ V)
55 simprl1 1237 . . . . . . . . . . . . . . . 16 ((𝜑 ∧ ((𝑡 ⊆ 𝐴 ∧ 𝑟 ⊆ (𝑡 × 𝑡) ∧ 𝑟 We 𝑡) ∧ ω ≼ 𝑡)) → 𝑡 ⊆ 𝐴)
564, 55sylan2b 606 . . . . . . . . . . . . . . 15 ((𝜑 ∧ 𝜓) → 𝑡 ⊆ 𝐴)
57 ssdomg 9005 . . . . . . . . . . . . . . 15 (𝐴 ∈ V → (𝑡 ⊆ 𝐴 → 𝑡 ≼ 𝐴))
5854, 56, 57sylc 66 . . . . . . . . . . . . . 14 ((𝜑 ∧ 𝜓) → 𝑡 ≼ 𝐴)
59 canth2g 9128 . . . . . . . . . . . . . . 15 (𝐴 ∈ V → 𝐴 ≺ 𝒫 𝐴)
60 sdomdom 8985 . . . . . . . . . . . . . . 15 (𝐴 ≺ 𝒫 𝐴 → 𝐴 ≼ 𝒫 𝐴)
6154, 59, 603syl 19 . . . . . . . . . . . . . 14 ((𝜑 ∧ 𝜓) → 𝐴 ≼ 𝒫 𝐴)
62 domtr 9012 . . . . . . . . . . . . . 14 ((𝑡 ≼ 𝐴 ∧ 𝐴 ≼ 𝒫 𝐴) → 𝑡 ≼ 𝒫 𝐴)
6358, 61, 62syl2anc 596 . . . . . . . . . . . . 13 ((𝜑 ∧ 𝜓) → 𝑡 ≼ 𝒫 𝐴)
64 endomtr 9017 . . . . . . . . . . . . 13 ((dom 𝑂 ≈ 𝑡 ∧ 𝑡 ≼ 𝒫 𝐴) → dom 𝑂 ≼ 𝒫 𝐴)
6517, 63, 64syl2anc 596 . . . . . . . . . . . 12 ((𝜑 ∧ 𝜓) → dom 𝑂 ≼ 𝒫 𝐴)
66 elharval 9533 . . . . . . . . . . . 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 6836 . . . . . . . . 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 6812 . . . . . . . . . . . . . . 15 (𝑂:dom 𝑂–1-1-onto→𝑡 → 𝑂:dom 𝑂⟶𝑡)
7312, 72syl 18 . . . . . . . . . . . . . 14 ((𝜑 ∧ 𝜓) → 𝑂:dom 𝑂⟶𝑡)
7473feqmptd 6941 . . . . . . . . . . . . 13 ((𝜑 ∧ 𝜓) → 𝑂 = (𝑢 ∈ dom 𝑂 ↦ (𝑂‘𝑢)))
7574f1oeq1d 6807 . . . . . . . . . . . 12 ((𝜑 ∧ 𝜓) → (𝑂:dom 𝑂–1-1-onto→𝑡 ↔ (𝑢 ∈ dom 𝑂 ↦ (𝑂‘𝑢)):dom 𝑂–1-1-onto→𝑡))
7612, 75mpbid 235 . . . . . . . . . . 11 ((𝜑 ∧ 𝜓) → (𝑢 ∈ dom 𝑂 ↦ (𝑂‘𝑢)):dom 𝑂–1-1-onto→𝑡)
7773feqmptd 6941 . . . . . . . . . . . . 13 ((𝜑 ∧ 𝜓) → 𝑂 = (𝑣 ∈ dom 𝑂 ↦ (𝑂‘𝑣)))
7877f1oeq1d 6807 . . . . . . . . . . . 12 ((𝜑 ∧ 𝜓) → (𝑂:dom 𝑂–1-1-onto→𝑡 ↔ (𝑣 ∈ dom 𝑂 ↦ (𝑂‘𝑣)):dom 𝑂–1-1-onto→𝑡))
7912, 78mpbid 235 . . . . . . . . . . 11 ((𝜑 ∧ 𝜓) → (𝑣 ∈ dom 𝑂 ↦ (𝑂‘𝑣)):dom 𝑂–1-1-onto→𝑡)
8076, 79xpf1o 9136 . . . . . . . . . 10 ((𝜑 ∧ 𝜓) → (𝑢 ∈ dom 𝑂, 𝑣 ∈ dom 𝑂 ↦ ⟨(𝑂‘𝑢), (𝑂‘𝑣)⟩):(dom 𝑂 × dom 𝑂)–1-1-onto→(𝑡 × 𝑡))
81 pwfseqlem5.t . . . . . . . . . . 11 𝑇 = (𝑢 ∈ dom 𝑂, 𝑣 ∈ dom 𝑂 ↦ ⟨(𝑂‘𝑢), (𝑂‘𝑣)⟩)
82 f1oeq1 6800 . . . . . . . . . . 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 6825 . . . . . . . . 9 (𝑇:(dom 𝑂 × dom 𝑂)–1-1-onto→(𝑡 × 𝑡) → ◡𝑇:(𝑡 × 𝑡)–1-1-onto→(dom 𝑂 × dom 𝑂))
8684, 85syl 18 . . . . . . . 8 ((𝜑 ∧ 𝜓) → ◡𝑇:(𝑡 × 𝑡)–1-1-onto→(dom 𝑂 × dom 𝑂))
87 f1oco 6836 . . . . . . . 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 6800 . . . . . . . 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 6811 . . . . . 6 (𝑃:(𝑡 × 𝑡)–1-1-onto→𝑡 → 𝑃:(𝑡 × 𝑡)–1-1→𝑡)
9492, 93syl 18 . . . . 5 ((𝜑 ∧ 𝜓) → 𝑃:(𝑡 × 𝑡)–1-1→𝑡)
95 f1of1 6811 . . . . . . . . . . . . 13 (𝑂:dom 𝑂–1-1-onto→𝑡 → 𝑂:dom 𝑂–1-1→𝑡)
9612, 95syl 18 . . . . . . . . . . . 12 ((𝜑 ∧ 𝜓) → 𝑂:dom 𝑂–1-1→𝑡)
97 f1ssres 6775 . . . . . . . . . . . 12 ((𝑂:dom 𝑂–1-1→𝑡 ∧ ω ⊆ dom 𝑂) → (𝑂 ↾ ω):ω–1-1→𝑡)
9896, 34, 97syl2anc 596 . . . . . . . . . . 11 ((𝜑 ∧ 𝜓) → (𝑂 ↾ ω):ω–1-1→𝑡)
99 f1f1orn 6824 . . . . . . . . . . 11 ((𝑂 ↾ ω):ω–1-1→𝑡 → (𝑂 ↾ ω):ω–1-1-onto→ran (𝑂 ↾ ω))
10098, 99syl 18 . . . . . . . . . 10 ((𝜑 ∧ 𝜓) → (𝑂 ↾ ω):ω–1-1-onto→ran (𝑂 ↾ ω))
10173, 34feqresmpt 6942 . . . . . . . . . . 11 ((𝜑 ∧ 𝜓) → (𝑂 ↾ ω) = (𝑥 ∈ ω ↦ (𝑂‘𝑥)))
102101f1oeq1d 6807 . . . . . . . . . 10 ((𝜑 ∧ 𝜓) → ((𝑂 ↾ ω):ω–1-1-onto→ran (𝑂 ↾ ω) ↔ (𝑥 ∈ ω ↦ (𝑂‘𝑥)):ω–1-1-onto→ran (𝑂 ↾ ω)))
103100, 102mpbid 235 . . . . . . . . 9 ((𝜑 ∧ 𝜓) → (𝑥 ∈ ω ↦ (𝑂‘𝑥)):ω–1-1-onto→ran (𝑂 ↾ ω))
104 mptresid 6041 . . . . . . . . . . 11 ( I ↾ 𝑡) = (𝑦 ∈ 𝑡 ↦ 𝑦)
105104eqcomi 2769 . . . . . . . . . 10 (𝑦 ∈ 𝑡 ↦ 𝑦) = ( I ↾ 𝑡)
106 f1oi 6851 . . . . . . . . . . 11 ( I ↾ 𝑡):𝑡–1-1-onto→𝑡
107 f1oeq1 6800 . . . . . . . . . . 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 9136 . . . . . . . 8 ((𝜑 ∧ 𝜓) → (𝑥 ∈ ω, 𝑦 ∈ 𝑡 ↦ ⟨(𝑂‘𝑥), 𝑦⟩):(ω × 𝑡)–1-1-onto→(ran (𝑂 ↾ ω) × 𝑡))
111 pwfseqlem5.i . . . . . . . . 9 𝐼 = (𝑥 ∈ ω, 𝑦 ∈ 𝑡 ↦ ⟨(𝑂‘𝑥), 𝑦⟩)
112 f1oeq1 6800 . . . . . . . . 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 6811 . . . . . . 7 (𝐼:(ω × 𝑡)–1-1-onto→(ran (𝑂 ↾ ω) × 𝑡) → 𝐼:(ω × 𝑡)–1-1→(ran (𝑂 ↾ ω) × 𝑡))
116114, 115syl 18 . . . . . 6 ((𝜑 ∧ 𝜓) → 𝐼:(ω × 𝑡)–1-1→(ran (𝑂 ↾ ω) × 𝑡))
117 f1f 6766 . . . . . . 7 ((𝑂 ↾ ω):ω–1-1→𝑡 → (𝑂 ↾ ω):ω⟶𝑡)
118 frn 6705 . . . . . . 7 ((𝑂 ↾ ω):ω⟶𝑡 → ran (𝑂 ↾ ω) ⊆ 𝑡)
119 xpss1 5666 . . . . . . 7 (ran (𝑂 ↾ ω) ⊆ 𝑡 → (ran (𝑂 ↾ ω) × 𝑡) ⊆ (𝑡 × 𝑡))
12098, 117, 118, 1194syl 20 . . . . . 6 ((𝜑 ∧ 𝜓) → (ran (𝑂 ↾ ω) × 𝑡) ⊆ (𝑡 × 𝑡))
121 f1ss 6773 . . . . . 6 ((𝐼:(ω × 𝑡)–1-1→(ran (𝑂 ↾ ω) × 𝑡) ∧ (ran (𝑂 ↾ ω) × 𝑡) ⊆ (𝑡 × 𝑡)) → 𝐼:(ω × 𝑡)–1-1→(𝑡 × 𝑡))
122116, 120, 121syl2anc 596 . . . . 5 ((𝜑 ∧ 𝜓) → 𝐼:(ω × 𝑡)–1-1→(𝑡 × 𝑡))
123 f1co 6779 . . . . 5 ((𝑃:(𝑡 × 𝑡)–1-1→𝑡 ∧ 𝐼:(ω × 𝑡)–1-1→(𝑡 × 𝑡)) → (𝑃 ∘ 𝐼):(ω × 𝑡)–1-1→𝑡)
12494, 122, 123syl2anc 596 . . . 4 ((𝜑 ∧ 𝜓) → (𝑃 ∘ 𝐼):(ω × 𝑡)–1-1→𝑡)
1255a1i 11 . . . . 5 ((𝜑 ∧ 𝜓) → 𝑡 ∈ V)
126 peano1 7883 . . . . . . . 8 ∅ ∈ ω
127126a1i 11 . . . . . . 7 ((𝜑 ∧ 𝜓) → ∅ ∈ ω)
12834, 127sseldd 3931 . . . . . 6 ((𝜑 ∧ 𝜓) → ∅ ∈ dom 𝑂)
12973, 128ffvelcdmd 7073 . . . . 5 ((𝜑 ∧ 𝜓) → (𝑂‘∅) ∈ 𝑡)
130 pwfseqlem5.s . . . . 5 𝑆 = seqω((𝑘 ∈ V, 𝑓 ∈ V ↦ (𝑥 ∈ (𝑡 ↑m suc 𝑘) ↦ ((𝑓‘(𝑥 ↾ 𝑘))𝑃(𝑥‘𝑘)))), {⟨∅, (𝑂‘∅)⟩})
131 pwfseqlem5.q . . . . 5 𝑄 = (𝑦 ∈ ∪ 𝑛 ∈ ω (𝑡 ↑m 𝑛) ↦ ⟨dom 𝑦, ((𝑆‘dom 𝑦)‘𝑦)⟩)
132125, 129, 92, 130, 131fseqenlem2 10076 . . . 4 ((𝜑 ∧ 𝜓) → 𝑄:∪ 𝑛 ∈ ω (𝑡 ↑m 𝑛)–1-1→(ω × 𝑡))
133 f1co 6779 . . . 4 (((𝑃 ∘ 𝐼):(ω × 𝑡)–1-1→𝑡 ∧ 𝑄:∪ 𝑛 ∈ ω (𝑡 ↑m 𝑛)–1-1→(ω × 𝑡)) → ((𝑃 ∘ 𝐼) ∘ 𝑄):∪ 𝑛 ∈ ω (𝑡 ↑m 𝑛)–1-1→𝑡)
134124, 132, 133syl2anc 596 . . 3 ((𝜑 ∧ 𝜓) → ((𝑃 ∘ 𝐼) ∘ 𝑄):∪ 𝑛 ∈ ω (𝑡 ↑m 𝑛)–1-1→𝑡)
135 pwfseqlem5.k . . . 4 𝐾 = ((𝑃 ∘ 𝐼) ∘ 𝑄)
136 f1eq1 6761 . . . 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 10687 . 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 10719 1 ¬ 𝜑
Colors of variables:    wff setvar class
This proof depends on syntax axioms:  ¬ wn 3   → wi 4   ↔ wb 209   ∧ wa 401   ∧ w3a 1103   = wceq 1570   ∈ wcel 2145  ∀wral 3076  {crab 3412  Vcvv 3450  [wsbc 3738   ∩ cin 3897   ⊆ wss 3898  ∅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 5541   E cep 5546   We wwe 5599   × cxp 5645  ◡ccnv 5646  dom cdm 5647  ran crn 5648   ↾ cres 5649   “ cima 5650   ∘ ccom 5651  Oncon0 6351  suc csuc 6353  ⟶wf 6523  –1-1→wf1 6524  –1-1-onto→wf1o 6526  ‘cfv 6527   Isom wiso 6528  (class class class)co 7408   ∈ cmpo 7410  ωcom 7860  seqωcseqom 8435   ↑m cmap 8825   ≈ cen 8948   ≼ cdom 8949   ≺ csdm 8950  Fincfn 8951  OrdIsocoi 9481  harchar 9528  cardccrd 9988
This proof depends on axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1828  ax-4 1842  ax-5 1943  ax-6 2000  ax-7 2041  ax-8 2147  ax-9 2155  ax-10 2178  ax-11 2194  ax-12 2213  ax-ext 2732  ax-rep 5231  ax-sep 5248  ax-nul 5259  ax-pow 5326  ax-pr 5390  ax-un 7734  ax-inf2 9620
This proof depends on definitions:  df-bi 210  df-an 402  df-or 862  df-3or 1104  df-3an 1105  df-tru 1573  df-fal 1583  df-ex 1813  df-nf 1817  df-sb 2100  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-dif 3901  df-un 3903  df-in 3905  df-ss 3915  df-pss 3918  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 5542  df-eprel 5547  df-po 5555  df-so 5556  df-fr 5600  df-se 5601  df-we 5602  df-xp 5653  df-rel 5654  df-cnv 5655  df-co 5656  df-dm 5657  df-rn 5658  df-res 5659  df-ima 5660  df-pred 6293  df-ord 6354  df-on 6355  df-lim 6356  df-suc 6357  df-iota 6483  df-fun 6529  df-fn 6530  df-f 6531  df-f1 6532  df-fo 6533  df-f1o 6534  df-fv 6535  df-isom 6536  df-riota 7365  df-ov 7411  df-oprab 7412  df-mpo 7413  df-om 7861  df-1st 7984  df-2nd 7985  df-frecs 8277  df-wrecs 8308  df-recs 8357  df-rdg 8396  df-seqom 8436  df-1o 8454  df-er 8695  df-map 8827  df-en 8952  df-dom 8953  df-sdom 8954  df-fin 8955  df-oi 9482  df-har 9529  df-card 9992
This theorem is used by:  pwfseq  10721
  Copyright terms: Public domain W3C validator