Theorem om2uzrdg 13863

Description: A helper lemma for the value of a recursive definition generator on upper integers (typically either ℕ or ℕ₀) with characteristic function 𝐹(𝑥, 𝑦) and initial value 𝐴. Normally 𝐹 is a function on the partition, and 𝐴 is a member of the partition. See also comment in om2uz0i 13854. (Contributed by Mario Carneiro, 26-Jun-2013.) (Revised by Mario Carneiro, 18-Nov-2014.)

Hypotheses

Ref	Expression
om2uz.1	⊢ 𝐶 ∈ ℤ
om2uz.2	⊢ 𝐺 = (rec((𝑥 ∈ V ↦ (𝑥 + 1)), 𝐶) ↾ ω)
uzrdg.1	⊢ 𝐴 ∈ V
uzrdg.2	⊢ 𝑅 = (rec((𝑥 ∈ V, 𝑦 ∈ V ↦ ⟨(𝑥 + 1), (𝑥𝐹𝑦)⟩), ⟨𝐶, 𝐴⟩) ↾ ω)

Assertion

Ref	Expression
om2uzrdg	⊢ (𝐵 ∈ ω → (𝑅‘𝐵) = ⟨(𝐺‘𝐵), (2nd ‘(𝑅‘𝐵))⟩)

Distinct variable groups:   𝑦,𝐴   𝑥,𝑦,𝐶   𝑦,𝐺   𝑥,𝐹,𝑦

Allowed substitution hints:   𝐴(𝑥)   𝐵(𝑥,𝑦)   𝑅(𝑥,𝑦)   𝐺(𝑥)

Proof of Theorem om2uzrdg

Dummy variables 𝑧 𝑤 𝑣 are mutually distinct and distinct from all other variables.

