Step | Hyp | Ref
| Expression |
1 | | xmetcl 23828 |
. . . . . 6
β’ ((π· β (βMetβπ) β§ π β π β§ π₯ β π) β (ππ·π₯) β
β*) |
2 | 1 | ad4ant124 1173 |
. . . . 5
β’ ((((π· β (βMetβπ) β§ π β π) β§ (π
β β* β§ π β β*))
β§ π₯ β π) β (ππ·π₯) β
β*) |
3 | | simplrl 775 |
. . . . 5
β’ ((((π· β (βMetβπ) β§ π β π) β§ (π
β β* β§ π β β*))
β§ π₯ β π) β π
β
β*) |
4 | | simplrr 776 |
. . . . 5
β’ ((((π· β (βMetβπ) β§ π β π) β§ (π
β β* β§ π β β*))
β§ π₯ β π) β π β
β*) |
5 | | xrltmin 13157 |
. . . . 5
β’ (((ππ·π₯) β β* β§ π
β β*
β§ π β
β*) β ((ππ·π₯) < if(π
β€ π, π
, π) β ((ππ·π₯) < π
β§ (ππ·π₯) < π))) |
6 | 2, 3, 4, 5 | syl3anc 1371 |
. . . 4
β’ ((((π· β (βMetβπ) β§ π β π) β§ (π
β β* β§ π β β*))
β§ π₯ β π) β ((ππ·π₯) < if(π
β€ π, π
, π) β ((ππ·π₯) < π
β§ (ππ·π₯) < π))) |
7 | 6 | pm5.32da 579 |
. . 3
β’ (((π· β (βMetβπ) β§ π β π) β§ (π
β β* β§ π β β*))
β ((π₯ β π β§ (ππ·π₯) < if(π
β€ π, π
, π)) β (π₯ β π β§ ((ππ·π₯) < π
β§ (ππ·π₯) < π)))) |
8 | | ifcl 4572 |
. . . 4
β’ ((π
β β*
β§ π β
β*) β if(π
β€ π, π
, π) β
β*) |
9 | | elbl 23885 |
. . . . 5
β’ ((π· β (βMetβπ) β§ π β π β§ if(π
β€ π, π
, π) β β*) β (π₯ β (π(ballβπ·)if(π
β€ π, π
, π)) β (π₯ β π β§ (ππ·π₯) < if(π
β€ π, π
, π)))) |
10 | 9 | 3expa 1118 |
. . . 4
β’ (((π· β (βMetβπ) β§ π β π) β§ if(π
β€ π, π
, π) β β*) β (π₯ β (π(ballβπ·)if(π
β€ π, π
, π)) β (π₯ β π β§ (ππ·π₯) < if(π
β€ π, π
, π)))) |
11 | 8, 10 | sylan2 593 |
. . 3
β’ (((π· β (βMetβπ) β§ π β π) β§ (π
β β* β§ π β β*))
β (π₯ β (π(ballβπ·)if(π
β€ π, π
, π)) β (π₯ β π β§ (ππ·π₯) < if(π
β€ π, π
, π)))) |
12 | | elbl 23885 |
. . . . . . 7
β’ ((π· β (βMetβπ) β§ π β π β§ π
β β*) β (π₯ β (π(ballβπ·)π
) β (π₯ β π β§ (ππ·π₯) < π
))) |
13 | 12 | 3expa 1118 |
. . . . . 6
β’ (((π· β (βMetβπ) β§ π β π) β§ π
β β*) β (π₯ β (π(ballβπ·)π
) β (π₯ β π β§ (ππ·π₯) < π
))) |
14 | 13 | adantrr 715 |
. . . . 5
β’ (((π· β (βMetβπ) β§ π β π) β§ (π
β β* β§ π β β*))
β (π₯ β (π(ballβπ·)π
) β (π₯ β π β§ (ππ·π₯) < π
))) |
15 | | elbl 23885 |
. . . . . . 7
β’ ((π· β (βMetβπ) β§ π β π β§ π β β*) β (π₯ β (π(ballβπ·)π) β (π₯ β π β§ (ππ·π₯) < π))) |
16 | 15 | 3expa 1118 |
. . . . . 6
β’ (((π· β (βMetβπ) β§ π β π) β§ π β β*) β (π₯ β (π(ballβπ·)π) β (π₯ β π β§ (ππ·π₯) < π))) |
17 | 16 | adantrl 714 |
. . . . 5
β’ (((π· β (βMetβπ) β§ π β π) β§ (π
β β* β§ π β β*))
β (π₯ β (π(ballβπ·)π) β (π₯ β π β§ (ππ·π₯) < π))) |
18 | 14, 17 | anbi12d 631 |
. . . 4
β’ (((π· β (βMetβπ) β§ π β π) β§ (π
β β* β§ π β β*))
β ((π₯ β (π(ballβπ·)π
) β§ π₯ β (π(ballβπ·)π)) β ((π₯ β π β§ (ππ·π₯) < π
) β§ (π₯ β π β§ (ππ·π₯) < π)))) |
19 | | elin 3963 |
. . . 4
β’ (π₯ β ((π(ballβπ·)π
) β© (π(ballβπ·)π)) β (π₯ β (π(ballβπ·)π
) β§ π₯ β (π(ballβπ·)π))) |
20 | | anandi 674 |
. . . 4
β’ ((π₯ β π β§ ((ππ·π₯) < π
β§ (ππ·π₯) < π)) β ((π₯ β π β§ (ππ·π₯) < π
) β§ (π₯ β π β§ (ππ·π₯) < π))) |
21 | 18, 19, 20 | 3bitr4g 313 |
. . 3
β’ (((π· β (βMetβπ) β§ π β π) β§ (π
β β* β§ π β β*))
β (π₯ β ((π(ballβπ·)π
) β© (π(ballβπ·)π)) β (π₯ β π β§ ((ππ·π₯) < π
β§ (ππ·π₯) < π)))) |
22 | 7, 11, 21 | 3bitr4rd 311 |
. 2
β’ (((π· β (βMetβπ) β§ π β π) β§ (π
β β* β§ π β β*))
β (π₯ β ((π(ballβπ·)π
) β© (π(ballβπ·)π)) β π₯ β (π(ballβπ·)if(π
β€ π, π
, π)))) |
23 | 22 | eqrdv 2730 |
1
β’ (((π· β (βMetβπ) β§ π β π) β§ (π
β β* β§ π β β*))
β ((π(ballβπ·)π
) β© (π(ballβπ·)π)) = (π(ballβπ·)if(π
β€ π, π
, π))) |