Step | Hyp | Ref
| Expression |
1 | | paddfval.l |
. . . 4
β’ β€ =
(leβπΎ) |
2 | | paddfval.j |
. . . 4
β’ β¨ =
(joinβπΎ) |
3 | | paddfval.a |
. . . 4
β’ π΄ = (AtomsβπΎ) |
4 | | paddfval.p |
. . . 4
β’ + =
(+πβπΎ) |
5 | 1, 2, 3, 4 | paddval 38669 |
. . 3
β’ ((πΎ β π΅ β§ π β π΄ β§ π β π΄) β (π + π) = ((π βͺ π) βͺ {π β π΄ β£ βπ β π βπ β π π β€ (π β¨ π)})) |
6 | 5 | eleq2d 2820 |
. 2
β’ ((πΎ β π΅ β§ π β π΄ β§ π β π΄) β (π β (π + π) β π β ((π βͺ π) βͺ {π β π΄ β£ βπ β π βπ β π π β€ (π β¨ π)}))) |
7 | | elun 4149 |
. . 3
β’ (π β ((π βͺ π) βͺ {π β π΄ β£ βπ β π βπ β π π β€ (π β¨ π)}) β (π β (π βͺ π) β¨ π β {π β π΄ β£ βπ β π βπ β π π β€ (π β¨ π)})) |
8 | | elun 4149 |
. . . 4
β’ (π β (π βͺ π) β (π β π β¨ π β π)) |
9 | | breq1 5152 |
. . . . . 6
β’ (π = π β (π β€ (π β¨ π) β π β€ (π β¨ π))) |
10 | 9 | 2rexbidv 3220 |
. . . . 5
β’ (π = π β (βπ β π βπ β π π β€ (π β¨ π) β βπ β π βπ β π π β€ (π β¨ π))) |
11 | 10 | elrab 3684 |
. . . 4
β’ (π β {π β π΄ β£ βπ β π βπ β π π β€ (π β¨ π)} β (π β π΄ β§ βπ β π βπ β π π β€ (π β¨ π))) |
12 | 8, 11 | orbi12i 914 |
. . 3
β’ ((π β (π βͺ π) β¨ π β {π β π΄ β£ βπ β π βπ β π π β€ (π β¨ π)}) β ((π β π β¨ π β π) β¨ (π β π΄ β§ βπ β π βπ β π π β€ (π β¨ π)))) |
13 | 7, 12 | bitri 275 |
. 2
β’ (π β ((π βͺ π) βͺ {π β π΄ β£ βπ β π βπ β π π β€ (π β¨ π)}) β ((π β π β¨ π β π) β¨ (π β π΄ β§ βπ β π βπ β π π β€ (π β¨ π)))) |
14 | 6, 13 | bitrdi 287 |
1
β’ ((πΎ β π΅ β§ π β π΄ β§ π β π΄) β (π β (π + π) β ((π β π β¨ π β π) β¨ (π β π΄ β§ βπ β π βπ β π π β€ (π β¨ π))))) |