hashgadd - Metamath Proof Explorer

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

Theorem hashgadd 14277

Description: 𝐺 maps ordinal addition to integer addition. (Contributed by Paul Chapman, 30-Nov-2012.) (Revised by Mario Carneiro, 15-Sep-2013.)

**Hypothesis**
Ref	Expression
hashgadd.1	⊢ 𝐺 = (rec((𝑥 ∈ V ↦ (𝑥 + 1)), 0) ↾ ω)

**Assertion**
Ref	Expression
hashgadd	⊢ ((𝐴 ∈ ω ∧ 𝐵 ∈ ω) → (𝐺‘(𝐴 +_o 𝐵)) = ((𝐺‘𝐴) + (𝐺‘𝐵)))

Proof of Theorem hashgadd Dummy variables 𝑛 𝑧 are mutually distinct and distinct from all other variables.

Step	Hyp	Ref	Expression
1		oveq2 7365	. . . . . 6 ⊢ (𝑛 = ∅ → (𝐴 +_o 𝑛) = (𝐴 +_o ∅))
2	1	fveq2d 6846	. . . . 5 ⊢ (𝑛 = ∅ → (𝐺‘(𝐴 +_o 𝑛)) = (𝐺‘(𝐴 +_o ∅)))
3		fveq2 6842	. . . . . 6 ⊢ (𝑛 = ∅ → (𝐺‘𝑛) = (𝐺‘∅))
4	3	oveq2d 7373	. . . . 5 ⊢ (𝑛 = ∅ → ((𝐺‘𝐴) + (𝐺‘𝑛)) = ((𝐺‘𝐴) + (𝐺‘∅)))
5	2, 4	eqeq12d 2752	. . . 4 ⊢ (𝑛 = ∅ → ((𝐺‘(𝐴 +_o 𝑛)) = ((𝐺‘𝐴) + (𝐺‘𝑛)) ↔ (𝐺‘(𝐴 +_o ∅)) = ((𝐺‘𝐴) + (𝐺‘∅))))
6	5	imbi2d 340	. . 3 ⊢ (𝑛 = ∅ → ((𝐴 ∈ ω → (𝐺‘(𝐴 +_o 𝑛)) = ((𝐺‘𝐴) + (𝐺‘𝑛))) ↔ (𝐴 ∈ ω → (𝐺‘(𝐴 +_o ∅)) = ((𝐺‘𝐴) + (𝐺‘∅)))))
7		oveq2 7365	. . . . . 6 ⊢ (𝑛 = 𝑧 → (𝐴 +_o 𝑛) = (𝐴 +_o 𝑧))
8	7	fveq2d 6846	. . . . 5 ⊢ (𝑛 = 𝑧 → (𝐺‘(𝐴 +_o 𝑛)) = (𝐺‘(𝐴 +_o 𝑧)))
9		fveq2 6842	. . . . . 6 ⊢ (𝑛 = 𝑧 → (𝐺‘𝑛) = (𝐺‘𝑧))
10	9	oveq2d 7373	. . . . 5 ⊢ (𝑛 = 𝑧 → ((𝐺‘𝐴) + (𝐺‘𝑛)) = ((𝐺‘𝐴) + (𝐺‘𝑧)))
11	8, 10	eqeq12d 2752	. . . 4 ⊢ (𝑛 = 𝑧 → ((𝐺‘(𝐴 +_o 𝑛)) = ((𝐺‘𝐴) + (𝐺‘𝑛)) ↔ (𝐺‘(𝐴 +_o 𝑧)) = ((𝐺‘𝐴) + (𝐺‘𝑧))))
12	11	imbi2d 340	. . 3 ⊢ (𝑛 = 𝑧 → ((𝐴 ∈ ω → (𝐺‘(𝐴 +_o 𝑛)) = ((𝐺‘𝐴) + (𝐺‘𝑛))) ↔ (𝐴 ∈ ω → (𝐺‘(𝐴 +_o 𝑧)) = ((𝐺‘𝐴) + (𝐺‘𝑧)))))
13		oveq2 7365	. . . . . 6 ⊢ (𝑛 = suc 𝑧 → (𝐴 +_o 𝑛) = (𝐴 +_o suc 𝑧))
14	13	fveq2d 6846	. . . . 5 ⊢ (𝑛 = suc 𝑧 → (𝐺‘(𝐴 +_o 𝑛)) = (𝐺‘(𝐴 +_o suc 𝑧)))
15		fveq2 6842	. . . . . 6 ⊢ (𝑛 = suc 𝑧 → (𝐺‘𝑛) = (𝐺‘suc 𝑧))
16	15	oveq2d 7373	. . . . 5 ⊢ (𝑛 = suc 𝑧 → ((𝐺‘𝐴) + (𝐺‘𝑛)) = ((𝐺‘𝐴) + (𝐺‘suc 𝑧)))
17	14, 16	eqeq12d 2752	. . . 4 ⊢ (𝑛 = suc 𝑧 → ((𝐺‘(𝐴 +_o 𝑛)) = ((𝐺‘𝐴) + (𝐺‘𝑛)) ↔ (𝐺‘(𝐴 +_o suc 𝑧)) = ((𝐺‘𝐴) + (𝐺‘suc 𝑧))))
18	17	imbi2d 340	. . 3 ⊢ (𝑛 = suc 𝑧 → ((𝐴 ∈ ω → (𝐺‘(𝐴 +_o 𝑛)) = ((𝐺‘𝐴) + (𝐺‘𝑛))) ↔ (𝐴 ∈ ω → (𝐺‘(𝐴 +_o suc 𝑧)) = ((𝐺‘𝐴) + (𝐺‘suc 𝑧)))))
19		oveq2 7365	. . . . . 6 ⊢ (𝑛 = 𝐵 → (𝐴 +_o 𝑛) = (𝐴 +_o 𝐵))
20	19	fveq2d 6846	. . . . 5 ⊢ (𝑛 = 𝐵 → (𝐺‘(𝐴 +_o 𝑛)) = (𝐺‘(𝐴 +_o 𝐵)))
21		fveq2 6842	. . . . . 6 ⊢ (𝑛 = 𝐵 → (𝐺‘𝑛) = (𝐺‘𝐵))
22	21	oveq2d 7373	. . . . 5 ⊢ (𝑛 = 𝐵 → ((𝐺‘𝐴) + (𝐺‘𝑛)) = ((𝐺‘𝐴) + (𝐺‘𝐵)))
23	20, 22	eqeq12d 2752	. . . 4 ⊢ (𝑛 = 𝐵 → ((𝐺‘(𝐴 +_o 𝑛)) = ((𝐺‘𝐴) + (𝐺‘𝑛)) ↔ (𝐺‘(𝐴 +_o 𝐵)) = ((𝐺‘𝐴) + (𝐺‘𝐵))))
24	23	imbi2d 340	. . 3 ⊢ (𝑛 = 𝐵 → ((𝐴 ∈ ω → (𝐺‘(𝐴 +_o 𝑛)) = ((𝐺‘𝐴) + (𝐺‘𝑛))) ↔ (𝐴 ∈ ω → (𝐺‘(𝐴 +_o 𝐵)) = ((𝐺‘𝐴) + (𝐺‘𝐵)))))
25		hashgadd.1	. . . . . . . . 9 ⊢ 𝐺 = (rec((𝑥 ∈ V ↦ (𝑥 + 1)), 0) ↾ ω)
26	25	hashgf1o 13876	. . . . . . . 8 ⊢ 𝐺:ω–1-1-onto→ℕ₀
27		f1of 6784	. . . . . . . 8 ⊢ (𝐺:ω–1-1-onto→ℕ₀ → 𝐺:ω⟶ℕ₀)
28	26, 27	ax-mp 5	. . . . . . 7 ⊢ 𝐺:ω⟶ℕ₀
29	28	ffvelcdmi 7034	. . . . . 6 ⊢ (𝐴 ∈ ω → (𝐺‘𝐴) ∈ ℕ₀)
30	29	nn0cnd 12475	. . . . 5 ⊢ (𝐴 ∈ ω → (𝐺‘𝐴) ∈ ℂ)
31	30	addid1d 11355	. . . 4 ⊢ (𝐴 ∈ ω → ((𝐺‘𝐴) + 0) = (𝐺‘𝐴))
32		0z 12510	. . . . . . 7 ⊢ 0 ∈ ℤ
33	32, 25	om2uz0i 13852	. . . . . 6 ⊢ (𝐺‘∅) = 0
34	33	oveq2i 7368	. . . . 5 ⊢ ((𝐺‘𝐴) + (𝐺‘∅)) = ((𝐺‘𝐴) + 0)
35	34	a1i 11	. . . 4 ⊢ (𝐴 ∈ ω → ((𝐺‘𝐴) + (𝐺‘∅)) = ((𝐺‘𝐴) + 0))
36		nna0 8551	. . . . 5 ⊢ (𝐴 ∈ ω → (𝐴 +_o ∅) = 𝐴)
37	36	fveq2d 6846	. . . 4 ⊢ (𝐴 ∈ ω → (𝐺‘(𝐴 +_o ∅)) = (𝐺‘𝐴))
38	31, 35, 37	3eqtr4rd 2787	. . 3 ⊢ (𝐴 ∈ ω → (𝐺‘(𝐴 +_o ∅)) = ((𝐺‘𝐴) + (𝐺‘∅)))
39		nnasuc 8553	. . . . . . . . . 10 ⊢ ((𝐴 ∈ ω ∧ 𝑧 ∈ ω) → (𝐴 +_o suc 𝑧) = suc (𝐴 +_o 𝑧))
40	39	fveq2d 6846	. . . . . . . . 9 ⊢ ((𝐴 ∈ ω ∧ 𝑧 ∈ ω) → (𝐺‘(𝐴 +_o suc 𝑧)) = (𝐺‘suc (𝐴 +_o 𝑧)))
41		nnacl 8558	. . . . . . . . . 10 ⊢ ((𝐴 ∈ ω ∧ 𝑧 ∈ ω) → (𝐴 +_o 𝑧) ∈ ω)
42	32, 25	om2uzsuci 13853	. . . . . . . . . 10 ⊢ ((𝐴 +_o 𝑧) ∈ ω → (𝐺‘suc (𝐴 +_o 𝑧)) = ((𝐺‘(𝐴 +_o 𝑧)) + 1))
43	41, 42	syl 17	. . . . . . . . 9 ⊢ ((𝐴 ∈ ω ∧ 𝑧 ∈ ω) → (𝐺‘suc (𝐴 +_o 𝑧)) = ((𝐺‘(𝐴 +_o 𝑧)) + 1))
44	40, 43	eqtrd 2776	. . . . . . . 8 ⊢ ((𝐴 ∈ ω ∧ 𝑧 ∈ ω) → (𝐺‘(𝐴 +_o suc 𝑧)) = ((𝐺‘(𝐴 +_o 𝑧)) + 1))
45	44	3adant3 1132	. . . . . . 7 ⊢ ((𝐴 ∈ ω ∧ 𝑧 ∈ ω ∧ (𝐺‘(𝐴 +_o 𝑧)) = ((𝐺‘𝐴) + (𝐺‘𝑧))) → (𝐺‘(𝐴 +_o suc 𝑧)) = ((𝐺‘(𝐴 +_o 𝑧)) + 1))
46	28	ffvelcdmi 7034	. . . . . . . . . . 11 ⊢ (𝑧 ∈ ω → (𝐺‘𝑧) ∈ ℕ₀)
47	46	nn0cnd 12475	. . . . . . . . . 10 ⊢ (𝑧 ∈ ω → (𝐺‘𝑧) ∈ ℂ)
48		ax-1cn 11109	. . . . . . . . . . 11 ⊢ 1 ∈ ℂ
49		addass 11138	. . . . . . . . . . 11 ⊢ (((𝐺‘𝐴) ∈ ℂ ∧ (𝐺‘𝑧) ∈ ℂ ∧ 1 ∈ ℂ) → (((𝐺‘𝐴) + (𝐺‘𝑧)) + 1) = ((𝐺‘𝐴) + ((𝐺‘𝑧) + 1)))
50	48, 49	mp3an3 1450	. . . . . . . . . 10 ⊢ (((𝐺‘𝐴) ∈ ℂ ∧ (𝐺‘𝑧) ∈ ℂ) → (((𝐺‘𝐴) + (𝐺‘𝑧)) + 1) = ((𝐺‘𝐴) + ((𝐺‘𝑧) + 1)))
51	30, 47, 50	syl2an 596	. . . . . . . . 9 ⊢ ((𝐴 ∈ ω ∧ 𝑧 ∈ ω) → (((𝐺‘𝐴) + (𝐺‘𝑧)) + 1) = ((𝐺‘𝐴) + ((𝐺‘𝑧) + 1)))
52	51	3adant3 1132	. . . . . . . 8 ⊢ ((𝐴 ∈ ω ∧ 𝑧 ∈ ω ∧ (𝐺‘(𝐴 +_o 𝑧)) = ((𝐺‘𝐴) + (𝐺‘𝑧))) → (((𝐺‘𝐴) + (𝐺‘𝑧)) + 1) = ((𝐺‘𝐴) + ((𝐺‘𝑧) + 1)))
53		oveq1 7364	. . . . . . . . 9 ⊢ ((𝐺‘(𝐴 +_o 𝑧)) = ((𝐺‘𝐴) + (𝐺‘𝑧)) → ((𝐺‘(𝐴 +_o 𝑧)) + 1) = (((𝐺‘𝐴) + (𝐺‘𝑧)) + 1))
54	53	3ad2ant3 1135	. . . . . . . 8 ⊢ ((𝐴 ∈ ω ∧ 𝑧 ∈ ω ∧ (𝐺‘(𝐴 +_o 𝑧)) = ((𝐺‘𝐴) + (𝐺‘𝑧))) → ((𝐺‘(𝐴 +_o 𝑧)) + 1) = (((𝐺‘𝐴) + (𝐺‘𝑧)) + 1))
55	32, 25	om2uzsuci 13853	. . . . . . . . . 10 ⊢ (𝑧 ∈ ω → (𝐺‘suc 𝑧) = ((𝐺‘𝑧) + 1))
56	55	oveq2d 7373	. . . . . . . . 9 ⊢ (𝑧 ∈ ω → ((𝐺‘𝐴) + (𝐺‘suc 𝑧)) = ((𝐺‘𝐴) + ((𝐺‘𝑧) + 1)))
57	56	3ad2ant2 1134	. . . . . . . 8 ⊢ ((𝐴 ∈ ω ∧ 𝑧 ∈ ω ∧ (𝐺‘(𝐴 +_o 𝑧)) = ((𝐺‘𝐴) + (𝐺‘𝑧))) → ((𝐺‘𝐴) + (𝐺‘suc 𝑧)) = ((𝐺‘𝐴) + ((𝐺‘𝑧) + 1)))
58	52, 54, 57	3eqtr4d 2786	. . . . . . 7 ⊢ ((𝐴 ∈ ω ∧ 𝑧 ∈ ω ∧ (𝐺‘(𝐴 +_o 𝑧)) = ((𝐺‘𝐴) + (𝐺‘𝑧))) → ((𝐺‘(𝐴 +_o 𝑧)) + 1) = ((𝐺‘𝐴) + (𝐺‘suc 𝑧)))
59	45, 58	eqtrd 2776	. . . . . 6 ⊢ ((𝐴 ∈ ω ∧ 𝑧 ∈ ω ∧ (𝐺‘(𝐴 +_o 𝑧)) = ((𝐺‘𝐴) + (𝐺‘𝑧))) → (𝐺‘(𝐴 +_o suc 𝑧)) = ((𝐺‘𝐴) + (𝐺‘suc 𝑧)))
60	59	3expia 1121	. . . . 5 ⊢ ((𝐴 ∈ ω ∧ 𝑧 ∈ ω) → ((𝐺‘(𝐴 +_o 𝑧)) = ((𝐺‘𝐴) + (𝐺‘𝑧)) → (𝐺‘(𝐴 +_o suc 𝑧)) = ((𝐺‘𝐴) + (𝐺‘suc 𝑧))))
61	60	expcom 414	. . . 4 ⊢ (𝑧 ∈ ω → (𝐴 ∈ ω → ((𝐺‘(𝐴 +_o 𝑧)) = ((𝐺‘𝐴) + (𝐺‘𝑧)) → (𝐺‘(𝐴 +_o suc 𝑧)) = ((𝐺‘𝐴) + (𝐺‘suc 𝑧)))))
62	61	a2d 29	. . 3 ⊢ (𝑧 ∈ ω → ((𝐴 ∈ ω → (𝐺‘(𝐴 +_o 𝑧)) = ((𝐺‘𝐴) + (𝐺‘𝑧))) → (𝐴 ∈ ω → (𝐺‘(𝐴 +_o suc 𝑧)) = ((𝐺‘𝐴) + (𝐺‘suc 𝑧)))))
63	6, 12, 18, 24, 38, 62	finds 7835	. 2 ⊢ (𝐵 ∈ ω → (𝐴 ∈ ω → (𝐺‘(𝐴 +_o 𝐵)) = ((𝐺‘𝐴) + (𝐺‘𝐵))))
64	63	impcom 408	1 ⊢ ((𝐴 ∈ ω ∧ 𝐵 ∈ ω) → (𝐺‘(𝐴 +_o 𝐵)) = ((𝐺‘𝐴) + (𝐺‘𝐵)))

