Theorem ennnfonelemkh 13163

Description: Lemma for ennnfone 13176. Because we add zero or one entries for each new index, the length of each sequence is no greater than its index. (Contributed by Jim Kingdon, 19-Jul-2023.)

Hypotheses

Ref	Expression
ennnfonelemh.dceq	⊢ (𝜑 → ∀𝑥 ∈ 𝐴 ∀𝑦 ∈ 𝐴 DECID 𝑥 = 𝑦)
ennnfonelemh.f	⊢ (𝜑 → 𝐹:ω–onto→𝐴)
ennnfonelemh.ne	⊢ (𝜑 → ∀𝑛 ∈ ω ∃𝑘 ∈ ω ∀𝑗 ∈ suc 𝑛(𝐹‘𝑘) ≠ (𝐹‘𝑗))
ennnfonelemh.g	⊢ 𝐺 = (𝑥 ∈ (𝐴 ↑pm ω), 𝑦 ∈ ω ↦ if((𝐹‘𝑦) ∈ (𝐹 “ 𝑦), 𝑥, (𝑥 ∪ {⟨dom 𝑥, (𝐹‘𝑦)⟩})))
ennnfonelemh.n	⊢ 𝑁 = frec((𝑥 ∈ ℤ ↦ (𝑥 + 1)), 0)
ennnfonelemh.j	⊢ 𝐽 = (𝑥 ∈ ℕ0 ↦ if(𝑥 = 0, ∅, (◡𝑁‘(𝑥 − 1))))
ennnfonelemh.h	⊢ 𝐻 = seq0(𝐺, 𝐽)
ennnfonelemkh.p	⊢ (𝜑 → 𝑃 ∈ ℕ0)

Assertion

Ref	Expression
ennnfonelemkh	⊢ (𝜑 → dom (𝐻‘𝑃) ⊆ (◡𝑁‘𝑃))

Distinct variable groups:   𝐴,𝑗,𝑥,𝑦   𝑥,𝐹,𝑦   𝑗,𝐺   𝑗,𝐻,𝑥,𝑦   𝑗,𝐽   𝑗,𝑁,𝑥,𝑦   𝜑,𝑗,𝑥,𝑦

Allowed substitution hints:   𝜑(𝑘,𝑛)   𝐴(𝑘,𝑛)   𝑃(𝑥,𝑦,𝑗,𝑘,𝑛)   𝐹(𝑗,𝑘,𝑛)   𝐺(𝑥,𝑦,𝑘,𝑛)   𝐻(𝑘,𝑛)   𝐽(𝑥,𝑦,𝑘,𝑛)   𝑁(𝑘,𝑛)

Proof of Theorem ennnfonelemkh

Dummy variables 𝑚 𝑤 are mutually distinct and distinct from all other variables.

