cantnflt - Metamath Proof Explorer

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

Theorem cantnflt 9617

Description: An upper bound on the partial sums of the CNF function. Since each term dominates all previous terms, by induction we can bound the whole sum with any exponent 𝐴 ↑_o 𝐶 where 𝐶 is larger than any exponent (𝐺‘𝑥), 𝑥 ∈ 𝐾 which has been summed so far. (Contributed by Mario Carneiro, 28-May-2015.) (Revised by AV, 29-Jun-2019.)

**Hypotheses**
Ref	Expression
cantnfs.s	⊢ 𝑆 = dom (𝐴 CNF 𝐵)
cantnfs.a	⊢ (𝜑 → 𝐴 ∈ On)
cantnfs.b	⊢ (𝜑 → 𝐵 ∈ On)
cantnfcl.g	⊢ 𝐺 = OrdIso( E , (𝐹 supp ∅))
cantnfcl.f	⊢ (𝜑 → 𝐹 ∈ 𝑆)
cantnfval.h	⊢ 𝐻 = seq_ω((𝑘 ∈ V, 𝑧 ∈ V ↦ (((𝐴 ↑_o (𝐺‘𝑘)) ·_o (𝐹‘(𝐺‘𝑘))) +_o 𝑧)), ∅)
cantnflt.a	⊢ (𝜑 → ∅ ∈ 𝐴)
cantnflt.k	⊢ (𝜑 → 𝐾 ∈ suc dom 𝐺)
cantnflt.c	⊢ (𝜑 → 𝐶 ∈ On)
cantnflt.s	⊢ (𝜑 → (𝐺 “ 𝐾) ⊆ 𝐶)

**Assertion**
Ref	Expression
cantnflt	⊢ (𝜑 → (𝐻‘𝐾) ∈ (𝐴 ↑_o 𝐶))

Distinct variable groups: 𝑧,𝑘,𝐵 𝑧,𝐶 𝐴,𝑘,𝑧 𝑘,𝐹,𝑧 𝑆,𝑘,𝑧 𝑘,𝐺,𝑧 𝑘,𝐾,𝑧 𝜑,𝑘,𝑧 Allowed substitution hints: 𝐶(𝑘) 𝐻(𝑧,𝑘)

Proof of Theorem cantnflt Dummy variables 𝑥 𝑦 are mutually distinct and distinct from all other variables.

