Theorem om2uzrdg 13074

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 13065. (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 6446	. . 3 ⊢ (𝑧 = ∅ → (𝑅‘𝑧) = (𝑅‘∅))
2		fveq2 6446	. . . 4 ⊢ (𝑧 = ∅ → (𝐺‘𝑧) = (𝐺‘∅))
3		2fveq3 6451	. . . 4 ⊢ (𝑧 = ∅ → (2nd ‘(𝑅‘𝑧)) = (2nd ‘(𝑅‘∅)))
4	2, 3	opeq12d 4644	. . 3 ⊢ (𝑧 = ∅ → ⟨(𝐺‘𝑧), (2nd ‘(𝑅‘𝑧))⟩ = ⟨(𝐺‘∅), (2nd ‘(𝑅‘∅))⟩)
5	1, 4	eqeq12d 2792	. 2 ⊢ (𝑧 = ∅ → ((𝑅‘𝑧) = ⟨(𝐺‘𝑧), (2nd ‘(𝑅‘𝑧))⟩ ↔ (𝑅‘∅) = ⟨(𝐺‘∅), (2nd ‘(𝑅‘∅))⟩))
6		fveq2 6446	. . 3 ⊢ (𝑧 = 𝑣 → (𝑅‘𝑧) = (𝑅‘𝑣))
7		fveq2 6446	. . . 4 ⊢ (𝑧 = 𝑣 → (𝐺‘𝑧) = (𝐺‘𝑣))
8		2fveq3 6451	. . . 4 ⊢ (𝑧 = 𝑣 → (2nd ‘(𝑅‘𝑧)) = (2nd ‘(𝑅‘𝑣)))
9	7, 8	opeq12d 4644	. . 3 ⊢ (𝑧 = 𝑣 → ⟨(𝐺‘𝑧), (2nd ‘(𝑅‘𝑧))⟩ = ⟨(𝐺‘𝑣), (2nd ‘(𝑅‘𝑣))⟩)
10	6, 9	eqeq12d 2792	. 2 ⊢ (𝑧 = 𝑣 → ((𝑅‘𝑧) = ⟨(𝐺‘𝑧), (2nd ‘(𝑅‘𝑧))⟩ ↔ (𝑅‘𝑣) = ⟨(𝐺‘𝑣), (2nd ‘(𝑅‘𝑣))⟩))
11		fveq2 6446	. . 3 ⊢ (𝑧 = suc 𝑣 → (𝑅‘𝑧) = (𝑅‘suc 𝑣))
12		fveq2 6446	. . . 4 ⊢ (𝑧 = suc 𝑣 → (𝐺‘𝑧) = (𝐺‘suc 𝑣))
13		2fveq3 6451	. . . 4 ⊢ (𝑧 = suc 𝑣 → (2nd ‘(𝑅‘𝑧)) = (2nd ‘(𝑅‘suc 𝑣)))
14	12, 13	opeq12d 4644	. . 3 ⊢ (𝑧 = suc 𝑣 → ⟨(𝐺‘𝑧), (2nd ‘(𝑅‘𝑧))⟩ = ⟨(𝐺‘suc 𝑣), (2nd ‘(𝑅‘suc 𝑣))⟩)
15	11, 14	eqeq12d 2792	. 2 ⊢ (𝑧 = suc 𝑣 → ((𝑅‘𝑧) = ⟨(𝐺‘𝑧), (2nd ‘(𝑅‘𝑧))⟩ ↔ (𝑅‘suc 𝑣) = ⟨(𝐺‘suc 𝑣), (2nd ‘(𝑅‘suc 𝑣))⟩))
16		fveq2 6446	. . 3 ⊢ (𝑧 = 𝐵 → (𝑅‘𝑧) = (𝑅‘𝐵))
17		fveq2 6446	. . . 4 ⊢ (𝑧 = 𝐵 → (𝐺‘𝑧) = (𝐺‘𝐵))
18		2fveq3 6451	. . . 4 ⊢ (𝑧 = 𝐵 → (2nd ‘(𝑅‘𝑧)) = (2nd ‘(𝑅‘𝐵)))
19	17, 18	opeq12d 4644	. . 3 ⊢ (𝑧 = 𝐵 → ⟨(𝐺‘𝑧), (2nd ‘(𝑅‘𝑧))⟩ = ⟨(𝐺‘𝐵), (2nd ‘(𝑅‘𝐵))⟩)
20	16, 19	eqeq12d 2792	. 2 ⊢ (𝑧 = 𝐵 → ((𝑅‘𝑧) = ⟨(𝐺‘𝑧), (2nd ‘(𝑅‘𝑧))⟩ ↔ (𝑅‘𝐵) = ⟨(𝐺‘𝐵), (2nd ‘(𝑅‘𝐵))⟩))
21		uzrdg.2	. . . . 5 ⊢ 𝑅 = (rec((𝑥 ∈ V, 𝑦 ∈ V ↦ ⟨(𝑥 + 1), (𝑥𝐹𝑦)⟩), ⟨𝐶, 𝐴⟩) ↾ ω)
22	21	fveq1i 6447	. . . 4 ⊢ (𝑅‘∅) = ((rec((𝑥 ∈ V, 𝑦 ∈ V ↦ ⟨(𝑥 + 1), (𝑥𝐹𝑦)⟩), ⟨𝐶, 𝐴⟩) ↾ ω)‘∅)
23		opex 5164	. . . . 5 ⊢ ⟨𝐶, 𝐴⟩ ∈ V
24		fr0g 7814	. . . . 5 ⊢ (⟨𝐶, 𝐴⟩ ∈ V → ((rec((𝑥 ∈ V, 𝑦 ∈ V ↦ ⟨(𝑥 + 1), (𝑥𝐹𝑦)⟩), ⟨𝐶, 𝐴⟩) ↾ ω)‘∅) = ⟨𝐶, 𝐴⟩)
25	23, 24	ax-mp 5	. . . 4 ⊢ ((rec((𝑥 ∈ V, 𝑦 ∈ V ↦ ⟨(𝑥 + 1), (𝑥𝐹𝑦)⟩), ⟨𝐶, 𝐴⟩) ↾ ω)‘∅) = ⟨𝐶, 𝐴⟩
26	22, 25	eqtri 2801	. . 3 ⊢ (𝑅‘∅) = ⟨𝐶, 𝐴⟩
27		om2uz.1	. . . . 5 ⊢ 𝐶 ∈ ℤ
28		om2uz.2	. . . . 5 ⊢ 𝐺 = (rec((𝑥 ∈ V ↦ (𝑥 + 1)), 𝐶) ↾ ω)
29	27, 28	om2uz0i 13065	. . . 4 ⊢ (𝐺‘∅) = 𝐶
30	26	fveq2i 6449	. . . . 5 ⊢ (2nd ‘(𝑅‘∅)) = (2nd ‘⟨𝐶, 𝐴⟩)
31	27	elexi 3414	. . . . . 6 ⊢ 𝐶 ∈ V
32		uzrdg.1	. . . . . 6 ⊢ 𝐴 ∈ V
33	31, 32	op2nd 7454	. . . . 5 ⊢ (2nd ‘⟨𝐶, 𝐴⟩) = 𝐴
34	30, 33	eqtri 2801	. . . 4 ⊢ (2nd ‘(𝑅‘∅)) = 𝐴
35	29, 34	opeq12i 4641	. . 3 ⊢ ⟨(𝐺‘∅), (2nd ‘(𝑅‘∅))⟩ = ⟨𝐶, 𝐴⟩
36	26, 35	eqtr4i 2804	. 2 ⊢ (𝑅‘∅) = ⟨(𝐺‘∅), (2nd ‘(𝑅‘∅))⟩
37		frsuc 7815	. . . . . 6 ⊢ (𝑣 ∈ ω → ((rec((𝑥 ∈ V, 𝑦 ∈ V ↦ ⟨(𝑥 + 1), (𝑥𝐹𝑦)⟩), ⟨𝐶, 𝐴⟩) ↾ ω)‘suc 𝑣) = ((𝑥 ∈ V, 𝑦 ∈ V ↦ ⟨(𝑥 + 1), (𝑥𝐹𝑦)⟩)‘((rec((𝑥 ∈ V, 𝑦 ∈ V ↦ ⟨(𝑥 + 1), (𝑥𝐹𝑦)⟩), ⟨𝐶, 𝐴⟩) ↾ ω)‘𝑣)))
38	21	fveq1i 6447	. . . . . 6 ⊢ (𝑅‘suc 𝑣) = ((rec((𝑥 ∈ V, 𝑦 ∈ V ↦ ⟨(𝑥 + 1), (𝑥𝐹𝑦)⟩), ⟨𝐶, 𝐴⟩) ↾ ω)‘suc 𝑣)
39	21	fveq1i 6447	. . . . . . 7 ⊢ (𝑅‘𝑣) = ((rec((𝑥 ∈ V, 𝑦 ∈ V ↦ ⟨(𝑥 + 1), (𝑥𝐹𝑦)⟩), ⟨𝐶, 𝐴⟩) ↾ ω)‘𝑣)
40	39	fveq2i 6449	. . . . . 6 ⊢ ((𝑥 ∈ V, 𝑦 ∈ V ↦ ⟨(𝑥 + 1), (𝑥𝐹𝑦)⟩)‘(𝑅‘𝑣)) = ((𝑥 ∈ V, 𝑦 ∈ V ↦ ⟨(𝑥 + 1), (𝑥𝐹𝑦)⟩)‘((rec((𝑥 ∈ V, 𝑦 ∈ V ↦ ⟨(𝑥 + 1), (𝑥𝐹𝑦)⟩), ⟨𝐶, 𝐴⟩) ↾ ω)‘𝑣))
41	37, 38, 40	3eqtr4g 2838	. . . . 5 ⊢ (𝑣 ∈ ω → (𝑅‘suc 𝑣) = ((𝑥 ∈ V, 𝑦 ∈ V ↦ ⟨(𝑥 + 1), (𝑥𝐹𝑦)⟩)‘(𝑅‘𝑣)))
42		fveq2 6446	. . . . . 6 ⊢ ((𝑅‘𝑣) = ⟨(𝐺‘𝑣), (2nd ‘(𝑅‘𝑣))⟩ → ((𝑥 ∈ V, 𝑦 ∈ V ↦ ⟨(𝑥 + 1), (𝑥𝐹𝑦)⟩)‘(𝑅‘𝑣)) = ((𝑥 ∈ V, 𝑦 ∈ V ↦ ⟨(𝑥 + 1), (𝑥𝐹𝑦)⟩)‘⟨(𝐺‘𝑣), (2nd ‘(𝑅‘𝑣))⟩))
43		df-ov 6925	. . . . . . 7 ⊢ ((𝐺‘𝑣)(𝑥 ∈ V, 𝑦 ∈ V ↦ ⟨(𝑥 + 1), (𝑥𝐹𝑦)⟩)(2nd ‘(𝑅‘𝑣))) = ((𝑥 ∈ V, 𝑦 ∈ V ↦ ⟨(𝑥 + 1), (𝑥𝐹𝑦)⟩)‘⟨(𝐺‘𝑣), (2nd ‘(𝑅‘𝑣))⟩)
44		fvex 6459	. . . . . . . 8 ⊢ (𝐺‘𝑣) ∈ V
45		fvex 6459	. . . . . . . 8 ⊢ (2nd ‘(𝑅‘𝑣)) ∈ V
46		oveq1 6929	. . . . . . . . . 10 ⊢ (𝑤 = (𝐺‘𝑣) → (𝑤 + 1) = ((𝐺‘𝑣) + 1))
47		oveq1 6929	. . . . . . . . . 10 ⊢ (𝑤 = (𝐺‘𝑣) → (𝑤𝐹𝑧) = ((𝐺‘𝑣)𝐹𝑧))
48	46, 47	opeq12d 4644	. . . . . . . . 9 ⊢ (𝑤 = (𝐺‘𝑣) → ⟨(𝑤 + 1), (𝑤𝐹𝑧)⟩ = ⟨((𝐺‘𝑣) + 1), ((𝐺‘𝑣)𝐹𝑧)⟩)
49		oveq2 6930	. . . . . . . . . 10 ⊢ (𝑧 = (2nd ‘(𝑅‘𝑣)) → ((𝐺‘𝑣)𝐹𝑧) = ((𝐺‘𝑣)𝐹(2nd ‘(𝑅‘𝑣))))
50	49	opeq2d 4643	. . . . . . . . 9 ⊢ (𝑧 = (2nd ‘(𝑅‘𝑣)) → ⟨((𝐺‘𝑣) + 1), ((𝐺‘𝑣)𝐹𝑧)⟩ = ⟨((𝐺‘𝑣) + 1), ((𝐺‘𝑣)𝐹(2nd ‘(𝑅‘𝑣)))⟩)
51		oveq1 6929	. . . . . . . . . . 11 ⊢ (𝑥 = 𝑤 → (𝑥 + 1) = (𝑤 + 1))
52		oveq1 6929	. . . . . . . . . . 11 ⊢ (𝑥 = 𝑤 → (𝑥𝐹𝑦) = (𝑤𝐹𝑦))
53	51, 52	opeq12d 4644	. . . . . . . . . 10 ⊢ (𝑥 = 𝑤 → ⟨(𝑥 + 1), (𝑥𝐹𝑦)⟩ = ⟨(𝑤 + 1), (𝑤𝐹𝑦)⟩)
54		oveq2 6930	. . . . . . . . . . 11 ⊢ (𝑦 = 𝑧 → (𝑤𝐹𝑦) = (𝑤𝐹𝑧))
55	54	opeq2d 4643	. . . . . . . . . 10 ⊢ (𝑦 = 𝑧 → ⟨(𝑤 + 1), (𝑤𝐹𝑦)⟩ = ⟨(𝑤 + 1), (𝑤𝐹𝑧)⟩)
56	53, 55	cbvmpt2v 7012	. . . . . . . . 9 ⊢ (𝑥 ∈ V, 𝑦 ∈ V ↦ ⟨(𝑥 + 1), (𝑥𝐹𝑦)⟩) = (𝑤 ∈ V, 𝑧 ∈ V ↦ ⟨(𝑤 + 1), (𝑤𝐹𝑧)⟩)
57		opex 5164	. . . . . . . . 9 ⊢ ⟨((𝐺‘𝑣) + 1), ((𝐺‘𝑣)𝐹(2nd ‘(𝑅‘𝑣)))⟩ ∈ V
58	48, 50, 56, 57	ovmpt2 7073	. . . . . . . 8 ⊢ (((𝐺‘𝑣) ∈ V ∧ (2nd ‘(𝑅‘𝑣)) ∈ V) → ((𝐺‘𝑣)(𝑥 ∈ V, 𝑦 ∈ V ↦ ⟨(𝑥 + 1), (𝑥𝐹𝑦)⟩)(2nd ‘(𝑅‘𝑣))) = ⟨((𝐺‘𝑣) + 1), ((𝐺‘𝑣)𝐹(2nd ‘(𝑅‘𝑣)))⟩)
59	44, 45, 58	mp2an 682	. . . . . . 7 ⊢ ((𝐺‘𝑣)(𝑥 ∈ V, 𝑦 ∈ V ↦ ⟨(𝑥 + 1), (𝑥𝐹𝑦)⟩)(2nd ‘(𝑅‘𝑣))) = ⟨((𝐺‘𝑣) + 1), ((𝐺‘𝑣)𝐹(2nd ‘(𝑅‘𝑣)))⟩
60	43, 59	eqtr3i 2803	. . . . . 6 ⊢ ((𝑥 ∈ V, 𝑦 ∈ V ↦ ⟨(𝑥 + 1), (𝑥𝐹𝑦)⟩)‘⟨(𝐺‘𝑣), (2nd ‘(𝑅‘𝑣))⟩) = ⟨((𝐺‘𝑣) + 1), ((𝐺‘𝑣)𝐹(2nd ‘(𝑅‘𝑣)))⟩
61	42, 60	syl6eq 2829	. . . . 5 ⊢ ((𝑅‘𝑣) = ⟨(𝐺‘𝑣), (2nd ‘(𝑅‘𝑣))⟩ → ((𝑥 ∈ V, 𝑦 ∈ V ↦ ⟨(𝑥 + 1), (𝑥𝐹𝑦)⟩)‘(𝑅‘𝑣)) = ⟨((𝐺‘𝑣) + 1), ((𝐺‘𝑣)𝐹(2nd ‘(𝑅‘𝑣)))⟩)
62	41, 61	sylan9eq 2833	. . . 4 ⊢ ((𝑣 ∈ ω ∧ (𝑅‘𝑣) = ⟨(𝐺‘𝑣), (2nd ‘(𝑅‘𝑣))⟩) → (𝑅‘suc 𝑣) = ⟨((𝐺‘𝑣) + 1), ((𝐺‘𝑣)𝐹(2nd ‘(𝑅‘𝑣)))⟩)
63	27, 28	om2uzsuci 13066	. . . . . 6 ⊢ (𝑣 ∈ ω → (𝐺‘suc 𝑣) = ((𝐺‘𝑣) + 1))
64	63	adantr 474	. . . . 5 ⊢ ((𝑣 ∈ ω ∧ (𝑅‘𝑣) = ⟨(𝐺‘𝑣), (2nd ‘(𝑅‘𝑣))⟩) → (𝐺‘suc 𝑣) = ((𝐺‘𝑣) + 1))
65	62	fveq2d 6450	. . . . . 6 ⊢ ((𝑣 ∈ ω ∧ (𝑅‘𝑣) = ⟨(𝐺‘𝑣), (2nd ‘(𝑅‘𝑣))⟩) → (2nd ‘(𝑅‘suc 𝑣)) = (2nd ‘⟨((𝐺‘𝑣) + 1), ((𝐺‘𝑣)𝐹(2nd ‘(𝑅‘𝑣)))⟩))
66		ovex 6954	. . . . . . 7 ⊢ ((𝐺‘𝑣) + 1) ∈ V
67		ovex 6954	. . . . . . 7 ⊢ ((𝐺‘𝑣)𝐹(2nd ‘(𝑅‘𝑣))) ∈ V
68	66, 67	op2nd 7454	. . . . . 6 ⊢ (2nd ‘⟨((𝐺‘𝑣) + 1), ((𝐺‘𝑣)𝐹(2nd ‘(𝑅‘𝑣)))⟩) = ((𝐺‘𝑣)𝐹(2nd ‘(𝑅‘𝑣)))
69	65, 68	syl6eq 2829	. . . . 5 ⊢ ((𝑣 ∈ ω ∧ (𝑅‘𝑣) = ⟨(𝐺‘𝑣), (2nd ‘(𝑅‘𝑣))⟩) → (2nd ‘(𝑅‘suc 𝑣)) = ((𝐺‘𝑣)𝐹(2nd ‘(𝑅‘𝑣))))
70	64, 69	opeq12d 4644	. . . 4 ⊢ ((𝑣 ∈ ω ∧ (𝑅‘𝑣) = ⟨(𝐺‘𝑣), (2nd ‘(𝑅‘𝑣))⟩) → ⟨(𝐺‘suc 𝑣), (2nd ‘(𝑅‘suc 𝑣))⟩ = ⟨((𝐺‘𝑣) + 1), ((𝐺‘𝑣)𝐹(2nd ‘(𝑅‘𝑣)))⟩)
71	62, 70	eqtr4d 2816	. . 3 ⊢ ((𝑣 ∈ ω ∧ (𝑅‘𝑣) = ⟨(𝐺‘𝑣), (2nd ‘(𝑅‘𝑣))⟩) → (𝑅‘suc 𝑣) = ⟨(𝐺‘suc 𝑣), (2nd ‘(𝑅‘suc 𝑣))⟩)
72	71	ex 403	. 2 ⊢ (𝑣 ∈ ω → ((𝑅‘𝑣) = ⟨(𝐺‘𝑣), (2nd ‘(𝑅‘𝑣))⟩ → (𝑅‘suc 𝑣) = ⟨(𝐺‘suc 𝑣), (2nd ‘(𝑅‘suc 𝑣))⟩))
73	5, 10, 15, 20, 36, 72	finds 7370	1 ⊢ (𝐵 ∈ ω → (𝑅‘𝐵) = ⟨(𝐺‘𝐵), (2nd ‘(𝑅‘𝐵))⟩)

Syntax hints:   → wi 4   ∧ wa 386   = wceq 1601   ∈ wcel 2106  Vcvv 3397  ∅c0 4140  ⟨cop 4403   ↦ cmpt 4965   ↾ cres 5357  suc csuc 5978  ‘cfv 6135  (class class class)co 6922   ↦ cmpt2 6924  ωcom 7343  2^nd c2nd 7444  reccrdg 7788  1c1 10273   + caddc 10275  ℤcz 11728

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1839  ax-4 1853  ax-5 1953  ax-6 2021  ax-7 2054  ax-8 2108  ax-9 2115  ax-10 2134  ax-11 2149  ax-12 2162  ax-13 2333  ax-ext 2753  ax-sep 5017  ax-nul 5025  ax-pow 5077  ax-pr 5138  ax-un 7226

This theorem depends on definitions:  df-bi 199  df-an 387  df-or 837  df-3or 1072  df-3an 1073  df-tru 1605  df-ex 1824  df-nf 1828  df-sb 2012  df-mo 2550  df-eu 2586  df-clab 2763  df-cleq 2769  df-clel 2773  df-nfc 2920  df-ne 2969  df-ral 3094  df-rex 3095  df-reu 3096  df-rab 3098  df-v 3399  df-sbc 3652  df-csb 3751  df-dif 3794  df-un 3796  df-in 3798  df-ss 3805  df-pss 3807  df-nul 4141  df-if 4307  df-pw 4380  df-sn 4398  df-pr 4400  df-tp 4402  df-op 4404  df-uni 4672  df-iun 4755  df-br 4887  df-opab 4949  df-mpt 4966  df-tr 4988  df-id 5261  df-eprel 5266  df-po 5274  df-so 5275  df-fr 5314  df-we 5316  df-xp 5361  df-rel 5362  df-cnv 5363  df-co 5364  df-dm 5365  df-rn 5366  df-res 5367  df-ima 5368  df-pred 5933  df-ord 5979  df-on 5980  df-lim 5981  df-suc 5982  df-iota 6099  df-fun 6137  df-fn 6138  df-f 6139  df-f1 6140  df-fo 6141  df-f1o 6142  df-fv 6143  df-ov 6925  df-oprab 6926  df-mpt2 6927  df-om 7344  df-2nd 7446  df-wrecs 7689  df-recs 7751  df-rdg 7789

This theorem is referenced by:  uzrdglem  13075  uzrdgfni  13076  uzrdgsuci  13078