cnfcom - Metamath Proof Explorer

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

Theorem cnfcom 8597

Description: Any ordinal 𝐵 is equinumerous to the leading term of its Cantor normal form. Here we show that bijection explicitly. (Contributed by Mario Carneiro, 30-May-2015.) (Revised by AV, 3-Jul-2019.)

**Hypotheses**
Ref	Expression
cnfcom.s	⊢ 𝑆 = dom (ω CNF 𝐴)
cnfcom.a	⊢ (𝜑 → 𝐴 ∈ On)
cnfcom.b	⊢ (𝜑 → 𝐵 ∈ (ω ↑_𝑜 𝐴))
cnfcom.f	⊢ 𝐹 = (^◡(ω CNF 𝐴)‘𝐵)
cnfcom.g	⊢ 𝐺 = OrdIso( E , (𝐹 supp ∅))
cnfcom.h	⊢ 𝐻 = seq_𝜔((𝑘 ∈ V, 𝑧 ∈ V ↦ (𝑀 +_𝑜 𝑧)), ∅)
cnfcom.t	⊢ 𝑇 = seq_𝜔((𝑘 ∈ V, 𝑓 ∈ V ↦ 𝐾), ∅)
cnfcom.m	⊢ 𝑀 = ((ω ↑_𝑜 (𝐺‘𝑘)) ·_𝑜 (𝐹‘(𝐺‘𝑘)))
cnfcom.k	⊢ 𝐾 = ((𝑥 ∈ 𝑀 ↦ (dom 𝑓 +_𝑜 𝑥)) ∪ ^◡(𝑥 ∈ dom 𝑓 ↦ (𝑀 +_𝑜 𝑥)))
cnfcom.1	⊢ (𝜑 → 𝐼 ∈ dom 𝐺)

**Assertion**
Ref	Expression
cnfcom	⊢ (𝜑 → (𝑇‘suc 𝐼):(𝐻‘suc 𝐼)–1-1-onto→((ω ↑_𝑜 (𝐺‘𝐼)) ·_𝑜 (𝐹‘(𝐺‘𝐼))))

Distinct variable groups: 𝑥,𝑘,𝑧,𝐴 𝑘,𝐼,𝑥,𝑧 𝑥,𝑀 𝑓,𝑘,𝑥,𝑧,𝐹 𝑧,𝑇 𝑓,𝐺,𝑘,𝑥,𝑧 𝑓,𝐻,𝑥 𝑆,𝑘,𝑧 Allowed substitution hints: 𝜑(𝑥,𝑧,𝑓,𝑘) 𝐴(𝑓) 𝐵(𝑥,𝑧,𝑓,𝑘) 𝑆(𝑥,𝑓) 𝑇(𝑥,𝑓,𝑘) 𝐻(𝑧,𝑘) 𝐼(𝑓) 𝐾(𝑥,𝑧,𝑓,𝑘) 𝑀(𝑧,𝑓,𝑘)

Proof of Theorem cnfcom Dummy variables 𝑤 𝑦 are mutually distinct and distinct from all other variables.