Step	Hyp	Ref	Expression
1		cantnfs.a	. . . 4 ⊢ (𝜑 → 𝐴 ∈ On)
2		cantnflt.c	. . . 4 ⊢ (𝜑 → 𝐶 ∈ On)
3		cantnflt.a	. . . 4 ⊢ (𝜑 → ∅ ∈ 𝐴)
4		oen0 8538	. . . 4 ⊢ (((𝐴 ∈ On ∧ 𝐶 ∈ On) ∧ ∅ ∈ 𝐴) → ∅ ∈ (𝐴 ↑_o 𝐶))
5	1, 2, 3, 4	syl21anc 836	. . 3 ⊢ (𝜑 → ∅ ∈ (𝐴 ↑_o 𝐶))
6		fveq2 6847	. . . . 5 ⊢ (𝐾 = ∅ → (𝐻‘𝐾) = (𝐻‘∅))
7		0ex 5269	. . . . . 6 ⊢ ∅ ∈ V
8		cantnfval.h	. . . . . . 7 ⊢ 𝐻 = seq_ω((𝑘 ∈ V, 𝑧 ∈ V ↦ (((𝐴 ↑_o (𝐺‘𝑘)) ·_o (𝐹‘(𝐺‘𝑘))) +_o 𝑧)), ∅)
9	8	seqom0g 8407	. . . . . 6 ⊢ (∅ ∈ V → (𝐻‘∅) = ∅)
10	7, 9	ax-mp 5	. . . . 5 ⊢ (𝐻‘∅) = ∅
11	6, 10	eqtrdi 2787	. . . 4 ⊢ (𝐾 = ∅ → (𝐻‘𝐾) = ∅)
12	11	eleq1d 2817	. . 3 ⊢ (𝐾 = ∅ → ((𝐻‘𝐾) ∈ (𝐴 ↑_o 𝐶) ↔ ∅ ∈ (𝐴 ↑_o 𝐶)))
13	5, 12	syl5ibrcom 246	. 2 ⊢ (𝜑 → (𝐾 = ∅ → (𝐻‘𝐾) ∈ (𝐴 ↑_o 𝐶)))
14	2	adantr 481	. . . . . . 7 ⊢ ((𝜑 ∧ (𝑥 ∈ ω ∧ 𝐾 = suc 𝑥)) → 𝐶 ∈ On)
15		eloni 6332	. . . . . . 7 ⊢ (𝐶 ∈ On → Ord 𝐶)
16	14, 15	syl 17	. . . . . 6 ⊢ ((𝜑 ∧ (𝑥 ∈ ω ∧ 𝐾 = suc 𝑥)) → Ord 𝐶)
17		cantnflt.s	. . . . . . . 8 ⊢ (𝜑 → (𝐺 “ 𝐾) ⊆ 𝐶)
18	17	adantr 481	. . . . . . 7 ⊢ ((𝜑 ∧ (𝑥 ∈ ω ∧ 𝐾 = suc 𝑥)) → (𝐺 “ 𝐾) ⊆ 𝐶)
19		cantnfcl.g	. . . . . . . . . 10 ⊢ 𝐺 = OrdIso( E , (𝐹 supp ∅))
20	19	oif 9475	. . . . . . . . 9 ⊢ 𝐺:dom 𝐺⟶(𝐹 supp ∅)
21		ffn 6673	. . . . . . . . 9 ⊢ (𝐺:dom 𝐺⟶(𝐹 supp ∅) → 𝐺 Fn dom 𝐺)
22	20, 21	mp1i 13	. . . . . . . 8 ⊢ ((𝜑 ∧ (𝑥 ∈ ω ∧ 𝐾 = suc 𝑥)) → 𝐺 Fn dom 𝐺)
23		cantnflt.k	. . . . . . . . . 10 ⊢ (𝜑 → 𝐾 ∈ suc dom 𝐺)
24	19	oicl 9474	. . . . . . . . . . . . 13 ⊢ Ord dom 𝐺
25		ordsuc 7753	. . . . . . . . . . . . 13 ⊢ (Ord dom 𝐺 ↔ Ord suc dom 𝐺)
26	24, 25	mpbi 229	. . . . . . . . . . . 12 ⊢ Ord suc dom 𝐺
27		ordelon 6346	. . . . . . . . . . . 12 ⊢ ((Ord suc dom 𝐺 ∧ 𝐾 ∈ suc dom 𝐺) → 𝐾 ∈ On)
28	26, 23, 27	sylancr 587	. . . . . . . . . . 11 ⊢ (𝜑 → 𝐾 ∈ On)
29		ordsssuc 6411	. . . . . . . . . . 11 ⊢ ((𝐾 ∈ On ∧ Ord dom 𝐺) → (𝐾 ⊆ dom 𝐺 ↔ 𝐾 ∈ suc dom 𝐺))
30	28, 24, 29	sylancl 586	. . . . . . . . . 10 ⊢ (𝜑 → (𝐾 ⊆ dom 𝐺 ↔ 𝐾 ∈ suc dom 𝐺))
31	23, 30	mpbird 256	. . . . . . . . 9 ⊢ (𝜑 → 𝐾 ⊆ dom 𝐺)
32	31	adantr 481	. . . . . . . 8 ⊢ ((𝜑 ∧ (𝑥 ∈ ω ∧ 𝐾 = suc 𝑥)) → 𝐾 ⊆ dom 𝐺)
33		vex 3450	. . . . . . . . . 10 ⊢ 𝑥 ∈ V
34	33	sucid 6404	. . . . . . . . 9 ⊢ 𝑥 ∈ suc 𝑥
35		simprr 771	. . . . . . . . 9 ⊢ ((𝜑 ∧ (𝑥 ∈ ω ∧ 𝐾 = suc 𝑥)) → 𝐾 = suc 𝑥)
36	34, 35	eleqtrrid 2839	. . . . . . . 8 ⊢ ((𝜑 ∧ (𝑥 ∈ ω ∧ 𝐾 = suc 𝑥)) → 𝑥 ∈ 𝐾)
37		fnfvima 7188	. . . . . . . 8 ⊢ ((𝐺 Fn dom 𝐺 ∧ 𝐾 ⊆ dom 𝐺 ∧ 𝑥 ∈ 𝐾) → (𝐺‘𝑥) ∈ (𝐺 “ 𝐾))
38	22, 32, 36, 37	syl3anc 1371	. . . . . . 7 ⊢ ((𝜑 ∧ (𝑥 ∈ ω ∧ 𝐾 = suc 𝑥)) → (𝐺‘𝑥) ∈ (𝐺 “ 𝐾))
39	18, 38	sseldd 3948	. . . . . 6 ⊢ ((𝜑 ∧ (𝑥 ∈ ω ∧ 𝐾 = suc 𝑥)) → (𝐺‘𝑥) ∈ 𝐶)
40		ordsucss 7758	. . . . . 6 ⊢ (Ord 𝐶 → ((𝐺‘𝑥) ∈ 𝐶 → suc (𝐺‘𝑥) ⊆ 𝐶))
41	16, 39, 40	sylc 65	. . . . 5 ⊢ ((𝜑 ∧ (𝑥 ∈ ω ∧ 𝐾 = suc 𝑥)) → suc (𝐺‘𝑥) ⊆ 𝐶)
42		suppssdm 8113	. . . . . . . . . . 11 ⊢ (𝐹 supp ∅) ⊆ dom 𝐹
43		cantnfcl.f	. . . . . . . . . . . . 13 ⊢ (𝜑 → 𝐹 ∈ 𝑆)
44		cantnfs.s	. . . . . . . . . . . . . 14 ⊢ 𝑆 = dom (𝐴 CNF 𝐵)
45		cantnfs.b	. . . . . . . . . . . . . 14 ⊢ (𝜑 → 𝐵 ∈ On)
46	44, 1, 45	cantnfs 9611	. . . . . . . . . . . . 13 ⊢ (𝜑 → (𝐹 ∈ 𝑆 ↔ (𝐹:𝐵⟶𝐴 ∧ 𝐹 finSupp ∅)))
47	43, 46	mpbid 231	. . . . . . . . . . . 12 ⊢ (𝜑 → (𝐹:𝐵⟶𝐴 ∧ 𝐹 finSupp ∅))
48	47	simpld 495	. . . . . . . . . . 11 ⊢ (𝜑 → 𝐹:𝐵⟶𝐴)
49	42, 48	fssdm 6693	. . . . . . . . . 10 ⊢ (𝜑 → (𝐹 supp ∅) ⊆ 𝐵)
50		onss 7724	. . . . . . . . . . 11 ⊢ (𝐵 ∈ On → 𝐵 ⊆ On)
51	45, 50	syl 17	. . . . . . . . . 10 ⊢ (𝜑 → 𝐵 ⊆ On)
52	49, 51	sstrd 3957	. . . . . . . . 9 ⊢ (𝜑 → (𝐹 supp ∅) ⊆ On)
53	52	adantr 481	. . . . . . . 8 ⊢ ((𝜑 ∧ (𝑥 ∈ ω ∧ 𝐾 = suc 𝑥)) → (𝐹 supp ∅) ⊆ On)
54	23	adantr 481	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ (𝑥 ∈ ω ∧ 𝐾 = suc 𝑥)) → 𝐾 ∈ suc dom 𝐺)
55	35, 54	eqeltrrd 2833	. . . . . . . . . 10 ⊢ ((𝜑 ∧ (𝑥 ∈ ω ∧ 𝐾 = suc 𝑥)) → suc 𝑥 ∈ suc dom 𝐺)
56		ordsucelsuc 7762	. . . . . . . . . . 11 ⊢ (Ord dom 𝐺 → (𝑥 ∈ dom 𝐺 ↔ suc 𝑥 ∈ suc dom 𝐺))
57	24, 56	ax-mp 5	. . . . . . . . . 10 ⊢ (𝑥 ∈ dom 𝐺 ↔ suc 𝑥 ∈ suc dom 𝐺)
58	55, 57	sylibr 233	. . . . . . . . 9 ⊢ ((𝜑 ∧ (𝑥 ∈ ω ∧ 𝐾 = suc 𝑥)) → 𝑥 ∈ dom 𝐺)
59	20	ffvelcdmi 7039	. . . . . . . . 9 ⊢ (𝑥 ∈ dom 𝐺 → (𝐺‘𝑥) ∈ (𝐹 supp ∅))
60	58, 59	syl 17	. . . . . . . 8 ⊢ ((𝜑 ∧ (𝑥 ∈ ω ∧ 𝐾 = suc 𝑥)) → (𝐺‘𝑥) ∈ (𝐹 supp ∅))
61	53, 60	sseldd 3948	. . . . . . 7 ⊢ ((𝜑 ∧ (𝑥 ∈ ω ∧ 𝐾 = suc 𝑥)) → (𝐺‘𝑥) ∈ On)
62		onsuc 7751	. . . . . . 7 ⊢ ((𝐺‘𝑥) ∈ On → suc (𝐺‘𝑥) ∈ On)
63	61, 62	syl 17	. . . . . 6 ⊢ ((𝜑 ∧ (𝑥 ∈ ω ∧ 𝐾 = suc 𝑥)) → suc (𝐺‘𝑥) ∈ On)
64	1	adantr 481	. . . . . 6 ⊢ ((𝜑 ∧ (𝑥 ∈ ω ∧ 𝐾 = suc 𝑥)) → 𝐴 ∈ On)
65	3	adantr 481	. . . . . 6 ⊢ ((𝜑 ∧ (𝑥 ∈ ω ∧ 𝐾 = suc 𝑥)) → ∅ ∈ 𝐴)
66		oewordi 8543	. . . . . 6 ⊢ (((suc (𝐺‘𝑥) ∈ On ∧ 𝐶 ∈ On ∧ 𝐴 ∈ On) ∧ ∅ ∈ 𝐴) → (suc (𝐺‘𝑥) ⊆ 𝐶 → (𝐴 ↑_o suc (𝐺‘𝑥)) ⊆ (𝐴 ↑_o 𝐶)))
67	63, 14, 64, 65, 66	syl31anc 1373	. . . . 5 ⊢ ((𝜑 ∧ (𝑥 ∈ ω ∧ 𝐾 = suc 𝑥)) → (suc (𝐺‘𝑥) ⊆ 𝐶 → (𝐴 ↑_o suc (𝐺‘𝑥)) ⊆ (𝐴 ↑_o 𝐶)))
68	41, 67	mpd 15	. . . 4 ⊢ ((𝜑 ∧ (𝑥 ∈ ω ∧ 𝐾 = suc 𝑥)) → (𝐴 ↑_o suc (𝐺‘𝑥)) ⊆ (𝐴 ↑_o 𝐶))
69	35	fveq2d 6851	. . . . 5 ⊢ ((𝜑 ∧ (𝑥 ∈ ω ∧ 𝐾 = suc 𝑥)) → (𝐻‘𝐾) = (𝐻‘suc 𝑥))
70		simprl 769	. . . . . 6 ⊢ ((𝜑 ∧ (𝑥 ∈ ω ∧ 𝐾 = suc 𝑥)) → 𝑥 ∈ ω)
71		simpl 483	. . . . . 6 ⊢ ((𝜑 ∧ (𝑥 ∈ ω ∧ 𝐾 = suc 𝑥)) → 𝜑)
72		eleq1 2820	. . . . . . . 8 ⊢ (𝑥 = ∅ → (𝑥 ∈ dom 𝐺 ↔ ∅ ∈ dom 𝐺))
73		suceq 6388	. . . . . . . . . 10 ⊢ (𝑥 = ∅ → suc 𝑥 = suc ∅)
74	73	fveq2d 6851	. . . . . . . . 9 ⊢ (𝑥 = ∅ → (𝐻‘suc 𝑥) = (𝐻‘suc ∅))
75		fveq2 6847	. . . . . . . . . . 11 ⊢ (𝑥 = ∅ → (𝐺‘𝑥) = (𝐺‘∅))
76		suceq 6388	. . . . . . . . . . 11 ⊢ ((𝐺‘𝑥) = (𝐺‘∅) → suc (𝐺‘𝑥) = suc (𝐺‘∅))
77	75, 76	syl 17	. . . . . . . . . 10 ⊢ (𝑥 = ∅ → suc (𝐺‘𝑥) = suc (𝐺‘∅))
78	77	oveq2d 7378	. . . . . . . . 9 ⊢ (𝑥 = ∅ → (𝐴 ↑_o suc (𝐺‘𝑥)) = (𝐴 ↑_o suc (𝐺‘∅)))
79	74, 78	eleq12d 2826	. . . . . . . 8 ⊢ (𝑥 = ∅ → ((𝐻‘suc 𝑥) ∈ (𝐴 ↑_o suc (𝐺‘𝑥)) ↔ (𝐻‘suc ∅) ∈ (𝐴 ↑_o suc (𝐺‘∅))))
80	72, 79	imbi12d 344	. . . . . . 7 ⊢ (𝑥 = ∅ → ((𝑥 ∈ dom 𝐺 → (𝐻‘suc 𝑥) ∈ (𝐴 ↑_o suc (𝐺‘𝑥))) ↔ (∅ ∈ dom 𝐺 → (𝐻‘suc ∅) ∈ (𝐴 ↑_o suc (𝐺‘∅)))))
81		eleq1 2820	. . . . . . . 8 ⊢ (𝑥 = 𝑦 → (𝑥 ∈ dom 𝐺 ↔ 𝑦 ∈ dom 𝐺))
82		suceq 6388	. . . . . . . . . 10 ⊢ (𝑥 = 𝑦 → suc 𝑥 = suc 𝑦)
83	82	fveq2d 6851	. . . . . . . . 9 ⊢ (𝑥 = 𝑦 → (𝐻‘suc 𝑥) = (𝐻‘suc 𝑦))
84		fveq2 6847	. . . . . . . . . . 11 ⊢ (𝑥 = 𝑦 → (𝐺‘𝑥) = (𝐺‘𝑦))
85		suceq 6388	. . . . . . . . . . 11 ⊢ ((𝐺‘𝑥) = (𝐺‘𝑦) → suc (𝐺‘𝑥) = suc (𝐺‘𝑦))
86	84, 85	syl 17	. . . . . . . . . 10 ⊢ (𝑥 = 𝑦 → suc (𝐺‘𝑥) = suc (𝐺‘𝑦))
87	86	oveq2d 7378	. . . . . . . . 9 ⊢ (𝑥 = 𝑦 → (𝐴 ↑_o suc (𝐺‘𝑥)) = (𝐴 ↑_o suc (𝐺‘𝑦)))
88	83, 87	eleq12d 2826	. . . . . . . 8 ⊢ (𝑥 = 𝑦 → ((𝐻‘suc 𝑥) ∈ (𝐴 ↑_o suc (𝐺‘𝑥)) ↔ (𝐻‘suc 𝑦) ∈ (𝐴 ↑_o suc (𝐺‘𝑦))))
89	81, 88	imbi12d 344	. . . . . . 7 ⊢ (𝑥 = 𝑦 → ((𝑥 ∈ dom 𝐺 → (𝐻‘suc 𝑥) ∈ (𝐴 ↑_o suc (𝐺‘𝑥))) ↔ (𝑦 ∈ dom 𝐺 → (𝐻‘suc 𝑦) ∈ (𝐴 ↑_o suc (𝐺‘𝑦)))))
90		eleq1 2820	. . . . . . . 8 ⊢ (𝑥 = suc 𝑦 → (𝑥 ∈ dom 𝐺 ↔ suc 𝑦 ∈ dom 𝐺))
91		suceq 6388	. . . . . . . . . 10 ⊢ (𝑥 = suc 𝑦 → suc 𝑥 = suc suc 𝑦)
92	91	fveq2d 6851	. . . . . . . . 9 ⊢ (𝑥 = suc 𝑦 → (𝐻‘suc 𝑥) = (𝐻‘suc suc 𝑦))
93		fveq2 6847	. . . . . . . . . . 11 ⊢ (𝑥 = suc 𝑦 → (𝐺‘𝑥) = (𝐺‘suc 𝑦))
94		suceq 6388	. . . . . . . . . . 11 ⊢ ((𝐺‘𝑥) = (𝐺‘suc 𝑦) → suc (𝐺‘𝑥) = suc (𝐺‘suc 𝑦))
95	93, 94	syl 17	. . . . . . . . . 10 ⊢ (𝑥 = suc 𝑦 → suc (𝐺‘𝑥) = suc (𝐺‘suc 𝑦))
96	95	oveq2d 7378	. . . . . . . . 9 ⊢ (𝑥 = suc 𝑦 → (𝐴 ↑_o suc (𝐺‘𝑥)) = (𝐴 ↑_o suc (𝐺‘suc 𝑦)))
97	92, 96	eleq12d 2826	. . . . . . . 8 ⊢ (𝑥 = suc 𝑦 → ((𝐻‘suc 𝑥) ∈ (𝐴 ↑_o suc (𝐺‘𝑥)) ↔ (𝐻‘suc suc 𝑦) ∈ (𝐴 ↑_o suc (𝐺‘suc 𝑦))))
98	90, 97	imbi12d 344	. . . . . . 7 ⊢ (𝑥 = suc 𝑦 → ((𝑥 ∈ dom 𝐺 → (𝐻‘suc 𝑥) ∈ (𝐴 ↑_o suc (𝐺‘𝑥))) ↔ (suc 𝑦 ∈ dom 𝐺 → (𝐻‘suc suc 𝑦) ∈ (𝐴 ↑_o suc (𝐺‘suc 𝑦)))))
99	48	adantr 481	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ ∅ ∈ dom 𝐺) → 𝐹:𝐵⟶𝐴)
100	20	ffvelcdmi 7039	. . . . . . . . . . . 12 ⊢ (∅ ∈ dom 𝐺 → (𝐺‘∅) ∈ (𝐹 supp ∅))
101	49	sselda 3947	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ (𝐺‘∅) ∈ (𝐹 supp ∅)) → (𝐺‘∅) ∈ 𝐵)
102	100, 101	sylan2 593	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ ∅ ∈ dom 𝐺) → (𝐺‘∅) ∈ 𝐵)
103	99, 102	ffvelcdmd 7041	. . . . . . . . . 10 ⊢ ((𝜑 ∧ ∅ ∈ dom 𝐺) → (𝐹‘(𝐺‘∅)) ∈ 𝐴)
104	1	adantr 481	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ ∅ ∈ dom 𝐺) → 𝐴 ∈ On)
105		onelon 6347	. . . . . . . . . . . 12 ⊢ ((𝐴 ∈ On ∧ (𝐹‘(𝐺‘∅)) ∈ 𝐴) → (𝐹‘(𝐺‘∅)) ∈ On)
106	104, 103, 105	syl2anc 584	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ ∅ ∈ dom 𝐺) → (𝐹‘(𝐺‘∅)) ∈ On)
107	52	sselda 3947	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ (𝐺‘∅) ∈ (𝐹 supp ∅)) → (𝐺‘∅) ∈ On)
108	100, 107	sylan2 593	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ ∅ ∈ dom 𝐺) → (𝐺‘∅) ∈ On)
109		oecl 8488	. . . . . . . . . . . 12 ⊢ ((𝐴 ∈ On ∧ (𝐺‘∅) ∈ On) → (𝐴 ↑_o (𝐺‘∅)) ∈ On)
110	104, 108, 109	syl2anc 584	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ ∅ ∈ dom 𝐺) → (𝐴 ↑_o (𝐺‘∅)) ∈ On)
111	3	adantr 481	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ ∅ ∈ dom 𝐺) → ∅ ∈ 𝐴)
112		oen0 8538	. . . . . . . . . . . 12 ⊢ (((𝐴 ∈ On ∧ (𝐺‘∅) ∈ On) ∧ ∅ ∈ 𝐴) → ∅ ∈ (𝐴 ↑_o (𝐺‘∅)))
113	104, 108, 111, 112	syl21anc 836	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ ∅ ∈ dom 𝐺) → ∅ ∈ (𝐴 ↑_o (𝐺‘∅)))
114		omord2 8519	. . . . . . . . . . 11 ⊢ ((((𝐹‘(𝐺‘∅)) ∈ On ∧ 𝐴 ∈ On ∧ (𝐴 ↑_o (𝐺‘∅)) ∈ On) ∧ ∅ ∈ (𝐴 ↑_o (𝐺‘∅))) → ((𝐹‘(𝐺‘∅)) ∈ 𝐴 ↔ ((𝐴 ↑_o (𝐺‘∅)) ·_o (𝐹‘(𝐺‘∅))) ∈ ((𝐴 ↑_o (𝐺‘∅)) ·_o 𝐴)))
115	106, 104, 110, 113, 114	syl31anc 1373	. . . . . . . . . 10 ⊢ ((𝜑 ∧ ∅ ∈ dom 𝐺) → ((𝐹‘(𝐺‘∅)) ∈ 𝐴 ↔ ((𝐴 ↑_o (𝐺‘∅)) ·_o (𝐹‘(𝐺‘∅))) ∈ ((𝐴 ↑_o (𝐺‘∅)) ·_o 𝐴)))
116	103, 115	mpbid 231	. . . . . . . . 9 ⊢ ((𝜑 ∧ ∅ ∈ dom 𝐺) → ((𝐴 ↑_o (𝐺‘∅)) ·_o (𝐹‘(𝐺‘∅))) ∈ ((𝐴 ↑_o (𝐺‘∅)) ·_o 𝐴))
117		peano1 7830	. . . . . . . . . . . 12 ⊢ ∅ ∈ ω
118	117	a1i 11	. . . . . . . . . . 11 ⊢ (∅ ∈ dom 𝐺 → ∅ ∈ ω)
119	44, 1, 45, 19, 43, 8	cantnfsuc 9615	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ ∅ ∈ ω) → (𝐻‘suc ∅) = (((𝐴 ↑_o (𝐺‘∅)) ·_o (𝐹‘(𝐺‘∅))) +_o (𝐻‘∅)))
120	118, 119	sylan2 593	. . . . . . . . . 10 ⊢ ((𝜑 ∧ ∅ ∈ dom 𝐺) → (𝐻‘suc ∅) = (((𝐴 ↑_o (𝐺‘∅)) ·_o (𝐹‘(𝐺‘∅))) +_o (𝐻‘∅)))
121	10	oveq2i 7373	. . . . . . . . . . 11 ⊢ (((𝐴 ↑_o (𝐺‘∅)) ·_o (𝐹‘(𝐺‘∅))) +_o (𝐻‘∅)) = (((𝐴 ↑_o (𝐺‘∅)) ·_o (𝐹‘(𝐺‘∅))) +_o ∅)
122		omcl 8487	. . . . . . . . . . . . 13 ⊢ (((𝐴 ↑_o (𝐺‘∅)) ∈ On ∧ (𝐹‘(𝐺‘∅)) ∈ On) → ((𝐴 ↑_o (𝐺‘∅)) ·_o (𝐹‘(𝐺‘∅))) ∈ On)
123	110, 106, 122	syl2anc 584	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ ∅ ∈ dom 𝐺) → ((𝐴 ↑_o (𝐺‘∅)) ·_o (𝐹‘(𝐺‘∅))) ∈ On)
124		oa0 8467	. . . . . . . . . . . 12 ⊢ (((𝐴 ↑_o (𝐺‘∅)) ·_o (𝐹‘(𝐺‘∅))) ∈ On → (((𝐴 ↑_o (𝐺‘∅)) ·_o (𝐹‘(𝐺‘∅))) +_o ∅) = ((𝐴 ↑_o (𝐺‘∅)) ·_o (𝐹‘(𝐺‘∅))))
125	123, 124	syl 17	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ ∅ ∈ dom 𝐺) → (((𝐴 ↑_o (𝐺‘∅)) ·_o (𝐹‘(𝐺‘∅))) +_o ∅) = ((𝐴 ↑_o (𝐺‘∅)) ·_o (𝐹‘(𝐺‘∅))))
126	121, 125	eqtrid 2783	. . . . . . . . . 10 ⊢ ((𝜑 ∧ ∅ ∈ dom 𝐺) → (((𝐴 ↑_o (𝐺‘∅)) ·_o (𝐹‘(𝐺‘∅))) +_o (𝐻‘∅)) = ((𝐴 ↑_o (𝐺‘∅)) ·_o (𝐹‘(𝐺‘∅))))
127	120, 126	eqtrd 2771	. . . . . . . . 9 ⊢ ((𝜑 ∧ ∅ ∈ dom 𝐺) → (𝐻‘suc ∅) = ((𝐴 ↑_o (𝐺‘∅)) ·_o (𝐹‘(𝐺‘∅))))
128		oesuc 8478	. . . . . . . . . 10 ⊢ ((𝐴 ∈ On ∧ (𝐺‘∅) ∈ On) → (𝐴 ↑_o suc (𝐺‘∅)) = ((𝐴 ↑_o (𝐺‘∅)) ·_o 𝐴))
129	104, 108, 128	syl2anc 584	. . . . . . . . 9 ⊢ ((𝜑 ∧ ∅ ∈ dom 𝐺) → (𝐴 ↑_o suc (𝐺‘∅)) = ((𝐴 ↑_o (𝐺‘∅)) ·_o 𝐴))
130	116, 127, 129	3eltr4d 2847	. . . . . . . 8 ⊢ ((𝜑 ∧ ∅ ∈ dom 𝐺) → (𝐻‘suc ∅) ∈ (𝐴 ↑_o suc (𝐺‘∅)))
131	130	ex 413	. . . . . . 7 ⊢ (𝜑 → (∅ ∈ dom 𝐺 → (𝐻‘suc ∅) ∈ (𝐴 ↑_o suc (𝐺‘∅))))
132		ordtr 6336	. . . . . . . . . . . 12 ⊢ (Ord dom 𝐺 → Tr dom 𝐺)
133	24, 132	ax-mp 5	. . . . . . . . . . 11 ⊢ Tr dom 𝐺
134		trsuc 6409	. . . . . . . . . . 11 ⊢ ((Tr dom 𝐺 ∧ suc 𝑦 ∈ dom 𝐺) → 𝑦 ∈ dom 𝐺)
135	133, 134	mpan 688	. . . . . . . . . 10 ⊢ (suc 𝑦 ∈ dom 𝐺 → 𝑦 ∈ dom 𝐺)
136	135	imim1i 63	. . . . . . . . 9 ⊢ ((𝑦 ∈ dom 𝐺 → (𝐻‘suc 𝑦) ∈ (𝐴 ↑_o suc (𝐺‘𝑦))) → (suc 𝑦 ∈ dom 𝐺 → (𝐻‘suc 𝑦) ∈ (𝐴 ↑_o suc (𝐺‘𝑦))))
137	1	ad2antrr 724	. . . . . . . . . . . . . . . 16 ⊢ (((𝜑 ∧ 𝑦 ∈ ω) ∧ (suc 𝑦 ∈ dom 𝐺 ∧ (𝐻‘suc 𝑦) ∈ (𝐴 ↑_o suc (𝐺‘𝑦)))) → 𝐴 ∈ On)
138		eloni 6332	. . . . . . . . . . . . . . . 16 ⊢ (𝐴 ∈ On → Ord 𝐴)
139	137, 138	syl 17	. . . . . . . . . . . . . . 15 ⊢ (((𝜑 ∧ 𝑦 ∈ ω) ∧ (suc 𝑦 ∈ dom 𝐺 ∧ (𝐻‘suc 𝑦) ∈ (𝐴 ↑_o suc (𝐺‘𝑦)))) → Ord 𝐴)
140	48	ad2antrr 724	. . . . . . . . . . . . . . . 16 ⊢ (((𝜑 ∧ 𝑦 ∈ ω) ∧ (suc 𝑦 ∈ dom 𝐺 ∧ (𝐻‘suc 𝑦) ∈ (𝐴 ↑_o suc (𝐺‘𝑦)))) → 𝐹:𝐵⟶𝐴)
141	49	ad2antrr 724	. . . . . . . . . . . . . . . . 17 ⊢ (((𝜑 ∧ 𝑦 ∈ ω) ∧ (suc 𝑦 ∈ dom 𝐺 ∧ (𝐻‘suc 𝑦) ∈ (𝐴 ↑_o suc (𝐺‘𝑦)))) → (𝐹 supp ∅) ⊆ 𝐵)
142	20	ffvelcdmi 7039	. . . . . . . . . . . . . . . . . 18 ⊢ (suc 𝑦 ∈ dom 𝐺 → (𝐺‘suc 𝑦) ∈ (𝐹 supp ∅))
143	142	ad2antrl 726	. . . . . . . . . . . . . . . . 17 ⊢ (((𝜑 ∧ 𝑦 ∈ ω) ∧ (suc 𝑦 ∈ dom 𝐺 ∧ (𝐻‘suc 𝑦) ∈ (𝐴 ↑_o suc (𝐺‘𝑦)))) → (𝐺‘suc 𝑦) ∈ (𝐹 supp ∅))
144	141, 143	sseldd 3948	. . . . . . . . . . . . . . . 16 ⊢ (((𝜑 ∧ 𝑦 ∈ ω) ∧ (suc 𝑦 ∈ dom 𝐺 ∧ (𝐻‘suc 𝑦) ∈ (𝐴 ↑_o suc (𝐺‘𝑦)))) → (𝐺‘suc 𝑦) ∈ 𝐵)
145	140, 144	ffvelcdmd 7041	. . . . . . . . . . . . . . 15 ⊢ (((𝜑 ∧ 𝑦 ∈ ω) ∧ (suc 𝑦 ∈ dom 𝐺 ∧ (𝐻‘suc 𝑦) ∈ (𝐴 ↑_o suc (𝐺‘𝑦)))) → (𝐹‘(𝐺‘suc 𝑦)) ∈ 𝐴)
146		ordsucss 7758	. . . . . . . . . . . . . . 15 ⊢ (Ord 𝐴 → ((𝐹‘(𝐺‘suc 𝑦)) ∈ 𝐴 → suc (𝐹‘(𝐺‘suc 𝑦)) ⊆ 𝐴))
147	139, 145, 146	sylc 65	. . . . . . . . . . . . . 14 ⊢ (((𝜑 ∧ 𝑦 ∈ ω) ∧ (suc 𝑦 ∈ dom 𝐺 ∧ (𝐻‘suc 𝑦) ∈ (𝐴 ↑_o suc (𝐺‘𝑦)))) → suc (𝐹‘(𝐺‘suc 𝑦)) ⊆ 𝐴)
148		onelon 6347	. . . . . . . . . . . . . . . . 17 ⊢ ((𝐴 ∈ On ∧ (𝐹‘(𝐺‘suc 𝑦)) ∈ 𝐴) → (𝐹‘(𝐺‘suc 𝑦)) ∈ On)
149	137, 145, 148	syl2anc 584	. . . . . . . . . . . . . . . 16 ⊢ (((𝜑 ∧ 𝑦 ∈ ω) ∧ (suc 𝑦 ∈ dom 𝐺 ∧ (𝐻‘suc 𝑦) ∈ (𝐴 ↑_o suc (𝐺‘𝑦)))) → (𝐹‘(𝐺‘suc 𝑦)) ∈ On)
150		onsuc 7751	. . . . . . . . . . . . . . . 16 ⊢ ((𝐹‘(𝐺‘suc 𝑦)) ∈ On → suc (𝐹‘(𝐺‘suc 𝑦)) ∈ On)
151	149, 150	syl 17	. . . . . . . . . . . . . . 15 ⊢ (((𝜑 ∧ 𝑦 ∈ ω) ∧ (suc 𝑦 ∈ dom 𝐺 ∧ (𝐻‘suc 𝑦) ∈ (𝐴 ↑_o suc (𝐺‘𝑦)))) → suc (𝐹‘(𝐺‘suc 𝑦)) ∈ On)
152	52	ad2antrr 724	. . . . . . . . . . . . . . . . 17 ⊢ (((𝜑 ∧ 𝑦 ∈ ω) ∧ (suc 𝑦 ∈ dom 𝐺 ∧ (𝐻‘suc 𝑦) ∈ (𝐴 ↑_o suc (𝐺‘𝑦)))) → (𝐹 supp ∅) ⊆ On)
153	152, 143	sseldd 3948	. . . . . . . . . . . . . . . 16 ⊢ (((𝜑 ∧ 𝑦 ∈ ω) ∧ (suc 𝑦 ∈ dom 𝐺 ∧ (𝐻‘suc 𝑦) ∈ (𝐴 ↑_o suc (𝐺‘𝑦)))) → (𝐺‘suc 𝑦) ∈ On)
154		oecl 8488	. . . . . . . . . . . . . . . 16 ⊢ ((𝐴 ∈ On ∧ (𝐺‘suc 𝑦) ∈ On) → (𝐴 ↑_o (𝐺‘suc 𝑦)) ∈ On)
155	137, 153, 154	syl2anc 584	. . . . . . . . . . . . . . 15 ⊢ (((𝜑 ∧ 𝑦 ∈ ω) ∧ (suc 𝑦 ∈ dom 𝐺 ∧ (𝐻‘suc 𝑦) ∈ (𝐴 ↑_o suc (𝐺‘𝑦)))) → (𝐴 ↑_o (𝐺‘suc 𝑦)) ∈ On)
156		omwordi 8523	. . . . . . . . . . . . . . 15 ⊢ ((suc (𝐹‘(𝐺‘suc 𝑦)) ∈ On ∧ 𝐴 ∈ On ∧ (𝐴 ↑_o (𝐺‘suc 𝑦)) ∈ On) → (suc (𝐹‘(𝐺‘suc 𝑦)) ⊆ 𝐴 → ((𝐴 ↑_o (𝐺‘suc 𝑦)) ·_o suc (𝐹‘(𝐺‘suc 𝑦))) ⊆ ((𝐴 ↑_o (𝐺‘suc 𝑦)) ·_o 𝐴)))
157	151, 137, 155, 156	syl3anc 1371	. . . . . . . . . . . . . 14 ⊢ (((𝜑 ∧ 𝑦 ∈ ω) ∧ (suc 𝑦 ∈ dom 𝐺 ∧ (𝐻‘suc 𝑦) ∈ (𝐴 ↑_o suc (𝐺‘𝑦)))) → (suc (𝐹‘(𝐺‘suc 𝑦)) ⊆ 𝐴 → ((𝐴 ↑_o (𝐺‘suc 𝑦)) ·_o suc (𝐹‘(𝐺‘suc 𝑦))) ⊆ ((𝐴 ↑_o (𝐺‘suc 𝑦)) ·_o 𝐴)))
158	147, 157	mpd 15	. . . . . . . . . . . . 13 ⊢ (((𝜑 ∧ 𝑦 ∈ ω) ∧ (suc 𝑦 ∈ dom 𝐺 ∧ (𝐻‘suc 𝑦) ∈ (𝐴 ↑_o suc (𝐺‘𝑦)))) → ((𝐴 ↑_o (𝐺‘suc 𝑦)) ·_o suc (𝐹‘(𝐺‘suc 𝑦))) ⊆ ((𝐴 ↑_o (𝐺‘suc 𝑦)) ·_o 𝐴))
159		oesuc 8478	. . . . . . . . . . . . . 14 ⊢ ((𝐴 ∈ On ∧ (𝐺‘suc 𝑦) ∈ On) → (𝐴 ↑_o suc (𝐺‘suc 𝑦)) = ((𝐴 ↑_o (𝐺‘suc 𝑦)) ·_o 𝐴))
160	137, 153, 159	syl2anc 584	. . . . . . . . . . . . 13 ⊢ (((𝜑 ∧ 𝑦 ∈ ω) ∧ (suc 𝑦 ∈ dom 𝐺 ∧ (𝐻‘suc 𝑦) ∈ (𝐴 ↑_o suc (𝐺‘𝑦)))) → (𝐴 ↑_o suc (𝐺‘suc 𝑦)) = ((𝐴 ↑_o (𝐺‘suc 𝑦)) ·_o 𝐴))
161	158, 160	sseqtrrd 3988	. . . . . . . . . . . 12 ⊢ (((𝜑 ∧ 𝑦 ∈ ω) ∧ (suc 𝑦 ∈ dom 𝐺 ∧ (𝐻‘suc 𝑦) ∈ (𝐴 ↑_o suc (𝐺‘𝑦)))) → ((𝐴 ↑_o (𝐺‘suc 𝑦)) ·_o suc (𝐹‘(𝐺‘suc 𝑦))) ⊆ (𝐴 ↑_o suc (𝐺‘suc 𝑦)))
162		eloni 6332	. . . . . . . . . . . . . . . . . 18 ⊢ ((𝐺‘suc 𝑦) ∈ On → Ord (𝐺‘suc 𝑦))
163	153, 162	syl 17	. . . . . . . . . . . . . . . . 17 ⊢ (((𝜑 ∧ 𝑦 ∈ ω) ∧ (suc 𝑦 ∈ dom 𝐺 ∧ (𝐻‘suc 𝑦) ∈ (𝐴 ↑_o suc (𝐺‘𝑦)))) → Ord (𝐺‘suc 𝑦))
164		vex 3450	. . . . . . . . . . . . . . . . . . . . 21 ⊢ 𝑦 ∈ V
165	164	sucid 6404	. . . . . . . . . . . . . . . . . . . 20 ⊢ 𝑦 ∈ suc 𝑦
166	164	sucex 7746	. . . . . . . . . . . . . . . . . . . . 21 ⊢ suc 𝑦 ∈ V
167	166	epeli 5544	. . . . . . . . . . . . . . . . . . . 20 ⊢ (𝑦 E suc 𝑦 ↔ 𝑦 ∈ suc 𝑦)
168	165, 167	mpbir 230	. . . . . . . . . . . . . . . . . . 19 ⊢ 𝑦 E suc 𝑦
169		ovexd 7397	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ (𝜑 → (𝐹 supp ∅) ∈ V)
170	44, 1, 45, 19, 43	cantnfcl 9612	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ (𝜑 → ( E We (𝐹 supp ∅) ∧ dom 𝐺 ∈ ω))
171	170	simpld 495	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ (𝜑 → E We (𝐹 supp ∅))
172	19	oiiso 9482	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ (((𝐹 supp ∅) ∈ V ∧ E We (𝐹 supp ∅)) → 𝐺 Isom E , E (dom 𝐺, (𝐹 supp ∅)))
173	169, 171, 172	syl2anc 584	. . . . . . . . . . . . . . . . . . . . 21 ⊢ (𝜑 → 𝐺 Isom E , E (dom 𝐺, (𝐹 supp ∅)))
174	173	ad2antrr 724	. . . . . . . . . . . . . . . . . . . 20 ⊢ (((𝜑 ∧ 𝑦 ∈ ω) ∧ (suc 𝑦 ∈ dom 𝐺 ∧ (𝐻‘suc 𝑦) ∈ (𝐴 ↑_o suc (𝐺‘𝑦)))) → 𝐺 Isom E , E (dom 𝐺, (𝐹 supp ∅)))
175	135	ad2antrl 726	. . . . . . . . . . . . . . . . . . . 20 ⊢ (((𝜑 ∧ 𝑦 ∈ ω) ∧ (suc 𝑦 ∈ dom 𝐺 ∧ (𝐻‘suc 𝑦) ∈ (𝐴 ↑_o suc (𝐺‘𝑦)))) → 𝑦 ∈ dom 𝐺)
176		simprl 769	. . . . . . . . . . . . . . . . . . . 20 ⊢ (((𝜑 ∧ 𝑦 ∈ ω) ∧ (suc 𝑦 ∈ dom 𝐺 ∧ (𝐻‘suc 𝑦) ∈ (𝐴 ↑_o suc (𝐺‘𝑦)))) → suc 𝑦 ∈ dom 𝐺)
177		isorel 7276	. . . . . . . . . . . . . . . . . . . 20 ⊢ ((𝐺 Isom E , E (dom 𝐺, (𝐹 supp ∅)) ∧ (𝑦 ∈ dom 𝐺 ∧ suc 𝑦 ∈ dom 𝐺)) → (𝑦 E suc 𝑦 ↔ (𝐺‘𝑦) E (𝐺‘suc 𝑦)))
178	174, 175, 176, 177	syl12anc 835	. . . . . . . . . . . . . . . . . . 19 ⊢ (((𝜑 ∧ 𝑦 ∈ ω) ∧ (suc 𝑦 ∈ dom 𝐺 ∧ (𝐻‘suc 𝑦) ∈ (𝐴 ↑_o suc (𝐺‘𝑦)))) → (𝑦 E suc 𝑦 ↔ (𝐺‘𝑦) E (𝐺‘suc 𝑦)))
179	168, 178	mpbii 232	. . . . . . . . . . . . . . . . . 18 ⊢ (((𝜑 ∧ 𝑦 ∈ ω) ∧ (suc 𝑦 ∈ dom 𝐺 ∧ (𝐻‘suc 𝑦) ∈ (𝐴 ↑_o suc (𝐺‘𝑦)))) → (𝐺‘𝑦) E (𝐺‘suc 𝑦))
180		fvex 6860	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝐺‘suc 𝑦) ∈ V
181	180	epeli 5544	. . . . . . . . . . . . . . . . . 18 ⊢ ((𝐺‘𝑦) E (𝐺‘suc 𝑦) ↔ (𝐺‘𝑦) ∈ (𝐺‘suc 𝑦))
182	179, 181	sylib 217	. . . . . . . . . . . . . . . . 17 ⊢ (((𝜑 ∧ 𝑦 ∈ ω) ∧ (suc 𝑦 ∈ dom 𝐺 ∧ (𝐻‘suc 𝑦) ∈ (𝐴 ↑_o suc (𝐺‘𝑦)))) → (𝐺‘𝑦) ∈ (𝐺‘suc 𝑦))
183		ordsucss 7758	. . . . . . . . . . . . . . . . 17 ⊢ (Ord (𝐺‘suc 𝑦) → ((𝐺‘𝑦) ∈ (𝐺‘suc 𝑦) → suc (𝐺‘𝑦) ⊆ (𝐺‘suc 𝑦)))
184	163, 182, 183	sylc 65	. . . . . . . . . . . . . . . 16 ⊢ (((𝜑 ∧ 𝑦 ∈ ω) ∧ (suc 𝑦 ∈ dom 𝐺 ∧ (𝐻‘suc 𝑦) ∈ (𝐴 ↑_o suc (𝐺‘𝑦)))) → suc (𝐺‘𝑦) ⊆ (𝐺‘suc 𝑦))
185	20	ffvelcdmi 7039	. . . . . . . . . . . . . . . . . . . 20 ⊢ (𝑦 ∈ dom 𝐺 → (𝐺‘𝑦) ∈ (𝐹 supp ∅))
186	175, 185	syl 17	. . . . . . . . . . . . . . . . . . 19 ⊢ (((𝜑 ∧ 𝑦 ∈ ω) ∧ (suc 𝑦 ∈ dom 𝐺 ∧ (𝐻‘suc 𝑦) ∈ (𝐴 ↑_o suc (𝐺‘𝑦)))) → (𝐺‘𝑦) ∈ (𝐹 supp ∅))
187	152, 186	sseldd 3948	. . . . . . . . . . . . . . . . . 18 ⊢ (((𝜑 ∧ 𝑦 ∈ ω) ∧ (suc 𝑦 ∈ dom 𝐺 ∧ (𝐻‘suc 𝑦) ∈ (𝐴 ↑_o suc (𝐺‘𝑦)))) → (𝐺‘𝑦) ∈ On)
188		onsuc 7751	. . . . . . . . . . . . . . . . . 18 ⊢ ((𝐺‘𝑦) ∈ On → suc (𝐺‘𝑦) ∈ On)
189	187, 188	syl 17	. . . . . . . . . . . . . . . . 17 ⊢ (((𝜑 ∧ 𝑦 ∈ ω) ∧ (suc 𝑦 ∈ dom 𝐺 ∧ (𝐻‘suc 𝑦) ∈ (𝐴 ↑_o suc (𝐺‘𝑦)))) → suc (𝐺‘𝑦) ∈ On)
190	3	ad2antrr 724	. . . . . . . . . . . . . . . . 17 ⊢ (((𝜑 ∧ 𝑦 ∈ ω) ∧ (suc 𝑦 ∈ dom 𝐺 ∧ (𝐻‘suc 𝑦) ∈ (𝐴 ↑_o suc (𝐺‘𝑦)))) → ∅ ∈ 𝐴)
191		oewordi 8543	. . . . . . . . . . . . . . . . 17 ⊢ (((suc (𝐺‘𝑦) ∈ On ∧ (𝐺‘suc 𝑦) ∈ On ∧ 𝐴 ∈ On) ∧ ∅ ∈ 𝐴) → (suc (𝐺‘𝑦) ⊆ (𝐺‘suc 𝑦) → (𝐴 ↑_o suc (𝐺‘𝑦)) ⊆ (𝐴 ↑_o (𝐺‘suc 𝑦))))
192	189, 153, 137, 190, 191	syl31anc 1373	. . . . . . . . . . . . . . . 16 ⊢ (((𝜑 ∧ 𝑦 ∈ ω) ∧ (suc 𝑦 ∈ dom 𝐺 ∧ (𝐻‘suc 𝑦) ∈ (𝐴 ↑_o suc (𝐺‘𝑦)))) → (suc (𝐺‘𝑦) ⊆ (𝐺‘suc 𝑦) → (𝐴 ↑_o suc (𝐺‘𝑦)) ⊆ (𝐴 ↑_o (𝐺‘suc 𝑦))))
193	184, 192	mpd 15	. . . . . . . . . . . . . . 15 ⊢ (((𝜑 ∧ 𝑦 ∈ ω) ∧ (suc 𝑦 ∈ dom 𝐺 ∧ (𝐻‘suc 𝑦) ∈ (𝐴 ↑_o suc (𝐺‘𝑦)))) → (𝐴 ↑_o suc (𝐺‘𝑦)) ⊆ (𝐴 ↑_o (𝐺‘suc 𝑦)))
194		simprr 771	. . . . . . . . . . . . . . 15 ⊢ (((𝜑 ∧ 𝑦 ∈ ω) ∧ (suc 𝑦 ∈ dom 𝐺 ∧ (𝐻‘suc 𝑦) ∈ (𝐴 ↑_o suc (𝐺‘𝑦)))) → (𝐻‘suc 𝑦) ∈ (𝐴 ↑_o suc (𝐺‘𝑦)))
195	193, 194	sseldd 3948	. . . . . . . . . . . . . 14 ⊢ (((𝜑 ∧ 𝑦 ∈ ω) ∧ (suc 𝑦 ∈ dom 𝐺 ∧ (𝐻‘suc 𝑦) ∈ (𝐴 ↑_o suc (𝐺‘𝑦)))) → (𝐻‘suc 𝑦) ∈ (𝐴 ↑_o (𝐺‘suc 𝑦)))
196		peano2 7832	. . . . . . . . . . . . . . . . 17 ⊢ (𝑦 ∈ ω → suc 𝑦 ∈ ω)
197	196	ad2antlr 725	. . . . . . . . . . . . . . . 16 ⊢ (((𝜑 ∧ 𝑦 ∈ ω) ∧ (suc 𝑦 ∈ dom 𝐺 ∧ (𝐻‘suc 𝑦) ∈ (𝐴 ↑_o suc (𝐺‘𝑦)))) → suc 𝑦 ∈ ω)
198	8	cantnfvalf 9610	. . . . . . . . . . . . . . . . 17 ⊢ 𝐻:ω⟶On
199	198	ffvelcdmi 7039	. . . . . . . . . . . . . . . 16 ⊢ (suc 𝑦 ∈ ω → (𝐻‘suc 𝑦) ∈ On)
200	197, 199	syl 17	. . . . . . . . . . . . . . 15 ⊢ (((𝜑 ∧ 𝑦 ∈ ω) ∧ (suc 𝑦 ∈ dom 𝐺 ∧ (𝐻‘suc 𝑦) ∈ (𝐴 ↑_o suc (𝐺‘𝑦)))) → (𝐻‘suc 𝑦) ∈ On)
201		omcl 8487	. . . . . . . . . . . . . . . 16 ⊢ (((𝐴 ↑_o (𝐺‘suc 𝑦)) ∈ On ∧ (𝐹‘(𝐺‘suc 𝑦)) ∈ On) → ((𝐴 ↑_o (𝐺‘suc 𝑦)) ·_o (𝐹‘(𝐺‘suc 𝑦))) ∈ On)
202	155, 149, 201	syl2anc 584	. . . . . . . . . . . . . . 15 ⊢ (((𝜑 ∧ 𝑦 ∈ ω) ∧ (suc 𝑦 ∈ dom 𝐺 ∧ (𝐻‘suc 𝑦) ∈ (𝐴 ↑_o suc (𝐺‘𝑦)))) → ((𝐴 ↑_o (𝐺‘suc 𝑦)) ·_o (𝐹‘(𝐺‘suc 𝑦))) ∈ On)
203		oaord 8499	. . . . . . . . . . . . . . 15 ⊢ (((𝐻‘suc 𝑦) ∈ On ∧ (𝐴 ↑_o (𝐺‘suc 𝑦)) ∈ On ∧ ((𝐴 ↑_o (𝐺‘suc 𝑦)) ·_o (𝐹‘(𝐺‘suc 𝑦))) ∈ On) → ((𝐻‘suc 𝑦) ∈ (𝐴 ↑_o (𝐺‘suc 𝑦)) ↔ (((𝐴 ↑_o (𝐺‘suc 𝑦)) ·_o (𝐹‘(𝐺‘suc 𝑦))) +_o (𝐻‘suc 𝑦)) ∈ (((𝐴 ↑_o (𝐺‘suc 𝑦)) ·_o (𝐹‘(𝐺‘suc 𝑦))) +_o (𝐴 ↑_o (𝐺‘suc 𝑦)))))
204	200, 155, 202, 203	syl3anc 1371	. . . . . . . . . . . . . 14 ⊢ (((𝜑 ∧ 𝑦 ∈ ω) ∧ (suc 𝑦 ∈ dom 𝐺 ∧ (𝐻‘suc 𝑦) ∈ (𝐴 ↑_o suc (𝐺‘𝑦)))) → ((𝐻‘suc 𝑦) ∈ (𝐴 ↑_o (𝐺‘suc 𝑦)) ↔ (((𝐴 ↑_o (𝐺‘suc 𝑦)) ·_o (𝐹‘(𝐺‘suc 𝑦))) +_o (𝐻‘suc 𝑦)) ∈ (((𝐴 ↑_o (𝐺‘suc 𝑦)) ·_o (𝐹‘(𝐺‘suc 𝑦))) +_o (𝐴 ↑_o (𝐺‘suc 𝑦)))))
205	195, 204	mpbid 231	. . . . . . . . . . . . 13 ⊢ (((𝜑 ∧ 𝑦 ∈ ω) ∧ (suc 𝑦 ∈ dom 𝐺 ∧ (𝐻‘suc 𝑦) ∈ (𝐴 ↑_o suc (𝐺‘𝑦)))) → (((𝐴 ↑_o (𝐺‘suc 𝑦)) ·_o (𝐹‘(𝐺‘suc 𝑦))) +_o (𝐻‘suc 𝑦)) ∈ (((𝐴 ↑_o (𝐺‘suc 𝑦)) ·_o (𝐹‘(𝐺‘suc 𝑦))) +_o (𝐴 ↑_o (𝐺‘suc 𝑦))))
206	44, 1, 45, 19, 43, 8	cantnfsuc 9615	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ suc 𝑦 ∈ ω) → (𝐻‘suc suc 𝑦) = (((𝐴 ↑_o (𝐺‘suc 𝑦)) ·_o (𝐹‘(𝐺‘suc 𝑦))) +_o (𝐻‘suc 𝑦)))
207	196, 206	sylan2 593	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ 𝑦 ∈ ω) → (𝐻‘suc suc 𝑦) = (((𝐴 ↑_o (𝐺‘suc 𝑦)) ·_o (𝐹‘(𝐺‘suc 𝑦))) +_o (𝐻‘suc 𝑦)))
208	207	adantr 481	. . . . . . . . . . . . 13 ⊢ (((𝜑 ∧ 𝑦 ∈ ω) ∧ (suc 𝑦 ∈ dom 𝐺 ∧ (𝐻‘suc 𝑦) ∈ (𝐴 ↑_o suc (𝐺‘𝑦)))) → (𝐻‘suc suc 𝑦) = (((𝐴 ↑_o (𝐺‘suc 𝑦)) ·_o (𝐹‘(𝐺‘suc 𝑦))) +_o (𝐻‘suc 𝑦)))
209		omsuc 8477	. . . . . . . . . . . . . 14 ⊢ (((𝐴 ↑_o (𝐺‘suc 𝑦)) ∈ On ∧ (𝐹‘(𝐺‘suc 𝑦)) ∈ On) → ((𝐴 ↑_o (𝐺‘suc 𝑦)) ·_o suc (𝐹‘(𝐺‘suc 𝑦))) = (((𝐴 ↑_o (𝐺‘suc 𝑦)) ·_o (𝐹‘(𝐺‘suc 𝑦))) +_o (𝐴 ↑_o (𝐺‘suc 𝑦))))
210	155, 149, 209	syl2anc 584	. . . . . . . . . . . . 13 ⊢ (((𝜑 ∧ 𝑦 ∈ ω) ∧ (suc 𝑦 ∈ dom 𝐺 ∧ (𝐻‘suc 𝑦) ∈ (𝐴 ↑_o suc (𝐺‘𝑦)))) → ((𝐴 ↑_o (𝐺‘suc 𝑦)) ·_o suc (𝐹‘(𝐺‘suc 𝑦))) = (((𝐴 ↑_o (𝐺‘suc 𝑦)) ·_o (𝐹‘(𝐺‘suc 𝑦))) +_o (𝐴 ↑_o (𝐺‘suc 𝑦))))
211	205, 208, 210	3eltr4d 2847	. . . . . . . . . . . 12 ⊢ (((𝜑 ∧ 𝑦 ∈ ω) ∧ (suc 𝑦 ∈ dom 𝐺 ∧ (𝐻‘suc 𝑦) ∈ (𝐴 ↑_o suc (𝐺‘𝑦)))) → (𝐻‘suc suc 𝑦) ∈ ((𝐴 ↑_o (𝐺‘suc 𝑦)) ·_o suc (𝐹‘(𝐺‘suc 𝑦))))
212	161, 211	sseldd 3948	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ 𝑦 ∈ ω) ∧ (suc 𝑦 ∈ dom 𝐺 ∧ (𝐻‘suc 𝑦) ∈ (𝐴 ↑_o suc (𝐺‘𝑦)))) → (𝐻‘suc suc 𝑦) ∈ (𝐴 ↑_o suc (𝐺‘suc 𝑦)))
213	212	exp32 421	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑦 ∈ ω) → (suc 𝑦 ∈ dom 𝐺 → ((𝐻‘suc 𝑦) ∈ (𝐴 ↑_o suc (𝐺‘𝑦)) → (𝐻‘suc suc 𝑦) ∈ (𝐴 ↑_o suc (𝐺‘suc 𝑦)))))
214	213	a2d 29	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑦 ∈ ω) → ((suc 𝑦 ∈ dom 𝐺 → (𝐻‘suc 𝑦) ∈ (𝐴 ↑_o suc (𝐺‘𝑦))) → (suc 𝑦 ∈ dom 𝐺 → (𝐻‘suc suc 𝑦) ∈ (𝐴 ↑_o suc (𝐺‘suc 𝑦)))))
215	136, 214	syl5 34	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑦 ∈ ω) → ((𝑦 ∈ dom 𝐺 → (𝐻‘suc 𝑦) ∈ (𝐴 ↑_o suc (𝐺‘𝑦))) → (suc 𝑦 ∈ dom 𝐺 → (𝐻‘suc suc 𝑦) ∈ (𝐴 ↑_o suc (𝐺‘suc 𝑦)))))
216	215	expcom 414	. . . . . . 7 ⊢ (𝑦 ∈ ω → (𝜑 → ((𝑦 ∈ dom 𝐺 → (𝐻‘suc 𝑦) ∈ (𝐴 ↑_o suc (𝐺‘𝑦))) → (suc 𝑦 ∈ dom 𝐺 → (𝐻‘suc suc 𝑦) ∈ (𝐴 ↑_o suc (𝐺‘suc 𝑦))))))
217	80, 89, 98, 131, 216	finds2 7842	. . . . . 6 ⊢ (𝑥 ∈ ω → (𝜑 → (𝑥 ∈ dom 𝐺 → (𝐻‘suc 𝑥) ∈ (𝐴 ↑_o suc (𝐺‘𝑥)))))
218	70, 71, 58, 217	syl3c 66	. . . . 5 ⊢ ((𝜑 ∧ (𝑥 ∈ ω ∧ 𝐾 = suc 𝑥)) → (𝐻‘suc 𝑥) ∈ (𝐴 ↑_o suc (𝐺‘𝑥)))
219	69, 218	eqeltrd 2832	. . . 4 ⊢ ((𝜑 ∧ (𝑥 ∈ ω ∧ 𝐾 = suc 𝑥)) → (𝐻‘𝐾) ∈ (𝐴 ↑_o suc (𝐺‘𝑥)))
220	68, 219	sseldd 3948	. . 3 ⊢ ((𝜑 ∧ (𝑥 ∈ ω ∧ 𝐾 = suc 𝑥)) → (𝐻‘𝐾) ∈ (𝐴 ↑_o 𝐶))
221	220	rexlimdvaa 3149	. 2 ⊢ (𝜑 → (∃𝑥 ∈ ω 𝐾 = suc 𝑥 → (𝐻‘𝐾) ∈ (𝐴 ↑_o 𝐶)))
222		peano2 7832	. . . . 5 ⊢ (dom 𝐺 ∈ ω → suc dom 𝐺 ∈ ω)
223	170, 222	simpl2im 504	. . . 4 ⊢ (𝜑 → suc dom 𝐺 ∈ ω)
224		elnn 7818	. . . 4 ⊢ ((𝐾 ∈ suc dom 𝐺 ∧ suc dom 𝐺 ∈ ω) → 𝐾 ∈ ω)
225	23, 223, 224	syl2anc 584	. . 3 ⊢ (𝜑 → 𝐾 ∈ ω)
226		nn0suc 7837	. . 3 ⊢ (𝐾 ∈ ω → (𝐾 = ∅ ∨ ∃𝑥 ∈ ω 𝐾 = suc 𝑥))
227	225, 226	syl 17	. 2 ⊢ (𝜑 → (𝐾 = ∅ ∨ ∃𝑥 ∈ ω 𝐾 = suc 𝑥))
228	13, 221, 227	mpjaod 858	1 ⊢ (𝜑 → (𝐻‘𝐾) ∈ (𝐴 ↑_o 𝐶))

