Theorem uzrdgxfr 13874

Description: Transfer the value of the recursive sequence builder from one base to another. (Contributed by Mario Carneiro, 1-Apr-2014.)

Hypotheses

Ref	Expression
uzrdgxfr.1	⊢ 𝐺 = (rec((𝑥 ∈ V ↦ (𝑥 + 1)), 𝐴) ↾ ω)
uzrdgxfr.2	⊢ 𝐻 = (rec((𝑥 ∈ V ↦ (𝑥 + 1)), 𝐵) ↾ ω)
uzrdgxfr.3	⊢ 𝐴 ∈ ℤ
uzrdgxfr.4	⊢ 𝐵 ∈ ℤ

Assertion

Ref	Expression
uzrdgxfr	⊢ (𝑁 ∈ ω → (𝐺‘𝑁) = ((𝐻‘𝑁) + (𝐴 − 𝐵)))

Distinct variable groups:   𝑥,𝐴   𝑥,𝐵

Allowed substitution hints:   𝐺(𝑥)   𝐻(𝑥)   𝑁(𝑥)

Proof of Theorem uzrdgxfr

Dummy variables 𝑘 𝑦 are mutually distinct and distinct from all other variables.

Step	Hyp	Ref	Expression
1		fveq2 6822	. . 3 ⊢ (𝑦 = ∅ → (𝐺‘𝑦) = (𝐺‘∅))
2		fveq2 6822	. . . 4 ⊢ (𝑦 = ∅ → (𝐻‘𝑦) = (𝐻‘∅))
3	2	oveq1d 7364	. . 3 ⊢ (𝑦 = ∅ → ((𝐻‘𝑦) + (𝐴 − 𝐵)) = ((𝐻‘∅) + (𝐴 − 𝐵)))
4	1, 3	eqeq12d 2745	. 2 ⊢ (𝑦 = ∅ → ((𝐺‘𝑦) = ((𝐻‘𝑦) + (𝐴 − 𝐵)) ↔ (𝐺‘∅) = ((𝐻‘∅) + (𝐴 − 𝐵))))
5		fveq2 6822	. . 3 ⊢ (𝑦 = 𝑘 → (𝐺‘𝑦) = (𝐺‘𝑘))
6		fveq2 6822	. . . 4 ⊢ (𝑦 = 𝑘 → (𝐻‘𝑦) = (𝐻‘𝑘))
7	6	oveq1d 7364	. . 3 ⊢ (𝑦 = 𝑘 → ((𝐻‘𝑦) + (𝐴 − 𝐵)) = ((𝐻‘𝑘) + (𝐴 − 𝐵)))
8	5, 7	eqeq12d 2745	. 2 ⊢ (𝑦 = 𝑘 → ((𝐺‘𝑦) = ((𝐻‘𝑦) + (𝐴 − 𝐵)) ↔ (𝐺‘𝑘) = ((𝐻‘𝑘) + (𝐴 − 𝐵))))
9		fveq2 6822	. . 3 ⊢ (𝑦 = suc 𝑘 → (𝐺‘𝑦) = (𝐺‘suc 𝑘))
10		fveq2 6822	. . . 4 ⊢ (𝑦 = suc 𝑘 → (𝐻‘𝑦) = (𝐻‘suc 𝑘))
11	10	oveq1d 7364	. . 3 ⊢ (𝑦 = suc 𝑘 → ((𝐻‘𝑦) + (𝐴 − 𝐵)) = ((𝐻‘suc 𝑘) + (𝐴 − 𝐵)))
12	9, 11	eqeq12d 2745	. 2 ⊢ (𝑦 = suc 𝑘 → ((𝐺‘𝑦) = ((𝐻‘𝑦) + (𝐴 − 𝐵)) ↔ (𝐺‘suc 𝑘) = ((𝐻‘suc 𝑘) + (𝐴 − 𝐵))))
13		fveq2 6822	. . 3 ⊢ (𝑦 = 𝑁 → (𝐺‘𝑦) = (𝐺‘𝑁))
14		fveq2 6822	. . . 4 ⊢ (𝑦 = 𝑁 → (𝐻‘𝑦) = (𝐻‘𝑁))
15	14	oveq1d 7364	. . 3 ⊢ (𝑦 = 𝑁 → ((𝐻‘𝑦) + (𝐴 − 𝐵)) = ((𝐻‘𝑁) + (𝐴 − 𝐵)))
16	13, 15	eqeq12d 2745	. 2 ⊢ (𝑦 = 𝑁 → ((𝐺‘𝑦) = ((𝐻‘𝑦) + (𝐴 − 𝐵)) ↔ (𝐺‘𝑁) = ((𝐻‘𝑁) + (𝐴 − 𝐵))))
17		uzrdgxfr.4	. . . . 5 ⊢ 𝐵 ∈ ℤ
18		zcn 12476	. . . . 5 ⊢ (𝐵 ∈ ℤ → 𝐵 ∈ ℂ)
19	17, 18	ax-mp 5	. . . 4 ⊢ 𝐵 ∈ ℂ
20		uzrdgxfr.3	. . . . 5 ⊢ 𝐴 ∈ ℤ
21		zcn 12476	. . . . 5 ⊢ (𝐴 ∈ ℤ → 𝐴 ∈ ℂ)
22	20, 21	ax-mp 5	. . . 4 ⊢ 𝐴 ∈ ℂ
23	19, 22	pncan3i 11441	. . 3 ⊢ (𝐵 + (𝐴 − 𝐵)) = 𝐴
24		uzrdgxfr.2	. . . . 5 ⊢ 𝐻 = (rec((𝑥 ∈ V ↦ (𝑥 + 1)), 𝐵) ↾ ω)
25	17, 24	om2uz0i 13854	. . . 4 ⊢ (𝐻‘∅) = 𝐵
26	25	oveq1i 7359	. . 3 ⊢ ((𝐻‘∅) + (𝐴 − 𝐵)) = (𝐵 + (𝐴 − 𝐵))
27		uzrdgxfr.1	. . . 4 ⊢ 𝐺 = (rec((𝑥 ∈ V ↦ (𝑥 + 1)), 𝐴) ↾ ω)
28	20, 27	om2uz0i 13854	. . 3 ⊢ (𝐺‘∅) = 𝐴
29	23, 26, 28	3eqtr4ri 2763	. 2 ⊢ (𝐺‘∅) = ((𝐻‘∅) + (𝐴 − 𝐵))
30		oveq1 7356	. . 3 ⊢ ((𝐺‘𝑘) = ((𝐻‘𝑘) + (𝐴 − 𝐵)) → ((𝐺‘𝑘) + 1) = (((𝐻‘𝑘) + (𝐴 − 𝐵)) + 1))
31	20, 27	om2uzsuci 13855	. . . 4 ⊢ (𝑘 ∈ ω → (𝐺‘suc 𝑘) = ((𝐺‘𝑘) + 1))
32	17, 24	om2uzsuci 13855	. . . . . 6 ⊢ (𝑘 ∈ ω → (𝐻‘suc 𝑘) = ((𝐻‘𝑘) + 1))
33	32	oveq1d 7364	. . . . 5 ⊢ (𝑘 ∈ ω → ((𝐻‘suc 𝑘) + (𝐴 − 𝐵)) = (((𝐻‘𝑘) + 1) + (𝐴 − 𝐵)))
34	17, 24	om2uzuzi 13856	. . . . . . . 8 ⊢ (𝑘 ∈ ω → (𝐻‘𝑘) ∈ (ℤ≥‘𝐵))
35		eluzelz 12745	. . . . . . . 8 ⊢ ((𝐻‘𝑘) ∈ (ℤ≥‘𝐵) → (𝐻‘𝑘) ∈ ℤ)
36	34, 35	syl 17	. . . . . . 7 ⊢ (𝑘 ∈ ω → (𝐻‘𝑘) ∈ ℤ)
37	36	zcnd 12581	. . . . . 6 ⊢ (𝑘 ∈ ω → (𝐻‘𝑘) ∈ ℂ)
38		ax-1cn 11067	. . . . . . 7 ⊢ 1 ∈ ℂ
39	22, 19	subcli 11440	. . . . . . 7 ⊢ (𝐴 − 𝐵) ∈ ℂ
40		add32 11335	. . . . . . 7 ⊢ (((𝐻‘𝑘) ∈ ℂ ∧ 1 ∈ ℂ ∧ (𝐴 − 𝐵) ∈ ℂ) → (((𝐻‘𝑘) + 1) + (𝐴 − 𝐵)) = (((𝐻‘𝑘) + (𝐴 − 𝐵)) + 1))
41	38, 39, 40	mp3an23 1455	. . . . . 6 ⊢ ((𝐻‘𝑘) ∈ ℂ → (((𝐻‘𝑘) + 1) + (𝐴 − 𝐵)) = (((𝐻‘𝑘) + (𝐴 − 𝐵)) + 1))
42	37, 41	syl 17	. . . . 5 ⊢ (𝑘 ∈ ω → (((𝐻‘𝑘) + 1) + (𝐴 − 𝐵)) = (((𝐻‘𝑘) + (𝐴 − 𝐵)) + 1))
43	33, 42	eqtrd 2764	. . . 4 ⊢ (𝑘 ∈ ω → ((𝐻‘suc 𝑘) + (𝐴 − 𝐵)) = (((𝐻‘𝑘) + (𝐴 − 𝐵)) + 1))
44	31, 43	eqeq12d 2745	. . 3 ⊢ (𝑘 ∈ ω → ((𝐺‘suc 𝑘) = ((𝐻‘suc 𝑘) + (𝐴 − 𝐵)) ↔ ((𝐺‘𝑘) + 1) = (((𝐻‘𝑘) + (𝐴 − 𝐵)) + 1)))
45	30, 44	imbitrrid 246	. 2 ⊢ (𝑘 ∈ ω → ((𝐺‘𝑘) = ((𝐻‘𝑘) + (𝐴 − 𝐵)) → (𝐺‘suc 𝑘) = ((𝐻‘suc 𝑘) + (𝐴 − 𝐵))))
46	4, 8, 12, 16, 29, 45	finds 7829	1 ⊢ (𝑁 ∈ ω → (𝐺‘𝑁) = ((𝐻‘𝑁) + (𝐴 − 𝐵)))