Step	Hyp	Ref	Expression
1		fveq2 6822	. . 3 ⊢ (𝑧 = ∅ → (𝑅‘𝑧) = (𝑅‘∅))
2		fveq2 6822	. . . 4 ⊢ (𝑧 = ∅ → (𝐺‘𝑧) = (𝐺‘∅))
3		2fveq3 6827	. . . 4 ⊢ (𝑧 = ∅ → (2nd ‘(𝑅‘𝑧)) = (2nd ‘(𝑅‘∅)))
4	2, 3	opeq12d 4832	. . 3 ⊢ (𝑧 = ∅ → ⟨(𝐺‘𝑧), (2nd ‘(𝑅‘𝑧))⟩ = ⟨(𝐺‘∅), (2nd ‘(𝑅‘∅))⟩)
5	1, 4	eqeq12d 2745	. 2 ⊢ (𝑧 = ∅ → ((𝑅‘𝑧) = ⟨(𝐺‘𝑧), (2nd ‘(𝑅‘𝑧))⟩ ↔ (𝑅‘∅) = ⟨(𝐺‘∅), (2nd ‘(𝑅‘∅))⟩))
6		fveq2 6822	. . 3 ⊢ (𝑧 = 𝑣 → (𝑅‘𝑧) = (𝑅‘𝑣))
7		fveq2 6822	. . . 4 ⊢ (𝑧 = 𝑣 → (𝐺‘𝑧) = (𝐺‘𝑣))
8		2fveq3 6827	. . . 4 ⊢ (𝑧 = 𝑣 → (2nd ‘(𝑅‘𝑧)) = (2nd ‘(𝑅‘𝑣)))
9	7, 8	opeq12d 4832	. . 3 ⊢ (𝑧 = 𝑣 → ⟨(𝐺‘𝑧), (2nd ‘(𝑅‘𝑧))⟩ = ⟨(𝐺‘𝑣), (2nd ‘(𝑅‘𝑣))⟩)
10	6, 9	eqeq12d 2745	. 2 ⊢ (𝑧 = 𝑣 → ((𝑅‘𝑧) = ⟨(𝐺‘𝑧), (2nd ‘(𝑅‘𝑧))⟩ ↔ (𝑅‘𝑣) = ⟨(𝐺‘𝑣), (2nd ‘(𝑅‘𝑣))⟩))
11		fveq2 6822	. . 3 ⊢ (𝑧 = suc 𝑣 → (𝑅‘𝑧) = (𝑅‘suc 𝑣))
12		fveq2 6822	. . . 4 ⊢ (𝑧 = suc 𝑣 → (𝐺‘𝑧) = (𝐺‘suc 𝑣))
13		2fveq3 6827	. . . 4 ⊢ (𝑧 = suc 𝑣 → (2nd ‘(𝑅‘𝑧)) = (2nd ‘(𝑅‘suc 𝑣)))
14	12, 13	opeq12d 4832	. . 3 ⊢ (𝑧 = suc 𝑣 → ⟨(𝐺‘𝑧), (2nd ‘(𝑅‘𝑧))⟩ = ⟨(𝐺‘suc 𝑣), (2nd ‘(𝑅‘suc 𝑣))⟩)
15	11, 14	eqeq12d 2745	. 2 ⊢ (𝑧 = suc 𝑣 → ((𝑅‘𝑧) = ⟨(𝐺‘𝑧), (2nd ‘(𝑅‘𝑧))⟩ ↔ (𝑅‘suc 𝑣) = ⟨(𝐺‘suc 𝑣), (2nd ‘(𝑅‘suc 𝑣))⟩))
16		fveq2 6822	. . 3 ⊢ (𝑧 = 𝐵 → (𝑅‘𝑧) = (𝑅‘𝐵))
17		fveq2 6822	. . . 4 ⊢ (𝑧 = 𝐵 → (𝐺‘𝑧) = (𝐺‘𝐵))
18		2fveq3 6827	. . . 4 ⊢ (𝑧 = 𝐵 → (2nd ‘(𝑅‘𝑧)) = (2nd ‘(𝑅‘𝐵)))
19	17, 18	opeq12d 4832	. . 3 ⊢ (𝑧 = 𝐵 → ⟨(𝐺‘𝑧), (2nd ‘(𝑅‘𝑧))⟩ = ⟨(𝐺‘𝐵), (2nd ‘(𝑅‘𝐵))⟩)
20	16, 19	eqeq12d 2745	. 2 ⊢ (𝑧 = 𝐵 → ((𝑅‘𝑧) = ⟨(𝐺‘𝑧), (2nd ‘(𝑅‘𝑧))⟩ ↔ (𝑅‘𝐵) = ⟨(𝐺‘𝐵), (2nd ‘(𝑅‘𝐵))⟩))
21		uzrdg.2	. . . . 5 ⊢ 𝑅 = (rec((𝑥 ∈ V, 𝑦 ∈ V ↦ ⟨(𝑥 + 1), (𝑥𝐹𝑦)⟩), ⟨𝐶, 𝐴⟩) ↾ ω)
22	21	fveq1i 6823	. . . 4 ⊢ (𝑅‘∅) = ((rec((𝑥 ∈ V, 𝑦 ∈ V ↦ ⟨(𝑥 + 1), (𝑥𝐹𝑦)⟩), ⟨𝐶, 𝐴⟩) ↾ ω)‘∅)
23		opex 5407	. . . . 5 ⊢ ⟨𝐶, 𝐴⟩ ∈ V
24		fr0g 8358	. . . . 5 ⊢ (⟨𝐶, 𝐴⟩ ∈ V → ((rec((𝑥 ∈ V, 𝑦 ∈ V ↦ ⟨(𝑥 + 1), (𝑥𝐹𝑦)⟩), ⟨𝐶, 𝐴⟩) ↾ ω)‘∅) = ⟨𝐶, 𝐴⟩)
25	23, 24	ax-mp 5	. . . 4 ⊢ ((rec((𝑥 ∈ V, 𝑦 ∈ V ↦ ⟨(𝑥 + 1), (𝑥𝐹𝑦)⟩), ⟨𝐶, 𝐴⟩) ↾ ω)‘∅) = ⟨𝐶, 𝐴⟩
26	22, 25	eqtri 2752	. . 3 ⊢ (𝑅‘∅) = ⟨𝐶, 𝐴⟩
27		om2uz.1	. . . . 5 ⊢ 𝐶 ∈ ℤ
28		om2uz.2	. . . . 5 ⊢ 𝐺 = (rec((𝑥 ∈ V ↦ (𝑥 + 1)), 𝐶) ↾ ω)
29	27, 28	om2uz0i 13854	. . . 4 ⊢ (𝐺‘∅) = 𝐶
30	26	fveq2i 6825	. . . . 5 ⊢ (2nd ‘(𝑅‘∅)) = (2nd ‘⟨𝐶, 𝐴⟩)
31	27	elexi 3459	. . . . . 6 ⊢ 𝐶 ∈ V
32		uzrdg.1	. . . . . 6 ⊢ 𝐴 ∈ V
33	31, 32	op2nd 7933	. . . . 5 ⊢ (2nd ‘⟨𝐶, 𝐴⟩) = 𝐴
34	30, 33	eqtri 2752	. . . 4 ⊢ (2nd ‘(𝑅‘∅)) = 𝐴
35	29, 34	opeq12i 4829	. . 3 ⊢ ⟨(𝐺‘∅), (2nd ‘(𝑅‘∅))⟩ = ⟨𝐶, 𝐴⟩
36	26, 35	eqtr4i 2755	. 2 ⊢ (𝑅‘∅) = ⟨(𝐺‘∅), (2nd ‘(𝑅‘∅))⟩
37		frsuc 8359	. . . . . 6 ⊢ (𝑣 ∈ ω → ((rec((𝑥 ∈ V, 𝑦 ∈ V ↦ ⟨(𝑥 + 1), (𝑥𝐹𝑦)⟩), ⟨𝐶, 𝐴⟩) ↾ ω)‘suc 𝑣) = ((𝑥 ∈ V, 𝑦 ∈ V ↦ ⟨(𝑥 + 1), (𝑥𝐹𝑦)⟩)‘((rec((𝑥 ∈ V, 𝑦 ∈ V ↦ ⟨(𝑥 + 1), (𝑥𝐹𝑦)⟩), ⟨𝐶, 𝐴⟩) ↾ ω)‘𝑣)))
38	21	fveq1i 6823	. . . . . 6 ⊢ (𝑅‘suc 𝑣) = ((rec((𝑥 ∈ V, 𝑦 ∈ V ↦ ⟨(𝑥 + 1), (𝑥𝐹𝑦)⟩), ⟨𝐶, 𝐴⟩) ↾ ω)‘suc 𝑣)
39	21	fveq1i 6823	. . . . . . 7 ⊢ (𝑅‘𝑣) = ((rec((𝑥 ∈ V, 𝑦 ∈ V ↦ ⟨(𝑥 + 1), (𝑥𝐹𝑦)⟩), ⟨𝐶, 𝐴⟩) ↾ ω)‘𝑣)
40	39	fveq2i 6825	. . . . . 6 ⊢ ((𝑥 ∈ V, 𝑦 ∈ V ↦ ⟨(𝑥 + 1), (𝑥𝐹𝑦)⟩)‘(𝑅‘𝑣)) = ((𝑥 ∈ V, 𝑦 ∈ V ↦ ⟨(𝑥 + 1), (𝑥𝐹𝑦)⟩)‘((rec((𝑥 ∈ V, 𝑦 ∈ V ↦ ⟨(𝑥 + 1), (𝑥𝐹𝑦)⟩), ⟨𝐶, 𝐴⟩) ↾ ω)‘𝑣))
41	37, 38, 40	3eqtr4g 2789	. . . . 5 ⊢ (𝑣 ∈ ω → (𝑅‘suc 𝑣) = ((𝑥 ∈ V, 𝑦 ∈ V ↦ ⟨(𝑥 + 1), (𝑥𝐹𝑦)⟩)‘(𝑅‘𝑣)))
42		fveq2 6822	. . . . . 6 ⊢ ((𝑅‘𝑣) = ⟨(𝐺‘𝑣), (2nd ‘(𝑅‘𝑣))⟩ → ((𝑥 ∈ V, 𝑦 ∈ V ↦ ⟨(𝑥 + 1), (𝑥𝐹𝑦)⟩)‘(𝑅‘𝑣)) = ((𝑥 ∈ V, 𝑦 ∈ V ↦ ⟨(𝑥 + 1), (𝑥𝐹𝑦)⟩)‘⟨(𝐺‘𝑣), (2nd ‘(𝑅‘𝑣))⟩))
43		df-ov 7352	. . . . . . 7 ⊢ ((𝐺‘𝑣)(𝑥 ∈ V, 𝑦 ∈ V ↦ ⟨(𝑥 + 1), (𝑥𝐹𝑦)⟩)(2nd ‘(𝑅‘𝑣))) = ((𝑥 ∈ V, 𝑦 ∈ V ↦ ⟨(𝑥 + 1), (𝑥𝐹𝑦)⟩)‘⟨(𝐺‘𝑣), (2nd ‘(𝑅‘𝑣))⟩)
44		fvex 6835	. . . . . . . 8 ⊢ (𝐺‘𝑣) ∈ V
45		fvex 6835	. . . . . . . 8 ⊢ (2nd ‘(𝑅‘𝑣)) ∈ V
46		oveq1 7356	. . . . . . . . . 10 ⊢ (𝑤 = (𝐺‘𝑣) → (𝑤 + 1) = ((𝐺‘𝑣) + 1))
47		oveq1 7356	. . . . . . . . . 10 ⊢ (𝑤 = (𝐺‘𝑣) → (𝑤𝐹𝑧) = ((𝐺‘𝑣)𝐹𝑧))
48	46, 47	opeq12d 4832	. . . . . . . . 9 ⊢ (𝑤 = (𝐺‘𝑣) → ⟨(𝑤 + 1), (𝑤𝐹𝑧)⟩ = ⟨((𝐺‘𝑣) + 1), ((𝐺‘𝑣)𝐹𝑧)⟩)
49		oveq2 7357	. . . . . . . . . 10 ⊢ (𝑧 = (2nd ‘(𝑅‘𝑣)) → ((𝐺‘𝑣)𝐹𝑧) = ((𝐺‘𝑣)𝐹(2nd ‘(𝑅‘𝑣))))
50	49	opeq2d 4831	. . . . . . . . 9 ⊢ (𝑧 = (2nd ‘(𝑅‘𝑣)) → ⟨((𝐺‘𝑣) + 1), ((𝐺‘𝑣)𝐹𝑧)⟩ = ⟨((𝐺‘𝑣) + 1), ((𝐺‘𝑣)𝐹(2nd ‘(𝑅‘𝑣)))⟩)
51		oveq1 7356	. . . . . . . . . . 11 ⊢ (𝑥 = 𝑤 → (𝑥 + 1) = (𝑤 + 1))
52		oveq1 7356	. . . . . . . . . . 11 ⊢ (𝑥 = 𝑤 → (𝑥𝐹𝑦) = (𝑤𝐹𝑦))
53	51, 52	opeq12d 4832	. . . . . . . . . 10 ⊢ (𝑥 = 𝑤 → ⟨(𝑥 + 1), (𝑥𝐹𝑦)⟩ = ⟨(𝑤 + 1), (𝑤𝐹𝑦)⟩)
54		oveq2 7357	. . . . . . . . . . 11 ⊢ (𝑦 = 𝑧 → (𝑤𝐹𝑦) = (𝑤𝐹𝑧))
55	54	opeq2d 4831	. . . . . . . . . 10 ⊢ (𝑦 = 𝑧 → ⟨(𝑤 + 1), (𝑤𝐹𝑦)⟩ = ⟨(𝑤 + 1), (𝑤𝐹𝑧)⟩)
56	53, 55	cbvmpov 7444	. . . . . . . . 9 ⊢ (𝑥 ∈ V, 𝑦 ∈ V ↦ ⟨(𝑥 + 1), (𝑥𝐹𝑦)⟩) = (𝑤 ∈ V, 𝑧 ∈ V ↦ ⟨(𝑤 + 1), (𝑤𝐹𝑧)⟩)
57		opex 5407	. . . . . . . . 9 ⊢ ⟨((𝐺‘𝑣) + 1), ((𝐺‘𝑣)𝐹(2nd ‘(𝑅‘𝑣)))⟩ ∈ V
58	48, 50, 56, 57	ovmpo 7509	. . . . . . . 8 ⊢ (((𝐺‘𝑣) ∈ V ∧ (2nd ‘(𝑅‘𝑣)) ∈ V) → ((𝐺‘𝑣)(𝑥 ∈ V, 𝑦 ∈ V ↦ ⟨(𝑥 + 1), (𝑥𝐹𝑦)⟩)(2nd ‘(𝑅‘𝑣))) = ⟨((𝐺‘𝑣) + 1), ((𝐺‘𝑣)𝐹(2nd ‘(𝑅‘𝑣)))⟩)
59	44, 45, 58	mp2an 692	. . . . . . 7 ⊢ ((𝐺‘𝑣)(𝑥 ∈ V, 𝑦 ∈ V ↦ ⟨(𝑥 + 1), (𝑥𝐹𝑦)⟩)(2nd ‘(𝑅‘𝑣))) = ⟨((𝐺‘𝑣) + 1), ((𝐺‘𝑣)𝐹(2nd ‘(𝑅‘𝑣)))⟩
60	43, 59	eqtr3i 2754	. . . . . 6 ⊢ ((𝑥 ∈ V, 𝑦 ∈ V ↦ ⟨(𝑥 + 1), (𝑥𝐹𝑦)⟩)‘⟨(𝐺‘𝑣), (2nd ‘(𝑅‘𝑣))⟩) = ⟨((𝐺‘𝑣) + 1), ((𝐺‘𝑣)𝐹(2nd ‘(𝑅‘𝑣)))⟩
61	42, 60	eqtrdi 2780	. . . . 5 ⊢ ((𝑅‘𝑣) = ⟨(𝐺‘𝑣), (2nd ‘(𝑅‘𝑣))⟩ → ((𝑥 ∈ V, 𝑦 ∈ V ↦ ⟨(𝑥 + 1), (𝑥𝐹𝑦)⟩)‘(𝑅‘𝑣)) = ⟨((𝐺‘𝑣) + 1), ((𝐺‘𝑣)𝐹(2nd ‘(𝑅‘𝑣)))⟩)
62	41, 61	sylan9eq 2784	. . . 4 ⊢ ((𝑣 ∈ ω ∧ (𝑅‘𝑣) = ⟨(𝐺‘𝑣), (2nd ‘(𝑅‘𝑣))⟩) → (𝑅‘suc 𝑣) = ⟨((𝐺‘𝑣) + 1), ((𝐺‘𝑣)𝐹(2nd ‘(𝑅‘𝑣)))⟩)
63	27, 28	om2uzsuci 13855	. . . . . 6 ⊢ (𝑣 ∈ ω → (𝐺‘suc 𝑣) = ((𝐺‘𝑣) + 1))
64	63	adantr 480	. . . . 5 ⊢ ((𝑣 ∈ ω ∧ (𝑅‘𝑣) = ⟨(𝐺‘𝑣), (2nd ‘(𝑅‘𝑣))⟩) → (𝐺‘suc 𝑣) = ((𝐺‘𝑣) + 1))
65	62	fveq2d 6826	. . . . . 6 ⊢ ((𝑣 ∈ ω ∧ (𝑅‘𝑣) = ⟨(𝐺‘𝑣), (2nd ‘(𝑅‘𝑣))⟩) → (2nd ‘(𝑅‘suc 𝑣)) = (2nd ‘⟨((𝐺‘𝑣) + 1), ((𝐺‘𝑣)𝐹(2nd ‘(𝑅‘𝑣)))⟩))
66		ovex 7382	. . . . . . 7 ⊢ ((𝐺‘𝑣) + 1) ∈ V
67		ovex 7382	. . . . . . 7 ⊢ ((𝐺‘𝑣)𝐹(2nd ‘(𝑅‘𝑣))) ∈ V
68	66, 67	op2nd 7933	. . . . . 6 ⊢ (2nd ‘⟨((𝐺‘𝑣) + 1), ((𝐺‘𝑣)𝐹(2nd ‘(𝑅‘𝑣)))⟩) = ((𝐺‘𝑣)𝐹(2nd ‘(𝑅‘𝑣)))
69	65, 68	eqtrdi 2780	. . . . 5 ⊢ ((𝑣 ∈ ω ∧ (𝑅‘𝑣) = ⟨(𝐺‘𝑣), (2nd ‘(𝑅‘𝑣))⟩) → (2nd ‘(𝑅‘suc 𝑣)) = ((𝐺‘𝑣)𝐹(2nd ‘(𝑅‘𝑣))))
70	64, 69	opeq12d 4832	. . . 4 ⊢ ((𝑣 ∈ ω ∧ (𝑅‘𝑣) = ⟨(𝐺‘𝑣), (2nd ‘(𝑅‘𝑣))⟩) → ⟨(𝐺‘suc 𝑣), (2nd ‘(𝑅‘suc 𝑣))⟩ = ⟨((𝐺‘𝑣) + 1), ((𝐺‘𝑣)𝐹(2nd ‘(𝑅‘𝑣)))⟩)
71	62, 70	eqtr4d 2767	. . 3 ⊢ ((𝑣 ∈ ω ∧ (𝑅‘𝑣) = ⟨(𝐺‘𝑣), (2nd ‘(𝑅‘𝑣))⟩) → (𝑅‘suc 𝑣) = ⟨(𝐺‘suc 𝑣), (2nd ‘(𝑅‘suc 𝑣))⟩)
72	71	ex 412	. 2 ⊢ (𝑣 ∈ ω → ((𝑅‘𝑣) = ⟨(𝐺‘𝑣), (2nd ‘(𝑅‘𝑣))⟩ → (𝑅‘suc 𝑣) = ⟨(𝐺‘suc 𝑣), (2nd ‘(𝑅‘suc 𝑣))⟩))
73	5, 10, 15, 20, 36, 72	finds 7829	1 ⊢ (𝐵 ∈ ω → (𝑅‘𝐵) = ⟨(𝐺‘𝐵), (2nd ‘(𝑅‘𝐵))⟩)

