Theorem ply1dg3rt0irred 33595

Description: If a cubic polynomial over a field has no roots, it is irreducible. (Proposed by Saveliy Skresanov, 5-Jun-2025.) (Contributed by Thierry Arnoux, 8-Jun-2025.)

Hypotheses

Ref	Expression
ply1dg3rt0irred.z	⊢ 0 = (0g‘𝐹)
ply1dg3rt0irred.o	⊢ 𝑂 = (eval1‘𝐹)
ply1dg3rt0irred.d	⊢ 𝐷 = (deg1‘𝐹)
ply1dg3rt0irred.p	⊢ 𝑃 = (Poly1‘𝐹)
ply1dg3rt0irred.b	⊢ 𝐵 = (Base‘𝑃)
ply1dg3rt0irred.f	⊢ (𝜑 → 𝐹 ∈ Field)
ply1dg3rt0irred.q	⊢ (𝜑 → 𝑄 ∈ 𝐵)
ply1dg3rt0irred.1	⊢ (𝜑 → (◡(𝑂‘𝑄) “ { 0 }) = ∅)
ply1dg3rt0irred.2	⊢ (𝜑 → (𝐷‘𝑄) = 3)

Assertion

Ref	Expression
ply1dg3rt0irred	⊢ (𝜑 → 𝑄 ∈ (Irred‘𝑃))

Proof of Theorem ply1dg3rt0irred

Dummy variables 𝑝 𝑞 are mutually distinct and distinct from all other variables.

