omgadd - Intuitionistic Logic Explorer

	Intuitionistic Logic Explorer		< Previous Next > Nearby theorems
Mirrors > Home > ILE Home > Th. List > omgadd		GIF version

Theorem omgadd 10325

Description: Mapping ordinal addition to integer addition. (Contributed by Jim Kingdon, 24-Feb-2022.)

**Hypothesis**
Ref	Expression
omgadd.1	⊢ 𝐺 = frec((𝑥 ∈ ℤ ↦ (𝑥 + 1)), 0)

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

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

Step	Hyp	Ref	Expression
1		oveq2 5698	. . . . . 6 ⊢ (𝑛 = ∅ → (𝐴 +_o 𝑛) = (𝐴 +_o ∅))
2	1	fveq2d 5344	. . . . 5 ⊢ (𝑛 = ∅ → (𝐺‘(𝐴 +_o 𝑛)) = (𝐺‘(𝐴 +_o ∅)))
3		fveq2 5340	. . . . . 6 ⊢ (𝑛 = ∅ → (𝐺‘𝑛) = (𝐺‘∅))
4	3	oveq2d 5706	. . . . 5 ⊢ (𝑛 = ∅ → ((𝐺‘𝐴) + (𝐺‘𝑛)) = ((𝐺‘𝐴) + (𝐺‘∅)))
5	2, 4	eqeq12d 2109	. . . 4 ⊢ (𝑛 = ∅ → ((𝐺‘(𝐴 +_o 𝑛)) = ((𝐺‘𝐴) + (𝐺‘𝑛)) ↔ (𝐺‘(𝐴 +_o ∅)) = ((𝐺‘𝐴) + (𝐺‘∅))))
6	5	imbi2d 229	. . 3 ⊢ (𝑛 = ∅ → ((𝐴 ∈ ω → (𝐺‘(𝐴 +_o 𝑛)) = ((𝐺‘𝐴) + (𝐺‘𝑛))) ↔ (𝐴 ∈ ω → (𝐺‘(𝐴 +_o ∅)) = ((𝐺‘𝐴) + (𝐺‘∅)))))
7		oveq2 5698	. . . . . 6 ⊢ (𝑛 = 𝑧 → (𝐴 +_o 𝑛) = (𝐴 +_o 𝑧))
8	7	fveq2d 5344	. . . . 5 ⊢ (𝑛 = 𝑧 → (𝐺‘(𝐴 +_o 𝑛)) = (𝐺‘(𝐴 +_o 𝑧)))
9		fveq2 5340	. . . . . 6 ⊢ (𝑛 = 𝑧 → (𝐺‘𝑛) = (𝐺‘𝑧))
10	9	oveq2d 5706	. . . . 5 ⊢ (𝑛 = 𝑧 → ((𝐺‘𝐴) + (𝐺‘𝑛)) = ((𝐺‘𝐴) + (𝐺‘𝑧)))
11	8, 10	eqeq12d 2109	. . . 4 ⊢ (𝑛 = 𝑧 → ((𝐺‘(𝐴 +_o 𝑛)) = ((𝐺‘𝐴) + (𝐺‘𝑛)) ↔ (𝐺‘(𝐴 +_o 𝑧)) = ((𝐺‘𝐴) + (𝐺‘𝑧))))
12	11	imbi2d 229	. . 3 ⊢ (𝑛 = 𝑧 → ((𝐴 ∈ ω → (𝐺‘(𝐴 +_o 𝑛)) = ((𝐺‘𝐴) + (𝐺‘𝑛))) ↔ (𝐴 ∈ ω → (𝐺‘(𝐴 +_o 𝑧)) = ((𝐺‘𝐴) + (𝐺‘𝑧)))))
13		oveq2 5698	. . . . . 6 ⊢ (𝑛 = suc 𝑧 → (𝐴 +_o 𝑛) = (𝐴 +_o suc 𝑧))
14	13	fveq2d 5344	. . . . 5 ⊢ (𝑛 = suc 𝑧 → (𝐺‘(𝐴 +_o 𝑛)) = (𝐺‘(𝐴 +_o suc 𝑧)))
15		fveq2 5340	. . . . . 6 ⊢ (𝑛 = suc 𝑧 → (𝐺‘𝑛) = (𝐺‘suc 𝑧))
16	15	oveq2d 5706	. . . . 5 ⊢ (𝑛 = suc 𝑧 → ((𝐺‘𝐴) + (𝐺‘𝑛)) = ((𝐺‘𝐴) + (𝐺‘suc 𝑧)))
17	14, 16	eqeq12d 2109	. . . 4 ⊢ (𝑛 = suc 𝑧 → ((𝐺‘(𝐴 +_o 𝑛)) = ((𝐺‘𝐴) + (𝐺‘𝑛)) ↔ (𝐺‘(𝐴 +_o suc 𝑧)) = ((𝐺‘𝐴) + (𝐺‘suc 𝑧))))
18	17	imbi2d 229	. . 3 ⊢ (𝑛 = suc 𝑧 → ((𝐴 ∈ ω → (𝐺‘(𝐴 +_o 𝑛)) = ((𝐺‘𝐴) + (𝐺‘𝑛))) ↔ (𝐴 ∈ ω → (𝐺‘(𝐴 +_o suc 𝑧)) = ((𝐺‘𝐴) + (𝐺‘suc 𝑧)))))
19		oveq2 5698	. . . . . 6 ⊢ (𝑛 = 𝐵 → (𝐴 +_o 𝑛) = (𝐴 +_o 𝐵))
20	19	fveq2d 5344	. . . . 5 ⊢ (𝑛 = 𝐵 → (𝐺‘(𝐴 +_o 𝑛)) = (𝐺‘(𝐴 +_o 𝐵)))
21		fveq2 5340	. . . . . 6 ⊢ (𝑛 = 𝐵 → (𝐺‘𝑛) = (𝐺‘𝐵))
22	21	oveq2d 5706	. . . . 5 ⊢ (𝑛 = 𝐵 → ((𝐺‘𝐴) + (𝐺‘𝑛)) = ((𝐺‘𝐴) + (𝐺‘𝐵)))
23	20, 22	eqeq12d 2109	. . . 4 ⊢ (𝑛 = 𝐵 → ((𝐺‘(𝐴 +_o 𝑛)) = ((𝐺‘𝐴) + (𝐺‘𝑛)) ↔ (𝐺‘(𝐴 +_o 𝐵)) = ((𝐺‘𝐴) + (𝐺‘𝐵))))
24	23	imbi2d 229	. . 3 ⊢ (𝑛 = 𝐵 → ((𝐴 ∈ ω → (𝐺‘(𝐴 +_o 𝑛)) = ((𝐺‘𝐴) + (𝐺‘𝑛))) ↔ (𝐴 ∈ ω → (𝐺‘(𝐴 +_o 𝐵)) = ((𝐺‘𝐴) + (𝐺‘𝐵)))))
25		omgadd.1	. . . . . . . . 9 ⊢ 𝐺 = frec((𝑥 ∈ ℤ ↦ (𝑥 + 1)), 0)
26	25	frechashgf1o 9984	. . . . . . . 8 ⊢ 𝐺:ω–1-1-onto→ℕ₀
27		f1of 5288	. . . . . . . 8 ⊢ (𝐺:ω–1-1-onto→ℕ₀ → 𝐺:ω⟶ℕ₀)
28	26, 27	ax-mp 7	. . . . . . 7 ⊢ 𝐺:ω⟶ℕ₀
29	28	ffvelrni 5472	. . . . . 6 ⊢ (𝐴 ∈ ω → (𝐺‘𝐴) ∈ ℕ₀)
30	29	nn0cnd 8826	. . . . 5 ⊢ (𝐴 ∈ ω → (𝐺‘𝐴) ∈ ℂ)
31	30	addid1d 7728	. . . 4 ⊢ (𝐴 ∈ ω → ((𝐺‘𝐴) + 0) = (𝐺‘𝐴))
32		0zd 8860	. . . . . 6 ⊢ (𝐴 ∈ ω → 0 ∈ ℤ)
33	32, 25	frec2uz0d 9955	. . . . 5 ⊢ (𝐴 ∈ ω → (𝐺‘∅) = 0)
34	33	oveq2d 5706	. . . 4 ⊢ (𝐴 ∈ ω → ((𝐺‘𝐴) + (𝐺‘∅)) = ((𝐺‘𝐴) + 0))
35		nna0 6275	. . . . 5 ⊢ (𝐴 ∈ ω → (𝐴 +_o ∅) = 𝐴)
36	35	fveq2d 5344	. . . 4 ⊢ (𝐴 ∈ ω → (𝐺‘(𝐴 +_o ∅)) = (𝐺‘𝐴))
37	31, 34, 36	3eqtr4rd 2138	. . 3 ⊢ (𝐴 ∈ ω → (𝐺‘(𝐴 +_o ∅)) = ((𝐺‘𝐴) + (𝐺‘∅)))
38		nnasuc 6277	. . . . . . . . . 10 ⊢ ((𝐴 ∈ ω ∧ 𝑧 ∈ ω) → (𝐴 +_o suc 𝑧) = suc (𝐴 +_o 𝑧))
39	38	fveq2d 5344	. . . . . . . . 9 ⊢ ((𝐴 ∈ ω ∧ 𝑧 ∈ ω) → (𝐺‘(𝐴 +_o suc 𝑧)) = (𝐺‘suc (𝐴 +_o 𝑧)))
40		0zd 8860	. . . . . . . . . 10 ⊢ ((𝐴 ∈ ω ∧ 𝑧 ∈ ω) → 0 ∈ ℤ)
41		nnacl 6281	. . . . . . . . . 10 ⊢ ((𝐴 ∈ ω ∧ 𝑧 ∈ ω) → (𝐴 +_o 𝑧) ∈ ω)
42	40, 25, 41	frec2uzsucd 9957	. . . . . . . . 9 ⊢ ((𝐴 ∈ ω ∧ 𝑧 ∈ ω) → (𝐺‘suc (𝐴 +_o 𝑧)) = ((𝐺‘(𝐴 +_o 𝑧)) + 1))
43	39, 42	eqtrd 2127	. . . . . . . 8 ⊢ ((𝐴 ∈ ω ∧ 𝑧 ∈ ω) → (𝐺‘(𝐴 +_o suc 𝑧)) = ((𝐺‘(𝐴 +_o 𝑧)) + 1))
44	43	3adant3 966	. . . . . . 7 ⊢ ((𝐴 ∈ ω ∧ 𝑧 ∈ ω ∧ (𝐺‘(𝐴 +_o 𝑧)) = ((𝐺‘𝐴) + (𝐺‘𝑧))) → (𝐺‘(𝐴 +_o suc 𝑧)) = ((𝐺‘(𝐴 +_o 𝑧)) + 1))
45	30	3ad2ant1 967	. . . . . . . . 9 ⊢ ((𝐴 ∈ ω ∧ 𝑧 ∈ ω ∧ (𝐺‘(𝐴 +_o 𝑧)) = ((𝐺‘𝐴) + (𝐺‘𝑧))) → (𝐺‘𝐴) ∈ ℂ)
46	28	ffvelrni 5472	. . . . . . . . . . 11 ⊢ (𝑧 ∈ ω → (𝐺‘𝑧) ∈ ℕ₀)
47	46	nn0cnd 8826	. . . . . . . . . 10 ⊢ (𝑧 ∈ ω → (𝐺‘𝑧) ∈ ℂ)
48	47	3ad2ant2 968	. . . . . . . . 9 ⊢ ((𝐴 ∈ ω ∧ 𝑧 ∈ ω ∧ (𝐺‘(𝐴 +_o 𝑧)) = ((𝐺‘𝐴) + (𝐺‘𝑧))) → (𝐺‘𝑧) ∈ ℂ)
49		1cnd 7601	. . . . . . . . 9 ⊢ ((𝐴 ∈ ω ∧ 𝑧 ∈ ω ∧ (𝐺‘(𝐴 +_o 𝑧)) = ((𝐺‘𝐴) + (𝐺‘𝑧))) → 1 ∈ ℂ)
50	45, 48, 49	addassd 7607	. . . . . . . 8 ⊢ ((𝐴 ∈ ω ∧ 𝑧 ∈ ω ∧ (𝐺‘(𝐴 +_o 𝑧)) = ((𝐺‘𝐴) + (𝐺‘𝑧))) → (((𝐺‘𝐴) + (𝐺‘𝑧)) + 1) = ((𝐺‘𝐴) + ((𝐺‘𝑧) + 1)))
51		oveq1 5697	. . . . . . . . 9 ⊢ ((𝐺‘(𝐴 +_o 𝑧)) = ((𝐺‘𝐴) + (𝐺‘𝑧)) → ((𝐺‘(𝐴 +_o 𝑧)) + 1) = (((𝐺‘𝐴) + (𝐺‘𝑧)) + 1))
52	51	3ad2ant3 969	. . . . . . . 8 ⊢ ((𝐴 ∈ ω ∧ 𝑧 ∈ ω ∧ (𝐺‘(𝐴 +_o 𝑧)) = ((𝐺‘𝐴) + (𝐺‘𝑧))) → ((𝐺‘(𝐴 +_o 𝑧)) + 1) = (((𝐺‘𝐴) + (𝐺‘𝑧)) + 1))
53		0zd 8860	. . . . . . . . . . 11 ⊢ (𝑧 ∈ ω → 0 ∈ ℤ)
54		id 19	. . . . . . . . . . 11 ⊢ (𝑧 ∈ ω → 𝑧 ∈ ω)
55	53, 25, 54	frec2uzsucd 9957	. . . . . . . . . 10 ⊢ (𝑧 ∈ ω → (𝐺‘suc 𝑧) = ((𝐺‘𝑧) + 1))
56	55	oveq2d 5706	. . . . . . . . 9 ⊢ (𝑧 ∈ ω → ((𝐺‘𝐴) + (𝐺‘suc 𝑧)) = ((𝐺‘𝐴) + ((𝐺‘𝑧) + 1)))
57	56	3ad2ant2 968	. . . . . . . 8 ⊢ ((𝐴 ∈ ω ∧ 𝑧 ∈ ω ∧ (𝐺‘(𝐴 +_o 𝑧)) = ((𝐺‘𝐴) + (𝐺‘𝑧))) → ((𝐺‘𝐴) + (𝐺‘suc 𝑧)) = ((𝐺‘𝐴) + ((𝐺‘𝑧) + 1)))
58	50, 52, 57	3eqtr4d 2137	. . . . . . 7 ⊢ ((𝐴 ∈ ω ∧ 𝑧 ∈ ω ∧ (𝐺‘(𝐴 +_o 𝑧)) = ((𝐺‘𝐴) + (𝐺‘𝑧))) → ((𝐺‘(𝐴 +_o 𝑧)) + 1) = ((𝐺‘𝐴) + (𝐺‘suc 𝑧)))
59	44, 58	eqtrd 2127	. . . . . 6 ⊢ ((𝐴 ∈ ω ∧ 𝑧 ∈ ω ∧ (𝐺‘(𝐴 +_o 𝑧)) = ((𝐺‘𝐴) + (𝐺‘𝑧))) → (𝐺‘(𝐴 +_o suc 𝑧)) = ((𝐺‘𝐴) + (𝐺‘suc 𝑧)))
60	59	3expia 1148	. . . . 5 ⊢ ((𝐴 ∈ ω ∧ 𝑧 ∈ ω) → ((𝐺‘(𝐴 +_o 𝑧)) = ((𝐺‘𝐴) + (𝐺‘𝑧)) → (𝐺‘(𝐴 +_o suc 𝑧)) = ((𝐺‘𝐴) + (𝐺‘suc 𝑧))))
61	60	expcom 115	. . . 4 ⊢ (𝑧 ∈ ω → (𝐴 ∈ ω → ((𝐺‘(𝐴 +_o 𝑧)) = ((𝐺‘𝐴) + (𝐺‘𝑧)) → (𝐺‘(𝐴 +_o suc 𝑧)) = ((𝐺‘𝐴) + (𝐺‘suc 𝑧)))))
62	61	a2d 26	. . 3 ⊢ (𝑧 ∈ ω → ((𝐴 ∈ ω → (𝐺‘(𝐴 +_o 𝑧)) = ((𝐺‘𝐴) + (𝐺‘𝑧))) → (𝐴 ∈ ω → (𝐺‘(𝐴 +_o suc 𝑧)) = ((𝐺‘𝐴) + (𝐺‘suc 𝑧)))))
63	6, 12, 18, 24, 37, 62	finds 4443	. 2 ⊢ (𝐵 ∈ ω → (𝐴 ∈ ω → (𝐺‘(𝐴 +_o 𝐵)) = ((𝐺‘𝐴) + (𝐺‘𝐵))))
64	63	impcom 124	1 ⊢ ((𝐴 ∈ ω ∧ 𝐵 ∈ ω) → (𝐺‘(𝐴 +_o 𝐵)) = ((𝐺‘𝐴) + (𝐺‘𝐵)))

