Step | Hyp | Ref
| Expression |
1 | | elex 3492 |
. . . 4
β’ (π β π΅ β π β V) |
2 | 1 | adantr 481 |
. . 3
β’ ((π β π΅ β§ (π·β(πΉ β (π Β· πΊ))) < (π·βπΊ)) β π β V) |
3 | 2 | a1i 11 |
. 2
β’ ((π
β Ring β§ πΉ β π΅ β§ πΊ β πΆ) β ((π β π΅ β§ (π·β(πΉ β (π Β· πΊ))) < (π·βπΊ)) β π β V)) |
4 | | ovex 7438 |
. . . 4
β’ (πΉππΊ) β V |
5 | | eleq1 2821 |
. . . 4
β’ ((πΉππΊ) = π β ((πΉππΊ) β V β π β V)) |
6 | 4, 5 | mpbii 232 |
. . 3
β’ ((πΉππΊ) = π β π β V) |
7 | 6 | a1i 11 |
. 2
β’ ((π
β Ring β§ πΉ β π΅ β§ πΊ β πΆ) β ((πΉππΊ) = π β π β V)) |
8 | | simpr 485 |
. . . . 5
β’ (((π
β Ring β§ πΉ β π΅ β§ πΊ β πΆ) β§ π β V) β π β V) |
9 | | q1pval.p |
. . . . . . . 8
β’ π = (Poly1βπ
) |
10 | | q1pval.d |
. . . . . . . 8
β’ π· = ( deg1
βπ
) |
11 | | q1pval.b |
. . . . . . . 8
β’ π΅ = (Baseβπ) |
12 | | q1pval.m |
. . . . . . . 8
β’ β =
(-gβπ) |
13 | | eqid 2732 |
. . . . . . . 8
β’
(0gβπ) = (0gβπ) |
14 | | q1pval.t |
. . . . . . . 8
β’ Β· =
(.rβπ) |
15 | | simp1 1136 |
. . . . . . . 8
β’ ((π
β Ring β§ πΉ β π΅ β§ πΊ β πΆ) β π
β Ring) |
16 | | simp2 1137 |
. . . . . . . 8
β’ ((π
β Ring β§ πΉ β π΅ β§ πΊ β πΆ) β πΉ β π΅) |
17 | | q1peqb.c |
. . . . . . . . . 10
β’ πΆ =
(Unic1pβπ
) |
18 | 9, 11, 17 | uc1pcl 25652 |
. . . . . . . . 9
β’ (πΊ β πΆ β πΊ β π΅) |
19 | 18 | 3ad2ant3 1135 |
. . . . . . . 8
β’ ((π
β Ring β§ πΉ β π΅ β§ πΊ β πΆ) β πΊ β π΅) |
20 | 9, 13, 17 | uc1pn0 25654 |
. . . . . . . . 9
β’ (πΊ β πΆ β πΊ β (0gβπ)) |
21 | 20 | 3ad2ant3 1135 |
. . . . . . . 8
β’ ((π
β Ring β§ πΉ β π΅ β§ πΊ β πΆ) β πΊ β (0gβπ)) |
22 | | eqid 2732 |
. . . . . . . . . 10
β’
(Unitβπ
) =
(Unitβπ
) |
23 | 10, 22, 17 | uc1pldg 25657 |
. . . . . . . . 9
β’ (πΊ β πΆ β ((coe1βπΊ)β(π·βπΊ)) β (Unitβπ
)) |
24 | 23 | 3ad2ant3 1135 |
. . . . . . . 8
β’ ((π
β Ring β§ πΉ β π΅ β§ πΊ β πΆ) β ((coe1βπΊ)β(π·βπΊ)) β (Unitβπ
)) |
25 | 9, 10, 11, 12, 13, 14, 15, 16, 19, 21, 24, 22 | ply1divalg2 25647 |
. . . . . . 7
β’ ((π
β Ring β§ πΉ β π΅ β§ πΊ β πΆ) β β!π β π΅ (π·β(πΉ β (π Β· πΊ))) < (π·βπΊ)) |
26 | | df-reu 3377 |
. . . . . . 7
β’
(β!π β
π΅ (π·β(πΉ β (π Β· πΊ))) < (π·βπΊ) β β!π(π β π΅ β§ (π·β(πΉ β (π Β· πΊ))) < (π·βπΊ))) |
27 | 25, 26 | sylib 217 |
. . . . . 6
β’ ((π
β Ring β§ πΉ β π΅ β§ πΊ β πΆ) β β!π(π β π΅ β§ (π·β(πΉ β (π Β· πΊ))) < (π·βπΊ))) |
28 | 27 | adantr 481 |
. . . . 5
β’ (((π
β Ring β§ πΉ β π΅ β§ πΊ β πΆ) β§ π β V) β β!π(π β π΅ β§ (π·β(πΉ β (π Β· πΊ))) < (π·βπΊ))) |
29 | | eleq1 2821 |
. . . . . . 7
β’ (π = π β (π β π΅ β π β π΅)) |
30 | | oveq1 7412 |
. . . . . . . . . 10
β’ (π = π β (π Β· πΊ) = (π Β· πΊ)) |
31 | 30 | oveq2d 7421 |
. . . . . . . . 9
β’ (π = π β (πΉ β (π Β· πΊ)) = (πΉ β (π Β· πΊ))) |
32 | 31 | fveq2d 6892 |
. . . . . . . 8
β’ (π = π β (π·β(πΉ β (π Β· πΊ))) = (π·β(πΉ β (π Β· πΊ)))) |
33 | 32 | breq1d 5157 |
. . . . . . 7
β’ (π = π β ((π·β(πΉ β (π Β· πΊ))) < (π·βπΊ) β (π·β(πΉ β (π Β· πΊ))) < (π·βπΊ))) |
34 | 29, 33 | anbi12d 631 |
. . . . . 6
β’ (π = π β ((π β π΅ β§ (π·β(πΉ β (π Β· πΊ))) < (π·βπΊ)) β (π β π΅ β§ (π·β(πΉ β (π Β· πΊ))) < (π·βπΊ)))) |
35 | 34 | adantl 482 |
. . . . 5
β’ ((((π
β Ring β§ πΉ β π΅ β§ πΊ β πΆ) β§ π β V) β§ π = π) β ((π β π΅ β§ (π·β(πΉ β (π Β· πΊ))) < (π·βπΊ)) β (π β π΅ β§ (π·β(πΉ β (π Β· πΊ))) < (π·βπΊ)))) |
36 | 8, 28, 35 | iota2d 6528 |
. . . 4
β’ (((π
β Ring β§ πΉ β π΅ β§ πΊ β πΆ) β§ π β V) β ((π β π΅ β§ (π·β(πΉ β (π Β· πΊ))) < (π·βπΊ)) β (β©π(π β π΅ β§ (π·β(πΉ β (π Β· πΊ))) < (π·βπΊ))) = π)) |
37 | | q1pval.q |
. . . . . . . . 9
β’ π =
(quot1pβπ
) |
38 | 37, 9, 11, 10, 12, 14 | q1pval 25662 |
. . . . . . . 8
β’ ((πΉ β π΅ β§ πΊ β π΅) β (πΉππΊ) = (β©π β π΅ (π·β(πΉ β (π Β· πΊ))) < (π·βπΊ))) |
39 | 16, 19, 38 | syl2anc 584 |
. . . . . . 7
β’ ((π
β Ring β§ πΉ β π΅ β§ πΊ β πΆ) β (πΉππΊ) = (β©π β π΅ (π·β(πΉ β (π Β· πΊ))) < (π·βπΊ))) |
40 | | df-riota 7361 |
. . . . . . 7
β’
(β©π
β π΅ (π·β(πΉ β (π Β· πΊ))) < (π·βπΊ)) = (β©π(π β π΅ β§ (π·β(πΉ β (π Β· πΊ))) < (π·βπΊ))) |
41 | 39, 40 | eqtrdi 2788 |
. . . . . 6
β’ ((π
β Ring β§ πΉ β π΅ β§ πΊ β πΆ) β (πΉππΊ) = (β©π(π β π΅ β§ (π·β(πΉ β (π Β· πΊ))) < (π·βπΊ)))) |
42 | 41 | adantr 481 |
. . . . 5
β’ (((π
β Ring β§ πΉ β π΅ β§ πΊ β πΆ) β§ π β V) β (πΉππΊ) = (β©π(π β π΅ β§ (π·β(πΉ β (π Β· πΊ))) < (π·βπΊ)))) |
43 | 42 | eqeq1d 2734 |
. . . 4
β’ (((π
β Ring β§ πΉ β π΅ β§ πΊ β πΆ) β§ π β V) β ((πΉππΊ) = π β (β©π(π β π΅ β§ (π·β(πΉ β (π Β· πΊ))) < (π·βπΊ))) = π)) |
44 | 36, 43 | bitr4d 281 |
. . 3
β’ (((π
β Ring β§ πΉ β π΅ β§ πΊ β πΆ) β§ π β V) β ((π β π΅ β§ (π·β(πΉ β (π Β· πΊ))) < (π·βπΊ)) β (πΉππΊ) = π)) |
45 | 44 | ex 413 |
. 2
β’ ((π
β Ring β§ πΉ β π΅ β§ πΊ β πΆ) β (π β V β ((π β π΅ β§ (π·β(πΉ β (π Β· πΊ))) < (π·βπΊ)) β (πΉππΊ) = π))) |
46 | 3, 7, 45 | pm5.21ndd 380 |
1
β’ ((π
β Ring β§ πΉ β π΅ β§ πΊ β πΆ) β ((π β π΅ β§ (π·β(πΉ β (π Β· πΊ))) < (π·βπΊ)) β (πΉππΊ) = π)) |