Step	Hyp	Ref	Expression
1		ply1dg3rt0irred.q	. . 3 ⊢ (𝜑 → 𝑄 ∈ 𝐵)
2		ply1dg3rt0irred.2	. . . . 5 ⊢ (𝜑 → (𝐷‘𝑄) = 3)
3		3ne0 12346	. . . . . 6 ⊢ 3 ≠ 0
4	3	a1i 11	. . . . 5 ⊢ (𝜑 → 3 ≠ 0)
5	2, 4	eqnetrd 2999	. . . 4 ⊢ (𝜑 → (𝐷‘𝑄) ≠ 0)
6		ply1dg3rt0irred.p	. . . . . 6 ⊢ 𝑃 = (Poly1‘𝐹)
7		eqid 2735	. . . . . 6 ⊢ (algSc‘𝑃) = (algSc‘𝑃)
8		eqid 2735	. . . . . 6 ⊢ (Base‘𝐹) = (Base‘𝐹)
9		ply1dg3rt0irred.z	. . . . . 6 ⊢ 0 = (0g‘𝐹)
10		ply1dg3rt0irred.f	. . . . . 6 ⊢ (𝜑 → 𝐹 ∈ Field)
11		ply1dg3rt0irred.d	. . . . . 6 ⊢ 𝐷 = (deg1‘𝐹)
12		ply1dg3rt0irred.b	. . . . . . 7 ⊢ 𝐵 = (Base‘𝑃)
13	1, 12	eleqtrdi 2844	. . . . . 6 ⊢ (𝜑 → 𝑄 ∈ (Base‘𝑃))
14	6, 7, 8, 9, 10, 11, 13	ply1unit 33588	. . . . 5 ⊢ (𝜑 → (𝑄 ∈ (Unit‘𝑃) ↔ (𝐷‘𝑄) = 0))
15	14	necon3bbid 2969	. . . 4 ⊢ (𝜑 → (¬ 𝑄 ∈ (Unit‘𝑃) ↔ (𝐷‘𝑄) ≠ 0))
16	5, 15	mpbird 257	. . 3 ⊢ (𝜑 → ¬ 𝑄 ∈ (Unit‘𝑃))
17	1, 16	eldifd 3937	. 2 ⊢ (𝜑 → 𝑄 ∈ (𝐵 ∖ (Unit‘𝑃)))
18	10	ad3antrrr 730	. . . . . . . . . . . 12 ⊢ ((((𝜑 ∧ 𝑝 ∈ (𝐵 ∖ (Unit‘𝑃))) ∧ 𝑞 ∈ (𝐵 ∖ (Unit‘𝑃))) ∧ (𝑝(.r‘𝑃)𝑞) = 𝑄) → 𝐹 ∈ Field)
19		simpllr 775	. . . . . . . . . . . . . 14 ⊢ ((((𝜑 ∧ 𝑝 ∈ (𝐵 ∖ (Unit‘𝑃))) ∧ 𝑞 ∈ (𝐵 ∖ (Unit‘𝑃))) ∧ (𝑝(.r‘𝑃)𝑞) = 𝑄) → 𝑝 ∈ (𝐵 ∖ (Unit‘𝑃)))
20	19	eldifad 3938	. . . . . . . . . . . . 13 ⊢ ((((𝜑 ∧ 𝑝 ∈ (𝐵 ∖ (Unit‘𝑃))) ∧ 𝑞 ∈ (𝐵 ∖ (Unit‘𝑃))) ∧ (𝑝(.r‘𝑃)𝑞) = 𝑄) → 𝑝 ∈ 𝐵)
21	20, 12	eleqtrdi 2844	. . . . . . . . . . . 12 ⊢ ((((𝜑 ∧ 𝑝 ∈ (𝐵 ∖ (Unit‘𝑃))) ∧ 𝑞 ∈ (𝐵 ∖ (Unit‘𝑃))) ∧ (𝑝(.r‘𝑃)𝑞) = 𝑄) → 𝑝 ∈ (Base‘𝑃))
22	6, 7, 8, 9, 18, 11, 21	ply1unit 33588	. . . . . . . . . . 11 ⊢ ((((𝜑 ∧ 𝑝 ∈ (𝐵 ∖ (Unit‘𝑃))) ∧ 𝑞 ∈ (𝐵 ∖ (Unit‘𝑃))) ∧ (𝑝(.r‘𝑃)𝑞) = 𝑄) → (𝑝 ∈ (Unit‘𝑃) ↔ (𝐷‘𝑝) = 0))
23	22	biimpar 477	. . . . . . . . . 10 ⊢ (((((𝜑 ∧ 𝑝 ∈ (𝐵 ∖ (Unit‘𝑃))) ∧ 𝑞 ∈ (𝐵 ∖ (Unit‘𝑃))) ∧ (𝑝(.r‘𝑃)𝑞) = 𝑄) ∧ (𝐷‘𝑝) = 0) → 𝑝 ∈ (Unit‘𝑃))
24	19	eldifbd 3939	. . . . . . . . . . 11 ⊢ ((((𝜑 ∧ 𝑝 ∈ (𝐵 ∖ (Unit‘𝑃))) ∧ 𝑞 ∈ (𝐵 ∖ (Unit‘𝑃))) ∧ (𝑝(.r‘𝑃)𝑞) = 𝑄) → ¬ 𝑝 ∈ (Unit‘𝑃))
25	24	adantr 480	. . . . . . . . . 10 ⊢ (((((𝜑 ∧ 𝑝 ∈ (𝐵 ∖ (Unit‘𝑃))) ∧ 𝑞 ∈ (𝐵 ∖ (Unit‘𝑃))) ∧ (𝑝(.r‘𝑃)𝑞) = 𝑄) ∧ (𝐷‘𝑝) = 0) → ¬ 𝑝 ∈ (Unit‘𝑃))
26	23, 25	pm2.21fal 1562	. . . . . . . . 9 ⊢ (((((𝜑 ∧ 𝑝 ∈ (𝐵 ∖ (Unit‘𝑃))) ∧ 𝑞 ∈ (𝐵 ∖ (Unit‘𝑃))) ∧ (𝑝(.r‘𝑃)𝑞) = 𝑄) ∧ (𝐷‘𝑝) = 0) → ⊥)
27	26	adantlr 715	. . . . . . . 8 ⊢ ((((((𝜑 ∧ 𝑝 ∈ (𝐵 ∖ (Unit‘𝑃))) ∧ 𝑞 ∈ (𝐵 ∖ (Unit‘𝑃))) ∧ (𝑝(.r‘𝑃)𝑞) = 𝑄) ∧ (𝐷‘𝑝) ∈ {0, 1}) ∧ (𝐷‘𝑝) = 0) → ⊥)
28		ply1dg3rt0irred.o	. . . . . . . . . . . . . . 15 ⊢ 𝑂 = (eval1‘𝐹)
29	10	fldcrngd 20702	. . . . . . . . . . . . . . . 16 ⊢ (𝜑 → 𝐹 ∈ CRing)
30	29	ad3antrrr 730	. . . . . . . . . . . . . . 15 ⊢ ((((𝜑 ∧ 𝑝 ∈ (𝐵 ∖ (Unit‘𝑃))) ∧ 𝑞 ∈ (𝐵 ∖ (Unit‘𝑃))) ∧ (𝑝(.r‘𝑃)𝑞) = 𝑄) → 𝐹 ∈ CRing)
31		simplr 768	. . . . . . . . . . . . . . . 16 ⊢ ((((𝜑 ∧ 𝑝 ∈ (𝐵 ∖ (Unit‘𝑃))) ∧ 𝑞 ∈ (𝐵 ∖ (Unit‘𝑃))) ∧ (𝑝(.r‘𝑃)𝑞) = 𝑄) → 𝑞 ∈ (𝐵 ∖ (Unit‘𝑃)))
32	31	eldifad 3938	. . . . . . . . . . . . . . 15 ⊢ ((((𝜑 ∧ 𝑝 ∈ (𝐵 ∖ (Unit‘𝑃))) ∧ 𝑞 ∈ (𝐵 ∖ (Unit‘𝑃))) ∧ (𝑝(.r‘𝑃)𝑞) = 𝑄) → 𝑞 ∈ 𝐵)
33		eqid 2735	. . . . . . . . . . . . . . 15 ⊢ (.r‘𝑃) = (.r‘𝑃)
34	6, 12, 28, 11, 9, 30, 20, 32, 33	ply1mulrtss 33594	. . . . . . . . . . . . . 14 ⊢ ((((𝜑 ∧ 𝑝 ∈ (𝐵 ∖ (Unit‘𝑃))) ∧ 𝑞 ∈ (𝐵 ∖ (Unit‘𝑃))) ∧ (𝑝(.r‘𝑃)𝑞) = 𝑄) → (◡(𝑂‘𝑝) “ { 0 }) ⊆ (◡(𝑂‘(𝑝(.r‘𝑃)𝑞)) “ { 0 }))
35		simpr 484	. . . . . . . . . . . . . . . . 17 ⊢ ((((𝜑 ∧ 𝑝 ∈ (𝐵 ∖ (Unit‘𝑃))) ∧ 𝑞 ∈ (𝐵 ∖ (Unit‘𝑃))) ∧ (𝑝(.r‘𝑃)𝑞) = 𝑄) → (𝑝(.r‘𝑃)𝑞) = 𝑄)
36	35	fveq2d 6880	. . . . . . . . . . . . . . . 16 ⊢ ((((𝜑 ∧ 𝑝 ∈ (𝐵 ∖ (Unit‘𝑃))) ∧ 𝑞 ∈ (𝐵 ∖ (Unit‘𝑃))) ∧ (𝑝(.r‘𝑃)𝑞) = 𝑄) → (𝑂‘(𝑝(.r‘𝑃)𝑞)) = (𝑂‘𝑄))
37	36	cnveqd 5855	. . . . . . . . . . . . . . 15 ⊢ ((((𝜑 ∧ 𝑝 ∈ (𝐵 ∖ (Unit‘𝑃))) ∧ 𝑞 ∈ (𝐵 ∖ (Unit‘𝑃))) ∧ (𝑝(.r‘𝑃)𝑞) = 𝑄) → ◡(𝑂‘(𝑝(.r‘𝑃)𝑞)) = ◡(𝑂‘𝑄))
38	37	imaeq1d 6046	. . . . . . . . . . . . . 14 ⊢ ((((𝜑 ∧ 𝑝 ∈ (𝐵 ∖ (Unit‘𝑃))) ∧ 𝑞 ∈ (𝐵 ∖ (Unit‘𝑃))) ∧ (𝑝(.r‘𝑃)𝑞) = 𝑄) → (◡(𝑂‘(𝑝(.r‘𝑃)𝑞)) “ { 0 }) = (◡(𝑂‘𝑄) “ { 0 }))
39	34, 38	sseqtrd 3995	. . . . . . . . . . . . 13 ⊢ ((((𝜑 ∧ 𝑝 ∈ (𝐵 ∖ (Unit‘𝑃))) ∧ 𝑞 ∈ (𝐵 ∖ (Unit‘𝑃))) ∧ (𝑝(.r‘𝑃)𝑞) = 𝑄) → (◡(𝑂‘𝑝) “ { 0 }) ⊆ (◡(𝑂‘𝑄) “ { 0 }))
40		ply1dg3rt0irred.1	. . . . . . . . . . . . . 14 ⊢ (𝜑 → (◡(𝑂‘𝑄) “ { 0 }) = ∅)
41	40	ad3antrrr 730	. . . . . . . . . . . . 13 ⊢ ((((𝜑 ∧ 𝑝 ∈ (𝐵 ∖ (Unit‘𝑃))) ∧ 𝑞 ∈ (𝐵 ∖ (Unit‘𝑃))) ∧ (𝑝(.r‘𝑃)𝑞) = 𝑄) → (◡(𝑂‘𝑄) “ { 0 }) = ∅)
42	39, 41	sseqtrd 3995	. . . . . . . . . . . 12 ⊢ ((((𝜑 ∧ 𝑝 ∈ (𝐵 ∖ (Unit‘𝑃))) ∧ 𝑞 ∈ (𝐵 ∖ (Unit‘𝑃))) ∧ (𝑝(.r‘𝑃)𝑞) = 𝑄) → (◡(𝑂‘𝑝) “ { 0 }) ⊆ ∅)
43		ss0 4377	. . . . . . . . . . . 12 ⊢ ((◡(𝑂‘𝑝) “ { 0 }) ⊆ ∅ → (◡(𝑂‘𝑝) “ { 0 }) = ∅)
44	42, 43	syl 17	. . . . . . . . . . 11 ⊢ ((((𝜑 ∧ 𝑝 ∈ (𝐵 ∖ (Unit‘𝑃))) ∧ 𝑞 ∈ (𝐵 ∖ (Unit‘𝑃))) ∧ (𝑝(.r‘𝑃)𝑞) = 𝑄) → (◡(𝑂‘𝑝) “ { 0 }) = ∅)
45	44	adantr 480	. . . . . . . . . 10 ⊢ (((((𝜑 ∧ 𝑝 ∈ (𝐵 ∖ (Unit‘𝑃))) ∧ 𝑞 ∈ (𝐵 ∖ (Unit‘𝑃))) ∧ (𝑝(.r‘𝑃)𝑞) = 𝑄) ∧ (𝐷‘𝑝) = 1) → (◡(𝑂‘𝑝) “ { 0 }) = ∅)
46	18	adantr 480	. . . . . . . . . . 11 ⊢ (((((𝜑 ∧ 𝑝 ∈ (𝐵 ∖ (Unit‘𝑃))) ∧ 𝑞 ∈ (𝐵 ∖ (Unit‘𝑃))) ∧ (𝑝(.r‘𝑃)𝑞) = 𝑄) ∧ (𝐷‘𝑝) = 1) → 𝐹 ∈ Field)
47	20	adantr 480	. . . . . . . . . . 11 ⊢ (((((𝜑 ∧ 𝑝 ∈ (𝐵 ∖ (Unit‘𝑃))) ∧ 𝑞 ∈ (𝐵 ∖ (Unit‘𝑃))) ∧ (𝑝(.r‘𝑃)𝑞) = 𝑄) ∧ (𝐷‘𝑝) = 1) → 𝑝 ∈ 𝐵)
48		simpr 484	. . . . . . . . . . 11 ⊢ (((((𝜑 ∧ 𝑝 ∈ (𝐵 ∖ (Unit‘𝑃))) ∧ 𝑞 ∈ (𝐵 ∖ (Unit‘𝑃))) ∧ (𝑝(.r‘𝑃)𝑞) = 𝑄) ∧ (𝐷‘𝑝) = 1) → (𝐷‘𝑝) = 1)
49	6, 12, 28, 11, 9, 46, 47, 48	ply1dg1rtn0 33593	. . . . . . . . . 10 ⊢ (((((𝜑 ∧ 𝑝 ∈ (𝐵 ∖ (Unit‘𝑃))) ∧ 𝑞 ∈ (𝐵 ∖ (Unit‘𝑃))) ∧ (𝑝(.r‘𝑃)𝑞) = 𝑄) ∧ (𝐷‘𝑝) = 1) → (◡(𝑂‘𝑝) “ { 0 }) ≠ ∅)
50	45, 49	pm2.21ddne 3016	. . . . . . . . 9 ⊢ (((((𝜑 ∧ 𝑝 ∈ (𝐵 ∖ (Unit‘𝑃))) ∧ 𝑞 ∈ (𝐵 ∖ (Unit‘𝑃))) ∧ (𝑝(.r‘𝑃)𝑞) = 𝑄) ∧ (𝐷‘𝑝) = 1) → ⊥)
51	50	adantlr 715	. . . . . . . 8 ⊢ ((((((𝜑 ∧ 𝑝 ∈ (𝐵 ∖ (Unit‘𝑃))) ∧ 𝑞 ∈ (𝐵 ∖ (Unit‘𝑃))) ∧ (𝑝(.r‘𝑃)𝑞) = 𝑄) ∧ (𝐷‘𝑝) ∈ {0, 1}) ∧ (𝐷‘𝑝) = 1) → ⊥)
52		elpri 4625	. . . . . . . . 9 ⊢ ((𝐷‘𝑝) ∈ {0, 1} → ((𝐷‘𝑝) = 0 ∨ (𝐷‘𝑝) = 1))
53	52	adantl 481	. . . . . . . 8 ⊢ (((((𝜑 ∧ 𝑝 ∈ (𝐵 ∖ (Unit‘𝑃))) ∧ 𝑞 ∈ (𝐵 ∖ (Unit‘𝑃))) ∧ (𝑝(.r‘𝑃)𝑞) = 𝑄) ∧ (𝐷‘𝑝) ∈ {0, 1}) → ((𝐷‘𝑝) = 0 ∨ (𝐷‘𝑝) = 1))
54	27, 51, 53	mpjaodan 960	. . . . . . 7 ⊢ (((((𝜑 ∧ 𝑝 ∈ (𝐵 ∖ (Unit‘𝑃))) ∧ 𝑞 ∈ (𝐵 ∖ (Unit‘𝑃))) ∧ (𝑝(.r‘𝑃)𝑞) = 𝑄) ∧ (𝐷‘𝑝) ∈ {0, 1}) → ⊥)
55	6, 12, 28, 11, 9, 30, 32, 20, 33	ply1mulrtss 33594	. . . . . . . . . . . . 13 ⊢ ((((𝜑 ∧ 𝑝 ∈ (𝐵 ∖ (Unit‘𝑃))) ∧ 𝑞 ∈ (𝐵 ∖ (Unit‘𝑃))) ∧ (𝑝(.r‘𝑃)𝑞) = 𝑄) → (◡(𝑂‘𝑞) “ { 0 }) ⊆ (◡(𝑂‘(𝑞(.r‘𝑃)𝑝)) “ { 0 }))
56		fldidom 20731	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ (𝐹 ∈ Field → 𝐹 ∈ IDomn)
57	10, 56	syl 17	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ (𝜑 → 𝐹 ∈ IDomn)
58	6	ply1idom 26082	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ (𝐹 ∈ IDomn → 𝑃 ∈ IDomn)
59	57, 58	syl 17	. . . . . . . . . . . . . . . . . . . . 21 ⊢ (𝜑 → 𝑃 ∈ IDomn)
60	59	idomcringd 20687	. . . . . . . . . . . . . . . . . . . 20 ⊢ (𝜑 → 𝑃 ∈ CRing)
61	60	ad3antrrr 730	. . . . . . . . . . . . . . . . . . 19 ⊢ ((((𝜑 ∧ 𝑝 ∈ (𝐵 ∖ (Unit‘𝑃))) ∧ 𝑞 ∈ (𝐵 ∖ (Unit‘𝑃))) ∧ (𝑝(.r‘𝑃)𝑞) = 𝑄) → 𝑃 ∈ CRing)
62	12, 33, 61, 32, 20	crngcomd 20215	. . . . . . . . . . . . . . . . . 18 ⊢ ((((𝜑 ∧ 𝑝 ∈ (𝐵 ∖ (Unit‘𝑃))) ∧ 𝑞 ∈ (𝐵 ∖ (Unit‘𝑃))) ∧ (𝑝(.r‘𝑃)𝑞) = 𝑄) → (𝑞(.r‘𝑃)𝑝) = (𝑝(.r‘𝑃)𝑞))
63	62, 35	eqtrd 2770	. . . . . . . . . . . . . . . . 17 ⊢ ((((𝜑 ∧ 𝑝 ∈ (𝐵 ∖ (Unit‘𝑃))) ∧ 𝑞 ∈ (𝐵 ∖ (Unit‘𝑃))) ∧ (𝑝(.r‘𝑃)𝑞) = 𝑄) → (𝑞(.r‘𝑃)𝑝) = 𝑄)
64	63	fveq2d 6880	. . . . . . . . . . . . . . . 16 ⊢ ((((𝜑 ∧ 𝑝 ∈ (𝐵 ∖ (Unit‘𝑃))) ∧ 𝑞 ∈ (𝐵 ∖ (Unit‘𝑃))) ∧ (𝑝(.r‘𝑃)𝑞) = 𝑄) → (𝑂‘(𝑞(.r‘𝑃)𝑝)) = (𝑂‘𝑄))
65	64	cnveqd 5855	. . . . . . . . . . . . . . 15 ⊢ ((((𝜑 ∧ 𝑝 ∈ (𝐵 ∖ (Unit‘𝑃))) ∧ 𝑞 ∈ (𝐵 ∖ (Unit‘𝑃))) ∧ (𝑝(.r‘𝑃)𝑞) = 𝑄) → ◡(𝑂‘(𝑞(.r‘𝑃)𝑝)) = ◡(𝑂‘𝑄))
66	65	imaeq1d 6046	. . . . . . . . . . . . . 14 ⊢ ((((𝜑 ∧ 𝑝 ∈ (𝐵 ∖ (Unit‘𝑃))) ∧ 𝑞 ∈ (𝐵 ∖ (Unit‘𝑃))) ∧ (𝑝(.r‘𝑃)𝑞) = 𝑄) → (◡(𝑂‘(𝑞(.r‘𝑃)𝑝)) “ { 0 }) = (◡(𝑂‘𝑄) “ { 0 }))
67	66, 41	eqtrd 2770	. . . . . . . . . . . . 13 ⊢ ((((𝜑 ∧ 𝑝 ∈ (𝐵 ∖ (Unit‘𝑃))) ∧ 𝑞 ∈ (𝐵 ∖ (Unit‘𝑃))) ∧ (𝑝(.r‘𝑃)𝑞) = 𝑄) → (◡(𝑂‘(𝑞(.r‘𝑃)𝑝)) “ { 0 }) = ∅)
68	55, 67	sseqtrd 3995	. . . . . . . . . . . 12 ⊢ ((((𝜑 ∧ 𝑝 ∈ (𝐵 ∖ (Unit‘𝑃))) ∧ 𝑞 ∈ (𝐵 ∖ (Unit‘𝑃))) ∧ (𝑝(.r‘𝑃)𝑞) = 𝑄) → (◡(𝑂‘𝑞) “ { 0 }) ⊆ ∅)
69		ss0 4377	. . . . . . . . . . . 12 ⊢ ((◡(𝑂‘𝑞) “ { 0 }) ⊆ ∅ → (◡(𝑂‘𝑞) “ { 0 }) = ∅)
70	68, 69	syl 17	. . . . . . . . . . 11 ⊢ ((((𝜑 ∧ 𝑝 ∈ (𝐵 ∖ (Unit‘𝑃))) ∧ 𝑞 ∈ (𝐵 ∖ (Unit‘𝑃))) ∧ (𝑝(.r‘𝑃)𝑞) = 𝑄) → (◡(𝑂‘𝑞) “ { 0 }) = ∅)
71	70	adantr 480	. . . . . . . . . 10 ⊢ (((((𝜑 ∧ 𝑝 ∈ (𝐵 ∖ (Unit‘𝑃))) ∧ 𝑞 ∈ (𝐵 ∖ (Unit‘𝑃))) ∧ (𝑝(.r‘𝑃)𝑞) = 𝑄) ∧ (𝐷‘𝑝) = 2) → (◡(𝑂‘𝑞) “ { 0 }) = ∅)
72	18	adantr 480	. . . . . . . . . . 11 ⊢ (((((𝜑 ∧ 𝑝 ∈ (𝐵 ∖ (Unit‘𝑃))) ∧ 𝑞 ∈ (𝐵 ∖ (Unit‘𝑃))) ∧ (𝑝(.r‘𝑃)𝑞) = 𝑄) ∧ (𝐷‘𝑝) = 2) → 𝐹 ∈ Field)
73	32	adantr 480	. . . . . . . . . . 11 ⊢ (((((𝜑 ∧ 𝑝 ∈ (𝐵 ∖ (Unit‘𝑃))) ∧ 𝑞 ∈ (𝐵 ∖ (Unit‘𝑃))) ∧ (𝑝(.r‘𝑃)𝑞) = 𝑄) ∧ (𝐷‘𝑝) = 2) → 𝑞 ∈ 𝐵)
74	29	crngringd 20206	. . . . . . . . . . . . . . . . 17 ⊢ (𝜑 → 𝐹 ∈ Ring)
75	74	ad3antrrr 730	. . . . . . . . . . . . . . . 16 ⊢ ((((𝜑 ∧ 𝑝 ∈ (𝐵 ∖ (Unit‘𝑃))) ∧ 𝑞 ∈ (𝐵 ∖ (Unit‘𝑃))) ∧ (𝑝(.r‘𝑃)𝑞) = 𝑄) → 𝐹 ∈ Ring)
76		eqid 2735	. . . . . . . . . . . . . . . . . 18 ⊢ (0g‘𝑃) = (0g‘𝑃)
77	59	idomdomd 20686	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝜑 → 𝑃 ∈ Domn)
78	77	ad3antrrr 730	. . . . . . . . . . . . . . . . . 18 ⊢ ((((𝜑 ∧ 𝑝 ∈ (𝐵 ∖ (Unit‘𝑃))) ∧ 𝑞 ∈ (𝐵 ∖ (Unit‘𝑃))) ∧ (𝑝(.r‘𝑃)𝑞) = 𝑄) → 𝑃 ∈ Domn)
79		3nn0 12519	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ 3 ∈ ℕ0
80	2, 79	eqeltrdi 2842	. . . . . . . . . . . . . . . . . . . . 21 ⊢ (𝜑 → (𝐷‘𝑄) ∈ ℕ0)
81	11, 6, 76, 12	deg1nn0clb 26047	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ ((𝐹 ∈ Ring ∧ 𝑄 ∈ 𝐵) → (𝑄 ≠ (0g‘𝑃) ↔ (𝐷‘𝑄) ∈ ℕ0))
82	81	biimpar 477	. . . . . . . . . . . . . . . . . . . . 21 ⊢ (((𝐹 ∈ Ring ∧ 𝑄 ∈ 𝐵) ∧ (𝐷‘𝑄) ∈ ℕ0) → 𝑄 ≠ (0g‘𝑃))
83	74, 1, 80, 82	syl21anc 837	. . . . . . . . . . . . . . . . . . . 20 ⊢ (𝜑 → 𝑄 ≠ (0g‘𝑃))
84	83	ad3antrrr 730	. . . . . . . . . . . . . . . . . . 19 ⊢ ((((𝜑 ∧ 𝑝 ∈ (𝐵 ∖ (Unit‘𝑃))) ∧ 𝑞 ∈ (𝐵 ∖ (Unit‘𝑃))) ∧ (𝑝(.r‘𝑃)𝑞) = 𝑄) → 𝑄 ≠ (0g‘𝑃))
85	35, 84	eqnetrd 2999	. . . . . . . . . . . . . . . . . 18 ⊢ ((((𝜑 ∧ 𝑝 ∈ (𝐵 ∖ (Unit‘𝑃))) ∧ 𝑞 ∈ (𝐵 ∖ (Unit‘𝑃))) ∧ (𝑝(.r‘𝑃)𝑞) = 𝑄) → (𝑝(.r‘𝑃)𝑞) ≠ (0g‘𝑃))
86	12, 33, 76, 78, 20, 32, 85	domnmuln0rd 33269	. . . . . . . . . . . . . . . . 17 ⊢ ((((𝜑 ∧ 𝑝 ∈ (𝐵 ∖ (Unit‘𝑃))) ∧ 𝑞 ∈ (𝐵 ∖ (Unit‘𝑃))) ∧ (𝑝(.r‘𝑃)𝑞) = 𝑄) → (𝑝 ≠ (0g‘𝑃) ∧ 𝑞 ≠ (0g‘𝑃)))
87	86	simpld 494	. . . . . . . . . . . . . . . 16 ⊢ ((((𝜑 ∧ 𝑝 ∈ (𝐵 ∖ (Unit‘𝑃))) ∧ 𝑞 ∈ (𝐵 ∖ (Unit‘𝑃))) ∧ (𝑝(.r‘𝑃)𝑞) = 𝑄) → 𝑝 ≠ (0g‘𝑃))
88	11, 6, 76, 12	deg1nn0cl 26045	. . . . . . . . . . . . . . . 16 ⊢ ((𝐹 ∈ Ring ∧ 𝑝 ∈ 𝐵 ∧ 𝑝 ≠ (0g‘𝑃)) → (𝐷‘𝑝) ∈ ℕ0)
89	75, 20, 87, 88	syl3anc 1373	. . . . . . . . . . . . . . 15 ⊢ ((((𝜑 ∧ 𝑝 ∈ (𝐵 ∖ (Unit‘𝑃))) ∧ 𝑞 ∈ (𝐵 ∖ (Unit‘𝑃))) ∧ (𝑝(.r‘𝑃)𝑞) = 𝑄) → (𝐷‘𝑝) ∈ ℕ0)
90	89	nn0cnd 12564	. . . . . . . . . . . . . 14 ⊢ ((((𝜑 ∧ 𝑝 ∈ (𝐵 ∖ (Unit‘𝑃))) ∧ 𝑞 ∈ (𝐵 ∖ (Unit‘𝑃))) ∧ (𝑝(.r‘𝑃)𝑞) = 𝑄) → (𝐷‘𝑝) ∈ ℂ)
91	86	simprd 495	. . . . . . . . . . . . . . . 16 ⊢ ((((𝜑 ∧ 𝑝 ∈ (𝐵 ∖ (Unit‘𝑃))) ∧ 𝑞 ∈ (𝐵 ∖ (Unit‘𝑃))) ∧ (𝑝(.r‘𝑃)𝑞) = 𝑄) → 𝑞 ≠ (0g‘𝑃))
92	11, 6, 76, 12	deg1nn0cl 26045	. . . . . . . . . . . . . . . 16 ⊢ ((𝐹 ∈ Ring ∧ 𝑞 ∈ 𝐵 ∧ 𝑞 ≠ (0g‘𝑃)) → (𝐷‘𝑞) ∈ ℕ0)
93	75, 32, 91, 92	syl3anc 1373	. . . . . . . . . . . . . . 15 ⊢ ((((𝜑 ∧ 𝑝 ∈ (𝐵 ∖ (Unit‘𝑃))) ∧ 𝑞 ∈ (𝐵 ∖ (Unit‘𝑃))) ∧ (𝑝(.r‘𝑃)𝑞) = 𝑄) → (𝐷‘𝑞) ∈ ℕ0)
94	93	nn0cnd 12564	. . . . . . . . . . . . . 14 ⊢ ((((𝜑 ∧ 𝑝 ∈ (𝐵 ∖ (Unit‘𝑃))) ∧ 𝑞 ∈ (𝐵 ∖ (Unit‘𝑃))) ∧ (𝑝(.r‘𝑃)𝑞) = 𝑄) → (𝐷‘𝑞) ∈ ℂ)
95	35	fveq2d 6880	. . . . . . . . . . . . . . 15 ⊢ ((((𝜑 ∧ 𝑝 ∈ (𝐵 ∖ (Unit‘𝑃))) ∧ 𝑞 ∈ (𝐵 ∖ (Unit‘𝑃))) ∧ (𝑝(.r‘𝑃)𝑞) = 𝑄) → (𝐷‘(𝑝(.r‘𝑃)𝑞)) = (𝐷‘𝑄))
96	57	idomdomd 20686	. . . . . . . . . . . . . . . . 17 ⊢ (𝜑 → 𝐹 ∈ Domn)
97	96	ad3antrrr 730	. . . . . . . . . . . . . . . 16 ⊢ ((((𝜑 ∧ 𝑝 ∈ (𝐵 ∖ (Unit‘𝑃))) ∧ 𝑞 ∈ (𝐵 ∖ (Unit‘𝑃))) ∧ (𝑝(.r‘𝑃)𝑞) = 𝑄) → 𝐹 ∈ Domn)
98	11, 6, 12, 33, 76, 97, 20, 87, 32, 91	deg1mul 26072	. . . . . . . . . . . . . . 15 ⊢ ((((𝜑 ∧ 𝑝 ∈ (𝐵 ∖ (Unit‘𝑃))) ∧ 𝑞 ∈ (𝐵 ∖ (Unit‘𝑃))) ∧ (𝑝(.r‘𝑃)𝑞) = 𝑄) → (𝐷‘(𝑝(.r‘𝑃)𝑞)) = ((𝐷‘𝑝) + (𝐷‘𝑞)))
99	2	ad3antrrr 730	. . . . . . . . . . . . . . 15 ⊢ ((((𝜑 ∧ 𝑝 ∈ (𝐵 ∖ (Unit‘𝑃))) ∧ 𝑞 ∈ (𝐵 ∖ (Unit‘𝑃))) ∧ (𝑝(.r‘𝑃)𝑞) = 𝑄) → (𝐷‘𝑄) = 3)
100	95, 98, 99	3eqtr3d 2778	. . . . . . . . . . . . . 14 ⊢ ((((𝜑 ∧ 𝑝 ∈ (𝐵 ∖ (Unit‘𝑃))) ∧ 𝑞 ∈ (𝐵 ∖ (Unit‘𝑃))) ∧ (𝑝(.r‘𝑃)𝑞) = 𝑄) → ((𝐷‘𝑝) + (𝐷‘𝑞)) = 3)
101	90, 94, 100	mvlladdd 11648	. . . . . . . . . . . . 13 ⊢ ((((𝜑 ∧ 𝑝 ∈ (𝐵 ∖ (Unit‘𝑃))) ∧ 𝑞 ∈ (𝐵 ∖ (Unit‘𝑃))) ∧ (𝑝(.r‘𝑃)𝑞) = 𝑄) → (𝐷‘𝑞) = (3 − (𝐷‘𝑝)))
102	101	adantr 480	. . . . . . . . . . . 12 ⊢ (((((𝜑 ∧ 𝑝 ∈ (𝐵 ∖ (Unit‘𝑃))) ∧ 𝑞 ∈ (𝐵 ∖ (Unit‘𝑃))) ∧ (𝑝(.r‘𝑃)𝑞) = 𝑄) ∧ (𝐷‘𝑝) = 2) → (𝐷‘𝑞) = (3 − (𝐷‘𝑝)))
103		simpr 484	. . . . . . . . . . . . 13 ⊢ (((((𝜑 ∧ 𝑝 ∈ (𝐵 ∖ (Unit‘𝑃))) ∧ 𝑞 ∈ (𝐵 ∖ (Unit‘𝑃))) ∧ (𝑝(.r‘𝑃)𝑞) = 𝑄) ∧ (𝐷‘𝑝) = 2) → (𝐷‘𝑝) = 2)
104	103	oveq2d 7421	. . . . . . . . . . . 12 ⊢ (((((𝜑 ∧ 𝑝 ∈ (𝐵 ∖ (Unit‘𝑃))) ∧ 𝑞 ∈ (𝐵 ∖ (Unit‘𝑃))) ∧ (𝑝(.r‘𝑃)𝑞) = 𝑄) ∧ (𝐷‘𝑝) = 2) → (3 − (𝐷‘𝑝)) = (3 − 2))
105		3cn 12321	. . . . . . . . . . . . . 14 ⊢ 3 ∈ ℂ
106		2cn 12315	. . . . . . . . . . . . . 14 ⊢ 2 ∈ ℂ
107		ax-1cn 11187	. . . . . . . . . . . . . 14 ⊢ 1 ∈ ℂ
108		2p1e3 12382	. . . . . . . . . . . . . 14 ⊢ (2 + 1) = 3
109	105, 106, 107, 108	subaddrii 11572	. . . . . . . . . . . . 13 ⊢ (3 − 2) = 1
110	109	a1i 11	. . . . . . . . . . . 12 ⊢ (((((𝜑 ∧ 𝑝 ∈ (𝐵 ∖ (Unit‘𝑃))) ∧ 𝑞 ∈ (𝐵 ∖ (Unit‘𝑃))) ∧ (𝑝(.r‘𝑃)𝑞) = 𝑄) ∧ (𝐷‘𝑝) = 2) → (3 − 2) = 1)
111	102, 104, 110	3eqtrd 2774	. . . . . . . . . . 11 ⊢ (((((𝜑 ∧ 𝑝 ∈ (𝐵 ∖ (Unit‘𝑃))) ∧ 𝑞 ∈ (𝐵 ∖ (Unit‘𝑃))) ∧ (𝑝(.r‘𝑃)𝑞) = 𝑄) ∧ (𝐷‘𝑝) = 2) → (𝐷‘𝑞) = 1)
112	6, 12, 28, 11, 9, 72, 73, 111	ply1dg1rtn0 33593	. . . . . . . . . 10 ⊢ (((((𝜑 ∧ 𝑝 ∈ (𝐵 ∖ (Unit‘𝑃))) ∧ 𝑞 ∈ (𝐵 ∖ (Unit‘𝑃))) ∧ (𝑝(.r‘𝑃)𝑞) = 𝑄) ∧ (𝐷‘𝑝) = 2) → (◡(𝑂‘𝑞) “ { 0 }) ≠ ∅)
113	71, 112	pm2.21ddne 3016	. . . . . . . . 9 ⊢ (((((𝜑 ∧ 𝑝 ∈ (𝐵 ∖ (Unit‘𝑃))) ∧ 𝑞 ∈ (𝐵 ∖ (Unit‘𝑃))) ∧ (𝑝(.r‘𝑃)𝑞) = 𝑄) ∧ (𝐷‘𝑝) = 2) → ⊥)
114	113	adantlr 715	. . . . . . . 8 ⊢ ((((((𝜑 ∧ 𝑝 ∈ (𝐵 ∖ (Unit‘𝑃))) ∧ 𝑞 ∈ (𝐵 ∖ (Unit‘𝑃))) ∧ (𝑝(.r‘𝑃)𝑞) = 𝑄) ∧ (𝐷‘𝑝) ∈ {2, 3}) ∧ (𝐷‘𝑝) = 2) → ⊥)
115	101	adantr 480	. . . . . . . . . . . 12 ⊢ (((((𝜑 ∧ 𝑝 ∈ (𝐵 ∖ (Unit‘𝑃))) ∧ 𝑞 ∈ (𝐵 ∖ (Unit‘𝑃))) ∧ (𝑝(.r‘𝑃)𝑞) = 𝑄) ∧ (𝐷‘𝑝) = 3) → (𝐷‘𝑞) = (3 − (𝐷‘𝑝)))
116		simpr 484	. . . . . . . . . . . . 13 ⊢ (((((𝜑 ∧ 𝑝 ∈ (𝐵 ∖ (Unit‘𝑃))) ∧ 𝑞 ∈ (𝐵 ∖ (Unit‘𝑃))) ∧ (𝑝(.r‘𝑃)𝑞) = 𝑄) ∧ (𝐷‘𝑝) = 3) → (𝐷‘𝑝) = 3)
117	116	oveq2d 7421	. . . . . . . . . . . 12 ⊢ (((((𝜑 ∧ 𝑝 ∈ (𝐵 ∖ (Unit‘𝑃))) ∧ 𝑞 ∈ (𝐵 ∖ (Unit‘𝑃))) ∧ (𝑝(.r‘𝑃)𝑞) = 𝑄) ∧ (𝐷‘𝑝) = 3) → (3 − (𝐷‘𝑝)) = (3 − 3))
118	105	subidi 11554	. . . . . . . . . . . . 13 ⊢ (3 − 3) = 0
119	118	a1i 11	. . . . . . . . . . . 12 ⊢ (((((𝜑 ∧ 𝑝 ∈ (𝐵 ∖ (Unit‘𝑃))) ∧ 𝑞 ∈ (𝐵 ∖ (Unit‘𝑃))) ∧ (𝑝(.r‘𝑃)𝑞) = 𝑄) ∧ (𝐷‘𝑝) = 3) → (3 − 3) = 0)
120	115, 117, 119	3eqtrd 2774	. . . . . . . . . . 11 ⊢ (((((𝜑 ∧ 𝑝 ∈ (𝐵 ∖ (Unit‘𝑃))) ∧ 𝑞 ∈ (𝐵 ∖ (Unit‘𝑃))) ∧ (𝑝(.r‘𝑃)𝑞) = 𝑄) ∧ (𝐷‘𝑝) = 3) → (𝐷‘𝑞) = 0)
121	18	adantr 480	. . . . . . . . . . . 12 ⊢ (((((𝜑 ∧ 𝑝 ∈ (𝐵 ∖ (Unit‘𝑃))) ∧ 𝑞 ∈ (𝐵 ∖ (Unit‘𝑃))) ∧ (𝑝(.r‘𝑃)𝑞) = 𝑄) ∧ (𝐷‘𝑝) = 3) → 𝐹 ∈ Field)
122	32, 12	eleqtrdi 2844	. . . . . . . . . . . . 13 ⊢ ((((𝜑 ∧ 𝑝 ∈ (𝐵 ∖ (Unit‘𝑃))) ∧ 𝑞 ∈ (𝐵 ∖ (Unit‘𝑃))) ∧ (𝑝(.r‘𝑃)𝑞) = 𝑄) → 𝑞 ∈ (Base‘𝑃))
123	122	adantr 480	. . . . . . . . . . . 12 ⊢ (((((𝜑 ∧ 𝑝 ∈ (𝐵 ∖ (Unit‘𝑃))) ∧ 𝑞 ∈ (𝐵 ∖ (Unit‘𝑃))) ∧ (𝑝(.r‘𝑃)𝑞) = 𝑄) ∧ (𝐷‘𝑝) = 3) → 𝑞 ∈ (Base‘𝑃))
124	6, 7, 8, 9, 121, 11, 123	ply1unit 33588	. . . . . . . . . . 11 ⊢ (((((𝜑 ∧ 𝑝 ∈ (𝐵 ∖ (Unit‘𝑃))) ∧ 𝑞 ∈ (𝐵 ∖ (Unit‘𝑃))) ∧ (𝑝(.r‘𝑃)𝑞) = 𝑄) ∧ (𝐷‘𝑝) = 3) → (𝑞 ∈ (Unit‘𝑃) ↔ (𝐷‘𝑞) = 0))
125	120, 124	mpbird 257	. . . . . . . . . 10 ⊢ (((((𝜑 ∧ 𝑝 ∈ (𝐵 ∖ (Unit‘𝑃))) ∧ 𝑞 ∈ (𝐵 ∖ (Unit‘𝑃))) ∧ (𝑝(.r‘𝑃)𝑞) = 𝑄) ∧ (𝐷‘𝑝) = 3) → 𝑞 ∈ (Unit‘𝑃))
126	31	eldifbd 3939	. . . . . . . . . . 11 ⊢ ((((𝜑 ∧ 𝑝 ∈ (𝐵 ∖ (Unit‘𝑃))) ∧ 𝑞 ∈ (𝐵 ∖ (Unit‘𝑃))) ∧ (𝑝(.r‘𝑃)𝑞) = 𝑄) → ¬ 𝑞 ∈ (Unit‘𝑃))
127	126	adantr 480	. . . . . . . . . 10 ⊢ (((((𝜑 ∧ 𝑝 ∈ (𝐵 ∖ (Unit‘𝑃))) ∧ 𝑞 ∈ (𝐵 ∖ (Unit‘𝑃))) ∧ (𝑝(.r‘𝑃)𝑞) = 𝑄) ∧ (𝐷‘𝑝) = 3) → ¬ 𝑞 ∈ (Unit‘𝑃))
128	125, 127	pm2.21fal 1562	. . . . . . . . 9 ⊢ (((((𝜑 ∧ 𝑝 ∈ (𝐵 ∖ (Unit‘𝑃))) ∧ 𝑞 ∈ (𝐵 ∖ (Unit‘𝑃))) ∧ (𝑝(.r‘𝑃)𝑞) = 𝑄) ∧ (𝐷‘𝑝) = 3) → ⊥)
129	128	adantlr 715	. . . . . . . 8 ⊢ ((((((𝜑 ∧ 𝑝 ∈ (𝐵 ∖ (Unit‘𝑃))) ∧ 𝑞 ∈ (𝐵 ∖ (Unit‘𝑃))) ∧ (𝑝(.r‘𝑃)𝑞) = 𝑄) ∧ (𝐷‘𝑝) ∈ {2, 3}) ∧ (𝐷‘𝑝) = 3) → ⊥)
130		elpri 4625	. . . . . . . . 9 ⊢ ((𝐷‘𝑝) ∈ {2, 3} → ((𝐷‘𝑝) = 2 ∨ (𝐷‘𝑝) = 3))
131	130	adantl 481	. . . . . . . 8 ⊢ (((((𝜑 ∧ 𝑝 ∈ (𝐵 ∖ (Unit‘𝑃))) ∧ 𝑞 ∈ (𝐵 ∖ (Unit‘𝑃))) ∧ (𝑝(.r‘𝑃)𝑞) = 𝑄) ∧ (𝐷‘𝑝) ∈ {2, 3}) → ((𝐷‘𝑝) = 2 ∨ (𝐷‘𝑝) = 3))
132	114, 129, 131	mpjaodan 960	. . . . . . 7 ⊢ (((((𝜑 ∧ 𝑝 ∈ (𝐵 ∖ (Unit‘𝑃))) ∧ 𝑞 ∈ (𝐵 ∖ (Unit‘𝑃))) ∧ (𝑝(.r‘𝑃)𝑞) = 𝑄) ∧ (𝐷‘𝑝) ∈ {2, 3}) → ⊥)
133	79	a1i 11	. . . . . . . . . 10 ⊢ ((((𝜑 ∧ 𝑝 ∈ (𝐵 ∖ (Unit‘𝑃))) ∧ 𝑞 ∈ (𝐵 ∖ (Unit‘𝑃))) ∧ (𝑝(.r‘𝑃)𝑞) = 𝑄) → 3 ∈ ℕ0)
134	89	nn0red 12563	. . . . . . . . . . . 12 ⊢ ((((𝜑 ∧ 𝑝 ∈ (𝐵 ∖ (Unit‘𝑃))) ∧ 𝑞 ∈ (𝐵 ∖ (Unit‘𝑃))) ∧ (𝑝(.r‘𝑃)𝑞) = 𝑄) → (𝐷‘𝑝) ∈ ℝ)
135		nn0addge1 12547	. . . . . . . . . . . 12 ⊢ (((𝐷‘𝑝) ∈ ℝ ∧ (𝐷‘𝑞) ∈ ℕ0) → (𝐷‘𝑝) ≤ ((𝐷‘𝑝) + (𝐷‘𝑞)))
136	134, 93, 135	syl2anc 584	. . . . . . . . . . 11 ⊢ ((((𝜑 ∧ 𝑝 ∈ (𝐵 ∖ (Unit‘𝑃))) ∧ 𝑞 ∈ (𝐵 ∖ (Unit‘𝑃))) ∧ (𝑝(.r‘𝑃)𝑞) = 𝑄) → (𝐷‘𝑝) ≤ ((𝐷‘𝑝) + (𝐷‘𝑞)))
137	136, 100	breqtrd 5145	. . . . . . . . . 10 ⊢ ((((𝜑 ∧ 𝑝 ∈ (𝐵 ∖ (Unit‘𝑃))) ∧ 𝑞 ∈ (𝐵 ∖ (Unit‘𝑃))) ∧ (𝑝(.r‘𝑃)𝑞) = 𝑄) → (𝐷‘𝑝) ≤ 3)
138		fznn0 13636	. . . . . . . . . . 11 ⊢ (3 ∈ ℕ0 → ((𝐷‘𝑝) ∈ (0...3) ↔ ((𝐷‘𝑝) ∈ ℕ0 ∧ (𝐷‘𝑝) ≤ 3)))
139	138	biimpar 477	. . . . . . . . . 10 ⊢ ((3 ∈ ℕ0 ∧ ((𝐷‘𝑝) ∈ ℕ0 ∧ (𝐷‘𝑝) ≤ 3)) → (𝐷‘𝑝) ∈ (0...3))
140	133, 89, 137, 139	syl12anc 836	. . . . . . . . 9 ⊢ ((((𝜑 ∧ 𝑝 ∈ (𝐵 ∖ (Unit‘𝑃))) ∧ 𝑞 ∈ (𝐵 ∖ (Unit‘𝑃))) ∧ (𝑝(.r‘𝑃)𝑞) = 𝑄) → (𝐷‘𝑝) ∈ (0...3))
141		fz0to3un2pr 13646	. . . . . . . . 9 ⊢ (0...3) = ({0, 1} ∪ {2, 3})
142	140, 141	eleqtrdi 2844	. . . . . . . 8 ⊢ ((((𝜑 ∧ 𝑝 ∈ (𝐵 ∖ (Unit‘𝑃))) ∧ 𝑞 ∈ (𝐵 ∖ (Unit‘𝑃))) ∧ (𝑝(.r‘𝑃)𝑞) = 𝑄) → (𝐷‘𝑝) ∈ ({0, 1} ∪ {2, 3}))
143		elun 4128	. . . . . . . 8 ⊢ ((𝐷‘𝑝) ∈ ({0, 1} ∪ {2, 3}) ↔ ((𝐷‘𝑝) ∈ {0, 1} ∨ (𝐷‘𝑝) ∈ {2, 3}))
144	142, 143	sylib 218	. . . . . . 7 ⊢ ((((𝜑 ∧ 𝑝 ∈ (𝐵 ∖ (Unit‘𝑃))) ∧ 𝑞 ∈ (𝐵 ∖ (Unit‘𝑃))) ∧ (𝑝(.r‘𝑃)𝑞) = 𝑄) → ((𝐷‘𝑝) ∈ {0, 1} ∨ (𝐷‘𝑝) ∈ {2, 3}))
145	54, 132, 144	mpjaodan 960	. . . . . 6 ⊢ ((((𝜑 ∧ 𝑝 ∈ (𝐵 ∖ (Unit‘𝑃))) ∧ 𝑞 ∈ (𝐵 ∖ (Unit‘𝑃))) ∧ (𝑝(.r‘𝑃)𝑞) = 𝑄) → ⊥)
146	145	r19.29ffa 32452	. . . . 5 ⊢ ((𝜑 ∧ ∃𝑝 ∈ (𝐵 ∖ (Unit‘𝑃))∃𝑞 ∈ (𝐵 ∖ (Unit‘𝑃))(𝑝(.r‘𝑃)𝑞) = 𝑄) → ⊥)
147	146	inegd 1560	. . . 4 ⊢ (𝜑 → ¬ ∃𝑝 ∈ (𝐵 ∖ (Unit‘𝑃))∃𝑞 ∈ (𝐵 ∖ (Unit‘𝑃))(𝑝(.r‘𝑃)𝑞) = 𝑄)
148		ralnex2 3120	. . . 4 ⊢ (∀𝑝 ∈ (𝐵 ∖ (Unit‘𝑃))∀𝑞 ∈ (𝐵 ∖ (Unit‘𝑃)) ¬ (𝑝(.r‘𝑃)𝑞) = 𝑄 ↔ ¬ ∃𝑝 ∈ (𝐵 ∖ (Unit‘𝑃))∃𝑞 ∈ (𝐵 ∖ (Unit‘𝑃))(𝑝(.r‘𝑃)𝑞) = 𝑄)
149	147, 148	sylibr 234	. . 3 ⊢ (𝜑 → ∀𝑝 ∈ (𝐵 ∖ (Unit‘𝑃))∀𝑞 ∈ (𝐵 ∖ (Unit‘𝑃)) ¬ (𝑝(.r‘𝑃)𝑞) = 𝑄)
150		df-ne 2933	. . . 4 ⊢ ((𝑝(.r‘𝑃)𝑞) ≠ 𝑄 ↔ ¬ (𝑝(.r‘𝑃)𝑞) = 𝑄)
151	150	2ralbii 3115	. . 3 ⊢ (∀𝑝 ∈ (𝐵 ∖ (Unit‘𝑃))∀𝑞 ∈ (𝐵 ∖ (Unit‘𝑃))(𝑝(.r‘𝑃)𝑞) ≠ 𝑄 ↔ ∀𝑝 ∈ (𝐵 ∖ (Unit‘𝑃))∀𝑞 ∈ (𝐵 ∖ (Unit‘𝑃)) ¬ (𝑝(.r‘𝑃)𝑞) = 𝑄)
152	149, 151	sylibr 234	. 2 ⊢ (𝜑 → ∀𝑝 ∈ (𝐵 ∖ (Unit‘𝑃))∀𝑞 ∈ (𝐵 ∖ (Unit‘𝑃))(𝑝(.r‘𝑃)𝑞) ≠ 𝑄)
153		eqid 2735	. . 3 ⊢ (Unit‘𝑃) = (Unit‘𝑃)
154		eqid 2735	. . 3 ⊢ (Irred‘𝑃) = (Irred‘𝑃)
155		eqid 2735	. . 3 ⊢ (𝐵 ∖ (Unit‘𝑃)) = (𝐵 ∖ (Unit‘𝑃))
156	12, 153, 154, 155, 33	isirred 20379	. 2 ⊢ (𝑄 ∈ (Irred‘𝑃) ↔ (𝑄 ∈ (𝐵 ∖ (Unit‘𝑃)) ∧ ∀𝑝 ∈ (𝐵 ∖ (Unit‘𝑃))∀𝑞 ∈ (𝐵 ∖ (Unit‘𝑃))(𝑝(.r‘𝑃)𝑞) ≠ 𝑄))
157	17, 152, 156	sylanbrc 583	1 ⊢ (𝜑 → 𝑄 ∈ (Irred‘𝑃))