Colors of variables: wff setvar class

Syntax hints: → wi 4 ∧ wa 396 ∧ w3a 1087 = wceq 1541 ∈ wcel 2106 Vcvv 3445 ∅c0 4282 ↦ cmpt 5188 ↾ cres 5635 suc csuc 6319 ⟶wf 6492 –1-1-onto→wf1o 6495 ‘cfv 6496 (class class class)co 7357 ωcom 7802 reccrdg 8355 +_o coa 8409 ℂcc 11049 0cc0 11051 1c1 11052 + caddc 11054 ℕ₀cn0 12413

This theorem was proved from axioms: ax-mp 5 ax-1 6 ax-2 7 ax-3 8 ax-gen 1797 ax-4 1811 ax-5 1913 ax-6 1971 ax-7 2011 ax-8 2108 ax-9 2116 ax-10 2137 ax-11 2154 ax-12 2171 ax-ext 2707 ax-sep 5256 ax-nul 5263 ax-pow 5320 ax-pr 5384 ax-un 7672 ax-cnex 11107 ax-resscn 11108 ax-1cn 11109 ax-icn 11110 ax-addcl 11111 ax-addrcl 11112 ax-mulcl 11113 ax-mulrcl 11114 ax-mulcom 11115 ax-addass 11116 ax-mulass 11117 ax-distr 11118 ax-i2m1 11119 ax-1ne0 11120 ax-1rid 11121 ax-rnegex 11122 ax-rrecex 11123 ax-cnre 11124 ax-pre-lttri 11125 ax-pre-lttrn 11126 ax-pre-ltadd 11127 ax-pre-mulgt0 11128

