Step |
Hyp |
Ref |
Expression |
1 |
|
deg1addle.y |
|- Y = ( Poly1 ` R ) |
2 |
|
deg1addle.d |
|- D = ( deg1 ` R ) |
3 |
|
deg1addle.r |
|- ( ph -> R e. Ring ) |
4 |
|
deg1addle.b |
|- B = ( Base ` Y ) |
5 |
|
deg1addle.p |
|- .+ = ( +g ` Y ) |
6 |
|
deg1addle.f |
|- ( ph -> F e. B ) |
7 |
|
deg1addle.g |
|- ( ph -> G e. B ) |
8 |
|
deg1addle2.l1 |
|- ( ph -> L e. RR* ) |
9 |
|
deg1addle2.l2 |
|- ( ph -> ( D ` F ) <_ L ) |
10 |
|
deg1addle2.l3 |
|- ( ph -> ( D ` G ) <_ L ) |
11 |
1
|
ply1ring |
|- ( R e. Ring -> Y e. Ring ) |
12 |
3 11
|
syl |
|- ( ph -> Y e. Ring ) |
13 |
4 5
|
ringacl |
|- ( ( Y e. Ring /\ F e. B /\ G e. B ) -> ( F .+ G ) e. B ) |
14 |
12 6 7 13
|
syl3anc |
|- ( ph -> ( F .+ G ) e. B ) |
15 |
2 1 4
|
deg1xrcl |
|- ( ( F .+ G ) e. B -> ( D ` ( F .+ G ) ) e. RR* ) |
16 |
14 15
|
syl |
|- ( ph -> ( D ` ( F .+ G ) ) e. RR* ) |
17 |
2 1 4
|
deg1xrcl |
|- ( G e. B -> ( D ` G ) e. RR* ) |
18 |
7 17
|
syl |
|- ( ph -> ( D ` G ) e. RR* ) |
19 |
2 1 4
|
deg1xrcl |
|- ( F e. B -> ( D ` F ) e. RR* ) |
20 |
6 19
|
syl |
|- ( ph -> ( D ` F ) e. RR* ) |
21 |
18 20
|
ifcld |
|- ( ph -> if ( ( D ` F ) <_ ( D ` G ) , ( D ` G ) , ( D ` F ) ) e. RR* ) |
22 |
1 2 3 4 5 6 7
|
deg1addle |
|- ( ph -> ( D ` ( F .+ G ) ) <_ if ( ( D ` F ) <_ ( D ` G ) , ( D ` G ) , ( D ` F ) ) ) |
23 |
|
xrmaxle |
|- ( ( ( D ` F ) e. RR* /\ ( D ` G ) e. RR* /\ L e. RR* ) -> ( if ( ( D ` F ) <_ ( D ` G ) , ( D ` G ) , ( D ` F ) ) <_ L <-> ( ( D ` F ) <_ L /\ ( D ` G ) <_ L ) ) ) |
24 |
20 18 8 23
|
syl3anc |
|- ( ph -> ( if ( ( D ` F ) <_ ( D ` G ) , ( D ` G ) , ( D ` F ) ) <_ L <-> ( ( D ` F ) <_ L /\ ( D ` G ) <_ L ) ) ) |
25 |
9 10 24
|
mpbir2and |
|- ( ph -> if ( ( D ` F ) <_ ( D ` G ) , ( D ` G ) , ( D ` F ) ) <_ L ) |
26 |
16 21 8 22 25
|
xrletrd |
|- ( ph -> ( D ` ( F .+ G ) ) <_ L ) |