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

Theorem om2uzrdg 13074
Description: A helper lemma for the value of a recursive definition generator on upper integers (typically either or 0) 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.
StepHypRef Expression
1 fveq2 6446 . . 3 (𝑧 = ∅ → (𝑅𝑧) = (𝑅‘∅))
2 fveq2 6446 . . . 4 (𝑧 = ∅ → (𝐺𝑧) = (𝐺‘∅))
3 2fveq3 6451 . . . 4 (𝑧 = ∅ → (2nd ‘(𝑅𝑧)) = (2nd ‘(𝑅‘∅)))
42, 3opeq12d 4644 . . 3 (𝑧 = ∅ → ⟨(𝐺𝑧), (2nd ‘(𝑅𝑧))⟩ = ⟨(𝐺‘∅), (2nd ‘(𝑅‘∅))⟩)
51, 4eqeq12d 2792 . 2 (𝑧 = ∅ → ((𝑅𝑧) = ⟨(𝐺𝑧), (2nd ‘(𝑅𝑧))⟩ ↔ (𝑅‘∅) = ⟨(𝐺‘∅), (2nd ‘(𝑅‘∅))⟩))
6 fveq2 6446 . . 3 (𝑧 = 𝑣 → (𝑅𝑧) = (𝑅𝑣))
7 fveq2 6446 . . . 4 (𝑧 = 𝑣 → (𝐺𝑧) = (𝐺𝑣))
8 2fveq3 6451 . . . 4 (𝑧 = 𝑣 → (2nd ‘(𝑅𝑧)) = (2nd ‘(𝑅𝑣)))
97, 8opeq12d 4644 . . 3 (𝑧 = 𝑣 → ⟨(𝐺𝑧), (2nd ‘(𝑅𝑧))⟩ = ⟨(𝐺𝑣), (2nd ‘(𝑅𝑣))⟩)
106, 9eqeq12d 2792 . 2 (𝑧 = 𝑣 → ((𝑅𝑧) = ⟨(𝐺𝑧), (2nd ‘(𝑅𝑧))⟩ ↔ (𝑅𝑣) = ⟨(𝐺𝑣), (2nd ‘(𝑅𝑣))⟩))
11 fveq2 6446 . . 3 (𝑧 = suc 𝑣 → (𝑅𝑧) = (𝑅‘suc 𝑣))
12 fveq2 6446 . . . 4 (𝑧 = suc 𝑣 → (𝐺𝑧) = (𝐺‘suc 𝑣))
13 2fveq3 6451 . . . 4 (𝑧 = suc 𝑣 → (2nd ‘(𝑅𝑧)) = (2nd ‘(𝑅‘suc 𝑣)))
1412, 13opeq12d 4644 . . 3 (𝑧 = suc 𝑣 → ⟨(𝐺𝑧), (2nd ‘(𝑅𝑧))⟩ = ⟨(𝐺‘suc 𝑣), (2nd ‘(𝑅‘suc 𝑣))⟩)
1511, 14eqeq12d 2792 . 2 (𝑧 = suc 𝑣 → ((𝑅𝑧) = ⟨(𝐺𝑧), (2nd ‘(𝑅𝑧))⟩ ↔ (𝑅‘suc 𝑣) = ⟨(𝐺‘suc 𝑣), (2nd ‘(𝑅‘suc 𝑣))⟩))
16 fveq2 6446 . . 3 (𝑧 = 𝐵 → (𝑅𝑧) = (𝑅𝐵))
17 fveq2 6446 . . . 4 (𝑧 = 𝐵 → (𝐺𝑧) = (𝐺𝐵))
18 2fveq3 6451 . . . 4 (𝑧 = 𝐵 → (2nd ‘(𝑅𝑧)) = (2nd ‘(𝑅𝐵)))
1917, 18opeq12d 4644 . . 3 (𝑧 = 𝐵 → ⟨(𝐺𝑧), (2nd ‘(𝑅𝑧))⟩ = ⟨(𝐺𝐵), (2nd ‘(𝑅𝐵))⟩)
2016, 19eqeq12d 2792 . 2 (𝑧 = 𝐵 → ((𝑅𝑧) = ⟨(𝐺𝑧), (2nd ‘(𝑅𝑧))⟩ ↔ (𝑅𝐵) = ⟨(𝐺𝐵), (2nd ‘(𝑅𝐵))⟩))
21 uzrdg.2 . . . . 5 𝑅 = (rec((𝑥 ∈ V, 𝑦 ∈ V ↦ ⟨(𝑥 + 1), (𝑥𝐹𝑦)⟩), ⟨𝐶, 𝐴⟩) ↾ ω)
2221fveq1i 6447 . . . 4 (𝑅‘∅) = ((rec((𝑥 ∈ V, 𝑦 ∈ V ↦ ⟨(𝑥 + 1), (𝑥𝐹𝑦)⟩), ⟨𝐶, 𝐴⟩) ↾ ω)‘∅)
23 opex 5164 . . . . 5 𝐶, 𝐴⟩ ∈ V
24 fr0g 7814 . . . . 5 (⟨𝐶, 𝐴⟩ ∈ V → ((rec((𝑥 ∈ V, 𝑦 ∈ V ↦ ⟨(𝑥 + 1), (𝑥𝐹𝑦)⟩), ⟨𝐶, 𝐴⟩) ↾ ω)‘∅) = ⟨𝐶, 𝐴⟩)
2523, 24ax-mp 5 . . . 4 ((rec((𝑥 ∈ V, 𝑦 ∈ V ↦ ⟨(𝑥 + 1), (𝑥𝐹𝑦)⟩), ⟨𝐶, 𝐴⟩) ↾ ω)‘∅) = ⟨𝐶, 𝐴
2622, 25eqtri 2801 . . 3 (𝑅‘∅) = ⟨𝐶, 𝐴
27 om2uz.1 . . . . 5 𝐶 ∈ ℤ
28 om2uz.2 . . . . 5 𝐺 = (rec((𝑥 ∈ V ↦ (𝑥 + 1)), 𝐶) ↾ ω)
2927, 28om2uz0i 13065 . . . 4 (𝐺‘∅) = 𝐶
3026fveq2i 6449 . . . . 5 (2nd ‘(𝑅‘∅)) = (2nd ‘⟨𝐶, 𝐴⟩)
3127elexi 3414 . . . . . 6 𝐶 ∈ V
32 uzrdg.1 . . . . . 6 𝐴 ∈ V
3331, 32op2nd 7454 . . . . 5 (2nd ‘⟨𝐶, 𝐴⟩) = 𝐴
3430, 33eqtri 2801 . . . 4 (2nd ‘(𝑅‘∅)) = 𝐴
3529, 34opeq12i 4641 . . 3 ⟨(𝐺‘∅), (2nd ‘(𝑅‘∅))⟩ = ⟨𝐶, 𝐴
3626, 35eqtr4i 2804 . 2 (𝑅‘∅) = ⟨(𝐺‘∅), (2nd ‘(𝑅‘∅))⟩
37 frsuc 7815 . . . . . 6 (𝑣 ∈ ω → ((rec((𝑥 ∈ V, 𝑦 ∈ V ↦ ⟨(𝑥 + 1), (𝑥𝐹𝑦)⟩), ⟨𝐶, 𝐴⟩) ↾ ω)‘suc 𝑣) = ((𝑥 ∈ V, 𝑦 ∈ V ↦ ⟨(𝑥 + 1), (𝑥𝐹𝑦)⟩)‘((rec((𝑥 ∈ V, 𝑦 ∈ V ↦ ⟨(𝑥 + 1), (𝑥𝐹𝑦)⟩), ⟨𝐶, 𝐴⟩) ↾ ω)‘𝑣)))
3821fveq1i 6447 . . . . . 6 (𝑅‘suc 𝑣) = ((rec((𝑥 ∈ V, 𝑦 ∈ V ↦ ⟨(𝑥 + 1), (𝑥𝐹𝑦)⟩), ⟨𝐶, 𝐴⟩) ↾ ω)‘suc 𝑣)
3921fveq1i 6447 . . . . . . 7 (𝑅𝑣) = ((rec((𝑥 ∈ V, 𝑦 ∈ V ↦ ⟨(𝑥 + 1), (𝑥𝐹𝑦)⟩), ⟨𝐶, 𝐴⟩) ↾ ω)‘𝑣)
4039fveq2i 6449 . . . . . 6 ((𝑥 ∈ V, 𝑦 ∈ V ↦ ⟨(𝑥 + 1), (𝑥𝐹𝑦)⟩)‘(𝑅𝑣)) = ((𝑥 ∈ V, 𝑦 ∈ V ↦ ⟨(𝑥 + 1), (𝑥𝐹𝑦)⟩)‘((rec((𝑥 ∈ V, 𝑦 ∈ V ↦ ⟨(𝑥 + 1), (𝑥𝐹𝑦)⟩), ⟨𝐶, 𝐴⟩) ↾ ω)‘𝑣))
4137, 38, 403eqtr4g 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 (𝑤 = (𝐺𝑣) → (𝑤𝐹𝑧) = ((𝐺𝑣)𝐹𝑧))
4846, 47opeq12d 4644 . . . . . . . . 9 (𝑤 = (𝐺𝑣) → ⟨(𝑤 + 1), (𝑤𝐹𝑧)⟩ = ⟨((𝐺𝑣) + 1), ((𝐺𝑣)𝐹𝑧)⟩)
49 oveq2 6930 . . . . . . . . . 10 (𝑧 = (2nd ‘(𝑅𝑣)) → ((𝐺𝑣)𝐹𝑧) = ((𝐺𝑣)𝐹(2nd ‘(𝑅𝑣))))
5049opeq2d 4643 . . . . . . . . 9 (𝑧 = (2nd ‘(𝑅𝑣)) → ⟨((𝐺𝑣) + 1), ((𝐺𝑣)𝐹𝑧)⟩ = ⟨((𝐺𝑣) + 1), ((𝐺𝑣)𝐹(2nd ‘(𝑅𝑣)))⟩)
51 oveq1 6929 . . . . . . . . . . 11 (𝑥 = 𝑤 → (𝑥 + 1) = (𝑤 + 1))
52 oveq1 6929 . . . . . . . . . . 11 (𝑥 = 𝑤 → (𝑥𝐹𝑦) = (𝑤𝐹𝑦))
5351, 52opeq12d 4644 . . . . . . . . . 10 (𝑥 = 𝑤 → ⟨(𝑥 + 1), (𝑥𝐹𝑦)⟩ = ⟨(𝑤 + 1), (𝑤𝐹𝑦)⟩)
54 oveq2 6930 . . . . . . . . . . 11 (𝑦 = 𝑧 → (𝑤𝐹𝑦) = (𝑤𝐹𝑧))
5554opeq2d 4643 . . . . . . . . . 10 (𝑦 = 𝑧 → ⟨(𝑤 + 1), (𝑤𝐹𝑦)⟩ = ⟨(𝑤 + 1), (𝑤𝐹𝑧)⟩)
5653, 55cbvmpt2v 7012 . . . . . . . . 9 (𝑥 ∈ V, 𝑦 ∈ V ↦ ⟨(𝑥 + 1), (𝑥𝐹𝑦)⟩) = (𝑤 ∈ V, 𝑧 ∈ V ↦ ⟨(𝑤 + 1), (𝑤𝐹𝑧)⟩)
57 opex 5164 . . . . . . . . 9 ⟨((𝐺𝑣) + 1), ((𝐺𝑣)𝐹(2nd ‘(𝑅𝑣)))⟩ ∈ V
5848, 50, 56, 57ovmpt2 7073 . . . . . . . 8 (((𝐺𝑣) ∈ V ∧ (2nd ‘(𝑅𝑣)) ∈ V) → ((𝐺𝑣)(𝑥 ∈ V, 𝑦 ∈ V ↦ ⟨(𝑥 + 1), (𝑥𝐹𝑦)⟩)(2nd ‘(𝑅𝑣))) = ⟨((𝐺𝑣) + 1), ((𝐺𝑣)𝐹(2nd ‘(𝑅𝑣)))⟩)
5944, 45, 58mp2an 682 . . . . . . 7 ((𝐺𝑣)(𝑥 ∈ V, 𝑦 ∈ V ↦ ⟨(𝑥 + 1), (𝑥𝐹𝑦)⟩)(2nd ‘(𝑅𝑣))) = ⟨((𝐺𝑣) + 1), ((𝐺𝑣)𝐹(2nd ‘(𝑅𝑣)))⟩
6043, 59eqtr3i 2803 . . . . . 6 ((𝑥 ∈ V, 𝑦 ∈ V ↦ ⟨(𝑥 + 1), (𝑥𝐹𝑦)⟩)‘⟨(𝐺𝑣), (2nd ‘(𝑅𝑣))⟩) = ⟨((𝐺𝑣) + 1), ((𝐺𝑣)𝐹(2nd ‘(𝑅𝑣)))⟩
6142, 60syl6eq 2829 . . . . 5 ((𝑅𝑣) = ⟨(𝐺𝑣), (2nd ‘(𝑅𝑣))⟩ → ((𝑥 ∈ V, 𝑦 ∈ V ↦ ⟨(𝑥 + 1), (𝑥𝐹𝑦)⟩)‘(𝑅𝑣)) = ⟨((𝐺𝑣) + 1), ((𝐺𝑣)𝐹(2nd ‘(𝑅𝑣)))⟩)
6241, 61sylan9eq 2833 . . . 4 ((𝑣 ∈ ω ∧ (𝑅𝑣) = ⟨(𝐺𝑣), (2nd ‘(𝑅𝑣))⟩) → (𝑅‘suc 𝑣) = ⟨((𝐺𝑣) + 1), ((𝐺𝑣)𝐹(2nd ‘(𝑅𝑣)))⟩)
6327, 28om2uzsuci 13066 . . . . . 6 (𝑣 ∈ ω → (𝐺‘suc 𝑣) = ((𝐺𝑣) + 1))
6463adantr 474 . . . . 5 ((𝑣 ∈ ω ∧ (𝑅𝑣) = ⟨(𝐺𝑣), (2nd ‘(𝑅𝑣))⟩) → (𝐺‘suc 𝑣) = ((𝐺𝑣) + 1))
6562fveq2d 6450 . . . . . 6 ((𝑣 ∈ ω ∧ (𝑅𝑣) = ⟨(𝐺𝑣), (2nd ‘(𝑅𝑣))⟩) → (2nd ‘(𝑅‘suc 𝑣)) = (2nd ‘⟨((𝐺𝑣) + 1), ((𝐺𝑣)𝐹(2nd ‘(𝑅𝑣)))⟩))
66 ovex 6954 . . . . . . 7 ((𝐺𝑣) + 1) ∈ V
67 ovex 6954 . . . . . . 7 ((𝐺𝑣)𝐹(2nd ‘(𝑅𝑣))) ∈ V
6866, 67op2nd 7454 . . . . . 6 (2nd ‘⟨((𝐺𝑣) + 1), ((𝐺𝑣)𝐹(2nd ‘(𝑅𝑣)))⟩) = ((𝐺𝑣)𝐹(2nd ‘(𝑅𝑣)))
6965, 68syl6eq 2829 . . . . 5 ((𝑣 ∈ ω ∧ (𝑅𝑣) = ⟨(𝐺𝑣), (2nd ‘(𝑅𝑣))⟩) → (2nd ‘(𝑅‘suc 𝑣)) = ((𝐺𝑣)𝐹(2nd ‘(𝑅𝑣))))
7064, 69opeq12d 4644 . . . 4 ((𝑣 ∈ ω ∧ (𝑅𝑣) = ⟨(𝐺𝑣), (2nd ‘(𝑅𝑣))⟩) → ⟨(𝐺‘suc 𝑣), (2nd ‘(𝑅‘suc 𝑣))⟩ = ⟨((𝐺𝑣) + 1), ((𝐺𝑣)𝐹(2nd ‘(𝑅𝑣)))⟩)
7162, 70eqtr4d 2816 . . 3 ((𝑣 ∈ ω ∧ (𝑅𝑣) = ⟨(𝐺𝑣), (2nd ‘(𝑅𝑣))⟩) → (𝑅‘suc 𝑣) = ⟨(𝐺‘suc 𝑣), (2nd ‘(𝑅‘suc 𝑣))⟩)
7271ex 403 . 2 (𝑣 ∈ ω → ((𝑅𝑣) = ⟨(𝐺𝑣), (2nd ‘(𝑅𝑣))⟩ → (𝑅‘suc 𝑣) = ⟨(𝐺‘suc 𝑣), (2nd ‘(𝑅‘suc 𝑣))⟩))
735, 10, 15, 20, 36, 72finds 7370 1 (𝐵 ∈ ω → (𝑅𝐵) = ⟨(𝐺𝐵), (2nd ‘(𝑅𝐵))⟩)
Colors of variables: wff setvar class
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  2nd 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
  Copyright terms: Public domain W3C validator