Theorem om2uzrdg 13991

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 13982. (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 6882	. . 3 ⊢ (𝑧 = ∅ → (𝑅‘𝑧) = (𝑅‘∅))
2		fveq2 6882	. . . 4 ⊢ (𝑧 = ∅ → (𝐺‘𝑧) = (𝐺‘∅))
3		2fveq3 6887	. . . 4 ⊢ (𝑧 = ∅ → (2nd ‘(𝑅‘𝑧)) = (2nd ‘(𝑅‘∅)))
4	2, 3	opeq12d 4850	. . 3 ⊢ (𝑧 = ∅ → ⟨(𝐺‘𝑧), (2nd ‘(𝑅‘𝑧))⟩ = ⟨(𝐺‘∅), (2nd ‘(𝑅‘∅))⟩)
5	1, 4	eqeq12d 2785	. 2 ⊢ (𝑧 = ∅ → ((𝑅‘𝑧) = ⟨(𝐺‘𝑧), (2nd ‘(𝑅‘𝑧))⟩ ↔ (𝑅‘∅) = ⟨(𝐺‘∅), (2nd ‘(𝑅‘∅))⟩))
6		fveq2 6882	. . 3 ⊢ (𝑧 = 𝑣 → (𝑅‘𝑧) = (𝑅‘𝑣))
7		fveq2 6882	. . . 4 ⊢ (𝑧 = 𝑣 → (𝐺‘𝑧) = (𝐺‘𝑣))
8		2fveq3 6887	. . . 4 ⊢ (𝑧 = 𝑣 → (2nd ‘(𝑅‘𝑧)) = (2nd ‘(𝑅‘𝑣)))
9	7, 8	opeq12d 4850	. . 3 ⊢ (𝑧 = 𝑣 → ⟨(𝐺‘𝑧), (2nd ‘(𝑅‘𝑧))⟩ = ⟨(𝐺‘𝑣), (2nd ‘(𝑅‘𝑣))⟩)
10	6, 9	eqeq12d 2785	. 2 ⊢ (𝑧 = 𝑣 → ((𝑅‘𝑧) = ⟨(𝐺‘𝑧), (2nd ‘(𝑅‘𝑧))⟩ ↔ (𝑅‘𝑣) = ⟨(𝐺‘𝑣), (2nd ‘(𝑅‘𝑣))⟩))
11		fveq2 6882	. . 3 ⊢ (𝑧 = suc 𝑣 → (𝑅‘𝑧) = (𝑅‘suc 𝑣))
12		fveq2 6882	. . . 4 ⊢ (𝑧 = suc 𝑣 → (𝐺‘𝑧) = (𝐺‘suc 𝑣))
13		2fveq3 6887	. . . 4 ⊢ (𝑧 = suc 𝑣 → (2nd ‘(𝑅‘𝑧)) = (2nd ‘(𝑅‘suc 𝑣)))
14	12, 13	opeq12d 4850	. . 3 ⊢ (𝑧 = suc 𝑣 → ⟨(𝐺‘𝑧), (2nd ‘(𝑅‘𝑧))⟩ = ⟨(𝐺‘suc 𝑣), (2nd ‘(𝑅‘suc 𝑣))⟩)
15	11, 14	eqeq12d 2785	. 2 ⊢ (𝑧 = suc 𝑣 → ((𝑅‘𝑧) = ⟨(𝐺‘𝑧), (2nd ‘(𝑅‘𝑧))⟩ ↔ (𝑅‘suc 𝑣) = ⟨(𝐺‘suc 𝑣), (2nd ‘(𝑅‘suc 𝑣))⟩))
16		fveq2 6882	. . 3 ⊢ (𝑧 = 𝐵 → (𝑅‘𝑧) = (𝑅‘𝐵))
17		fveq2 6882	. . . 4 ⊢ (𝑧 = 𝐵 → (𝐺‘𝑧) = (𝐺‘𝐵))
18		2fveq3 6887	. . . 4 ⊢ (𝑧 = 𝐵 → (2nd ‘(𝑅‘𝑧)) = (2nd ‘(𝑅‘𝐵)))
19	17, 18	opeq12d 4850	. . 3 ⊢ (𝑧 = 𝐵 → ⟨(𝐺‘𝑧), (2nd ‘(𝑅‘𝑧))⟩ = ⟨(𝐺‘𝐵), (2nd ‘(𝑅‘𝐵))⟩)
20	16, 19	eqeq12d 2785	. 2 ⊢ (𝑧 = 𝐵 → ((𝑅‘𝑧) = ⟨(𝐺‘𝑧), (2nd ‘(𝑅‘𝑧))⟩ ↔ (𝑅‘𝐵) = ⟨(𝐺‘𝐵), (2nd ‘(𝑅‘𝐵))⟩))
21		uzrdg.2	. . . . 5 ⊢ 𝑅 = (rec((𝑥 ∈ V, 𝑦 ∈ V ↦ ⟨(𝑥 + 1), (𝑥𝐹𝑦)⟩), ⟨𝐶, 𝐴⟩) ↾ ω)
22	21	fveq1i 6883	. . . 4 ⊢ (𝑅‘∅) = ((rec((𝑥 ∈ V, 𝑦 ∈ V ↦ ⟨(𝑥 + 1), (𝑥𝐹𝑦)⟩), ⟨𝐶, 𝐴⟩) ↾ ω)‘∅)
23		opex 5446	. . . . 5 ⊢ ⟨𝐶, 𝐴⟩ ∈ V
24		fr0g 8422	. . . . 5 ⊢ (⟨𝐶, 𝐴⟩ ∈ V → ((rec((𝑥 ∈ V, 𝑦 ∈ V ↦ ⟨(𝑥 + 1), (𝑥𝐹𝑦)⟩), ⟨𝐶, 𝐴⟩) ↾ ω)‘∅) = ⟨𝐶, 𝐴⟩)
25	23, 24	ax-mp 5	. . . 4 ⊢ ((rec((𝑥 ∈ V, 𝑦 ∈ V ↦ ⟨(𝑥 + 1), (𝑥𝐹𝑦)⟩), ⟨𝐶, 𝐴⟩) ↾ ω)‘∅) = ⟨𝐶, 𝐴⟩
26	22, 25	eqtri 2792	. . 3 ⊢ (𝑅‘∅) = ⟨𝐶, 𝐴⟩
27		om2uz.1	. . . . 5 ⊢ 𝐶 ∈ ℤ
28		om2uz.2	. . . . 5 ⊢ 𝐺 = (rec((𝑥 ∈ V ↦ (𝑥 + 1)), 𝐶) ↾ ω)
29	27, 28	om2uz0i 13982	. . . 4 ⊢ (𝐺‘∅) = 𝐶
30	26	fveq2i 6885	. . . . 5 ⊢ (2nd ‘(𝑅‘∅)) = (2nd ‘⟨𝐶, 𝐴⟩)
31	27	elexi 3485	. . . . . 6 ⊢ 𝐶 ∈ V
32		uzrdg.1	. . . . . 6 ⊢ 𝐴 ∈ V
33	31, 32	op2nd 7994	. . . . 5 ⊢ (2nd ‘⟨𝐶, 𝐴⟩) = 𝐴
34	30, 33	eqtri 2792	. . . 4 ⊢ (2nd ‘(𝑅‘∅)) = 𝐴
35	29, 34	opeq12i 4847	. . 3 ⊢ ⟨(𝐺‘∅), (2nd ‘(𝑅‘∅))⟩ = ⟨𝐶, 𝐴⟩
36	26, 35	eqtr4i 2795	. 2 ⊢ (𝑅‘∅) = ⟨(𝐺‘∅), (2nd ‘(𝑅‘∅))⟩
37		frsuc 8423	. . . . . 6 ⊢ (𝑣 ∈ ω → ((rec((𝑥 ∈ V, 𝑦 ∈ V ↦ ⟨(𝑥 + 1), (𝑥𝐹𝑦)⟩), ⟨𝐶, 𝐴⟩) ↾ ω)‘suc 𝑣) = ((𝑥 ∈ V, 𝑦 ∈ V ↦ ⟨(𝑥 + 1), (𝑥𝐹𝑦)⟩)‘((rec((𝑥 ∈ V, 𝑦 ∈ V ↦ ⟨(𝑥 + 1), (𝑥𝐹𝑦)⟩), ⟨𝐶, 𝐴⟩) ↾ ω)‘𝑣)))
38	21	fveq1i 6883	. . . . . 6 ⊢ (𝑅‘suc 𝑣) = ((rec((𝑥 ∈ V, 𝑦 ∈ V ↦ ⟨(𝑥 + 1), (𝑥𝐹𝑦)⟩), ⟨𝐶, 𝐴⟩) ↾ ω)‘suc 𝑣)
39	21	fveq1i 6883	. . . . . . 7 ⊢ (𝑅‘𝑣) = ((rec((𝑥 ∈ V, 𝑦 ∈ V ↦ ⟨(𝑥 + 1), (𝑥𝐹𝑦)⟩), ⟨𝐶, 𝐴⟩) ↾ ω)‘𝑣)
40	39	fveq2i 6885	. . . . . 6 ⊢ ((𝑥 ∈ V, 𝑦 ∈ V ↦ ⟨(𝑥 + 1), (𝑥𝐹𝑦)⟩)‘(𝑅‘𝑣)) = ((𝑥 ∈ V, 𝑦 ∈ V ↦ ⟨(𝑥 + 1), (𝑥𝐹𝑦)⟩)‘((rec((𝑥 ∈ V, 𝑦 ∈ V ↦ ⟨(𝑥 + 1), (𝑥𝐹𝑦)⟩), ⟨𝐶, 𝐴⟩) ↾ ω)‘𝑣))
41	37, 38, 40	3eqtr4g 2829	. . . . 5 ⊢ (𝑣 ∈ ω → (𝑅‘suc 𝑣) = ((𝑥 ∈ V, 𝑦 ∈ V ↦ ⟨(𝑥 + 1), (𝑥𝐹𝑦)⟩)‘(𝑅‘𝑣)))
42		fveq2 6882	. . . . . 6 ⊢ ((𝑅‘𝑣) = ⟨(𝐺‘𝑣), (2nd ‘(𝑅‘𝑣))⟩ → ((𝑥 ∈ V, 𝑦 ∈ V ↦ ⟨(𝑥 + 1), (𝑥𝐹𝑦)⟩)‘(𝑅‘𝑣)) = ((𝑥 ∈ V, 𝑦 ∈ V ↦ ⟨(𝑥 + 1), (𝑥𝐹𝑦)⟩)‘⟨(𝐺‘𝑣), (2nd ‘(𝑅‘𝑣))⟩))
43		df-ov 7414	. . . . . . 7 ⊢ ((𝐺‘𝑣)(𝑥 ∈ V, 𝑦 ∈ V ↦ ⟨(𝑥 + 1), (𝑥𝐹𝑦)⟩)(2nd ‘(𝑅‘𝑣))) = ((𝑥 ∈ V, 𝑦 ∈ V ↦ ⟨(𝑥 + 1), (𝑥𝐹𝑦)⟩)‘⟨(𝐺‘𝑣), (2nd ‘(𝑅‘𝑣))⟩)
44		fvex 6895	. . . . . . . 8 ⊢ (𝐺‘𝑣) ∈ V
45		fvex 6895	. . . . . . . 8 ⊢ (2nd ‘(𝑅‘𝑣)) ∈ V
46		oveq1 7418	. . . . . . . . . 10 ⊢ (𝑤 = (𝐺‘𝑣) → (𝑤 + 1) = ((𝐺‘𝑣) + 1))
47		oveq1 7418	. . . . . . . . . 10 ⊢ (𝑤 = (𝐺‘𝑣) → (𝑤𝐹𝑧) = ((𝐺‘𝑣)𝐹𝑧))
48	46, 47	opeq12d 4850	. . . . . . . . 9 ⊢ (𝑤 = (𝐺‘𝑣) → ⟨(𝑤 + 1), (𝑤𝐹𝑧)⟩ = ⟨((𝐺‘𝑣) + 1), ((𝐺‘𝑣)𝐹𝑧)⟩)
49		oveq2 7419	. . . . . . . . . 10 ⊢ (𝑧 = (2nd ‘(𝑅‘𝑣)) → ((𝐺‘𝑣)𝐹𝑧) = ((𝐺‘𝑣)𝐹(2nd ‘(𝑅‘𝑣))))
50	49	opeq2d 4849	. . . . . . . . 9 ⊢ (𝑧 = (2nd ‘(𝑅‘𝑣)) → ⟨((𝐺‘𝑣) + 1), ((𝐺‘𝑣)𝐹𝑧)⟩ = ⟨((𝐺‘𝑣) + 1), ((𝐺‘𝑣)𝐹(2nd ‘(𝑅‘𝑣)))⟩)
51		oveq1 7418	. . . . . . . . . . 11 ⊢ (𝑥 = 𝑤 → (𝑥 + 1) = (𝑤 + 1))
52		oveq1 7418	. . . . . . . . . . 11 ⊢ (𝑥 = 𝑤 → (𝑥𝐹𝑦) = (𝑤𝐹𝑦))
53	51, 52	opeq12d 4850	. . . . . . . . . 10 ⊢ (𝑥 = 𝑤 → ⟨(𝑥 + 1), (𝑥𝐹𝑦)⟩ = ⟨(𝑤 + 1), (𝑤𝐹𝑦)⟩)
54		oveq2 7419	. . . . . . . . . . 11 ⊢ (𝑦 = 𝑧 → (𝑤𝐹𝑦) = (𝑤𝐹𝑧))
55	54	opeq2d 4849	. . . . . . . . . 10 ⊢ (𝑦 = 𝑧 → ⟨(𝑤 + 1), (𝑤𝐹𝑦)⟩ = ⟨(𝑤 + 1), (𝑤𝐹𝑧)⟩)
56	53, 55	cbvmpov 7506	. . . . . . . . 9 ⊢ (𝑥 ∈ V, 𝑦 ∈ V ↦ ⟨(𝑥 + 1), (𝑥𝐹𝑦)⟩) = (𝑤 ∈ V, 𝑧 ∈ V ↦ ⟨(𝑤 + 1), (𝑤𝐹𝑧)⟩)
57		opex 5446	. . . . . . . . 9 ⊢ ⟨((𝐺‘𝑣) + 1), ((𝐺‘𝑣)𝐹(2nd ‘(𝑅‘𝑣)))⟩ ∈ V
58	48, 50, 56, 57	ovmpo 7571	. . . . . . . 8 ⊢ (((𝐺‘𝑣) ∈ V ∧ (2nd ‘(𝑅‘𝑣)) ∈ V) → ((𝐺‘𝑣)(𝑥 ∈ V, 𝑦 ∈ V ↦ ⟨(𝑥 + 1), (𝑥𝐹𝑦)⟩)(2nd ‘(𝑅‘𝑣))) = ⟨((𝐺‘𝑣) + 1), ((𝐺‘𝑣)𝐹(2nd ‘(𝑅‘𝑣)))⟩)
59	44, 45, 58	mp2an 704	. . . . . . 7 ⊢ ((𝐺‘𝑣)(𝑥 ∈ V, 𝑦 ∈ V ↦ ⟨(𝑥 + 1), (𝑥𝐹𝑦)⟩)(2nd ‘(𝑅‘𝑣))) = ⟨((𝐺‘𝑣) + 1), ((𝐺‘𝑣)𝐹(2nd ‘(𝑅‘𝑣)))⟩
60	43, 59	eqtr3i 2794	. . . . . 6 ⊢ ((𝑥 ∈ V, 𝑦 ∈ V ↦ ⟨(𝑥 + 1), (𝑥𝐹𝑦)⟩)‘⟨(𝐺‘𝑣), (2nd ‘(𝑅‘𝑣))⟩) = ⟨((𝐺‘𝑣) + 1), ((𝐺‘𝑣)𝐹(2nd ‘(𝑅‘𝑣)))⟩
61	42, 60	eqtrdi 2820	. . . . 5 ⊢ ((𝑅‘𝑣) = ⟨(𝐺‘𝑣), (2nd ‘(𝑅‘𝑣))⟩ → ((𝑥 ∈ V, 𝑦 ∈ V ↦ ⟨(𝑥 + 1), (𝑥𝐹𝑦)⟩)‘(𝑅‘𝑣)) = ⟨((𝐺‘𝑣) + 1), ((𝐺‘𝑣)𝐹(2nd ‘(𝑅‘𝑣)))⟩)
62	41, 61	sylan9eq 2824	. . . 4 ⊢ ((𝑣 ∈ ω ∧ (𝑅‘𝑣) = ⟨(𝐺‘𝑣), (2nd ‘(𝑅‘𝑣))⟩) → (𝑅‘suc 𝑣) = ⟨((𝐺‘𝑣) + 1), ((𝐺‘𝑣)𝐹(2nd ‘(𝑅‘𝑣)))⟩)
63	27, 28	om2uzsuci 13983	. . . . . 6 ⊢ (𝑣 ∈ ω → (𝐺‘suc 𝑣) = ((𝐺‘𝑣) + 1))
64	63	adantr 485	. . . . 5 ⊢ ((𝑣 ∈ ω ∧ (𝑅‘𝑣) = ⟨(𝐺‘𝑣), (2nd ‘(𝑅‘𝑣))⟩) → (𝐺‘suc 𝑣) = ((𝐺‘𝑣) + 1))
65	62	fveq2d 6886	. . . . . 6 ⊢ ((𝑣 ∈ ω ∧ (𝑅‘𝑣) = ⟨(𝐺‘𝑣), (2nd ‘(𝑅‘𝑣))⟩) → (2nd ‘(𝑅‘suc 𝑣)) = (2nd ‘⟨((𝐺‘𝑣) + 1), ((𝐺‘𝑣)𝐹(2nd ‘(𝑅‘𝑣)))⟩))
66		ovex 7444	. . . . . . 7 ⊢ ((𝐺‘𝑣) + 1) ∈ V
67		ovex 7444	. . . . . . 7 ⊢ ((𝐺‘𝑣)𝐹(2nd ‘(𝑅‘𝑣))) ∈ V
68	66, 67	op2nd 7994	. . . . . 6 ⊢ (2nd ‘⟨((𝐺‘𝑣) + 1), ((𝐺‘𝑣)𝐹(2nd ‘(𝑅‘𝑣)))⟩) = ((𝐺‘𝑣)𝐹(2nd ‘(𝑅‘𝑣)))
69	65, 68	eqtrdi 2820	. . . . 5 ⊢ ((𝑣 ∈ ω ∧ (𝑅‘𝑣) = ⟨(𝐺‘𝑣), (2nd ‘(𝑅‘𝑣))⟩) → (2nd ‘(𝑅‘suc 𝑣)) = ((𝐺‘𝑣)𝐹(2nd ‘(𝑅‘𝑣))))
70	64, 69	opeq12d 4850	. . . 4 ⊢ ((𝑣 ∈ ω ∧ (𝑅‘𝑣) = ⟨(𝐺‘𝑣), (2nd ‘(𝑅‘𝑣))⟩) → ⟨(𝐺‘suc 𝑣), (2nd ‘(𝑅‘suc 𝑣))⟩ = ⟨((𝐺‘𝑣) + 1), ((𝐺‘𝑣)𝐹(2nd ‘(𝑅‘𝑣)))⟩)
71	62, 70	eqtr4d 2807	. . 3 ⊢ ((𝑣 ∈ ω ∧ (𝑅‘𝑣) = ⟨(𝐺‘𝑣), (2nd ‘(𝑅‘𝑣))⟩) → (𝑅‘suc 𝑣) = ⟨(𝐺‘suc 𝑣), (2nd ‘(𝑅‘suc 𝑣))⟩)
72	71	ex 417	. 2 ⊢ (𝑣 ∈ ω → ((𝑅‘𝑣) = ⟨(𝐺‘𝑣), (2nd ‘(𝑅‘𝑣))⟩ → (𝑅‘suc 𝑣) = ⟨(𝐺‘suc 𝑣), (2nd ‘(𝑅‘suc 𝑣))⟩))
73	5, 10, 15, 20, 36, 72	finds 7892	1 ⊢ (𝐵 ∈ ω → (𝑅‘𝐵) = ⟨(𝐺‘𝐵), (2nd ‘(𝑅‘𝐵))⟩)

Syntax hints:   → wi 4   ∧ wa 400   = wceq 1567   ∈ wcel 2149  Vcvv 3463  ∅c0 4294  ⟨cop 4600   ↦ cmpt 5196   ↾ cres 5664  suc csuc 6363  ‘cfv 6537  (class class class)co 7411   ∈ cmpo 7413  ωcom 7861  2^nd c2nd 7984  reccrdg 8395  1c1 11100   + caddc 11102  ℤcz 12590

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1822  ax-4 1836  ax-5 1937  ax-6 1994  ax-7 2035  ax-8 2151  ax-9 2159  ax-10 2182  ax-11 2198  ax-12 2219  ax-ext 2741  ax-sep 5261  ax-nul 5271  ax-pr 5405  ax-un 7733

This theorem depends on definitions:  df-bi 210  df-an 401  df-or 861  df-3or 1102  df-3an 1103  df-tru 1570  df-fal 1580  df-ex 1807  df-nf 1811  df-sb 2098  df-mo 2573  df-eu 2603  df-clab 2748  df-cleq 2761  df-clel 2844  df-nfc 2918  df-ne 2965  df-ral 3086  df-rex 3096  df-reu 3377  df-rab 3424  df-v 3465  df-sbc 3754  df-csb 3862  df-dif 3916  df-un 3918  df-in 3920  df-ss 3930  df-pss 3933  df-nul 4295  df-if 4493  df-pw 4569  df-sn 4595  df-pr 4597  df-op 4601  df-uni 4877  df-iun 4962  df-br 5114  df-opab 5178  df-mpt 5197  df-tr 5223  df-id 5557  df-eprel 5562  df-po 5570  df-so 5571  df-fr 5615  df-we 5617  df-xp 5668  df-rel 5669  df-cnv 5670  df-co 5671  df-dm 5672  df-rn 5673  df-res 5674  df-ima 5675  df-pred 6303  df-ord 6364  df-on 6365  df-lim 6366  df-suc 6367  df-iota 6493  df-fun 6539  df-fn 6540  df-f 6541  df-f1 6542  df-fo 6543  df-f1o 6544  df-fv 6545  df-ov 7414  df-oprab 7415  df-mpo 7416  df-om 7862  df-2nd 7986  df-frecs 8277  df-wrecs 8308  df-recs 8357  df-rdg 8396

This theorem is referenced by:  uzrdglem  13992  uzrdgfni  13993  uzrdgsuci  13995