Step	Hyp	Ref	Expression
1		cnfcom.1	. 2 ⊢ (𝜑 → 𝐼 ∈ dom 𝐺)
2		cnfcom.s	. . . . . 6 ⊢ 𝑆 = dom (ω CNF 𝐴)
3		omelon 8543	. . . . . . 7 ⊢ ω ∈ On
4	3	a1i 11	. . . . . 6 ⊢ (𝜑 → ω ∈ On)
5		cnfcom.a	. . . . . 6 ⊢ (𝜑 → 𝐴 ∈ On)
6		cnfcom.g	. . . . . 6 ⊢ 𝐺 = OrdIso( E , (𝐹 supp ∅))
7		cnfcom.f	. . . . . . 7 ⊢ 𝐹 = (^◡(ω CNF 𝐴)‘𝐵)
8	2, 4, 5	cantnff1o 8593	. . . . . . . . 9 ⊢ (𝜑 → (ω CNF 𝐴):𝑆–1-1-onto→(ω ↑_𝑜 𝐴))
9		f1ocnv 6149	. . . . . . . . 9 ⊢ ((ω CNF 𝐴):𝑆–1-1-onto→(ω ↑_𝑜 𝐴) → ^◡(ω CNF 𝐴):(ω ↑_𝑜 𝐴)–1-1-onto→𝑆)
10		f1of 6137	. . . . . . . . 9 ⊢ (^◡(ω CNF 𝐴):(ω ↑_𝑜 𝐴)–1-1-onto→𝑆 → ^◡(ω CNF 𝐴):(ω ↑_𝑜 𝐴)⟶𝑆)
11	8, 9, 10	3syl 18	. . . . . . . 8 ⊢ (𝜑 → ^◡(ω CNF 𝐴):(ω ↑_𝑜 𝐴)⟶𝑆)
12		cnfcom.b	. . . . . . . 8 ⊢ (𝜑 → 𝐵 ∈ (ω ↑_𝑜 𝐴))
13	11, 12	ffvelrnd 6360	. . . . . . 7 ⊢ (𝜑 → (^◡(ω CNF 𝐴)‘𝐵) ∈ 𝑆)
14	7, 13	syl5eqel 2705	. . . . . 6 ⊢ (𝜑 → 𝐹 ∈ 𝑆)
15	2, 4, 5, 6, 14	cantnfcl 8564	. . . . 5 ⊢ (𝜑 → ( E We (𝐹 supp ∅) ∧ dom 𝐺 ∈ ω))
16	15	simprd 479	. . . 4 ⊢ (𝜑 → dom 𝐺 ∈ ω)
17		elnn 7075	. . . 4 ⊢ ((𝐼 ∈ dom 𝐺 ∧ dom 𝐺 ∈ ω) → 𝐼 ∈ ω)
18	1, 16, 17	syl2anc 693	. . 3 ⊢ (𝜑 → 𝐼 ∈ ω)
19		eleq1 2689	. . . . . 6 ⊢ (𝑤 = 𝐼 → (𝑤 ∈ dom 𝐺 ↔ 𝐼 ∈ dom 𝐺))
20		suceq 5790	. . . . . . . 8 ⊢ (𝑤 = 𝐼 → suc 𝑤 = suc 𝐼)
21	20	fveq2d 6195	. . . . . . 7 ⊢ (𝑤 = 𝐼 → (𝑇‘suc 𝑤) = (𝑇‘suc 𝐼))
22	20	fveq2d 6195	. . . . . . 7 ⊢ (𝑤 = 𝐼 → (𝐻‘suc 𝑤) = (𝐻‘suc 𝐼))
23		fveq2 6191	. . . . . . . . 9 ⊢ (𝑤 = 𝐼 → (𝐺‘𝑤) = (𝐺‘𝐼))
24	23	oveq2d 6666	. . . . . . . 8 ⊢ (𝑤 = 𝐼 → (ω ↑_𝑜 (𝐺‘𝑤)) = (ω ↑_𝑜 (𝐺‘𝐼)))
25	23	fveq2d 6195	. . . . . . . 8 ⊢ (𝑤 = 𝐼 → (𝐹‘(𝐺‘𝑤)) = (𝐹‘(𝐺‘𝐼)))
26	24, 25	oveq12d 6668	. . . . . . 7 ⊢ (𝑤 = 𝐼 → ((ω ↑_𝑜 (𝐺‘𝑤)) ·_𝑜 (𝐹‘(𝐺‘𝑤))) = ((ω ↑_𝑜 (𝐺‘𝐼)) ·_𝑜 (𝐹‘(𝐺‘𝐼))))
27	21, 22, 26	f1oeq123d 6133	. . . . . 6 ⊢ (𝑤 = 𝐼 → ((𝑇‘suc 𝑤):(𝐻‘suc 𝑤)–1-1-onto→((ω ↑_𝑜 (𝐺‘𝑤)) ·_𝑜 (𝐹‘(𝐺‘𝑤))) ↔ (𝑇‘suc 𝐼):(𝐻‘suc 𝐼)–1-1-onto→((ω ↑_𝑜 (𝐺‘𝐼)) ·_𝑜 (𝐹‘(𝐺‘𝐼)))))
28	19, 27	imbi12d 334	. . . . 5 ⊢ (𝑤 = 𝐼 → ((𝑤 ∈ dom 𝐺 → (𝑇‘suc 𝑤):(𝐻‘suc 𝑤)–1-1-onto→((ω ↑_𝑜 (𝐺‘𝑤)) ·_𝑜 (𝐹‘(𝐺‘𝑤)))) ↔ (𝐼 ∈ dom 𝐺 → (𝑇‘suc 𝐼):(𝐻‘suc 𝐼)–1-1-onto→((ω ↑_𝑜 (𝐺‘𝐼)) ·_𝑜 (𝐹‘(𝐺‘𝐼))))))
29	28	imbi2d 330	. . . 4 ⊢ (𝑤 = 𝐼 → ((𝜑 → (𝑤 ∈ dom 𝐺 → (𝑇‘suc 𝑤):(𝐻‘suc 𝑤)–1-1-onto→((ω ↑_𝑜 (𝐺‘𝑤)) ·_𝑜 (𝐹‘(𝐺‘𝑤))))) ↔ (𝜑 → (𝐼 ∈ dom 𝐺 → (𝑇‘suc 𝐼):(𝐻‘suc 𝐼)–1-1-onto→((ω ↑_𝑜 (𝐺‘𝐼)) ·_𝑜 (𝐹‘(𝐺‘𝐼)))))))
30		eleq1 2689	. . . . . 6 ⊢ (𝑤 = ∅ → (𝑤 ∈ dom 𝐺 ↔ ∅ ∈ dom 𝐺))
31		suceq 5790	. . . . . . . 8 ⊢ (𝑤 = ∅ → suc 𝑤 = suc ∅)
32	31	fveq2d 6195	. . . . . . 7 ⊢ (𝑤 = ∅ → (𝑇‘suc 𝑤) = (𝑇‘suc ∅))
33	31	fveq2d 6195	. . . . . . 7 ⊢ (𝑤 = ∅ → (𝐻‘suc 𝑤) = (𝐻‘suc ∅))
34		fveq2 6191	. . . . . . . . 9 ⊢ (𝑤 = ∅ → (𝐺‘𝑤) = (𝐺‘∅))
35	34	oveq2d 6666	. . . . . . . 8 ⊢ (𝑤 = ∅ → (ω ↑_𝑜 (𝐺‘𝑤)) = (ω ↑_𝑜 (𝐺‘∅)))
36	34	fveq2d 6195	. . . . . . . 8 ⊢ (𝑤 = ∅ → (𝐹‘(𝐺‘𝑤)) = (𝐹‘(𝐺‘∅)))
37	35, 36	oveq12d 6668	. . . . . . 7 ⊢ (𝑤 = ∅ → ((ω ↑_𝑜 (𝐺‘𝑤)) ·_𝑜 (𝐹‘(𝐺‘𝑤))) = ((ω ↑_𝑜 (𝐺‘∅)) ·_𝑜 (𝐹‘(𝐺‘∅))))
38	32, 33, 37	f1oeq123d 6133	. . . . . 6 ⊢ (𝑤 = ∅ → ((𝑇‘suc 𝑤):(𝐻‘suc 𝑤)–1-1-onto→((ω ↑_𝑜 (𝐺‘𝑤)) ·_𝑜 (𝐹‘(𝐺‘𝑤))) ↔ (𝑇‘suc ∅):(𝐻‘suc ∅)–1-1-onto→((ω ↑_𝑜 (𝐺‘∅)) ·_𝑜 (𝐹‘(𝐺‘∅)))))
39	30, 38	imbi12d 334	. . . . 5 ⊢ (𝑤 = ∅ → ((𝑤 ∈ dom 𝐺 → (𝑇‘suc 𝑤):(𝐻‘suc 𝑤)–1-1-onto→((ω ↑_𝑜 (𝐺‘𝑤)) ·_𝑜 (𝐹‘(𝐺‘𝑤)))) ↔ (∅ ∈ dom 𝐺 → (𝑇‘suc ∅):(𝐻‘suc ∅)–1-1-onto→((ω ↑_𝑜 (𝐺‘∅)) ·_𝑜 (𝐹‘(𝐺‘∅))))))
40		eleq1 2689	. . . . . 6 ⊢ (𝑤 = 𝑦 → (𝑤 ∈ dom 𝐺 ↔ 𝑦 ∈ dom 𝐺))
41		suceq 5790	. . . . . . . 8 ⊢ (𝑤 = 𝑦 → suc 𝑤 = suc 𝑦)
42	41	fveq2d 6195	. . . . . . 7 ⊢ (𝑤 = 𝑦 → (𝑇‘suc 𝑤) = (𝑇‘suc 𝑦))
43	41	fveq2d 6195	. . . . . . 7 ⊢ (𝑤 = 𝑦 → (𝐻‘suc 𝑤) = (𝐻‘suc 𝑦))
44		fveq2 6191	. . . . . . . . 9 ⊢ (𝑤 = 𝑦 → (𝐺‘𝑤) = (𝐺‘𝑦))
45	44	oveq2d 6666	. . . . . . . 8 ⊢ (𝑤 = 𝑦 → (ω ↑_𝑜 (𝐺‘𝑤)) = (ω ↑_𝑜 (𝐺‘𝑦)))
46	44	fveq2d 6195	. . . . . . . 8 ⊢ (𝑤 = 𝑦 → (𝐹‘(𝐺‘𝑤)) = (𝐹‘(𝐺‘𝑦)))
47	45, 46	oveq12d 6668	. . . . . . 7 ⊢ (𝑤 = 𝑦 → ((ω ↑_𝑜 (𝐺‘𝑤)) ·_𝑜 (𝐹‘(𝐺‘𝑤))) = ((ω ↑_𝑜 (𝐺‘𝑦)) ·_𝑜 (𝐹‘(𝐺‘𝑦))))
48	42, 43, 47	f1oeq123d 6133	. . . . . 6 ⊢ (𝑤 = 𝑦 → ((𝑇‘suc 𝑤):(𝐻‘suc 𝑤)–1-1-onto→((ω ↑_𝑜 (𝐺‘𝑤)) ·_𝑜 (𝐹‘(𝐺‘𝑤))) ↔ (𝑇‘suc 𝑦):(𝐻‘suc 𝑦)–1-1-onto→((ω ↑_𝑜 (𝐺‘𝑦)) ·_𝑜 (𝐹‘(𝐺‘𝑦)))))
49	40, 48	imbi12d 334	. . . . 5 ⊢ (𝑤 = 𝑦 → ((𝑤 ∈ dom 𝐺 → (𝑇‘suc 𝑤):(𝐻‘suc 𝑤)–1-1-onto→((ω ↑_𝑜 (𝐺‘𝑤)) ·_𝑜 (𝐹‘(𝐺‘𝑤)))) ↔ (𝑦 ∈ dom 𝐺 → (𝑇‘suc 𝑦):(𝐻‘suc 𝑦)–1-1-onto→((ω ↑_𝑜 (𝐺‘𝑦)) ·_𝑜 (𝐹‘(𝐺‘𝑦))))))
50		eleq1 2689	. . . . . 6 ⊢ (𝑤 = suc 𝑦 → (𝑤 ∈ dom 𝐺 ↔ suc 𝑦 ∈ dom 𝐺))
51		suceq 5790	. . . . . . . 8 ⊢ (𝑤 = suc 𝑦 → suc 𝑤 = suc suc 𝑦)
52	51	fveq2d 6195	. . . . . . 7 ⊢ (𝑤 = suc 𝑦 → (𝑇‘suc 𝑤) = (𝑇‘suc suc 𝑦))
53	51	fveq2d 6195	. . . . . . 7 ⊢ (𝑤 = suc 𝑦 → (𝐻‘suc 𝑤) = (𝐻‘suc suc 𝑦))
54		fveq2 6191	. . . . . . . . 9 ⊢ (𝑤 = suc 𝑦 → (𝐺‘𝑤) = (𝐺‘suc 𝑦))
55	54	oveq2d 6666	. . . . . . . 8 ⊢ (𝑤 = suc 𝑦 → (ω ↑_𝑜 (𝐺‘𝑤)) = (ω ↑_𝑜 (𝐺‘suc 𝑦)))
56	54	fveq2d 6195	. . . . . . . 8 ⊢ (𝑤 = suc 𝑦 → (𝐹‘(𝐺‘𝑤)) = (𝐹‘(𝐺‘suc 𝑦)))
57	55, 56	oveq12d 6668	. . . . . . 7 ⊢ (𝑤 = suc 𝑦 → ((ω ↑_𝑜 (𝐺‘𝑤)) ·_𝑜 (𝐹‘(𝐺‘𝑤))) = ((ω ↑_𝑜 (𝐺‘suc 𝑦)) ·_𝑜 (𝐹‘(𝐺‘suc 𝑦))))
58	52, 53, 57	f1oeq123d 6133	. . . . . 6 ⊢ (𝑤 = suc 𝑦 → ((𝑇‘suc 𝑤):(𝐻‘suc 𝑤)–1-1-onto→((ω ↑_𝑜 (𝐺‘𝑤)) ·_𝑜 (𝐹‘(𝐺‘𝑤))) ↔ (𝑇‘suc suc 𝑦):(𝐻‘suc suc 𝑦)–1-1-onto→((ω ↑_𝑜 (𝐺‘suc 𝑦)) ·_𝑜 (𝐹‘(𝐺‘suc 𝑦)))))
59	50, 58	imbi12d 334	. . . . 5 ⊢ (𝑤 = suc 𝑦 → ((𝑤 ∈ dom 𝐺 → (𝑇‘suc 𝑤):(𝐻‘suc 𝑤)–1-1-onto→((ω ↑_𝑜 (𝐺‘𝑤)) ·_𝑜 (𝐹‘(𝐺‘𝑤)))) ↔ (suc 𝑦 ∈ dom 𝐺 → (𝑇‘suc suc 𝑦):(𝐻‘suc suc 𝑦)–1-1-onto→((ω ↑_𝑜 (𝐺‘suc 𝑦)) ·_𝑜 (𝐹‘(𝐺‘suc 𝑦))))))
60	5	adantr 481	. . . . . . 7 ⊢ ((𝜑 ∧ ∅ ∈ dom 𝐺) → 𝐴 ∈ On)
61	12	adantr 481	. . . . . . 7 ⊢ ((𝜑 ∧ ∅ ∈ dom 𝐺) → 𝐵 ∈ (ω ↑_𝑜 𝐴))
62		cnfcom.h	. . . . . . 7 ⊢ 𝐻 = seq_𝜔((𝑘 ∈ V, 𝑧 ∈ V ↦ (𝑀 +_𝑜 𝑧)), ∅)
63		cnfcom.t	. . . . . . 7 ⊢ 𝑇 = seq_𝜔((𝑘 ∈ V, 𝑓 ∈ V ↦ 𝐾), ∅)
64		cnfcom.m	. . . . . . 7 ⊢ 𝑀 = ((ω ↑_𝑜 (𝐺‘𝑘)) ·_𝑜 (𝐹‘(𝐺‘𝑘)))
65		cnfcom.k	. . . . . . 7 ⊢ 𝐾 = ((𝑥 ∈ 𝑀 ↦ (dom 𝑓 +_𝑜 𝑥)) ∪ ^◡(𝑥 ∈ dom 𝑓 ↦ (𝑀 +_𝑜 𝑥)))
66		simpr 477	. . . . . . 7 ⊢ ((𝜑 ∧ ∅ ∈ dom 𝐺) → ∅ ∈ dom 𝐺)
67	3	a1i 11	. . . . . . . 8 ⊢ ((𝜑 ∧ ∅ ∈ dom 𝐺) → ω ∈ On)
68		suppssdm 7308	. . . . . . . . . . 11 ⊢ (𝐹 supp ∅) ⊆ dom 𝐹
69	2, 4, 5	cantnfs 8563	. . . . . . . . . . . . . 14 ⊢ (𝜑 → (𝐹 ∈ 𝑆 ↔ (𝐹:𝐴⟶ω ∧ 𝐹 finSupp ∅)))
70	14, 69	mpbid 222	. . . . . . . . . . . . 13 ⊢ (𝜑 → (𝐹:𝐴⟶ω ∧ 𝐹 finSupp ∅))
71	70	simpld 475	. . . . . . . . . . . 12 ⊢ (𝜑 → 𝐹:𝐴⟶ω)
72		fdm 6051	. . . . . . . . . . . 12 ⊢ (𝐹:𝐴⟶ω → dom 𝐹 = 𝐴)
73	71, 72	syl 17	. . . . . . . . . . 11 ⊢ (𝜑 → dom 𝐹 = 𝐴)
74	68, 73	syl5sseq 3653	. . . . . . . . . 10 ⊢ (𝜑 → (𝐹 supp ∅) ⊆ 𝐴)
75		onss 6990	. . . . . . . . . . 11 ⊢ (𝐴 ∈ On → 𝐴 ⊆ On)
76	5, 75	syl 17	. . . . . . . . . 10 ⊢ (𝜑 → 𝐴 ⊆ On)
77	74, 76	sstrd 3613	. . . . . . . . 9 ⊢ (𝜑 → (𝐹 supp ∅) ⊆ On)
78	6	oif 8435	. . . . . . . . . 10 ⊢ 𝐺:dom 𝐺⟶(𝐹 supp ∅)
79	78	ffvelrni 6358	. . . . . . . . 9 ⊢ (∅ ∈ dom 𝐺 → (𝐺‘∅) ∈ (𝐹 supp ∅))
80		ssel2 3598	. . . . . . . . 9 ⊢ (((𝐹 supp ∅) ⊆ On ∧ (𝐺‘∅) ∈ (𝐹 supp ∅)) → (𝐺‘∅) ∈ On)
81	77, 79, 80	syl2an 494	. . . . . . . 8 ⊢ ((𝜑 ∧ ∅ ∈ dom 𝐺) → (𝐺‘∅) ∈ On)
82		peano1 7085	. . . . . . . . 9 ⊢ ∅ ∈ ω
83	82	a1i 11	. . . . . . . 8 ⊢ ((𝜑 ∧ ∅ ∈ dom 𝐺) → ∅ ∈ ω)
84		oen0 7666	. . . . . . . 8 ⊢ (((ω ∈ On ∧ (𝐺‘∅) ∈ On) ∧ ∅ ∈ ω) → ∅ ∈ (ω ↑_𝑜 (𝐺‘∅)))
85	67, 81, 83, 84	syl21anc 1325	. . . . . . 7 ⊢ ((𝜑 ∧ ∅ ∈ dom 𝐺) → ∅ ∈ (ω ↑_𝑜 (𝐺‘∅)))
86		0ex 4790	. . . . . . . . 9 ⊢ ∅ ∈ V
87	63	seqom0g 7551	. . . . . . . . 9 ⊢ (∅ ∈ V → (𝑇‘∅) = ∅)
88	86, 87	ax-mp 5	. . . . . . . 8 ⊢ (𝑇‘∅) = ∅
89		f1o0 6173	. . . . . . . . . 10 ⊢ ∅:∅–1-1-onto→∅
90	62	seqom0g 7551	. . . . . . . . . . 11 ⊢ (∅ ∈ V → (𝐻‘∅) = ∅)
91		f1oeq2 6128	. . . . . . . . . . 11 ⊢ ((𝐻‘∅) = ∅ → (∅:(𝐻‘∅)–1-1-onto→∅ ↔ ∅:∅–1-1-onto→∅))
92	86, 90, 91	mp2b 10	. . . . . . . . . 10 ⊢ (∅:(𝐻‘∅)–1-1-onto→∅ ↔ ∅:∅–1-1-onto→∅)
93	89, 92	mpbir 221	. . . . . . . . 9 ⊢ ∅:(𝐻‘∅)–1-1-onto→∅
94		f1oeq1 6127	. . . . . . . . 9 ⊢ ((𝑇‘∅) = ∅ → ((𝑇‘∅):(𝐻‘∅)–1-1-onto→∅ ↔ ∅:(𝐻‘∅)–1-1-onto→∅))
95	93, 94	mpbiri 248	. . . . . . . 8 ⊢ ((𝑇‘∅) = ∅ → (𝑇‘∅):(𝐻‘∅)–1-1-onto→∅)
96	88, 95	mp1i 13	. . . . . . 7 ⊢ ((𝜑 ∧ ∅ ∈ dom 𝐺) → (𝑇‘∅):(𝐻‘∅)–1-1-onto→∅)
97	2, 60, 61, 7, 6, 62, 63, 64, 65, 66, 85, 96	cnfcomlem 8596	. . . . . 6 ⊢ ((𝜑 ∧ ∅ ∈ dom 𝐺) → (𝑇‘suc ∅):(𝐻‘suc ∅)–1-1-onto→((ω ↑_𝑜 (𝐺‘∅)) ·_𝑜 (𝐹‘(𝐺‘∅))))
98	97	ex 450	. . . . 5 ⊢ (𝜑 → (∅ ∈ dom 𝐺 → (𝑇‘suc ∅):(𝐻‘suc ∅)–1-1-onto→((ω ↑_𝑜 (𝐺‘∅)) ·_𝑜 (𝐹‘(𝐺‘∅)))))
99	6	oicl 8434	. . . . . . . . . 10 ⊢ Ord dom 𝐺
100		ordtr 5737	. . . . . . . . . 10 ⊢ (Ord dom 𝐺 → Tr dom 𝐺)
101	99, 100	ax-mp 5	. . . . . . . . 9 ⊢ Tr dom 𝐺
102		trsuc 5810	. . . . . . . . 9 ⊢ ((Tr dom 𝐺 ∧ suc 𝑦 ∈ dom 𝐺) → 𝑦 ∈ dom 𝐺)
103	101, 102	mpan 706	. . . . . . . 8 ⊢ (suc 𝑦 ∈ dom 𝐺 → 𝑦 ∈ dom 𝐺)
104	103	imim1i 63	. . . . . . 7 ⊢ ((𝑦 ∈ dom 𝐺 → (𝑇‘suc 𝑦):(𝐻‘suc 𝑦)–1-1-onto→((ω ↑_𝑜 (𝐺‘𝑦)) ·_𝑜 (𝐹‘(𝐺‘𝑦)))) → (suc 𝑦 ∈ dom 𝐺 → (𝑇‘suc 𝑦):(𝐻‘suc 𝑦)–1-1-onto→((ω ↑_𝑜 (𝐺‘𝑦)) ·_𝑜 (𝐹‘(𝐺‘𝑦)))))
105	5	ad2antrr 762	. . . . . . . . . 10 ⊢ (((𝜑 ∧ 𝑦 ∈ ω) ∧ (suc 𝑦 ∈ dom 𝐺 ∧ (𝑇‘suc 𝑦):(𝐻‘suc 𝑦)–1-1-onto→((ω ↑_𝑜 (𝐺‘𝑦)) ·_𝑜 (𝐹‘(𝐺‘𝑦))))) → 𝐴 ∈ On)
106	12	ad2antrr 762	. . . . . . . . . 10 ⊢ (((𝜑 ∧ 𝑦 ∈ ω) ∧ (suc 𝑦 ∈ dom 𝐺 ∧ (𝑇‘suc 𝑦):(𝐻‘suc 𝑦)–1-1-onto→((ω ↑_𝑜 (𝐺‘𝑦)) ·_𝑜 (𝐹‘(𝐺‘𝑦))))) → 𝐵 ∈ (ω ↑_𝑜 𝐴))
107		simprl 794	. . . . . . . . . 10 ⊢ (((𝜑 ∧ 𝑦 ∈ ω) ∧ (suc 𝑦 ∈ dom 𝐺 ∧ (𝑇‘suc 𝑦):(𝐻‘suc 𝑦)–1-1-onto→((ω ↑_𝑜 (𝐺‘𝑦)) ·_𝑜 (𝐹‘(𝐺‘𝑦))))) → suc 𝑦 ∈ dom 𝐺)
108	76	ad2antrr 762	. . . . . . . . . . . . . . 15 ⊢ (((𝜑 ∧ 𝑦 ∈ ω) ∧ (suc 𝑦 ∈ dom 𝐺 ∧ (𝑇‘suc 𝑦):(𝐻‘suc 𝑦)–1-1-onto→((ω ↑_𝑜 (𝐺‘𝑦)) ·_𝑜 (𝐹‘(𝐺‘𝑦))))) → 𝐴 ⊆ On)
109	74	ad2antrr 762	. . . . . . . . . . . . . . . 16 ⊢ (((𝜑 ∧ 𝑦 ∈ ω) ∧ (suc 𝑦 ∈ dom 𝐺 ∧ (𝑇‘suc 𝑦):(𝐻‘suc 𝑦)–1-1-onto→((ω ↑_𝑜 (𝐺‘𝑦)) ·_𝑜 (𝐹‘(𝐺‘𝑦))))) → (𝐹 supp ∅) ⊆ 𝐴)
110	78	ffvelrni 6358	. . . . . . . . . . . . . . . . 17 ⊢ (suc 𝑦 ∈ dom 𝐺 → (𝐺‘suc 𝑦) ∈ (𝐹 supp ∅))
111	110	ad2antrl 764	. . . . . . . . . . . . . . . 16 ⊢ (((𝜑 ∧ 𝑦 ∈ ω) ∧ (suc 𝑦 ∈ dom 𝐺 ∧ (𝑇‘suc 𝑦):(𝐻‘suc 𝑦)–1-1-onto→((ω ↑_𝑜 (𝐺‘𝑦)) ·_𝑜 (𝐹‘(𝐺‘𝑦))))) → (𝐺‘suc 𝑦) ∈ (𝐹 supp ∅))
112	109, 111	sseldd 3604	. . . . . . . . . . . . . . 15 ⊢ (((𝜑 ∧ 𝑦 ∈ ω) ∧ (suc 𝑦 ∈ dom 𝐺 ∧ (𝑇‘suc 𝑦):(𝐻‘suc 𝑦)–1-1-onto→((ω ↑_𝑜 (𝐺‘𝑦)) ·_𝑜 (𝐹‘(𝐺‘𝑦))))) → (𝐺‘suc 𝑦) ∈ 𝐴)
113	108, 112	sseldd 3604	. . . . . . . . . . . . . 14 ⊢ (((𝜑 ∧ 𝑦 ∈ ω) ∧ (suc 𝑦 ∈ dom 𝐺 ∧ (𝑇‘suc 𝑦):(𝐻‘suc 𝑦)–1-1-onto→((ω ↑_𝑜 (𝐺‘𝑦)) ·_𝑜 (𝐹‘(𝐺‘𝑦))))) → (𝐺‘suc 𝑦) ∈ On)
114		eloni 5733	. . . . . . . . . . . . . 14 ⊢ ((𝐺‘suc 𝑦) ∈ On → Ord (𝐺‘suc 𝑦))
115	113, 114	syl 17	. . . . . . . . . . . . 13 ⊢ (((𝜑 ∧ 𝑦 ∈ ω) ∧ (suc 𝑦 ∈ dom 𝐺 ∧ (𝑇‘suc 𝑦):(𝐻‘suc 𝑦)–1-1-onto→((ω ↑_𝑜 (𝐺‘𝑦)) ·_𝑜 (𝐹‘(𝐺‘𝑦))))) → Ord (𝐺‘suc 𝑦))
116		vex 3203	. . . . . . . . . . . . . . 15 ⊢ 𝑦 ∈ V
117	116	sucid 5804	. . . . . . . . . . . . . 14 ⊢ 𝑦 ∈ suc 𝑦
118	5, 74	ssexd 4805	. . . . . . . . . . . . . . . . . 18 ⊢ (𝜑 → (𝐹 supp ∅) ∈ V)
119	15	simpld 475	. . . . . . . . . . . . . . . . . 18 ⊢ (𝜑 → E We (𝐹 supp ∅))
120	6	oiiso 8442	. . . . . . . . . . . . . . . . . 18 ⊢ (((𝐹 supp ∅) ∈ V ∧ E We (𝐹 supp ∅)) → 𝐺 Isom E , E (dom 𝐺, (𝐹 supp ∅)))
121	118, 119, 120	syl2anc 693	. . . . . . . . . . . . . . . . 17 ⊢ (𝜑 → 𝐺 Isom E , E (dom 𝐺, (𝐹 supp ∅)))
122	121	ad2antrr 762	. . . . . . . . . . . . . . . 16 ⊢ (((𝜑 ∧ 𝑦 ∈ ω) ∧ (suc 𝑦 ∈ dom 𝐺 ∧ (𝑇‘suc 𝑦):(𝐻‘suc 𝑦)–1-1-onto→((ω ↑_𝑜 (𝐺‘𝑦)) ·_𝑜 (𝐹‘(𝐺‘𝑦))))) → 𝐺 Isom E , E (dom 𝐺, (𝐹 supp ∅)))
123	103	ad2antrl 764	. . . . . . . . . . . . . . . 16 ⊢ (((𝜑 ∧ 𝑦 ∈ ω) ∧ (suc 𝑦 ∈ dom 𝐺 ∧ (𝑇‘suc 𝑦):(𝐻‘suc 𝑦)–1-1-onto→((ω ↑_𝑜 (𝐺‘𝑦)) ·_𝑜 (𝐹‘(𝐺‘𝑦))))) → 𝑦 ∈ dom 𝐺)
124		isorel 6576	. . . . . . . . . . . . . . . 16 ⊢ ((𝐺 Isom E , E (dom 𝐺, (𝐹 supp ∅)) ∧ (𝑦 ∈ dom 𝐺 ∧ suc 𝑦 ∈ dom 𝐺)) → (𝑦 E suc 𝑦 ↔ (𝐺‘𝑦) E (𝐺‘suc 𝑦)))
125	122, 123, 107, 124	syl12anc 1324	. . . . . . . . . . . . . . 15 ⊢ (((𝜑 ∧ 𝑦 ∈ ω) ∧ (suc 𝑦 ∈ dom 𝐺 ∧ (𝑇‘suc 𝑦):(𝐻‘suc 𝑦)–1-1-onto→((ω ↑_𝑜 (𝐺‘𝑦)) ·_𝑜 (𝐹‘(𝐺‘𝑦))))) → (𝑦 E suc 𝑦 ↔ (𝐺‘𝑦) E (𝐺‘suc 𝑦)))
126	116	sucex 7011	. . . . . . . . . . . . . . . 16 ⊢ suc 𝑦 ∈ V
127	126	epelc 5031	. . . . . . . . . . . . . . 15 ⊢ (𝑦 E suc 𝑦 ↔ 𝑦 ∈ suc 𝑦)
128		fvex 6201	. . . . . . . . . . . . . . . 16 ⊢ (𝐺‘suc 𝑦) ∈ V
129	128	epelc 5031	. . . . . . . . . . . . . . 15 ⊢ ((𝐺‘𝑦) E (𝐺‘suc 𝑦) ↔ (𝐺‘𝑦) ∈ (𝐺‘suc 𝑦))
130	125, 127, 129	3bitr3g 302	. . . . . . . . . . . . . 14 ⊢ (((𝜑 ∧ 𝑦 ∈ ω) ∧ (suc 𝑦 ∈ dom 𝐺 ∧ (𝑇‘suc 𝑦):(𝐻‘suc 𝑦)–1-1-onto→((ω ↑_𝑜 (𝐺‘𝑦)) ·_𝑜 (𝐹‘(𝐺‘𝑦))))) → (𝑦 ∈ suc 𝑦 ↔ (𝐺‘𝑦) ∈ (𝐺‘suc 𝑦)))
131	117, 130	mpbii 223	. . . . . . . . . . . . 13 ⊢ (((𝜑 ∧ 𝑦 ∈ ω) ∧ (suc 𝑦 ∈ dom 𝐺 ∧ (𝑇‘suc 𝑦):(𝐻‘suc 𝑦)–1-1-onto→((ω ↑_𝑜 (𝐺‘𝑦)) ·_𝑜 (𝐹‘(𝐺‘𝑦))))) → (𝐺‘𝑦) ∈ (𝐺‘suc 𝑦))
132		ordsucss 7018	. . . . . . . . . . . . 13 ⊢ (Ord (𝐺‘suc 𝑦) → ((𝐺‘𝑦) ∈ (𝐺‘suc 𝑦) → suc (𝐺‘𝑦) ⊆ (𝐺‘suc 𝑦)))
133	115, 131, 132	sylc 65	. . . . . . . . . . . 12 ⊢ (((𝜑 ∧ 𝑦 ∈ ω) ∧ (suc 𝑦 ∈ dom 𝐺 ∧ (𝑇‘suc 𝑦):(𝐻‘suc 𝑦)–1-1-onto→((ω ↑_𝑜 (𝐺‘𝑦)) ·_𝑜 (𝐹‘(𝐺‘𝑦))))) → suc (𝐺‘𝑦) ⊆ (𝐺‘suc 𝑦))
134	78	ffvelrni 6358	. . . . . . . . . . . . . . . . 17 ⊢ (𝑦 ∈ dom 𝐺 → (𝐺‘𝑦) ∈ (𝐹 supp ∅))
135	123, 134	syl 17	. . . . . . . . . . . . . . . 16 ⊢ (((𝜑 ∧ 𝑦 ∈ ω) ∧ (suc 𝑦 ∈ dom 𝐺 ∧ (𝑇‘suc 𝑦):(𝐻‘suc 𝑦)–1-1-onto→((ω ↑_𝑜 (𝐺‘𝑦)) ·_𝑜 (𝐹‘(𝐺‘𝑦))))) → (𝐺‘𝑦) ∈ (𝐹 supp ∅))
136	109, 135	sseldd 3604	. . . . . . . . . . . . . . 15 ⊢ (((𝜑 ∧ 𝑦 ∈ ω) ∧ (suc 𝑦 ∈ dom 𝐺 ∧ (𝑇‘suc 𝑦):(𝐻‘suc 𝑦)–1-1-onto→((ω ↑_𝑜 (𝐺‘𝑦)) ·_𝑜 (𝐹‘(𝐺‘𝑦))))) → (𝐺‘𝑦) ∈ 𝐴)
137	108, 136	sseldd 3604	. . . . . . . . . . . . . 14 ⊢ (((𝜑 ∧ 𝑦 ∈ ω) ∧ (suc 𝑦 ∈ dom 𝐺 ∧ (𝑇‘suc 𝑦):(𝐻‘suc 𝑦)–1-1-onto→((ω ↑_𝑜 (𝐺‘𝑦)) ·_𝑜 (𝐹‘(𝐺‘𝑦))))) → (𝐺‘𝑦) ∈ On)
138		suceloni 7013	. . . . . . . . . . . . . 14 ⊢ ((𝐺‘𝑦) ∈ On → suc (𝐺‘𝑦) ∈ On)
139	137, 138	syl 17	. . . . . . . . . . . . 13 ⊢ (((𝜑 ∧ 𝑦 ∈ ω) ∧ (suc 𝑦 ∈ dom 𝐺 ∧ (𝑇‘suc 𝑦):(𝐻‘suc 𝑦)–1-1-onto→((ω ↑_𝑜 (𝐺‘𝑦)) ·_𝑜 (𝐹‘(𝐺‘𝑦))))) → suc (𝐺‘𝑦) ∈ On)
140	3	a1i 11	. . . . . . . . . . . . 13 ⊢ (((𝜑 ∧ 𝑦 ∈ ω) ∧ (suc 𝑦 ∈ dom 𝐺 ∧ (𝑇‘suc 𝑦):(𝐻‘suc 𝑦)–1-1-onto→((ω ↑_𝑜 (𝐺‘𝑦)) ·_𝑜 (𝐹‘(𝐺‘𝑦))))) → ω ∈ On)
141	82	a1i 11	. . . . . . . . . . . . 13 ⊢ (((𝜑 ∧ 𝑦 ∈ ω) ∧ (suc 𝑦 ∈ dom 𝐺 ∧ (𝑇‘suc 𝑦):(𝐻‘suc 𝑦)–1-1-onto→((ω ↑_𝑜 (𝐺‘𝑦)) ·_𝑜 (𝐹‘(𝐺‘𝑦))))) → ∅ ∈ ω)
142		oewordi 7671	. . . . . . . . . . . . 13 ⊢ (((suc (𝐺‘𝑦) ∈ On ∧ (𝐺‘suc 𝑦) ∈ On ∧ ω ∈ On) ∧ ∅ ∈ ω) → (suc (𝐺‘𝑦) ⊆ (𝐺‘suc 𝑦) → (ω ↑_𝑜 suc (𝐺‘𝑦)) ⊆ (ω ↑_𝑜 (𝐺‘suc 𝑦))))
143	139, 113, 140, 141, 142	syl31anc 1329	. . . . . . . . . . . 12 ⊢ (((𝜑 ∧ 𝑦 ∈ ω) ∧ (suc 𝑦 ∈ dom 𝐺 ∧ (𝑇‘suc 𝑦):(𝐻‘suc 𝑦)–1-1-onto→((ω ↑_𝑜 (𝐺‘𝑦)) ·_𝑜 (𝐹‘(𝐺‘𝑦))))) → (suc (𝐺‘𝑦) ⊆ (𝐺‘suc 𝑦) → (ω ↑_𝑜 suc (𝐺‘𝑦)) ⊆ (ω ↑_𝑜 (𝐺‘suc 𝑦))))
144	133, 143	mpd 15	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ 𝑦 ∈ ω) ∧ (suc 𝑦 ∈ dom 𝐺 ∧ (𝑇‘suc 𝑦):(𝐻‘suc 𝑦)–1-1-onto→((ω ↑_𝑜 (𝐺‘𝑦)) ·_𝑜 (𝐹‘(𝐺‘𝑦))))) → (ω ↑_𝑜 suc (𝐺‘𝑦)) ⊆ (ω ↑_𝑜 (𝐺‘suc 𝑦)))
145	71	ad2antrr 762	. . . . . . . . . . . . . 14 ⊢ (((𝜑 ∧ 𝑦 ∈ ω) ∧ (suc 𝑦 ∈ dom 𝐺 ∧ (𝑇‘suc 𝑦):(𝐻‘suc 𝑦)–1-1-onto→((ω ↑_𝑜 (𝐺‘𝑦)) ·_𝑜 (𝐹‘(𝐺‘𝑦))))) → 𝐹:𝐴⟶ω)
146	145, 136	ffvelrnd 6360	. . . . . . . . . . . . 13 ⊢ (((𝜑 ∧ 𝑦 ∈ ω) ∧ (suc 𝑦 ∈ dom 𝐺 ∧ (𝑇‘suc 𝑦):(𝐻‘suc 𝑦)–1-1-onto→((ω ↑_𝑜 (𝐺‘𝑦)) ·_𝑜 (𝐹‘(𝐺‘𝑦))))) → (𝐹‘(𝐺‘𝑦)) ∈ ω)
147		nnon 7071	. . . . . . . . . . . . . . 15 ⊢ ((𝐹‘(𝐺‘𝑦)) ∈ ω → (𝐹‘(𝐺‘𝑦)) ∈ On)
148	146, 147	syl 17	. . . . . . . . . . . . . 14 ⊢ (((𝜑 ∧ 𝑦 ∈ ω) ∧ (suc 𝑦 ∈ dom 𝐺 ∧ (𝑇‘suc 𝑦):(𝐻‘suc 𝑦)–1-1-onto→((ω ↑_𝑜 (𝐺‘𝑦)) ·_𝑜 (𝐹‘(𝐺‘𝑦))))) → (𝐹‘(𝐺‘𝑦)) ∈ On)
149		oecl 7617	. . . . . . . . . . . . . . 15 ⊢ ((ω ∈ On ∧ (𝐺‘𝑦) ∈ On) → (ω ↑_𝑜 (𝐺‘𝑦)) ∈ On)
150	140, 137, 149	syl2anc 693	. . . . . . . . . . . . . 14 ⊢ (((𝜑 ∧ 𝑦 ∈ ω) ∧ (suc 𝑦 ∈ dom 𝐺 ∧ (𝑇‘suc 𝑦):(𝐻‘suc 𝑦)–1-1-onto→((ω ↑_𝑜 (𝐺‘𝑦)) ·_𝑜 (𝐹‘(𝐺‘𝑦))))) → (ω ↑_𝑜 (𝐺‘𝑦)) ∈ On)
151		oen0 7666	. . . . . . . . . . . . . . 15 ⊢ (((ω ∈ On ∧ (𝐺‘𝑦) ∈ On) ∧ ∅ ∈ ω) → ∅ ∈ (ω ↑_𝑜 (𝐺‘𝑦)))
152	140, 137, 141, 151	syl21anc 1325	. . . . . . . . . . . . . 14 ⊢ (((𝜑 ∧ 𝑦 ∈ ω) ∧ (suc 𝑦 ∈ dom 𝐺 ∧ (𝑇‘suc 𝑦):(𝐻‘suc 𝑦)–1-1-onto→((ω ↑_𝑜 (𝐺‘𝑦)) ·_𝑜 (𝐹‘(𝐺‘𝑦))))) → ∅ ∈ (ω ↑_𝑜 (𝐺‘𝑦)))
153		omord2 7647	. . . . . . . . . . . . . 14 ⊢ ((((𝐹‘(𝐺‘𝑦)) ∈ On ∧ ω ∈ On ∧ (ω ↑_𝑜 (𝐺‘𝑦)) ∈ On) ∧ ∅ ∈ (ω ↑_𝑜 (𝐺‘𝑦))) → ((𝐹‘(𝐺‘𝑦)) ∈ ω ↔ ((ω ↑_𝑜 (𝐺‘𝑦)) ·_𝑜 (𝐹‘(𝐺‘𝑦))) ∈ ((ω ↑_𝑜 (𝐺‘𝑦)) ·_𝑜 ω)))
154	148, 140, 150, 152, 153	syl31anc 1329	. . . . . . . . . . . . 13 ⊢ (((𝜑 ∧ 𝑦 ∈ ω) ∧ (suc 𝑦 ∈ dom 𝐺 ∧ (𝑇‘suc 𝑦):(𝐻‘suc 𝑦)–1-1-onto→((ω ↑_𝑜 (𝐺‘𝑦)) ·_𝑜 (𝐹‘(𝐺‘𝑦))))) → ((𝐹‘(𝐺‘𝑦)) ∈ ω ↔ ((ω ↑_𝑜 (𝐺‘𝑦)) ·_𝑜 (𝐹‘(𝐺‘𝑦))) ∈ ((ω ↑_𝑜 (𝐺‘𝑦)) ·_𝑜 ω)))
155	146, 154	mpbid 222	. . . . . . . . . . . 12 ⊢ (((𝜑 ∧ 𝑦 ∈ ω) ∧ (suc 𝑦 ∈ dom 𝐺 ∧ (𝑇‘suc 𝑦):(𝐻‘suc 𝑦)–1-1-onto→((ω ↑_𝑜 (𝐺‘𝑦)) ·_𝑜 (𝐹‘(𝐺‘𝑦))))) → ((ω ↑_𝑜 (𝐺‘𝑦)) ·_𝑜 (𝐹‘(𝐺‘𝑦))) ∈ ((ω ↑_𝑜 (𝐺‘𝑦)) ·_𝑜 ω))
156		oesuc 7607	. . . . . . . . . . . . 13 ⊢ ((ω ∈ On ∧ (𝐺‘𝑦) ∈ On) → (ω ↑_𝑜 suc (𝐺‘𝑦)) = ((ω ↑_𝑜 (𝐺‘𝑦)) ·_𝑜 ω))
157	140, 137, 156	syl2anc 693	. . . . . . . . . . . 12 ⊢ (((𝜑 ∧ 𝑦 ∈ ω) ∧ (suc 𝑦 ∈ dom 𝐺 ∧ (𝑇‘suc 𝑦):(𝐻‘suc 𝑦)–1-1-onto→((ω ↑_𝑜 (𝐺‘𝑦)) ·_𝑜 (𝐹‘(𝐺‘𝑦))))) → (ω ↑_𝑜 suc (𝐺‘𝑦)) = ((ω ↑_𝑜 (𝐺‘𝑦)) ·_𝑜 ω))
158	155, 157	eleqtrrd 2704	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ 𝑦 ∈ ω) ∧ (suc 𝑦 ∈ dom 𝐺 ∧ (𝑇‘suc 𝑦):(𝐻‘suc 𝑦)–1-1-onto→((ω ↑_𝑜 (𝐺‘𝑦)) ·_𝑜 (𝐹‘(𝐺‘𝑦))))) → ((ω ↑_𝑜 (𝐺‘𝑦)) ·_𝑜 (𝐹‘(𝐺‘𝑦))) ∈ (ω ↑_𝑜 suc (𝐺‘𝑦)))
159	144, 158	sseldd 3604	. . . . . . . . . 10 ⊢ (((𝜑 ∧ 𝑦 ∈ ω) ∧ (suc 𝑦 ∈ dom 𝐺 ∧ (𝑇‘suc 𝑦):(𝐻‘suc 𝑦)–1-1-onto→((ω ↑_𝑜 (𝐺‘𝑦)) ·_𝑜 (𝐹‘(𝐺‘𝑦))))) → ((ω ↑_𝑜 (𝐺‘𝑦)) ·_𝑜 (𝐹‘(𝐺‘𝑦))) ∈ (ω ↑_𝑜 (𝐺‘suc 𝑦)))
160		simprr 796	. . . . . . . . . 10 ⊢ (((𝜑 ∧ 𝑦 ∈ ω) ∧ (suc 𝑦 ∈ dom 𝐺 ∧ (𝑇‘suc 𝑦):(𝐻‘suc 𝑦)–1-1-onto→((ω ↑_𝑜 (𝐺‘𝑦)) ·_𝑜 (𝐹‘(𝐺‘𝑦))))) → (𝑇‘suc 𝑦):(𝐻‘suc 𝑦)–1-1-onto→((ω ↑_𝑜 (𝐺‘𝑦)) ·_𝑜 (𝐹‘(𝐺‘𝑦))))
161	2, 105, 106, 7, 6, 62, 63, 64, 65, 107, 159, 160	cnfcomlem 8596	. . . . . . . . 9 ⊢ (((𝜑 ∧ 𝑦 ∈ ω) ∧ (suc 𝑦 ∈ dom 𝐺 ∧ (𝑇‘suc 𝑦):(𝐻‘suc 𝑦)–1-1-onto→((ω ↑_𝑜 (𝐺‘𝑦)) ·_𝑜 (𝐹‘(𝐺‘𝑦))))) → (𝑇‘suc suc 𝑦):(𝐻‘suc suc 𝑦)–1-1-onto→((ω ↑_𝑜 (𝐺‘suc 𝑦)) ·_𝑜 (𝐹‘(𝐺‘suc 𝑦))))
162	161	exp32 631	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑦 ∈ ω) → (suc 𝑦 ∈ dom 𝐺 → ((𝑇‘suc 𝑦):(𝐻‘suc 𝑦)–1-1-onto→((ω ↑_𝑜 (𝐺‘𝑦)) ·_𝑜 (𝐹‘(𝐺‘𝑦))) → (𝑇‘suc suc 𝑦):(𝐻‘suc suc 𝑦)–1-1-onto→((ω ↑_𝑜 (𝐺‘suc 𝑦)) ·_𝑜 (𝐹‘(𝐺‘suc 𝑦))))))
163	162	a2d 29	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑦 ∈ ω) → ((suc 𝑦 ∈ dom 𝐺 → (𝑇‘suc 𝑦):(𝐻‘suc 𝑦)–1-1-onto→((ω ↑_𝑜 (𝐺‘𝑦)) ·_𝑜 (𝐹‘(𝐺‘𝑦)))) → (suc 𝑦 ∈ dom 𝐺 → (𝑇‘suc suc 𝑦):(𝐻‘suc suc 𝑦)–1-1-onto→((ω ↑_𝑜 (𝐺‘suc 𝑦)) ·_𝑜 (𝐹‘(𝐺‘suc 𝑦))))))
164	104, 163	syl5 34	. . . . . 6 ⊢ ((𝜑 ∧ 𝑦 ∈ ω) → ((𝑦 ∈ dom 𝐺 → (𝑇‘suc 𝑦):(𝐻‘suc 𝑦)–1-1-onto→((ω ↑_𝑜 (𝐺‘𝑦)) ·_𝑜 (𝐹‘(𝐺‘𝑦)))) → (suc 𝑦 ∈ dom 𝐺 → (𝑇‘suc suc 𝑦):(𝐻‘suc suc 𝑦)–1-1-onto→((ω ↑_𝑜 (𝐺‘suc 𝑦)) ·_𝑜 (𝐹‘(𝐺‘suc 𝑦))))))
165	164	expcom 451	. . . . 5 ⊢ (𝑦 ∈ ω → (𝜑 → ((𝑦 ∈ dom 𝐺 → (𝑇‘suc 𝑦):(𝐻‘suc 𝑦)–1-1-onto→((ω ↑_𝑜 (𝐺‘𝑦)) ·_𝑜 (𝐹‘(𝐺‘𝑦)))) → (suc 𝑦 ∈ dom 𝐺 → (𝑇‘suc suc 𝑦):(𝐻‘suc suc 𝑦)–1-1-onto→((ω ↑_𝑜 (𝐺‘suc 𝑦)) ·_𝑜 (𝐹‘(𝐺‘suc 𝑦)))))))
166	39, 49, 59, 98, 165	finds2 7094	. . . 4 ⊢ (𝑤 ∈ ω → (𝜑 → (𝑤 ∈ dom 𝐺 → (𝑇‘suc 𝑤):(𝐻‘suc 𝑤)–1-1-onto→((ω ↑_𝑜 (𝐺‘𝑤)) ·_𝑜 (𝐹‘(𝐺‘𝑤))))))
167	29, 166	vtoclga 3272	. . 3 ⊢ (𝐼 ∈ ω → (𝜑 → (𝐼 ∈ dom 𝐺 → (𝑇‘suc 𝐼):(𝐻‘suc 𝐼)–1-1-onto→((ω ↑_𝑜 (𝐺‘𝐼)) ·_𝑜 (𝐹‘(𝐺‘𝐼))))))
168	18, 167	mpcom 38	. 2 ⊢ (𝜑 → (𝐼 ∈ dom 𝐺 → (𝑇‘suc 𝐼):(𝐻‘suc 𝐼)–1-1-onto→((ω ↑_𝑜 (𝐺‘𝐼)) ·_𝑜 (𝐹‘(𝐺‘𝐼)))))
169	1, 168	mpd 15	1 ⊢ (𝜑 → (𝑇‘suc 𝐼):(𝐻‘suc 𝐼)–1-1-onto→((ω ↑_𝑜 (𝐺‘𝐼)) ·_𝑜 (𝐹‘(𝐺‘𝐼))))

