Step | Hyp | Ref
| Expression |
1 | | goaln0 34373 |
. . 3
β’
(βπππ β (Fmlaβπ) β π β β
) |
2 | 1 | adantl 483 |
. 2
β’ ((π β Ο β§
βπππ β (Fmlaβπ)) β π β β
) |
3 | | nnsuc 7870 |
. . . 4
β’ ((π β Ο β§ π β β
) β
βπ β Ο
π = suc π) |
4 | | suceq 6428 |
. . . . . . . . . . 11
β’ (π₯ = β
β suc π₯ = suc β
) |
5 | 4 | fveq2d 6893 |
. . . . . . . . . 10
β’ (π₯ = β
β
(Fmlaβsuc π₯) =
(Fmlaβsuc β
)) |
6 | 5 | eleq2d 2820 |
. . . . . . . . 9
β’ (π₯ = β
β
(βπππ β (Fmlaβsuc π₯) β βπππ β (Fmlaβsuc
β
))) |
7 | 5 | eleq2d 2820 |
. . . . . . . . 9
β’ (π₯ = β
β (π β (Fmlaβsuc π₯) β π β (Fmlaβsuc
β
))) |
8 | 6, 7 | imbi12d 345 |
. . . . . . . 8
β’ (π₯ = β
β
((βπππ β (Fmlaβsuc π₯) β π β (Fmlaβsuc π₯)) β (βπππ β (Fmlaβsuc β
) β π β (Fmlaβsuc
β
)))) |
9 | | suceq 6428 |
. . . . . . . . . . 11
β’ (π₯ = π¦ β suc π₯ = suc π¦) |
10 | 9 | fveq2d 6893 |
. . . . . . . . . 10
β’ (π₯ = π¦ β (Fmlaβsuc π₯) = (Fmlaβsuc π¦)) |
11 | 10 | eleq2d 2820 |
. . . . . . . . 9
β’ (π₯ = π¦ β (βπππ β (Fmlaβsuc π₯) β βπππ β (Fmlaβsuc π¦))) |
12 | 10 | eleq2d 2820 |
. . . . . . . . 9
β’ (π₯ = π¦ β (π β (Fmlaβsuc π₯) β π β (Fmlaβsuc π¦))) |
13 | 11, 12 | imbi12d 345 |
. . . . . . . 8
β’ (π₯ = π¦ β ((βπππ β (Fmlaβsuc π₯) β π β (Fmlaβsuc π₯)) β (βπππ β (Fmlaβsuc π¦) β π β (Fmlaβsuc π¦)))) |
14 | | suceq 6428 |
. . . . . . . . . . 11
β’ (π₯ = suc π¦ β suc π₯ = suc suc π¦) |
15 | 14 | fveq2d 6893 |
. . . . . . . . . 10
β’ (π₯ = suc π¦ β (Fmlaβsuc π₯) = (Fmlaβsuc suc π¦)) |
16 | 15 | eleq2d 2820 |
. . . . . . . . 9
β’ (π₯ = suc π¦ β (βπππ β (Fmlaβsuc π₯) β βπππ β (Fmlaβsuc suc π¦))) |
17 | 15 | eleq2d 2820 |
. . . . . . . . 9
β’ (π₯ = suc π¦ β (π β (Fmlaβsuc π₯) β π β (Fmlaβsuc suc π¦))) |
18 | 16, 17 | imbi12d 345 |
. . . . . . . 8
β’ (π₯ = suc π¦ β ((βπππ β (Fmlaβsuc π₯) β π β (Fmlaβsuc π₯)) β (βπππ β (Fmlaβsuc suc π¦) β π β (Fmlaβsuc suc π¦)))) |
19 | | suceq 6428 |
. . . . . . . . . . 11
β’ (π₯ = π β suc π₯ = suc π) |
20 | 19 | fveq2d 6893 |
. . . . . . . . . 10
β’ (π₯ = π β (Fmlaβsuc π₯) = (Fmlaβsuc π)) |
21 | 20 | eleq2d 2820 |
. . . . . . . . 9
β’ (π₯ = π β (βπππ β (Fmlaβsuc π₯) β βπππ β (Fmlaβsuc π))) |
22 | 20 | eleq2d 2820 |
. . . . . . . . 9
β’ (π₯ = π β (π β (Fmlaβsuc π₯) β π β (Fmlaβsuc π))) |
23 | 21, 22 | imbi12d 345 |
. . . . . . . 8
β’ (π₯ = π β ((βπππ β (Fmlaβsuc π₯) β π β (Fmlaβsuc π₯)) β (βπππ β (Fmlaβsuc π) β π β (Fmlaβsuc π)))) |
24 | | peano1 7876 |
. . . . . . . . . 10
β’ β
β Ο |
25 | | df-goal 34322 |
. . . . . . . . . . 11
β’
βπππ = β¨2o, β¨π, πβ©β© |
26 | | opex 5464 |
. . . . . . . . . . 11
β’
β¨2o, β¨π, πβ©β© β V |
27 | 25, 26 | eqeltri 2830 |
. . . . . . . . . 10
β’
βπππ β V |
28 | | isfmlasuc 34368 |
. . . . . . . . . 10
β’ ((β
β Ο β§ βπππ β V) β
(βπππ β (Fmlaβsuc β
) β
(βπππ β (Fmlaββ
) β¨
βπ’ β
(Fmlaββ
)(βπ£ β
(Fmlaββ
)βπππ = (π’βΌππ£) β¨ βπ β Ο
βπππ = βπππ’)))) |
29 | 24, 27, 28 | mp2an 691 |
. . . . . . . . 9
β’
(βπππ β (Fmlaβsuc β
) β
(βπππ β (Fmlaββ
) β¨
βπ’ β
(Fmlaββ
)(βπ£ β
(Fmlaββ
)βπππ = (π’βΌππ£) β¨ βπ β Ο
βπππ = βπππ’))) |
30 | | eqeq1 2737 |
. . . . . . . . . . . . 13
β’ (π₯ =
βπππ β (π₯ = (πβππ) β βπππ = (πβππ))) |
31 | 30 | 2rexbidv 3220 |
. . . . . . . . . . . 12
β’ (π₯ =
βπππ β (βπ β Ο βπ β Ο π₯ = (πβππ) β βπ β Ο βπ β Ο
βπππ = (πβππ))) |
32 | | fmla0 34362 |
. . . . . . . . . . . 12
β’
(Fmlaββ
) = {π₯ β V β£ βπ β Ο βπ β Ο π₯ = (πβππ)} |
33 | 31, 32 | elrab2 3686 |
. . . . . . . . . . 11
β’
(βπππ β (Fmlaββ
) β
(βπππ β V β§ βπ β Ο βπ β Ο
βπππ = (πβππ))) |
34 | 25 | a1i 11 |
. . . . . . . . . . . . . . 15
β’ ((π β Ο β§ π β Ο) β
βπππ = β¨2o, β¨π, πβ©β©) |
35 | | goel 34327 |
. . . . . . . . . . . . . . 15
β’ ((π β Ο β§ π β Ο) β (πβππ) = β¨β
, β¨π, πβ©β©) |
36 | 34, 35 | eqeq12d 2749 |
. . . . . . . . . . . . . 14
β’ ((π β Ο β§ π β Ο) β
(βπππ = (πβππ) β β¨2o, β¨π, πβ©β© = β¨β
, β¨π, πβ©β©)) |
37 | | 2oex 8474 |
. . . . . . . . . . . . . . . 16
β’
2o β V |
38 | | opex 5464 |
. . . . . . . . . . . . . . . 16
β’
β¨π, πβ© β V |
39 | 37, 38 | opth 5476 |
. . . . . . . . . . . . . . 15
β’
(β¨2o, β¨π, πβ©β© = β¨β
, β¨π, πβ©β© β (2o = β
β§ β¨π, πβ© = β¨π, πβ©)) |
40 | | 2on0 8479 |
. . . . . . . . . . . . . . . . 17
β’
2o β β
|
41 | | eqneqall 2952 |
. . . . . . . . . . . . . . . . 17
β’
(2o = β
β (2o β β
β π β (Fmlaβsuc
β
))) |
42 | 40, 41 | mpi 20 |
. . . . . . . . . . . . . . . 16
β’
(2o = β
β π β (Fmlaβsuc
β
)) |
43 | 42 | adantr 482 |
. . . . . . . . . . . . . . 15
β’
((2o = β
β§ β¨π, πβ© = β¨π, πβ©) β π β (Fmlaβsuc
β
)) |
44 | 39, 43 | sylbi 216 |
. . . . . . . . . . . . . 14
β’
(β¨2o, β¨π, πβ©β© = β¨β
, β¨π, πβ©β© β π β (Fmlaβsuc
β
)) |
45 | 36, 44 | syl6bi 253 |
. . . . . . . . . . . . 13
β’ ((π β Ο β§ π β Ο) β
(βπππ = (πβππ) β π β (Fmlaβsuc
β
))) |
46 | 45 | rexlimdva 3156 |
. . . . . . . . . . . 12
β’ (π β Ο β
(βπ β Ο
βπππ = (πβππ) β π β (Fmlaβsuc
β
))) |
47 | 46 | rexlimiv 3149 |
. . . . . . . . . . 11
β’
(βπ β
Ο βπ β
Ο βπππ = (πβππ) β π β (Fmlaβsuc
β
)) |
48 | 33, 47 | simplbiim 506 |
. . . . . . . . . 10
β’
(βπππ β (Fmlaββ
) β π β (Fmlaβsuc
β
)) |
49 | | gonanegoal 34332 |
. . . . . . . . . . . . . . . 16
β’ (π’βΌππ£) β
βπππ |
50 | | eqneqall 2952 |
. . . . . . . . . . . . . . . 16
β’ ((π’βΌππ£) =
βπππ β ((π’βΌππ£) β βπππ β π β (Fmlaβsuc
β
))) |
51 | 49, 50 | mpi 20 |
. . . . . . . . . . . . . . 15
β’ ((π’βΌππ£) =
βπππ β π β (Fmlaβsuc
β
)) |
52 | 51 | eqcoms 2741 |
. . . . . . . . . . . . . 14
β’
(βπππ = (π’βΌππ£) β π β (Fmlaβsuc
β
)) |
53 | 52 | a1i 11 |
. . . . . . . . . . . . 13
β’ ((π’ β (Fmlaββ
)
β§ π£ β
(Fmlaββ
)) β (βπππ = (π’βΌππ£) β π β (Fmlaβsuc
β
))) |
54 | 53 | rexlimdva 3156 |
. . . . . . . . . . . 12
β’ (π’ β (Fmlaββ
)
β (βπ£ β
(Fmlaββ
)βπππ = (π’βΌππ£) β π β (Fmlaβsuc
β
))) |
55 | | df-goal 34322 |
. . . . . . . . . . . . . . 15
β’
βπππ’ = β¨2o, β¨π, π’β©β© |
56 | 25, 55 | eqeq12i 2751 |
. . . . . . . . . . . . . 14
β’
(βπππ = βπππ’ β β¨2o, β¨π, πβ©β© = β¨2o,
β¨π, π’β©β©) |
57 | 37, 38 | opth 5476 |
. . . . . . . . . . . . . . . . 17
β’
(β¨2o, β¨π, πβ©β© = β¨2o,
β¨π, π’β©β© β (2o =
2o β§ β¨π, πβ© = β¨π, π’β©)) |
58 | | vex 3479 |
. . . . . . . . . . . . . . . . . . 19
β’ π β V |
59 | | vex 3479 |
. . . . . . . . . . . . . . . . . . 19
β’ π β V |
60 | 58, 59 | opth 5476 |
. . . . . . . . . . . . . . . . . 18
β’
(β¨π, πβ© = β¨π, π’β© β (π = π β§ π = π’)) |
61 | | eleq1w 2817 |
. . . . . . . . . . . . . . . . . . . 20
β’ (π’ = π β (π’ β (Fmlaββ
) β π β
(Fmlaββ
))) |
62 | | fmlasssuc 34369 |
. . . . . . . . . . . . . . . . . . . . . 22
β’ (β
β Ο β (Fmlaββ
) β (Fmlaβsuc
β
)) |
63 | 24, 62 | ax-mp 5 |
. . . . . . . . . . . . . . . . . . . . 21
β’
(Fmlaββ
) β (Fmlaβsuc β
) |
64 | 63 | sseli 3978 |
. . . . . . . . . . . . . . . . . . . 20
β’ (π β (Fmlaββ
)
β π β
(Fmlaβsuc β
)) |
65 | 61, 64 | syl6bi 253 |
. . . . . . . . . . . . . . . . . . 19
β’ (π’ = π β (π’ β (Fmlaββ
) β π β (Fmlaβsuc
β
))) |
66 | 65 | eqcoms 2741 |
. . . . . . . . . . . . . . . . . 18
β’ (π = π’ β (π’ β (Fmlaββ
) β π β (Fmlaβsuc
β
))) |
67 | 60, 66 | simplbiim 506 |
. . . . . . . . . . . . . . . . 17
β’
(β¨π, πβ© = β¨π, π’β© β (π’ β (Fmlaββ
) β π β (Fmlaβsuc
β
))) |
68 | 57, 67 | simplbiim 506 |
. . . . . . . . . . . . . . . 16
β’
(β¨2o, β¨π, πβ©β© = β¨2o,
β¨π, π’β©β© β (π’ β (Fmlaββ
) β π β (Fmlaβsuc
β
))) |
69 | 68 | com12 32 |
. . . . . . . . . . . . . . 15
β’ (π’ β (Fmlaββ
)
β (β¨2o, β¨π, πβ©β© = β¨2o,
β¨π, π’β©β© β π β (Fmlaβsuc
β
))) |
70 | 69 | adantr 482 |
. . . . . . . . . . . . . 14
β’ ((π’ β (Fmlaββ
)
β§ π β Ο)
β (β¨2o, β¨π, πβ©β© = β¨2o,
β¨π, π’β©β© β π β (Fmlaβsuc
β
))) |
71 | 56, 70 | biimtrid 241 |
. . . . . . . . . . . . 13
β’ ((π’ β (Fmlaββ
)
β§ π β Ο)
β (βπππ = βπππ’ β π β (Fmlaβsuc
β
))) |
72 | 71 | rexlimdva 3156 |
. . . . . . . . . . . 12
β’ (π’ β (Fmlaββ
)
β (βπ β
Ο βπππ = βπππ’ β π β (Fmlaβsuc
β
))) |
73 | 54, 72 | jaod 858 |
. . . . . . . . . . 11
β’ (π’ β (Fmlaββ
)
β ((βπ£ β
(Fmlaββ
)βπππ = (π’βΌππ£) β¨ βπ β Ο
βπππ = βπππ’) β π β (Fmlaβsuc
β
))) |
74 | 73 | rexlimiv 3149 |
. . . . . . . . . 10
β’
(βπ’ β
(Fmlaββ
)(βπ£ β
(Fmlaββ
)βπππ = (π’βΌππ£) β¨ βπ β Ο
βπππ = βπππ’) β π β (Fmlaβsuc
β
)) |
75 | 48, 74 | jaoi 856 |
. . . . . . . . 9
β’
((βπππ β (Fmlaββ
) β¨
βπ’ β
(Fmlaββ
)(βπ£ β
(Fmlaββ
)βπππ = (π’βΌππ£) β¨ βπ β Ο
βπππ = βπππ’)) β π β (Fmlaβsuc
β
)) |
76 | 29, 75 | sylbi 216 |
. . . . . . . 8
β’
(βπππ β (Fmlaβsuc β
) β π β (Fmlaβsuc
β
)) |
77 | | goalrlem 34376 |
. . . . . . . 8
β’ (π¦ β Ο β
((βπππ β (Fmlaβsuc π¦) β π β (Fmlaβsuc π¦)) β (βπππ β (Fmlaβsuc suc π¦) β π β (Fmlaβsuc suc π¦)))) |
78 | 8, 13, 18, 23, 76, 77 | finds 7886 |
. . . . . . 7
β’ (π β Ο β
(βπππ β (Fmlaβsuc π) β π β (Fmlaβsuc π))) |
79 | 78 | adantr 482 |
. . . . . 6
β’ ((π β Ο β§ π = suc π) β (βπππ β (Fmlaβsuc π) β π β (Fmlaβsuc π))) |
80 | | fveq2 6889 |
. . . . . . . . 9
β’ (π = suc π β (Fmlaβπ) = (Fmlaβsuc π)) |
81 | 80 | eleq2d 2820 |
. . . . . . . 8
β’ (π = suc π β (βπππ β (Fmlaβπ) β βπππ β (Fmlaβsuc π))) |
82 | 80 | eleq2d 2820 |
. . . . . . . 8
β’ (π = suc π β (π β (Fmlaβπ) β π β (Fmlaβsuc π))) |
83 | 81, 82 | imbi12d 345 |
. . . . . . 7
β’ (π = suc π β ((βπππ β (Fmlaβπ) β π β (Fmlaβπ)) β (βπππ β (Fmlaβsuc π) β π β (Fmlaβsuc π)))) |
84 | 83 | adantl 483 |
. . . . . 6
β’ ((π β Ο β§ π = suc π) β ((βπππ β (Fmlaβπ) β π β (Fmlaβπ)) β (βπππ β (Fmlaβsuc π) β π β (Fmlaβsuc π)))) |
85 | 79, 84 | mpbird 257 |
. . . . 5
β’ ((π β Ο β§ π = suc π) β (βπππ β (Fmlaβπ) β π β (Fmlaβπ))) |
86 | 85 | rexlimiva 3148 |
. . . 4
β’
(βπ β
Ο π = suc π β
(βπππ β (Fmlaβπ) β π β (Fmlaβπ))) |
87 | 3, 86 | syl 17 |
. . 3
β’ ((π β Ο β§ π β β
) β
(βπππ β (Fmlaβπ) β π β (Fmlaβπ))) |
88 | 87 | impancom 453 |
. 2
β’ ((π β Ο β§
βπππ β (Fmlaβπ)) β (π β β
β π β (Fmlaβπ))) |
89 | 2, 88 | mpd 15 |
1
β’ ((π β Ο β§
βπππ β (Fmlaβπ)) β π β (Fmlaβπ)) |