This theorem depends on definitions: df-bi 206 df-an 397 df-or 846 df-3or 1088 df-3an 1089 df-tru 1544 df-fal 1554 df-ex 1782 df-nf 1786 df-sb 2068 df-mo 2538 df-eu 2567 df-clab 2714 df-cleq 2728 df-clel 2814 df-nfc 2889 df-ne 2944 df-nel 3050 df-ral 3065 df-rex 3074 df-reu 3354 df-rab 3408 df-v 3447 df-sbc 3740 df-csb 3856 df-dif 3913 df-un 3915 df-in 3917 df-ss 3927 df-pss 3929 df-nul 4283 df-if 4487 df-pw 4562 df-sn 4587 df-pr 4589 df-op 4593 df-uni 4866 df-iun 4956 df-br 5106 df-opab 5168 df-mpt 5189 df-tr 5223 df-id 5531 df-eprel 5537 df-po 5545 df-so 5546 df-fr 5588 df-we 5590 df-xp 5639 df-rel 5640 df-cnv 5641 df-co 5642 df-dm 5643 df-rn 5644 df-res 5645 df-ima 5646 df-pred 6253 df-ord 6320 df-on 6321 df-lim 6322 df-suc 6323 df-iota 6448 df-fun 6498 df-fn 6499 df-f 6500 df-f1 6501 df-fo 6502 df-f1o 6503 df-fv 6504 df-riota 7313 df-ov 7360 df-oprab 7361 df-mpo 7362 df-om 7803 df-2nd 7922 df-frecs 8212 df-wrecs 8243 df-recs 8317 df-rdg 8356 df-oadd 8416 df-er 8648 df-en 8884 df-dom 8885 df-sdom 8886 df-pnf 11191 df-mnf 11192 df-xr 11193 df-ltxr 11194 df-le 11195 df-sub 11387 df-neg 11388 df-nn 12154 df-n0 12414 df-z 12500 df-uz 12764

This theorem is referenced by: hashdom 14279 hashun 14282

W3C validator