Colors of variables: wff set class

Syntax hints: → wi 4 ∧ wa 103 ∧ w3a 927 = wceq 1296 ∈ wcel 1445 ∅c0 3302 ↦ cmpt 3921 suc csuc 4216 ωcom 4433 ⟶wf 5045 –1-1-onto→wf1o 5048 ‘cfv 5049 (class class class)co 5690 freccfrec 6193 +_o coa 6216 ℂcc 7445 0cc0 7447 1c1 7448 + caddc 7450 ℕ₀cn0 8771 ℤcz 8848

This theorem was proved from axioms: ax-1 5 ax-2 6 ax-mp 7 ax-ia1 105 ax-ia2 106 ax-ia3 107 ax-in1 582 ax-in2 583 ax-io 668 ax-5 1388 ax-7 1389 ax-gen 1390 ax-ie1 1434 ax-ie2 1435 ax-8 1447 ax-10 1448 ax-11 1449 ax-i12 1450 ax-bndl 1451 ax-4 1452 ax-13 1456 ax-14 1457 ax-17 1471 ax-i9 1475 ax-ial 1479 ax-i5r 1480 ax-ext 2077 ax-coll 3975 ax-sep 3978 ax-nul 3986 ax-pow 4030 ax-pr 4060 ax-un 4284 ax-setind 4381 ax-iinf 4431 ax-cnex 7533 ax-resscn 7534 ax-1cn 7535 ax-1re 7536 ax-icn 7537 ax-addcl 7538 ax-addrcl 7539 ax-mulcl 7540 ax-addcom 7542 ax-addass 7544 ax-distr 7546 ax-i2m1 7547 ax-0lt1 7548 ax-0id 7550 ax-rnegex 7551 ax-cnre 7553 ax-pre-ltirr 7554 ax-pre-ltwlin 7555 ax-pre-lttrn 7556 ax-pre-ltadd 7558