Step	Hyp	Ref	Expression
1		ennnfonelemkh.p	. 2 ⊢ (𝜑 → 𝑃 ∈ ℕ0)
2		fveq2 5670	. . . . . . 7 ⊢ (𝑤 = 0 → (𝐻‘𝑤) = (𝐻‘0))
3	2	dmeqd 4958	. . . . . 6 ⊢ (𝑤 = 0 → dom (𝐻‘𝑤) = dom (𝐻‘0))
4		fveq2 5670	. . . . . 6 ⊢ (𝑤 = 0 → (◡𝑁‘𝑤) = (◡𝑁‘0))
5	3, 4	sseq12d 3269	. . . . 5 ⊢ (𝑤 = 0 → (dom (𝐻‘𝑤) ⊆ (◡𝑁‘𝑤) ↔ dom (𝐻‘0) ⊆ (◡𝑁‘0)))
6	5	imbi2d 230	. . . 4 ⊢ (𝑤 = 0 → ((𝜑 → dom (𝐻‘𝑤) ⊆ (◡𝑁‘𝑤)) ↔ (𝜑 → dom (𝐻‘0) ⊆ (◡𝑁‘0))))
7		fveq2 5670	. . . . . . 7 ⊢ (𝑤 = 𝑚 → (𝐻‘𝑤) = (𝐻‘𝑚))
8	7	dmeqd 4958	. . . . . 6 ⊢ (𝑤 = 𝑚 → dom (𝐻‘𝑤) = dom (𝐻‘𝑚))
9		fveq2 5670	. . . . . 6 ⊢ (𝑤 = 𝑚 → (◡𝑁‘𝑤) = (◡𝑁‘𝑚))
10	8, 9	sseq12d 3269	. . . . 5 ⊢ (𝑤 = 𝑚 → (dom (𝐻‘𝑤) ⊆ (◡𝑁‘𝑤) ↔ dom (𝐻‘𝑚) ⊆ (◡𝑁‘𝑚)))
11	10	imbi2d 230	. . . 4 ⊢ (𝑤 = 𝑚 → ((𝜑 → dom (𝐻‘𝑤) ⊆ (◡𝑁‘𝑤)) ↔ (𝜑 → dom (𝐻‘𝑚) ⊆ (◡𝑁‘𝑚))))
12		fveq2 5670	. . . . . . 7 ⊢ (𝑤 = (𝑚 + 1) → (𝐻‘𝑤) = (𝐻‘(𝑚 + 1)))
13	12	dmeqd 4958	. . . . . 6 ⊢ (𝑤 = (𝑚 + 1) → dom (𝐻‘𝑤) = dom (𝐻‘(𝑚 + 1)))
14		fveq2 5670	. . . . . 6 ⊢ (𝑤 = (𝑚 + 1) → (◡𝑁‘𝑤) = (◡𝑁‘(𝑚 + 1)))
15	13, 14	sseq12d 3269	. . . . 5 ⊢ (𝑤 = (𝑚 + 1) → (dom (𝐻‘𝑤) ⊆ (◡𝑁‘𝑤) ↔ dom (𝐻‘(𝑚 + 1)) ⊆ (◡𝑁‘(𝑚 + 1))))
16	15	imbi2d 230	. . . 4 ⊢ (𝑤 = (𝑚 + 1) → ((𝜑 → dom (𝐻‘𝑤) ⊆ (◡𝑁‘𝑤)) ↔ (𝜑 → dom (𝐻‘(𝑚 + 1)) ⊆ (◡𝑁‘(𝑚 + 1)))))
17		fveq2 5670	. . . . . . 7 ⊢ (𝑤 = 𝑃 → (𝐻‘𝑤) = (𝐻‘𝑃))
18	17	dmeqd 4958	. . . . . 6 ⊢ (𝑤 = 𝑃 → dom (𝐻‘𝑤) = dom (𝐻‘𝑃))
19		fveq2 5670	. . . . . 6 ⊢ (𝑤 = 𝑃 → (◡𝑁‘𝑤) = (◡𝑁‘𝑃))
20	18, 19	sseq12d 3269	. . . . 5 ⊢ (𝑤 = 𝑃 → (dom (𝐻‘𝑤) ⊆ (◡𝑁‘𝑤) ↔ dom (𝐻‘𝑃) ⊆ (◡𝑁‘𝑃)))
21	20	imbi2d 230	. . . 4 ⊢ (𝑤 = 𝑃 → ((𝜑 → dom (𝐻‘𝑤) ⊆ (◡𝑁‘𝑤)) ↔ (𝜑 → dom (𝐻‘𝑃) ⊆ (◡𝑁‘𝑃))))
22		ennnfonelemh.dceq	. . . . . . . . 9 ⊢ (𝜑 → ∀𝑥 ∈ 𝐴 ∀𝑦 ∈ 𝐴 DECID 𝑥 = 𝑦)
23		ennnfonelemh.f	. . . . . . . . 9 ⊢ (𝜑 → 𝐹:ω–onto→𝐴)
24		ennnfonelemh.ne	. . . . . . . . 9 ⊢ (𝜑 → ∀𝑛 ∈ ω ∃𝑘 ∈ ω ∀𝑗 ∈ suc 𝑛(𝐹‘𝑘) ≠ (𝐹‘𝑗))
25		ennnfonelemh.g	. . . . . . . . 9 ⊢ 𝐺 = (𝑥 ∈ (𝐴 ↑pm ω), 𝑦 ∈ ω ↦ if((𝐹‘𝑦) ∈ (𝐹 “ 𝑦), 𝑥, (𝑥 ∪ {⟨dom 𝑥, (𝐹‘𝑦)⟩})))
26		ennnfonelemh.n	. . . . . . . . 9 ⊢ 𝑁 = frec((𝑥 ∈ ℤ ↦ (𝑥 + 1)), 0)
27		ennnfonelemh.j	. . . . . . . . 9 ⊢ 𝐽 = (𝑥 ∈ ℕ0 ↦ if(𝑥 = 0, ∅, (◡𝑁‘(𝑥 − 1))))
28		ennnfonelemh.h	. . . . . . . . 9 ⊢ 𝐻 = seq0(𝐺, 𝐽)
29	22, 23, 24, 25, 26, 27, 28	ennnfonelem0 13156	. . . . . . . 8 ⊢ (𝜑 → (𝐻‘0) = ∅)
30	29	dmeqd 4958	. . . . . . 7 ⊢ (𝜑 → dom (𝐻‘0) = dom ∅)
31		dm0 4970	. . . . . . 7 ⊢ dom ∅ = ∅
32	30, 31	eqtrdi 2281	. . . . . 6 ⊢ (𝜑 → dom (𝐻‘0) = ∅)
33		0ss 3547	. . . . . 6 ⊢ ∅ ⊆ (◡𝑁‘0)
34	32, 33	eqsstrdi 3290	. . . . 5 ⊢ (𝜑 → dom (𝐻‘0) ⊆ (◡𝑁‘0))
35	34	a1i 9	. . . 4 ⊢ (0 ∈ ℤ → (𝜑 → dom (𝐻‘0) ⊆ (◡𝑁‘0)))
36	26	frechashgf1o 10790	. . . . . . . . . . . . . 14 ⊢ 𝑁:ω–1-1-onto→ℕ0
37		f1of 5614	. . . . . . . . . . . . . 14 ⊢ (𝑁:ω–1-1-onto→ℕ0 → 𝑁:ω⟶ℕ0)
38	36, 37	mp1i 10	. . . . . . . . . . . . 13 ⊢ ((((𝜑 ∧ 𝑚 ∈ (ℤ≥‘0)) ∧ dom (𝐻‘𝑚) ⊆ (◡𝑁‘𝑚)) ∧ (𝐹‘(◡𝑁‘𝑚)) ∈ (𝐹 “ (◡𝑁‘𝑚))) → 𝑁:ω⟶ℕ0)
39	22	ad2antrr 488	. . . . . . . . . . . . . . 15 ⊢ (((𝜑 ∧ 𝑚 ∈ (ℤ≥‘0)) ∧ dom (𝐻‘𝑚) ⊆ (◡𝑁‘𝑚)) → ∀𝑥 ∈ 𝐴 ∀𝑦 ∈ 𝐴 DECID 𝑥 = 𝑦)
40	23	ad2antrr 488	. . . . . . . . . . . . . . 15 ⊢ (((𝜑 ∧ 𝑚 ∈ (ℤ≥‘0)) ∧ dom (𝐻‘𝑚) ⊆ (◡𝑁‘𝑚)) → 𝐹:ω–onto→𝐴)
41	24	ad2antrr 488	. . . . . . . . . . . . . . 15 ⊢ (((𝜑 ∧ 𝑚 ∈ (ℤ≥‘0)) ∧ dom (𝐻‘𝑚) ⊆ (◡𝑁‘𝑚)) → ∀𝑛 ∈ ω ∃𝑘 ∈ ω ∀𝑗 ∈ suc 𝑛(𝐹‘𝑘) ≠ (𝐹‘𝑗))
42		simplr 529	. . . . . . . . . . . . . . . . 17 ⊢ (((𝜑 ∧ 𝑚 ∈ (ℤ≥‘0)) ∧ dom (𝐻‘𝑚) ⊆ (◡𝑁‘𝑚)) → 𝑚 ∈ (ℤ≥‘0))
43		nn0uz 9889	. . . . . . . . . . . . . . . . 17 ⊢ ℕ0 = (ℤ≥‘0)
44	42, 43	eleqtrrdi 2326	. . . . . . . . . . . . . . . 16 ⊢ (((𝜑 ∧ 𝑚 ∈ (ℤ≥‘0)) ∧ dom (𝐻‘𝑚) ⊆ (◡𝑁‘𝑚)) → 𝑚 ∈ ℕ0)
45		peano2nn0 9536	. . . . . . . . . . . . . . . 16 ⊢ (𝑚 ∈ ℕ0 → (𝑚 + 1) ∈ ℕ0)
46	44, 45	syl 14	. . . . . . . . . . . . . . 15 ⊢ (((𝜑 ∧ 𝑚 ∈ (ℤ≥‘0)) ∧ dom (𝐻‘𝑚) ⊆ (◡𝑁‘𝑚)) → (𝑚 + 1) ∈ ℕ0)
47	39, 40, 41, 25, 26, 27, 28, 46	ennnfonelemom 13159	. . . . . . . . . . . . . 14 ⊢ (((𝜑 ∧ 𝑚 ∈ (ℤ≥‘0)) ∧ dom (𝐻‘𝑚) ⊆ (◡𝑁‘𝑚)) → dom (𝐻‘(𝑚 + 1)) ∈ ω)
48	47	adantr 276	. . . . . . . . . . . . 13 ⊢ ((((𝜑 ∧ 𝑚 ∈ (ℤ≥‘0)) ∧ dom (𝐻‘𝑚) ⊆ (◡𝑁‘𝑚)) ∧ (𝐹‘(◡𝑁‘𝑚)) ∈ (𝐹 “ (◡𝑁‘𝑚))) → dom (𝐻‘(𝑚 + 1)) ∈ ω)
49	38, 48	ffvelcdmd 5813	. . . . . . . . . . . 12 ⊢ ((((𝜑 ∧ 𝑚 ∈ (ℤ≥‘0)) ∧ dom (𝐻‘𝑚) ⊆ (◡𝑁‘𝑚)) ∧ (𝐹‘(◡𝑁‘𝑚)) ∈ (𝐹 “ (◡𝑁‘𝑚))) → (𝑁‘dom (𝐻‘(𝑚 + 1))) ∈ ℕ0)
50	49	nn0red 9554	. . . . . . . . . . 11 ⊢ ((((𝜑 ∧ 𝑚 ∈ (ℤ≥‘0)) ∧ dom (𝐻‘𝑚) ⊆ (◡𝑁‘𝑚)) ∧ (𝐹‘(◡𝑁‘𝑚)) ∈ (𝐹 “ (◡𝑁‘𝑚))) → (𝑁‘dom (𝐻‘(𝑚 + 1))) ∈ ℝ)
51	44	nn0red 9554	. . . . . . . . . . . 12 ⊢ (((𝜑 ∧ 𝑚 ∈ (ℤ≥‘0)) ∧ dom (𝐻‘𝑚) ⊆ (◡𝑁‘𝑚)) → 𝑚 ∈ ℝ)
52	51	adantr 276	. . . . . . . . . . 11 ⊢ ((((𝜑 ∧ 𝑚 ∈ (ℤ≥‘0)) ∧ dom (𝐻‘𝑚) ⊆ (◡𝑁‘𝑚)) ∧ (𝐹‘(◡𝑁‘𝑚)) ∈ (𝐹 “ (◡𝑁‘𝑚))) → 𝑚 ∈ ℝ)
53		peano2re 8409	. . . . . . . . . . . 12 ⊢ (𝑚 ∈ ℝ → (𝑚 + 1) ∈ ℝ)
54	52, 53	syl 14	. . . . . . . . . . 11 ⊢ ((((𝜑 ∧ 𝑚 ∈ (ℤ≥‘0)) ∧ dom (𝐻‘𝑚) ⊆ (◡𝑁‘𝑚)) ∧ (𝐹‘(◡𝑁‘𝑚)) ∈ (𝐹 “ (◡𝑁‘𝑚))) → (𝑚 + 1) ∈ ℝ)
55	39, 40, 41, 25, 26, 27, 28, 44	ennnfonelemp1 13157	. . . . . . . . . . . . . . . 16 ⊢ (((𝜑 ∧ 𝑚 ∈ (ℤ≥‘0)) ∧ dom (𝐻‘𝑚) ⊆ (◡𝑁‘𝑚)) → (𝐻‘(𝑚 + 1)) = if((𝐹‘(◡𝑁‘𝑚)) ∈ (𝐹 “ (◡𝑁‘𝑚)), (𝐻‘𝑚), ((𝐻‘𝑚) ∪ {⟨dom (𝐻‘𝑚), (𝐹‘(◡𝑁‘𝑚))⟩})))
56	55	adantr 276	. . . . . . . . . . . . . . 15 ⊢ ((((𝜑 ∧ 𝑚 ∈ (ℤ≥‘0)) ∧ dom (𝐻‘𝑚) ⊆ (◡𝑁‘𝑚)) ∧ (𝐹‘(◡𝑁‘𝑚)) ∈ (𝐹 “ (◡𝑁‘𝑚))) → (𝐻‘(𝑚 + 1)) = if((𝐹‘(◡𝑁‘𝑚)) ∈ (𝐹 “ (◡𝑁‘𝑚)), (𝐻‘𝑚), ((𝐻‘𝑚) ∪ {⟨dom (𝐻‘𝑚), (𝐹‘(◡𝑁‘𝑚))⟩})))
57		simpr 110	. . . . . . . . . . . . . . . 16 ⊢ ((((𝜑 ∧ 𝑚 ∈ (ℤ≥‘0)) ∧ dom (𝐻‘𝑚) ⊆ (◡𝑁‘𝑚)) ∧ (𝐹‘(◡𝑁‘𝑚)) ∈ (𝐹 “ (◡𝑁‘𝑚))) → (𝐹‘(◡𝑁‘𝑚)) ∈ (𝐹 “ (◡𝑁‘𝑚)))
58	57	iftrued 3629	. . . . . . . . . . . . . . 15 ⊢ ((((𝜑 ∧ 𝑚 ∈ (ℤ≥‘0)) ∧ dom (𝐻‘𝑚) ⊆ (◡𝑁‘𝑚)) ∧ (𝐹‘(◡𝑁‘𝑚)) ∈ (𝐹 “ (◡𝑁‘𝑚))) → if((𝐹‘(◡𝑁‘𝑚)) ∈ (𝐹 “ (◡𝑁‘𝑚)), (𝐻‘𝑚), ((𝐻‘𝑚) ∪ {⟨dom (𝐻‘𝑚), (𝐹‘(◡𝑁‘𝑚))⟩})) = (𝐻‘𝑚))
59	56, 58	eqtrd 2265	. . . . . . . . . . . . . 14 ⊢ ((((𝜑 ∧ 𝑚 ∈ (ℤ≥‘0)) ∧ dom (𝐻‘𝑚) ⊆ (◡𝑁‘𝑚)) ∧ (𝐹‘(◡𝑁‘𝑚)) ∈ (𝐹 “ (◡𝑁‘𝑚))) → (𝐻‘(𝑚 + 1)) = (𝐻‘𝑚))
60	59	dmeqd 4958	. . . . . . . . . . . . 13 ⊢ ((((𝜑 ∧ 𝑚 ∈ (ℤ≥‘0)) ∧ dom (𝐻‘𝑚) ⊆ (◡𝑁‘𝑚)) ∧ (𝐹‘(◡𝑁‘𝑚)) ∈ (𝐹 “ (◡𝑁‘𝑚))) → dom (𝐻‘(𝑚 + 1)) = dom (𝐻‘𝑚))
61	60	fveq2d 5674	. . . . . . . . . . . 12 ⊢ ((((𝜑 ∧ 𝑚 ∈ (ℤ≥‘0)) ∧ dom (𝐻‘𝑚) ⊆ (◡𝑁‘𝑚)) ∧ (𝐹‘(◡𝑁‘𝑚)) ∈ (𝐹 “ (◡𝑁‘𝑚))) → (𝑁‘dom (𝐻‘(𝑚 + 1))) = (𝑁‘dom (𝐻‘𝑚)))
62		simpr 110	. . . . . . . . . . . . . . 15 ⊢ (((𝜑 ∧ 𝑚 ∈ (ℤ≥‘0)) ∧ dom (𝐻‘𝑚) ⊆ (◡𝑁‘𝑚)) → dom (𝐻‘𝑚) ⊆ (◡𝑁‘𝑚))
63		0zd 9589	. . . . . . . . . . . . . . . 16 ⊢ (((𝜑 ∧ 𝑚 ∈ (ℤ≥‘0)) ∧ dom (𝐻‘𝑚) ⊆ (◡𝑁‘𝑚)) → 0 ∈ ℤ)
64	39, 40, 41, 25, 26, 27, 28, 44	ennnfonelemom 13159	. . . . . . . . . . . . . . . 16 ⊢ (((𝜑 ∧ 𝑚 ∈ (ℤ≥‘0)) ∧ dom (𝐻‘𝑚) ⊆ (◡𝑁‘𝑚)) → dom (𝐻‘𝑚) ∈ ω)
65		f1ocnv 5627	. . . . . . . . . . . . . . . . . . . 20 ⊢ (𝑁:ω–1-1-onto→ℕ0 → ◡𝑁:ℕ0–1-1-onto→ω)
66	36, 65	ax-mp 5	. . . . . . . . . . . . . . . . . . 19 ⊢ ◡𝑁:ℕ0–1-1-onto→ω
67		f1of 5614	. . . . . . . . . . . . . . . . . . 19 ⊢ (◡𝑁:ℕ0–1-1-onto→ω → ◡𝑁:ℕ0⟶ω)
68	66, 67	mp1i 10	. . . . . . . . . . . . . . . . . 18 ⊢ (𝑚 ∈ ℕ0 → ◡𝑁:ℕ0⟶ω)
69		id 19	. . . . . . . . . . . . . . . . . 18 ⊢ (𝑚 ∈ ℕ0 → 𝑚 ∈ ℕ0)
70	68, 69	ffvelcdmd 5813	. . . . . . . . . . . . . . . . 17 ⊢ (𝑚 ∈ ℕ0 → (◡𝑁‘𝑚) ∈ ω)
71	44, 70	syl 14	. . . . . . . . . . . . . . . 16 ⊢ (((𝜑 ∧ 𝑚 ∈ (ℤ≥‘0)) ∧ dom (𝐻‘𝑚) ⊆ (◡𝑁‘𝑚)) → (◡𝑁‘𝑚) ∈ ω)
72	63, 26, 64, 71	frec2uzled 10791	. . . . . . . . . . . . . . 15 ⊢ (((𝜑 ∧ 𝑚 ∈ (ℤ≥‘0)) ∧ dom (𝐻‘𝑚) ⊆ (◡𝑁‘𝑚)) → (dom (𝐻‘𝑚) ⊆ (◡𝑁‘𝑚) ↔ (𝑁‘dom (𝐻‘𝑚)) ≤ (𝑁‘(◡𝑁‘𝑚))))
73	62, 72	mpbid 147	. . . . . . . . . . . . . 14 ⊢ (((𝜑 ∧ 𝑚 ∈ (ℤ≥‘0)) ∧ dom (𝐻‘𝑚) ⊆ (◡𝑁‘𝑚)) → (𝑁‘dom (𝐻‘𝑚)) ≤ (𝑁‘(◡𝑁‘𝑚)))
74		f1ocnvfv2 5951	. . . . . . . . . . . . . . 15 ⊢ ((𝑁:ω–1-1-onto→ℕ0 ∧ 𝑚 ∈ ℕ0) → (𝑁‘(◡𝑁‘𝑚)) = 𝑚)
75	36, 44, 74	sylancr 414	. . . . . . . . . . . . . 14 ⊢ (((𝜑 ∧ 𝑚 ∈ (ℤ≥‘0)) ∧ dom (𝐻‘𝑚) ⊆ (◡𝑁‘𝑚)) → (𝑁‘(◡𝑁‘𝑚)) = 𝑚)
76	73, 75	breqtrd 4135	. . . . . . . . . . . . 13 ⊢ (((𝜑 ∧ 𝑚 ∈ (ℤ≥‘0)) ∧ dom (𝐻‘𝑚) ⊆ (◡𝑁‘𝑚)) → (𝑁‘dom (𝐻‘𝑚)) ≤ 𝑚)
77	76	adantr 276	. . . . . . . . . . . 12 ⊢ ((((𝜑 ∧ 𝑚 ∈ (ℤ≥‘0)) ∧ dom (𝐻‘𝑚) ⊆ (◡𝑁‘𝑚)) ∧ (𝐹‘(◡𝑁‘𝑚)) ∈ (𝐹 “ (◡𝑁‘𝑚))) → (𝑁‘dom (𝐻‘𝑚)) ≤ 𝑚)
78	61, 77	eqbrtrd 4131	. . . . . . . . . . 11 ⊢ ((((𝜑 ∧ 𝑚 ∈ (ℤ≥‘0)) ∧ dom (𝐻‘𝑚) ⊆ (◡𝑁‘𝑚)) ∧ (𝐹‘(◡𝑁‘𝑚)) ∈ (𝐹 “ (◡𝑁‘𝑚))) → (𝑁‘dom (𝐻‘(𝑚 + 1))) ≤ 𝑚)
79	52	lep1d 9205	. . . . . . . . . . 11 ⊢ ((((𝜑 ∧ 𝑚 ∈ (ℤ≥‘0)) ∧ dom (𝐻‘𝑚) ⊆ (◡𝑁‘𝑚)) ∧ (𝐹‘(◡𝑁‘𝑚)) ∈ (𝐹 “ (◡𝑁‘𝑚))) → 𝑚 ≤ (𝑚 + 1))
80	50, 52, 54, 78, 79	letrd 8397	. . . . . . . . . 10 ⊢ ((((𝜑 ∧ 𝑚 ∈ (ℤ≥‘0)) ∧ dom (𝐻‘𝑚) ⊆ (◡𝑁‘𝑚)) ∧ (𝐹‘(◡𝑁‘𝑚)) ∈ (𝐹 “ (◡𝑁‘𝑚))) → (𝑁‘dom (𝐻‘(𝑚 + 1))) ≤ (𝑚 + 1))
81		f1ocnvfv2 5951	. . . . . . . . . . . 12 ⊢ ((𝑁:ω–1-1-onto→ℕ0 ∧ (𝑚 + 1) ∈ ℕ0) → (𝑁‘(◡𝑁‘(𝑚 + 1))) = (𝑚 + 1))
82	36, 46, 81	sylancr 414	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ 𝑚 ∈ (ℤ≥‘0)) ∧ dom (𝐻‘𝑚) ⊆ (◡𝑁‘𝑚)) → (𝑁‘(◡𝑁‘(𝑚 + 1))) = (𝑚 + 1))
83	82	adantr 276	. . . . . . . . . 10 ⊢ ((((𝜑 ∧ 𝑚 ∈ (ℤ≥‘0)) ∧ dom (𝐻‘𝑚) ⊆ (◡𝑁‘𝑚)) ∧ (𝐹‘(◡𝑁‘𝑚)) ∈ (𝐹 “ (◡𝑁‘𝑚))) → (𝑁‘(◡𝑁‘(𝑚 + 1))) = (𝑚 + 1))
84	80, 83	breqtrrd 4137	. . . . . . . . 9 ⊢ ((((𝜑 ∧ 𝑚 ∈ (ℤ≥‘0)) ∧ dom (𝐻‘𝑚) ⊆ (◡𝑁‘𝑚)) ∧ (𝐹‘(◡𝑁‘𝑚)) ∈ (𝐹 “ (◡𝑁‘𝑚))) → (𝑁‘dom (𝐻‘(𝑚 + 1))) ≤ (𝑁‘(◡𝑁‘(𝑚 + 1))))
85	66, 67	mp1i 10	. . . . . . . . . . . 12 ⊢ (((𝜑 ∧ 𝑚 ∈ (ℤ≥‘0)) ∧ dom (𝐻‘𝑚) ⊆ (◡𝑁‘𝑚)) → ◡𝑁:ℕ0⟶ω)
86	85, 46	ffvelcdmd 5813	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ 𝑚 ∈ (ℤ≥‘0)) ∧ dom (𝐻‘𝑚) ⊆ (◡𝑁‘𝑚)) → (◡𝑁‘(𝑚 + 1)) ∈ ω)
87	63, 26, 47, 86	frec2uzled 10791	. . . . . . . . . 10 ⊢ (((𝜑 ∧ 𝑚 ∈ (ℤ≥‘0)) ∧ dom (𝐻‘𝑚) ⊆ (◡𝑁‘𝑚)) → (dom (𝐻‘(𝑚 + 1)) ⊆ (◡𝑁‘(𝑚 + 1)) ↔ (𝑁‘dom (𝐻‘(𝑚 + 1))) ≤ (𝑁‘(◡𝑁‘(𝑚 + 1)))))
88	87	adantr 276	. . . . . . . . 9 ⊢ ((((𝜑 ∧ 𝑚 ∈ (ℤ≥‘0)) ∧ dom (𝐻‘𝑚) ⊆ (◡𝑁‘𝑚)) ∧ (𝐹‘(◡𝑁‘𝑚)) ∈ (𝐹 “ (◡𝑁‘𝑚))) → (dom (𝐻‘(𝑚 + 1)) ⊆ (◡𝑁‘(𝑚 + 1)) ↔ (𝑁‘dom (𝐻‘(𝑚 + 1))) ≤ (𝑁‘(◡𝑁‘(𝑚 + 1)))))
89	84, 88	mpbird 167	. . . . . . . 8 ⊢ ((((𝜑 ∧ 𝑚 ∈ (ℤ≥‘0)) ∧ dom (𝐻‘𝑚) ⊆ (◡𝑁‘𝑚)) ∧ (𝐹‘(◡𝑁‘𝑚)) ∈ (𝐹 “ (◡𝑁‘𝑚))) → dom (𝐻‘(𝑚 + 1)) ⊆ (◡𝑁‘(𝑚 + 1)))
90	55	adantr 276	. . . . . . . . . . . . . . . . . 18 ⊢ ((((𝜑 ∧ 𝑚 ∈ (ℤ≥‘0)) ∧ dom (𝐻‘𝑚) ⊆ (◡𝑁‘𝑚)) ∧ ¬ (𝐹‘(◡𝑁‘𝑚)) ∈ (𝐹 “ (◡𝑁‘𝑚))) → (𝐻‘(𝑚 + 1)) = if((𝐹‘(◡𝑁‘𝑚)) ∈ (𝐹 “ (◡𝑁‘𝑚)), (𝐻‘𝑚), ((𝐻‘𝑚) ∪ {⟨dom (𝐻‘𝑚), (𝐹‘(◡𝑁‘𝑚))⟩})))
91		simpr 110	. . . . . . . . . . . . . . . . . . 19 ⊢ ((((𝜑 ∧ 𝑚 ∈ (ℤ≥‘0)) ∧ dom (𝐻‘𝑚) ⊆ (◡𝑁‘𝑚)) ∧ ¬ (𝐹‘(◡𝑁‘𝑚)) ∈ (𝐹 “ (◡𝑁‘𝑚))) → ¬ (𝐹‘(◡𝑁‘𝑚)) ∈ (𝐹 “ (◡𝑁‘𝑚)))
92	91	iffalsed 3632	. . . . . . . . . . . . . . . . . 18 ⊢ ((((𝜑 ∧ 𝑚 ∈ (ℤ≥‘0)) ∧ dom (𝐻‘𝑚) ⊆ (◡𝑁‘𝑚)) ∧ ¬ (𝐹‘(◡𝑁‘𝑚)) ∈ (𝐹 “ (◡𝑁‘𝑚))) → if((𝐹‘(◡𝑁‘𝑚)) ∈ (𝐹 “ (◡𝑁‘𝑚)), (𝐻‘𝑚), ((𝐻‘𝑚) ∪ {⟨dom (𝐻‘𝑚), (𝐹‘(◡𝑁‘𝑚))⟩})) = ((𝐻‘𝑚) ∪ {⟨dom (𝐻‘𝑚), (𝐹‘(◡𝑁‘𝑚))⟩}))
93	90, 92	eqtrd 2265	. . . . . . . . . . . . . . . . 17 ⊢ ((((𝜑 ∧ 𝑚 ∈ (ℤ≥‘0)) ∧ dom (𝐻‘𝑚) ⊆ (◡𝑁‘𝑚)) ∧ ¬ (𝐹‘(◡𝑁‘𝑚)) ∈ (𝐹 “ (◡𝑁‘𝑚))) → (𝐻‘(𝑚 + 1)) = ((𝐻‘𝑚) ∪ {⟨dom (𝐻‘𝑚), (𝐹‘(◡𝑁‘𝑚))⟩}))
94	93	dmeqd 4958	. . . . . . . . . . . . . . . 16 ⊢ ((((𝜑 ∧ 𝑚 ∈ (ℤ≥‘0)) ∧ dom (𝐻‘𝑚) ⊆ (◡𝑁‘𝑚)) ∧ ¬ (𝐹‘(◡𝑁‘𝑚)) ∈ (𝐹 “ (◡𝑁‘𝑚))) → dom (𝐻‘(𝑚 + 1)) = dom ((𝐻‘𝑚) ∪ {⟨dom (𝐻‘𝑚), (𝐹‘(◡𝑁‘𝑚))⟩}))
95		dmun 4963	. . . . . . . . . . . . . . . 16 ⊢ dom ((𝐻‘𝑚) ∪ {⟨dom (𝐻‘𝑚), (𝐹‘(◡𝑁‘𝑚))⟩}) = (dom (𝐻‘𝑚) ∪ dom {⟨dom (𝐻‘𝑚), (𝐹‘(◡𝑁‘𝑚))⟩})
96	94, 95	eqtrdi 2281	. . . . . . . . . . . . . . 15 ⊢ ((((𝜑 ∧ 𝑚 ∈ (ℤ≥‘0)) ∧ dom (𝐻‘𝑚) ⊆ (◡𝑁‘𝑚)) ∧ ¬ (𝐹‘(◡𝑁‘𝑚)) ∈ (𝐹 “ (◡𝑁‘𝑚))) → dom (𝐻‘(𝑚 + 1)) = (dom (𝐻‘𝑚) ∪ dom {⟨dom (𝐻‘𝑚), (𝐹‘(◡𝑁‘𝑚))⟩}))
97		fof 5590	. . . . . . . . . . . . . . . . . . . 20 ⊢ (𝐹:ω–onto→𝐴 → 𝐹:ω⟶𝐴)
98	40, 97	syl 14	. . . . . . . . . . . . . . . . . . 19 ⊢ (((𝜑 ∧ 𝑚 ∈ (ℤ≥‘0)) ∧ dom (𝐻‘𝑚) ⊆ (◡𝑁‘𝑚)) → 𝐹:ω⟶𝐴)
99	98, 71	ffvelcdmd 5813	. . . . . . . . . . . . . . . . . 18 ⊢ (((𝜑 ∧ 𝑚 ∈ (ℤ≥‘0)) ∧ dom (𝐻‘𝑚) ⊆ (◡𝑁‘𝑚)) → (𝐹‘(◡𝑁‘𝑚)) ∈ 𝐴)
100	99	adantr 276	. . . . . . . . . . . . . . . . 17 ⊢ ((((𝜑 ∧ 𝑚 ∈ (ℤ≥‘0)) ∧ dom (𝐻‘𝑚) ⊆ (◡𝑁‘𝑚)) ∧ ¬ (𝐹‘(◡𝑁‘𝑚)) ∈ (𝐹 “ (◡𝑁‘𝑚))) → (𝐹‘(◡𝑁‘𝑚)) ∈ 𝐴)
101		dmsnopg 5234	. . . . . . . . . . . . . . . . 17 ⊢ ((𝐹‘(◡𝑁‘𝑚)) ∈ 𝐴 → dom {⟨dom (𝐻‘𝑚), (𝐹‘(◡𝑁‘𝑚))⟩} = {dom (𝐻‘𝑚)})
102	100, 101	syl 14	. . . . . . . . . . . . . . . 16 ⊢ ((((𝜑 ∧ 𝑚 ∈ (ℤ≥‘0)) ∧ dom (𝐻‘𝑚) ⊆ (◡𝑁‘𝑚)) ∧ ¬ (𝐹‘(◡𝑁‘𝑚)) ∈ (𝐹 “ (◡𝑁‘𝑚))) → dom {⟨dom (𝐻‘𝑚), (𝐹‘(◡𝑁‘𝑚))⟩} = {dom (𝐻‘𝑚)})
103	102	uneq2d 3373	. . . . . . . . . . . . . . 15 ⊢ ((((𝜑 ∧ 𝑚 ∈ (ℤ≥‘0)) ∧ dom (𝐻‘𝑚) ⊆ (◡𝑁‘𝑚)) ∧ ¬ (𝐹‘(◡𝑁‘𝑚)) ∈ (𝐹 “ (◡𝑁‘𝑚))) → (dom (𝐻‘𝑚) ∪ dom {⟨dom (𝐻‘𝑚), (𝐹‘(◡𝑁‘𝑚))⟩}) = (dom (𝐻‘𝑚) ∪ {dom (𝐻‘𝑚)}))
104	96, 103	eqtrd 2265	. . . . . . . . . . . . . 14 ⊢ ((((𝜑 ∧ 𝑚 ∈ (ℤ≥‘0)) ∧ dom (𝐻‘𝑚) ⊆ (◡𝑁‘𝑚)) ∧ ¬ (𝐹‘(◡𝑁‘𝑚)) ∈ (𝐹 “ (◡𝑁‘𝑚))) → dom (𝐻‘(𝑚 + 1)) = (dom (𝐻‘𝑚) ∪ {dom (𝐻‘𝑚)}))
105		df-suc 4492	. . . . . . . . . . . . . 14 ⊢ suc dom (𝐻‘𝑚) = (dom (𝐻‘𝑚) ∪ {dom (𝐻‘𝑚)})
106	104, 105	eqtr4di 2283	. . . . . . . . . . . . 13 ⊢ ((((𝜑 ∧ 𝑚 ∈ (ℤ≥‘0)) ∧ dom (𝐻‘𝑚) ⊆ (◡𝑁‘𝑚)) ∧ ¬ (𝐹‘(◡𝑁‘𝑚)) ∈ (𝐹 “ (◡𝑁‘𝑚))) → dom (𝐻‘(𝑚 + 1)) = suc dom (𝐻‘𝑚))
107		simplr 529	. . . . . . . . . . . . . 14 ⊢ ((((𝜑 ∧ 𝑚 ∈ (ℤ≥‘0)) ∧ dom (𝐻‘𝑚) ⊆ (◡𝑁‘𝑚)) ∧ ¬ (𝐹‘(◡𝑁‘𝑚)) ∈ (𝐹 “ (◡𝑁‘𝑚))) → dom (𝐻‘𝑚) ⊆ (◡𝑁‘𝑚))
108	71	adantr 276	. . . . . . . . . . . . . . 15 ⊢ ((((𝜑 ∧ 𝑚 ∈ (ℤ≥‘0)) ∧ dom (𝐻‘𝑚) ⊆ (◡𝑁‘𝑚)) ∧ ¬ (𝐹‘(◡𝑁‘𝑚)) ∈ (𝐹 “ (◡𝑁‘𝑚))) → (◡𝑁‘𝑚) ∈ ω)
109		nnsucsssuc 6725	. . . . . . . . . . . . . . 15 ⊢ ((dom (𝐻‘𝑚) ∈ ω ∧ (◡𝑁‘𝑚) ∈ ω) → (dom (𝐻‘𝑚) ⊆ (◡𝑁‘𝑚) ↔ suc dom (𝐻‘𝑚) ⊆ suc (◡𝑁‘𝑚)))
110	64, 108, 109	syl2an2r 599	. . . . . . . . . . . . . 14 ⊢ ((((𝜑 ∧ 𝑚 ∈ (ℤ≥‘0)) ∧ dom (𝐻‘𝑚) ⊆ (◡𝑁‘𝑚)) ∧ ¬ (𝐹‘(◡𝑁‘𝑚)) ∈ (𝐹 “ (◡𝑁‘𝑚))) → (dom (𝐻‘𝑚) ⊆ (◡𝑁‘𝑚) ↔ suc dom (𝐻‘𝑚) ⊆ suc (◡𝑁‘𝑚)))
111	107, 110	mpbid 147	. . . . . . . . . . . . 13 ⊢ ((((𝜑 ∧ 𝑚 ∈ (ℤ≥‘0)) ∧ dom (𝐻‘𝑚) ⊆ (◡𝑁‘𝑚)) ∧ ¬ (𝐹‘(◡𝑁‘𝑚)) ∈ (𝐹 “ (◡𝑁‘𝑚))) → suc dom (𝐻‘𝑚) ⊆ suc (◡𝑁‘𝑚))
112	106, 111	eqsstrd 3274	. . . . . . . . . . . 12 ⊢ ((((𝜑 ∧ 𝑚 ∈ (ℤ≥‘0)) ∧ dom (𝐻‘𝑚) ⊆ (◡𝑁‘𝑚)) ∧ ¬ (𝐹‘(◡𝑁‘𝑚)) ∈ (𝐹 “ (◡𝑁‘𝑚))) → dom (𝐻‘(𝑚 + 1)) ⊆ suc (◡𝑁‘𝑚))
113		0zd 9589	. . . . . . . . . . . . 13 ⊢ ((((𝜑 ∧ 𝑚 ∈ (ℤ≥‘0)) ∧ dom (𝐻‘𝑚) ⊆ (◡𝑁‘𝑚)) ∧ ¬ (𝐹‘(◡𝑁‘𝑚)) ∈ (𝐹 “ (◡𝑁‘𝑚))) → 0 ∈ ℤ)
114	47	adantr 276	. . . . . . . . . . . . 13 ⊢ ((((𝜑 ∧ 𝑚 ∈ (ℤ≥‘0)) ∧ dom (𝐻‘𝑚) ⊆ (◡𝑁‘𝑚)) ∧ ¬ (𝐹‘(◡𝑁‘𝑚)) ∈ (𝐹 “ (◡𝑁‘𝑚))) → dom (𝐻‘(𝑚 + 1)) ∈ ω)
115		peano2 4717	. . . . . . . . . . . . . 14 ⊢ ((◡𝑁‘𝑚) ∈ ω → suc (◡𝑁‘𝑚) ∈ ω)
116	108, 115	syl 14	. . . . . . . . . . . . 13 ⊢ ((((𝜑 ∧ 𝑚 ∈ (ℤ≥‘0)) ∧ dom (𝐻‘𝑚) ⊆ (◡𝑁‘𝑚)) ∧ ¬ (𝐹‘(◡𝑁‘𝑚)) ∈ (𝐹 “ (◡𝑁‘𝑚))) → suc (◡𝑁‘𝑚) ∈ ω)
117	113, 26, 114, 116	frec2uzled 10791	. . . . . . . . . . . 12 ⊢ ((((𝜑 ∧ 𝑚 ∈ (ℤ≥‘0)) ∧ dom (𝐻‘𝑚) ⊆ (◡𝑁‘𝑚)) ∧ ¬ (𝐹‘(◡𝑁‘𝑚)) ∈ (𝐹 “ (◡𝑁‘𝑚))) → (dom (𝐻‘(𝑚 + 1)) ⊆ suc (◡𝑁‘𝑚) ↔ (𝑁‘dom (𝐻‘(𝑚 + 1))) ≤ (𝑁‘suc (◡𝑁‘𝑚))))
118	112, 117	mpbid 147	. . . . . . . . . . 11 ⊢ ((((𝜑 ∧ 𝑚 ∈ (ℤ≥‘0)) ∧ dom (𝐻‘𝑚) ⊆ (◡𝑁‘𝑚)) ∧ ¬ (𝐹‘(◡𝑁‘𝑚)) ∈ (𝐹 “ (◡𝑁‘𝑚))) → (𝑁‘dom (𝐻‘(𝑚 + 1))) ≤ (𝑁‘suc (◡𝑁‘𝑚)))
119	113, 26, 108	frec2uzsucd 10763	. . . . . . . . . . . 12 ⊢ ((((𝜑 ∧ 𝑚 ∈ (ℤ≥‘0)) ∧ dom (𝐻‘𝑚) ⊆ (◡𝑁‘𝑚)) ∧ ¬ (𝐹‘(◡𝑁‘𝑚)) ∈ (𝐹 “ (◡𝑁‘𝑚))) → (𝑁‘suc (◡𝑁‘𝑚)) = ((𝑁‘(◡𝑁‘𝑚)) + 1))
120	75	adantr 276	. . . . . . . . . . . . 13 ⊢ ((((𝜑 ∧ 𝑚 ∈ (ℤ≥‘0)) ∧ dom (𝐻‘𝑚) ⊆ (◡𝑁‘𝑚)) ∧ ¬ (𝐹‘(◡𝑁‘𝑚)) ∈ (𝐹 “ (◡𝑁‘𝑚))) → (𝑁‘(◡𝑁‘𝑚)) = 𝑚)
121	120	oveq1d 6065	. . . . . . . . . . . 12 ⊢ ((((𝜑 ∧ 𝑚 ∈ (ℤ≥‘0)) ∧ dom (𝐻‘𝑚) ⊆ (◡𝑁‘𝑚)) ∧ ¬ (𝐹‘(◡𝑁‘𝑚)) ∈ (𝐹 “ (◡𝑁‘𝑚))) → ((𝑁‘(◡𝑁‘𝑚)) + 1) = (𝑚 + 1))
122	119, 121	eqtrd 2265	. . . . . . . . . . 11 ⊢ ((((𝜑 ∧ 𝑚 ∈ (ℤ≥‘0)) ∧ dom (𝐻‘𝑚) ⊆ (◡𝑁‘𝑚)) ∧ ¬ (𝐹‘(◡𝑁‘𝑚)) ∈ (𝐹 “ (◡𝑁‘𝑚))) → (𝑁‘suc (◡𝑁‘𝑚)) = (𝑚 + 1))
123	118, 122	breqtrd 4135	. . . . . . . . . 10 ⊢ ((((𝜑 ∧ 𝑚 ∈ (ℤ≥‘0)) ∧ dom (𝐻‘𝑚) ⊆ (◡𝑁‘𝑚)) ∧ ¬ (𝐹‘(◡𝑁‘𝑚)) ∈ (𝐹 “ (◡𝑁‘𝑚))) → (𝑁‘dom (𝐻‘(𝑚 + 1))) ≤ (𝑚 + 1))
124	82	adantr 276	. . . . . . . . . 10 ⊢ ((((𝜑 ∧ 𝑚 ∈ (ℤ≥‘0)) ∧ dom (𝐻‘𝑚) ⊆ (◡𝑁‘𝑚)) ∧ ¬ (𝐹‘(◡𝑁‘𝑚)) ∈ (𝐹 “ (◡𝑁‘𝑚))) → (𝑁‘(◡𝑁‘(𝑚 + 1))) = (𝑚 + 1))
125	123, 124	breqtrrd 4137	. . . . . . . . 9 ⊢ ((((𝜑 ∧ 𝑚 ∈ (ℤ≥‘0)) ∧ dom (𝐻‘𝑚) ⊆ (◡𝑁‘𝑚)) ∧ ¬ (𝐹‘(◡𝑁‘𝑚)) ∈ (𝐹 “ (◡𝑁‘𝑚))) → (𝑁‘dom (𝐻‘(𝑚 + 1))) ≤ (𝑁‘(◡𝑁‘(𝑚 + 1))))
126	86	adantr 276	. . . . . . . . . 10 ⊢ ((((𝜑 ∧ 𝑚 ∈ (ℤ≥‘0)) ∧ dom (𝐻‘𝑚) ⊆ (◡𝑁‘𝑚)) ∧ ¬ (𝐹‘(◡𝑁‘𝑚)) ∈ (𝐹 “ (◡𝑁‘𝑚))) → (◡𝑁‘(𝑚 + 1)) ∈ ω)
127	113, 26, 114, 126	frec2uzled 10791	. . . . . . . . 9 ⊢ ((((𝜑 ∧ 𝑚 ∈ (ℤ≥‘0)) ∧ dom (𝐻‘𝑚) ⊆ (◡𝑁‘𝑚)) ∧ ¬ (𝐹‘(◡𝑁‘𝑚)) ∈ (𝐹 “ (◡𝑁‘𝑚))) → (dom (𝐻‘(𝑚 + 1)) ⊆ (◡𝑁‘(𝑚 + 1)) ↔ (𝑁‘dom (𝐻‘(𝑚 + 1))) ≤ (𝑁‘(◡𝑁‘(𝑚 + 1)))))
128	125, 127	mpbird 167	. . . . . . . 8 ⊢ ((((𝜑 ∧ 𝑚 ∈ (ℤ≥‘0)) ∧ dom (𝐻‘𝑚) ⊆ (◡𝑁‘𝑚)) ∧ ¬ (𝐹‘(◡𝑁‘𝑚)) ∈ (𝐹 “ (◡𝑁‘𝑚))) → dom (𝐻‘(𝑚 + 1)) ⊆ (◡𝑁‘(𝑚 + 1)))
129	39, 40, 71	ennnfonelemdc 13150	. . . . . . . . 9 ⊢ (((𝜑 ∧ 𝑚 ∈ (ℤ≥‘0)) ∧ dom (𝐻‘𝑚) ⊆ (◡𝑁‘𝑚)) → DECID (𝐹‘(◡𝑁‘𝑚)) ∈ (𝐹 “ (◡𝑁‘𝑚)))
130		exmiddc 844	. . . . . . . . 9 ⊢ (DECID (𝐹‘(◡𝑁‘𝑚)) ∈ (𝐹 “ (◡𝑁‘𝑚)) → ((𝐹‘(◡𝑁‘𝑚)) ∈ (𝐹 “ (◡𝑁‘𝑚)) ∨ ¬ (𝐹‘(◡𝑁‘𝑚)) ∈ (𝐹 “ (◡𝑁‘𝑚))))
131	129, 130	syl 14	. . . . . . . 8 ⊢ (((𝜑 ∧ 𝑚 ∈ (ℤ≥‘0)) ∧ dom (𝐻‘𝑚) ⊆ (◡𝑁‘𝑚)) → ((𝐹‘(◡𝑁‘𝑚)) ∈ (𝐹 “ (◡𝑁‘𝑚)) ∨ ¬ (𝐹‘(◡𝑁‘𝑚)) ∈ (𝐹 “ (◡𝑁‘𝑚))))
132	89, 128, 131	mpjaodan 806	. . . . . . 7 ⊢ (((𝜑 ∧ 𝑚 ∈ (ℤ≥‘0)) ∧ dom (𝐻‘𝑚) ⊆ (◡𝑁‘𝑚)) → dom (𝐻‘(𝑚 + 1)) ⊆ (◡𝑁‘(𝑚 + 1)))
133	132	ex 115	. . . . . 6 ⊢ ((𝜑 ∧ 𝑚 ∈ (ℤ≥‘0)) → (dom (𝐻‘𝑚) ⊆ (◡𝑁‘𝑚) → dom (𝐻‘(𝑚 + 1)) ⊆ (◡𝑁‘(𝑚 + 1))))
134	133	expcom 116	. . . . 5 ⊢ (𝑚 ∈ (ℤ≥‘0) → (𝜑 → (dom (𝐻‘𝑚) ⊆ (◡𝑁‘𝑚) → dom (𝐻‘(𝑚 + 1)) ⊆ (◡𝑁‘(𝑚 + 1)))))
135	134	a2d 26	. . . 4 ⊢ (𝑚 ∈ (ℤ≥‘0) → ((𝜑 → dom (𝐻‘𝑚) ⊆ (◡𝑁‘𝑚)) → (𝜑 → dom (𝐻‘(𝑚 + 1)) ⊆ (◡𝑁‘(𝑚 + 1)))))
136	6, 11, 16, 21, 35, 135	uzind4 9920	. . 3 ⊢ (𝑃 ∈ (ℤ≥‘0) → (𝜑 → dom (𝐻‘𝑃) ⊆ (◡𝑁‘𝑃)))
137	136, 43	eleq2s 2327	. 2 ⊢ (𝑃 ∈ ℕ0 → (𝜑 → dom (𝐻‘𝑃) ⊆ (◡𝑁‘𝑃)))
138	1, 137	mpcom 36	1 ⊢ (𝜑 → dom (𝐻‘𝑃) ⊆ (◡𝑁‘𝑃))