Colors of variables: wff setvar class

Syntax hints: → wi 4 ↔ wb 205 ∧ wa 396 ∨ wo 845 = wceq 1541 ∈ wcel 2106 ∃wrex 3069 Vcvv 3446 ⊆ wss 3913 ∅c0 4287 class class class wbr 5110 Tr wtr 5227 E cep 5541 We wwe 5592 dom cdm 5638 “ cima 5641 Ord word 6321 Oncon0 6322 suc csuc 6324 Fn wfn 6496 ⟶wf 6497 ‘cfv 6501 Isom wiso 6502 (class class class)co 7362 ∈ cmpo 7364 ωcom 7807 supp csupp 8097 seq_ωcseqom 8398 +_o coa 8414 ·_o comu 8415 ↑_o coe 8416 finSupp cfsupp 9312 OrdIsocoi 9454 CNF ccnf 9606

This theorem was proved from axioms: ax-mp 5 ax-1 6 ax-2 7 ax-3 8 ax-gen 1797 ax-4 1811 ax-5 1913 ax-6 1971 ax-7 2011 ax-8 2108 ax-9 2116 ax-10 2137 ax-11 2154 ax-12 2171 ax-ext 2702 ax-rep 5247 ax-sep 5261 ax-nul 5268 ax-pow 5325 ax-pr 5389 ax-un 7677