This theorem depends on definitions: df-bi 116 df-3or 928 df-3an 929 df-tru 1299 df-fal 1302 df-nf 1402 df-sb 1700 df-eu 1958 df-mo 1959 df-clab 2082 df-cleq 2088 df-clel 2091 df-nfc 2224 df-ne 2263 df-nel 2358 df-ral 2375 df-rex 2376 df-reu 2377 df-rab 2379 df-v 2635 df-sbc 2855 df-csb 2948 df-dif 3015 df-un 3017 df-in 3019 df-ss 3026 df-nul 3303 df-pw 3451 df-sn 3472 df-pr 3473 df-op 3475 df-uni 3676 df-int 3711 df-iun 3754 df-br 3868 df-opab 3922 df-mpt 3923 df-tr 3959 df-id 4144 df-iord 4217 df-on 4219 df-ilim 4220 df-suc 4222 df-iom 4434 df-xp 4473 df-rel 4474 df-cnv 4475 df-co 4476 df-dm 4477 df-rn 4478 df-res 4479 df-ima 4480 df-iota 5014 df-fun 5051 df-fn 5052 df-f 5053 df-f1 5054 df-fo 5055 df-f1o 5056 df-fv 5057 df-riota 5646 df-ov 5693 df-oprab 5694 df-mpt2 5695 df-1st 5949 df-2nd 5950 df-recs 6108 df-irdg 6173 df-frec 6194 df-oadd 6223 df-pnf 7621 df-mnf 7622 df-xr 7623 df-ltxr 7624 df-le 7625 df-sub 7752 df-neg 7753 df-inn 8521 df-n0 8772 df-z 8849 df-uz 9119

This theorem is referenced by: hashun 10328

W3C validator