Colors of variables: wff setvar class

Syntax hints: → wi 4 ↔ wb 196 ∧ wa 384 = wceq 1483 ∈ wcel 1990 Vcvv 3200 ∪ cun 3572 ⊆ wss 3574 ∅c0 3915 class class class wbr 4653 ↦ cmpt 4729 Tr wtr 4752 E cep 5028 We wwe 5072 ^◡ccnv 5113 dom cdm 5114 Ord word 5722 Oncon0 5723 suc csuc 5725 ⟶wf 5884 –1-1-onto→wf1o 5887 ‘cfv 5888 Isom wiso 5889 (class class class)co 6650 ↦ cmpt2 6652 ωcom 7065 supp csupp 7295 seq_𝜔cseqom 7542 +_𝑜 coa 7557 ·_𝑜 comu 7558 ↑_𝑜 coe 7559 finSupp cfsupp 8275 OrdIsocoi 8414 CNF ccnf 8558

This theorem was proved from axioms: ax-mp 5 ax-1 6 ax-2 7 ax-3 8 ax-gen 1722 ax-4 1737 ax-5 1839 ax-6 1888 ax-7 1935 ax-8 1992 ax-9 1999 ax-10 2019 ax-11 2034 ax-12 2047 ax-13 2246 ax-ext 2602 ax-rep 4771 ax-sep 4781 ax-nul 4789 ax-pow 4843 ax-pr 4906 ax-un 6949 ax-inf2 8538