This theorem depends on definitions: df-bi 206 df-an 397 df-or 846 df-3or 1088 df-3an 1089 df-tru 1544 df-fal 1554 df-ex 1782 df-nf 1786 df-sb 2068 df-mo 2533 df-eu 2562 df-clab 2709 df-cleq 2723 df-clel 2809 df-nfc 2884 df-ne 2940 df-ral 3061 df-rex 3070 df-rmo 3351 df-reu 3352 df-rab 3406 df-v 3448 df-sbc 3743 df-csb 3859 df-dif 3916 df-un 3918 df-in 3920 df-ss 3930 df-pss 3932 df-nul 4288 df-if 4492 df-pw 4567 df-sn 4592 df-pr 4594 df-op 4598 df-uni 4871 df-iun 4961 df-br 5111 df-opab 5173 df-mpt 5194 df-tr 5228 df-id 5536 df-eprel 5542 df-po 5550 df-so 5551 df-fr 5593 df-se 5594 df-we 5595 df-xp 5644 df-rel 5645 df-cnv 5646 df-co 5647 df-dm 5648 df-rn 5649 df-res 5650 df-ima 5651 df-pred 6258 df-ord 6325 df-on 6326 df-lim 6327 df-suc 6328 df-iota 6453 df-fun 6503 df-fn 6504 df-f 6505 df-f1 6506 df-fo 6507 df-f1o 6508 df-fv 6509 df-isom 6510 df-riota 7318 df-ov 7365 df-oprab 7366 df-mpo 7367 df-om 7808 df-1st 7926 df-2nd 7927 df-supp 8098 df-frecs 8217 df-wrecs 8248 df-recs 8322 df-rdg 8361 df-seqom 8399 df-1o 8417 df-2o 8418 df-oadd 8421 df-omul 8422 df-oexp 8423 df-map 8774 df-en 8891 df-dom 8892 df-sdom 8893 df-fin 8894 df-fsupp 9313 df-oi 9455 df-cnf 9607

This theorem is referenced by: cantnflt2 9618 cnfcomlem 9644

W3C validator