Syntax hints:  ¬ wn 3   → wi 4   ∧ wa 395   ∨ wo 847   = wceq 1540  ⊥wfal 1552   ∈ wcel 2108   ≠ wne 2932  ∀wral 3051  ∃wrex 3060   ∖ cdif 3923   ∪ cun 3924   ⊆ wss 3926  ∅c0 4308  {csn 4601  {cpr 4603   class class class wbr 5119  ^◡ccnv 5653   “ cima 5657  ‘cfv 6531  (class class class)co 7405  ℝcr 11128  0cc0 11129  1c1 11130   + caddc 11132   ≤ cle 11270   − cmin 11466  2c2 12295  3c3 12296  ℕ₀cn0 12501  ...cfz 13524  Basecbs 17228  ._rcmulr 17272  0_gc0g 17453  Ringcrg 20193  CRingccrg 20194  Unitcui 20315  Irredcir 20316  Domncdomn 20652  IDomncidom 20653  Fieldcfield 20690  algSccascl 21812  Poly₁cpl1 22112  eval₁ce1 22252  deg₁cdg1 26011

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1795  ax-4 1809  ax-5 1910  ax-6 1967  ax-7 2007  ax-8 2110  ax-9 2118  ax-10 2141  ax-11 2157  ax-12 2177  ax-ext 2707  ax-rep 5249  ax-sep 5266  ax-nul 5276  ax-pow 5335  ax-pr 5402  ax-un 7729  ax-cnex 11185  ax-resscn 11186  ax-1cn 11187  ax-icn 11188  ax-addcl 11189  ax-addrcl 11190  ax-mulcl 11191  ax-mulrcl 11192  ax-mulcom 11193  ax-addass 11194  ax-mulass 11195  ax-distr 11196  ax-i2m1 11197  ax-1ne0 11198  ax-1rid 11199  ax-rnegex 11200  ax-rrecex 11201  ax-cnre 11202  ax-pre-lttri 11203  ax-pre-lttrn 11204  ax-pre-ltadd 11205  ax-pre-mulgt0 11206  ax-pre-sup 11207  ax-addf 11208

This theorem depends on definitions:  df-bi 207  df-an 396  df-or 848  df-3or 1087  df-3an 1088  df-tru 1543  df-fal 1553  df-ex 1780  df-nf 1784  df-sb 2065  df-mo 2539  df-eu 2568  df-clab 2714  df-cleq 2727  df-clel 2809  df-nfc 2885  df-ne 2933  df-nel 3037  df-ral 3052  df-rex 3061  df-rmo 3359  df-reu 3360  df-rab 3416  df-v 3461  df-sbc 3766  df-csb 3875  df-dif 3929  df-un 3931  df-in 3933  df-ss 3943  df-pss 3946  df-nul 4309  df-if 4501  df-pw 4577  df-sn 4602  df-pr 4604  df-tp 4606  df-op 4608  df-uni 4884  df-int 4923  df-iun 4969  df-iin 4970  df-br 5120  df-opab 5182  df-mpt 5202  df-tr 5230  df-id 5548  df-eprel 5553  df-po 5561  df-so 5562  df-fr 5606  df-se 5607  df-we 5608  df-xp 5660  df-rel 5661  df-cnv 5662  df-co 5663  df-dm 5664  df-rn 5665  df-res 5666  df-ima 5667  df-pred 6290  df-ord 6355  df-on 6356  df-lim 6357  df-suc 6358  df-iota 6484  df-fun 6533  df-fn 6534  df-f 6535  df-f1 6536  df-fo 6537  df-f1o 6538  df-fv 6539  df-isom 6540  df-riota 7362  df-ov 7408  df-oprab 7409  df-mpo 7410  df-of 7671  df-ofr 7672  df-om 7862  df-1st 7988  df-2nd 7989  df-supp 8160  df-tpos 8225  df-frecs 8280  df-wrecs 8311  df-recs 8385  df-rdg 8424  df-1o 8480  df-2o 8481  df-er 8719  df-map 8842  df-pm 8843  df-ixp 8912  df-en 8960  df-dom 8961  df-sdom 8962  df-fin 8963  df-fsupp 9374  df-sup 9454  df-oi 9524  df-card 9953  df-pnf 11271  df-mnf 11272  df-xr 11273  df-ltxr 11274  df-le 11275  df-sub 11468  df-neg 11469  df-nn 12241  df-2 12303  df-3 12304  df-4 12305  df-5 12306  df-6 12307  df-7 12308  df-8 12309  df-9 12310  df-n0 12502  df-z 12589  df-dec 12709  df-uz 12853  df-fz 13525  df-fzo 13672  df-seq 14020  df-hash 14349  df-struct 17166  df-sets 17183  df-slot 17201  df-ndx 17213  df-base 17229  df-ress 17252  df-plusg 17284  df-mulr 17285  df-starv 17286  df-sca 17287  df-vsca 17288  df-ip 17289  df-tset 17290  df-ple 17291  df-ds 17293  df-unif 17294  df-hom 17295  df-cco 17296  df-0g 17455  df-gsum 17456  df-prds 17461  df-pws 17463  df-mre 17598  df-mrc 17599  df-acs 17601  df-mgm 18618  df-sgrp 18697  df-mnd 18713  df-mhm 18761  df-submnd 18762  df-grp 18919  df-minusg 18920  df-sbg 18921  df-mulg 19051  df-subg 19106  df-ghm 19196  df-cntz 19300  df-cmn 19763  df-abl 19764  df-mgp 20101  df-rng 20113  df-ur 20142  df-srg 20147  df-ring 20195  df-cring 20196  df-oppr 20297  df-dvdsr 20317  df-unit 20318  df-irred 20319  df-invr 20348  df-dvr 20361  df-rhm 20432  df-nzr 20473  df-subrng 20506  df-subrg 20530  df-rlreg 20654  df-domn 20655  df-idom 20656  df-drng 20691  df-field 20692  df-lmod 20819  df-lss 20889  df-lsp 20929  df-cnfld 21316  df-assa 21813  df-asp 21814  df-ascl 21815  df-psr 21869  df-mvr 21870  df-mpl 21871  df-opsr 21873  df-evls 22032  df-evl 22033  df-psr1 22115  df-vr1 22116  df-ply1 22117  df-coe1 22118  df-evls1 22253  df-evl1 22254  df-mdeg 26012  df-deg1 26013  df-mon1 26088

This theorem is referenced by:  2sqr3minply  33814  cos9thpiminply  33822