This theorem depends on definitions: df-bi 197 df-or 385 df-an 386 df-3or 1038 df-3an 1039 df-tru 1486 df-fal 1489 df-ex 1705 df-nf 1710 df-sb 1881 df-eu 2474 df-mo 2475 df-clab 2609 df-cleq 2615 df-clel 2618 df-nfc 2753 df-ne 2795 df-ral 2917 df-rex 2918 df-reu 2919 df-rmo 2920 df-rab 2921 df-v 3202 df-sbc 3436 df-csb 3534 df-dif 3577 df-un 3579 df-in 3581 df-ss 3588 df-pss 3590 df-nul 3916 df-if 4087 df-pw 4160 df-sn 4178 df-pr 4180 df-tp 4182 df-op 4184 df-uni 4437 df-int 4476 df-iun 4522 df-br 4654 df-opab 4713 df-mpt 4730 df-tr 4753 df-id 5024 df-eprel 5029 df-po 5035 df-so 5036 df-fr 5073 df-se 5074 df-we 5075 df-xp 5120 df-rel 5121 df-cnv 5122 df-co 5123 df-dm 5124 df-rn 5125 df-res 5126 df-ima 5127 df-pred 5680 df-ord 5726 df-on 5727 df-lim 5728 df-suc 5729 df-iota 5851 df-fun 5890 df-fn 5891 df-f 5892 df-f1 5893 df-fo 5894 df-f1o 5895 df-fv 5896 df-isom 5897 df-riota 6611 df-ov 6653 df-oprab 6654 df-mpt2 6655 df-om 7066 df-1st 7168 df-2nd 7169 df-supp 7296 df-wrecs 7407 df-recs 7468 df-rdg 7506 df-seqom 7543 df-1o 7560 df-2o 7561 df-oadd 7564 df-omul 7565 df-oexp 7566 df-er 7742 df-map 7859 df-en 7956 df-dom 7957 df-sdom 7958 df-fin 7959 df-fsupp 8276 df-oi 8415 df-cnf 8559

This theorem is referenced by: cnfcom2 8599

W3C validator