Syntax hints:   → wi 4   = wceq 1540   ∈ wcel 2109  Vcvv 3436  ∅c0 4284   ↦ cmpt 5173   ↾ cres 5621  suc csuc 6309  ‘cfv 6482  (class class class)co 7349  ωcom 7799  reccrdg 8331  ℂcc 11007  1c1 11010   + caddc 11012   − cmin 11347  ℤcz 12471  ℤ_≥cuz 12735

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-pow 5304  ax-pr 5371  ax-un 7671  ax-cnex 11065  ax-resscn 11066  ax-1cn 11067  ax-icn 11068  ax-addcl 11069  ax-addrcl 11070  ax-mulcl 11071  ax-mulrcl 11072  ax-mulcom 11073  ax-addass 11074  ax-mulass 11075  ax-distr 11076  ax-i2m1 11077  ax-1ne0 11078  ax-1rid 11079  ax-rnegex 11080  ax-rrecex 11081  ax-cnre 11082  ax-pre-lttri 11083  ax-pre-lttrn 11084  ax-pre-ltadd 11085  ax-pre-mulgt0 11086

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-nel 3030  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-riota 7306  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  df-er 8625  df-en 8873  df-dom 8874  df-sdom 8875  df-pnf 11151  df-mnf 11152  df-xr 11153  df-ltxr 11154  df-le 11155  df-sub 11349  df-neg 11350  df-nn 12129  df-n0 12385  df-z 12472  df-uz 12736

This theorem is referenced by:  fz1isolem  14368