Step | Hyp | Ref
| Expression |
1 | | oveq2 5882 |
. . . . . 6
β’ (π = β
β (π΄ +o π) = (π΄ +o β
)) |
2 | 1 | fveq2d 5519 |
. . . . 5
β’ (π = β
β (πΊβ(π΄ +o π)) = (πΊβ(π΄ +o β
))) |
3 | | fveq2 5515 |
. . . . . 6
β’ (π = β
β (πΊβπ) = (πΊββ
)) |
4 | 3 | oveq2d 5890 |
. . . . 5
β’ (π = β
β ((πΊβπ΄) + (πΊβπ)) = ((πΊβπ΄) + (πΊββ
))) |
5 | 2, 4 | eqeq12d 2192 |
. . . 4
β’ (π = β
β ((πΊβ(π΄ +o π)) = ((πΊβπ΄) + (πΊβπ)) β (πΊβ(π΄ +o β
)) = ((πΊβπ΄) + (πΊββ
)))) |
6 | 5 | imbi2d 230 |
. . 3
β’ (π = β
β ((π΄ β Ο β (πΊβ(π΄ +o π)) = ((πΊβπ΄) + (πΊβπ))) β (π΄ β Ο β (πΊβ(π΄ +o β
)) = ((πΊβπ΄) + (πΊββ
))))) |
7 | | oveq2 5882 |
. . . . . 6
β’ (π = π§ β (π΄ +o π) = (π΄ +o π§)) |
8 | 7 | fveq2d 5519 |
. . . . 5
β’ (π = π§ β (πΊβ(π΄ +o π)) = (πΊβ(π΄ +o π§))) |
9 | | fveq2 5515 |
. . . . . 6
β’ (π = π§ β (πΊβπ) = (πΊβπ§)) |
10 | 9 | oveq2d 5890 |
. . . . 5
β’ (π = π§ β ((πΊβπ΄) + (πΊβπ)) = ((πΊβπ΄) + (πΊβπ§))) |
11 | 8, 10 | eqeq12d 2192 |
. . . 4
β’ (π = π§ β ((πΊβ(π΄ +o π)) = ((πΊβπ΄) + (πΊβπ)) β (πΊβ(π΄ +o π§)) = ((πΊβπ΄) + (πΊβπ§)))) |
12 | 11 | imbi2d 230 |
. . 3
β’ (π = π§ β ((π΄ β Ο β (πΊβ(π΄ +o π)) = ((πΊβπ΄) + (πΊβπ))) β (π΄ β Ο β (πΊβ(π΄ +o π§)) = ((πΊβπ΄) + (πΊβπ§))))) |
13 | | oveq2 5882 |
. . . . . 6
β’ (π = suc π§ β (π΄ +o π) = (π΄ +o suc π§)) |
14 | 13 | fveq2d 5519 |
. . . . 5
β’ (π = suc π§ β (πΊβ(π΄ +o π)) = (πΊβ(π΄ +o suc π§))) |
15 | | fveq2 5515 |
. . . . . 6
β’ (π = suc π§ β (πΊβπ) = (πΊβsuc π§)) |
16 | 15 | oveq2d 5890 |
. . . . 5
β’ (π = suc π§ β ((πΊβπ΄) + (πΊβπ)) = ((πΊβπ΄) + (πΊβsuc π§))) |
17 | 14, 16 | eqeq12d 2192 |
. . . 4
β’ (π = suc π§ β ((πΊβ(π΄ +o π)) = ((πΊβπ΄) + (πΊβπ)) β (πΊβ(π΄ +o suc π§)) = ((πΊβπ΄) + (πΊβsuc π§)))) |
18 | 17 | imbi2d 230 |
. . 3
β’ (π = suc π§ β ((π΄ β Ο β (πΊβ(π΄ +o π)) = ((πΊβπ΄) + (πΊβπ))) β (π΄ β Ο β (πΊβ(π΄ +o suc π§)) = ((πΊβπ΄) + (πΊβsuc π§))))) |
19 | | oveq2 5882 |
. . . . . 6
β’ (π = π΅ β (π΄ +o π) = (π΄ +o π΅)) |
20 | 19 | fveq2d 5519 |
. . . . 5
β’ (π = π΅ β (πΊβ(π΄ +o π)) = (πΊβ(π΄ +o π΅))) |
21 | | fveq2 5515 |
. . . . . 6
β’ (π = π΅ β (πΊβπ) = (πΊβπ΅)) |
22 | 21 | oveq2d 5890 |
. . . . 5
β’ (π = π΅ β ((πΊβπ΄) + (πΊβπ)) = ((πΊβπ΄) + (πΊβπ΅))) |
23 | 20, 22 | eqeq12d 2192 |
. . . 4
β’ (π = π΅ β ((πΊβ(π΄ +o π)) = ((πΊβπ΄) + (πΊβπ)) β (πΊβ(π΄ +o π΅)) = ((πΊβπ΄) + (πΊβπ΅)))) |
24 | 23 | imbi2d 230 |
. . 3
β’ (π = π΅ β ((π΄ β Ο β (πΊβ(π΄ +o π)) = ((πΊβπ΄) + (πΊβπ))) β (π΄ β Ο β (πΊβ(π΄ +o π΅)) = ((πΊβπ΄) + (πΊβπ΅))))) |
25 | | omgadd.1 |
. . . . . . . . 9
β’ πΊ = frec((π₯ β β€ β¦ (π₯ + 1)), 0) |
26 | 25 | frechashgf1o 10427 |
. . . . . . . 8
β’ πΊ:Οβ1-1-ontoββ0 |
27 | | f1of 5461 |
. . . . . . . 8
β’ (πΊ:Οβ1-1-ontoββ0 β πΊ:ΟβΆβ0) |
28 | 26, 27 | ax-mp 5 |
. . . . . . 7
β’ πΊ:ΟβΆβ0 |
29 | 28 | ffvelcdmi 5650 |
. . . . . 6
β’ (π΄ β Ο β (πΊβπ΄) β
β0) |
30 | 29 | nn0cnd 9230 |
. . . . 5
β’ (π΄ β Ο β (πΊβπ΄) β β) |
31 | 30 | addid1d 8105 |
. . . 4
β’ (π΄ β Ο β ((πΊβπ΄) + 0) = (πΊβπ΄)) |
32 | | 0zd 9264 |
. . . . . 6
β’ (π΄ β Ο β 0 β
β€) |
33 | 32, 25 | frec2uz0d 10398 |
. . . . 5
β’ (π΄ β Ο β (πΊββ
) =
0) |
34 | 33 | oveq2d 5890 |
. . . 4
β’ (π΄ β Ο β ((πΊβπ΄) + (πΊββ
)) = ((πΊβπ΄) + 0)) |
35 | | nna0 6474 |
. . . . 5
β’ (π΄ β Ο β (π΄ +o β
) = π΄) |
36 | 35 | fveq2d 5519 |
. . . 4
β’ (π΄ β Ο β (πΊβ(π΄ +o β
)) = (πΊβπ΄)) |
37 | 31, 34, 36 | 3eqtr4rd 2221 |
. . 3
β’ (π΄ β Ο β (πΊβ(π΄ +o β
)) = ((πΊβπ΄) + (πΊββ
))) |
38 | | nnasuc 6476 |
. . . . . . . . . 10
β’ ((π΄ β Ο β§ π§ β Ο) β (π΄ +o suc π§) = suc (π΄ +o π§)) |
39 | 38 | fveq2d 5519 |
. . . . . . . . 9
β’ ((π΄ β Ο β§ π§ β Ο) β (πΊβ(π΄ +o suc π§)) = (πΊβsuc (π΄ +o π§))) |
40 | | 0zd 9264 |
. . . . . . . . . 10
β’ ((π΄ β Ο β§ π§ β Ο) β 0 β
β€) |
41 | | nnacl 6480 |
. . . . . . . . . 10
β’ ((π΄ β Ο β§ π§ β Ο) β (π΄ +o π§) β
Ο) |
42 | 40, 25, 41 | frec2uzsucd 10400 |
. . . . . . . . 9
β’ ((π΄ β Ο β§ π§ β Ο) β (πΊβsuc (π΄ +o π§)) = ((πΊβ(π΄ +o π§)) + 1)) |
43 | 39, 42 | eqtrd 2210 |
. . . . . . . 8
β’ ((π΄ β Ο β§ π§ β Ο) β (πΊβ(π΄ +o suc π§)) = ((πΊβ(π΄ +o π§)) + 1)) |
44 | 43 | 3adant3 1017 |
. . . . . . 7
β’ ((π΄ β Ο β§ π§ β Ο β§ (πΊβ(π΄ +o π§)) = ((πΊβπ΄) + (πΊβπ§))) β (πΊβ(π΄ +o suc π§)) = ((πΊβ(π΄ +o π§)) + 1)) |
45 | 30 | 3ad2ant1 1018 |
. . . . . . . . 9
β’ ((π΄ β Ο β§ π§ β Ο β§ (πΊβ(π΄ +o π§)) = ((πΊβπ΄) + (πΊβπ§))) β (πΊβπ΄) β β) |
46 | 28 | ffvelcdmi 5650 |
. . . . . . . . . . 11
β’ (π§ β Ο β (πΊβπ§) β
β0) |
47 | 46 | nn0cnd 9230 |
. . . . . . . . . 10
β’ (π§ β Ο β (πΊβπ§) β β) |
48 | 47 | 3ad2ant2 1019 |
. . . . . . . . 9
β’ ((π΄ β Ο β§ π§ β Ο β§ (πΊβ(π΄ +o π§)) = ((πΊβπ΄) + (πΊβπ§))) β (πΊβπ§) β β) |
49 | | 1cnd 7972 |
. . . . . . . . 9
β’ ((π΄ β Ο β§ π§ β Ο β§ (πΊβ(π΄ +o π§)) = ((πΊβπ΄) + (πΊβπ§))) β 1 β β) |
50 | 45, 48, 49 | addassd 7979 |
. . . . . . . 8
β’ ((π΄ β Ο β§ π§ β Ο β§ (πΊβ(π΄ +o π§)) = ((πΊβπ΄) + (πΊβπ§))) β (((πΊβπ΄) + (πΊβπ§)) + 1) = ((πΊβπ΄) + ((πΊβπ§) + 1))) |
51 | | oveq1 5881 |
. . . . . . . . 9
β’ ((πΊβ(π΄ +o π§)) = ((πΊβπ΄) + (πΊβπ§)) β ((πΊβ(π΄ +o π§)) + 1) = (((πΊβπ΄) + (πΊβπ§)) + 1)) |
52 | 51 | 3ad2ant3 1020 |
. . . . . . . 8
β’ ((π΄ β Ο β§ π§ β Ο β§ (πΊβ(π΄ +o π§)) = ((πΊβπ΄) + (πΊβπ§))) β ((πΊβ(π΄ +o π§)) + 1) = (((πΊβπ΄) + (πΊβπ§)) + 1)) |
53 | | 0zd 9264 |
. . . . . . . . . . 11
β’ (π§ β Ο β 0 β
β€) |
54 | | id 19 |
. . . . . . . . . . 11
β’ (π§ β Ο β π§ β
Ο) |
55 | 53, 25, 54 | frec2uzsucd 10400 |
. . . . . . . . . 10
β’ (π§ β Ο β (πΊβsuc π§) = ((πΊβπ§) + 1)) |
56 | 55 | oveq2d 5890 |
. . . . . . . . 9
β’ (π§ β Ο β ((πΊβπ΄) + (πΊβsuc π§)) = ((πΊβπ΄) + ((πΊβπ§) + 1))) |
57 | 56 | 3ad2ant2 1019 |
. . . . . . . 8
β’ ((π΄ β Ο β§ π§ β Ο β§ (πΊβ(π΄ +o π§)) = ((πΊβπ΄) + (πΊβπ§))) β ((πΊβπ΄) + (πΊβsuc π§)) = ((πΊβπ΄) + ((πΊβπ§) + 1))) |
58 | 50, 52, 57 | 3eqtr4d 2220 |
. . . . . . 7
β’ ((π΄ β Ο β§ π§ β Ο β§ (πΊβ(π΄ +o π§)) = ((πΊβπ΄) + (πΊβπ§))) β ((πΊβ(π΄ +o π§)) + 1) = ((πΊβπ΄) + (πΊβsuc π§))) |
59 | 44, 58 | eqtrd 2210 |
. . . . . 6
β’ ((π΄ β Ο β§ π§ β Ο β§ (πΊβ(π΄ +o π§)) = ((πΊβπ΄) + (πΊβπ§))) β (πΊβ(π΄ +o suc π§)) = ((πΊβπ΄) + (πΊβsuc π§))) |
60 | 59 | 3expia 1205 |
. . . . 5
β’ ((π΄ β Ο β§ π§ β Ο) β ((πΊβ(π΄ +o π§)) = ((πΊβπ΄) + (πΊβπ§)) β (πΊβ(π΄ +o suc π§)) = ((πΊβπ΄) + (πΊβsuc π§)))) |
61 | 60 | expcom 116 |
. . . 4
β’ (π§ β Ο β (π΄ β Ο β ((πΊβ(π΄ +o π§)) = ((πΊβπ΄) + (πΊβπ§)) β (πΊβ(π΄ +o suc π§)) = ((πΊβπ΄) + (πΊβsuc π§))))) |
62 | 61 | a2d 26 |
. . 3
β’ (π§ β Ο β ((π΄ β Ο β (πΊβ(π΄ +o π§)) = ((πΊβπ΄) + (πΊβπ§))) β (π΄ β Ο β (πΊβ(π΄ +o suc π§)) = ((πΊβπ΄) + (πΊβsuc π§))))) |
63 | 6, 12, 18, 24, 37, 62 | finds 4599 |
. 2
β’ (π΅ β Ο β (π΄ β Ο β (πΊβ(π΄ +o π΅)) = ((πΊβπ΄) + (πΊβπ΅)))) |
64 | 63 | impcom 125 |
1
β’ ((π΄ β Ο β§ π΅ β Ο) β (πΊβ(π΄ +o π΅)) = ((πΊβπ΄) + (πΊβπ΅))) |