Syntax hints:   → wi 4   ∧ wa 395   = wceq 1540   ∈ wcel 2109  Vcvv 3436  ∅c0 4284  ⟨cop 4583   ↦ cmpt 5173   ↾ cres 5621  suc csuc 6309  ‘cfv 6482  (class class class)co 7349   ∈ cmpo 7351  ωcom 7799  2^nd c2nd 7923  reccrdg 8331  1c1 11010   + caddc 11012  ℤcz 12471

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1795  ax-4 1809  ax-5 1910  ax-6 1967  ax-7 2008  ax-8 2111  ax-9 2119  ax-10 2142  ax-11 2158  ax-12 2178  ax-ext 2701  ax-sep 5235  ax-nul 5245  ax-pr 5371  ax-un 7671

This theorem depends on definitions:  df-bi 207  df-an 396  df-or 848  df-3or 1087  df-3an 1088  df-tru 1543  df-fal 1553  df-ex 1780  df-nf 1784  df-sb 2066  df-mo 2533  df-eu 2562  df-clab 2708  df-cleq 2721  df-clel 2803  df-nfc 2878  df-ne 2926  df-ral 3045  df-rex 3054  df-reu 3344  df-rab 3395  df-v 3438  df-sbc 3743  df-csb 3852  df-dif 3906  df-un 3908  df-in 3910  df-ss 3920  df-pss 3923  df-nul 4285  df-if 4477  df-pw 4553  df-sn 4578  df-pr 4580  df-op 4584  df-uni 4859  df-iun 4943  df-br 5093  df-opab 5155  df-mpt 5174  df-tr 5200  df-id 5514  df-eprel 5519  df-po 5527  df-so 5528  df-fr 5572  df-we 5574  df-xp 5625  df-rel 5626  df-cnv 5627  df-co 5628  df-dm 5629  df-rn 5630  df-res 5631  df-ima 5632  df-pred 6249  df-ord 6310  df-on 6311  df-lim 6312  df-suc 6313  df-iota 6438  df-fun 6484  df-fn 6485  df-f 6486  df-f1 6487  df-fo 6488  df-f1o 6489  df-fv 6490  df-ov 7352  df-oprab 7353  df-mpo 7354  df-om 7800  df-2nd 7925  df-frecs 8214  df-wrecs 8245  df-recs 8294  df-rdg 8332

This theorem is referenced by:  uzrdglem  13864  uzrdgfni  13865  uzrdgsuci  13867