Syntax hints:  ¬ wn 3   → wi 4   ∧ wa 104   ↔ wb 105   ∨ wo 716  DECID wdc 842   = wceq 1398   ∈ wcel 2203   ≠ wne 2412  ∀wral 2520  ∃wrex 2521   ∪ cun 3209   ⊆ wss 3211  ∅c0 3508  ifcif 3620  {csn 3689  ⟨cop 3692   class class class wbr 4109   ↦ cmpt 4171  suc csuc 4486  ωcom 4712  ^◡ccnv 4748  dom cdm 4749   “ cima 4752  ⟶wf 5348  –onto→wfo 5350  –1-1-onto→wf1o 5351  ‘cfv 5352  (class class class)co 6050   ∈ cmpo 6052  freccfrec 6621   ↑_pm cpm 6883  ℝcr 8126  0cc0 8127  1c1 8128   + caddc 8130   ≤ cle 8309   − cmin 8444  ℕ₀cn0 9496  ℤcz 9577  ℤ_≥cuz 9853  seqcseq 10809

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-ia1 106  ax-ia2 107  ax-ia3 108  ax-in1 619  ax-in2 620  ax-io 717  ax-5 1496  ax-7 1497  ax-gen 1498  ax-ie1 1542  ax-ie2 1543  ax-8 1553  ax-10 1554  ax-11 1555  ax-i12 1556  ax-bndl 1558  ax-4 1559  ax-17 1575  ax-i9 1579  ax-ial 1583  ax-i5r 1584  ax-13 2205  ax-14 2206  ax-ext 2214  ax-coll 4225  ax-sep 4228  ax-nul 4236  ax-pow 4287  ax-pr 4322  ax-un 4554  ax-setind 4659  ax-iinf 4710  ax-cnex 8218  ax-resscn 8219  ax-1cn 8220  ax-1re 8221  ax-icn 8222  ax-addcl 8223  ax-addrcl 8224  ax-mulcl 8225  ax-addcom 8227  ax-addass 8229  ax-distr 8231  ax-i2m1 8232  ax-0lt1 8233  ax-0id 8235  ax-rnegex 8236  ax-cnre 8238  ax-pre-ltirr 8239  ax-pre-ltwlin 8240  ax-pre-lttrn 8241  ax-pre-ltadd 8243

This theorem depends on definitions:  df-bi 117  df-dc 843  df-3or 1006  df-3an 1007  df-tru 1401  df-fal 1404  df-nf 1510  df-sb 1812  df-eu 2083  df-mo 2084  df-clab 2219  df-cleq 2225  df-clel 2228  df-nfc 2373  df-ne 2413  df-nel 2508  df-ral 2525  df-rex 2526  df-reu 2527  df-rab 2529  df-v 2815  df-sbc 3043  df-csb 3139  df-dif 3213  df-un 3215  df-in 3217  df-ss 3224  df-nul 3509  df-if 3621  df-pw 3671  df-sn 3695  df-pr 3696  df-op 3698  df-uni 3915  df-int 3950  df-iun 3993  df-br 4110  df-opab 4172  df-mpt 4173  df-tr 4209  df-id 4414  df-iord 4487  df-on 4489  df-ilim 4490  df-suc 4492  df-iom 4713  df-xp 4755  df-rel 4756  df-cnv 4757  df-co 4758  df-dm 4759  df-rn 4760  df-res 4761  df-ima 4762  df-iota 5312  df-fun 5354  df-fn 5355  df-f 5356  df-f1 5357  df-fo 5358  df-f1o 5359  df-fv 5360  df-riota 6003  df-ov 6053  df-oprab 6054  df-mpo 6055  df-1st 6334  df-2nd 6335  df-recs 6536  df-frec 6622  df-pm 6885  df-pnf 8310  df-mnf 8311  df-xr 8312  df-ltxr 8313  df-le 8314  df-sub 8446  df-neg 8447  df-inn 9238  df-n0 9497  df-z 9578  df-uz 9854  df-seqfrec 10810

This theorem is referenced by: (None)