Theorem ply1dg3rt0irred 33614

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 12249	. . . . . 6 ⊢ 3 ≠ 0
4	3	a1i 11	. . . . 5 ⊢ (𝜑 → 3 ≠ 0)
5	2, 4	eqnetrd 2997	. . . 4 ⊢ (𝜑 → (𝐷‘𝑄) ≠ 0)
6		ply1dg3rt0irred.p	. . . . . 6 ⊢ 𝑃 = (Poly1‘𝐹)
7		eqid 2734	. . . . . 6 ⊢ (algSc‘𝑃) = (algSc‘𝑃)
8		eqid 2734	. . . . . 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 33605	. . . . 5 ⊢ (𝜑 → (𝑄 ∈ (Unit‘𝑃) ↔ (𝐷‘𝑄) = 0))
15	14	necon3bbid 2967	. . . 4 ⊢ (𝜑 → (¬ 𝑄 ∈ (Unit‘𝑃) ↔ (𝐷‘𝑄) ≠ 0))
16	5, 15	mpbird 257	. . 3 ⊢ (𝜑 → ¬ 𝑄 ∈ (Unit‘𝑃))
17	1, 16	eldifd 3910	. 2 ⊢ (𝜑 → 𝑄 ∈ (𝐵 ∖ (Unit‘𝑃)))
18	10	ad3antrrr 730	. . . . . . . . . . . 12 ⊢ ((((𝜑 ∧ 𝑝 ∈ (𝐵 ∖ (Unit‘𝑃))) ∧ 𝑞 ∈ (𝐵 ∖ (Unit‘𝑃))) ∧ (𝑝(.r‘𝑃)𝑞) = 𝑄) → 𝐹 ∈ Field)
19		simpllr 775	. . . . . . . . . . . . . 14 ⊢ ((((𝜑 ∧ 𝑝 ∈ (𝐵 ∖ (Unit‘𝑃))) ∧ 𝑞 ∈ (𝐵 ∖ (Unit‘𝑃))) ∧ (𝑝(.r‘𝑃)𝑞) = 𝑄) → 𝑝 ∈ (𝐵 ∖ (Unit‘𝑃)))
20	19	eldifad 3911	. . . . . . . . . . . . 13 ⊢ ((((𝜑 ∧ 𝑝 ∈ (𝐵 ∖ (Unit‘𝑃))) ∧ 𝑞 ∈ (𝐵 ∖ (Unit‘𝑃))) ∧ (𝑝(.r‘𝑃)𝑞) = 𝑄) → 𝑝 ∈ 𝐵)
21	20, 12	eleqtrdi 2844	. . . . . . . . . . . 12 ⊢ ((((𝜑 ∧ 𝑝 ∈ (𝐵 ∖ (Unit‘𝑃))) ∧ 𝑞 ∈ (𝐵 ∖ (Unit‘𝑃))) ∧ (𝑝(.r‘𝑃)𝑞) = 𝑄) → 𝑝 ∈ (Base‘𝑃))
22	6, 7, 8, 9, 18, 11, 21	ply1unit 33605	. . . . . . . . . . 11 ⊢ ((((𝜑 ∧ 𝑝 ∈ (𝐵 ∖ (Unit‘𝑃))) ∧ 𝑞 ∈ (𝐵 ∖ (Unit‘𝑃))) ∧ (𝑝(.r‘𝑃)𝑞) = 𝑄) → (𝑝 ∈ (Unit‘𝑃) ↔ (𝐷‘𝑝) = 0))
23	22	biimpar 477	. . . . . . . . . 10 ⊢ (((((𝜑 ∧ 𝑝 ∈ (𝐵 ∖ (Unit‘𝑃))) ∧ 𝑞 ∈ (𝐵 ∖ (Unit‘𝑃))) ∧ (𝑝(.r‘𝑃)𝑞) = 𝑄) ∧ (𝐷‘𝑝) = 0) → 𝑝 ∈ (Unit‘𝑃))
24	19	eldifbd 3912	. . . . . . . . . . 11 ⊢ ((((𝜑 ∧ 𝑝 ∈ (𝐵 ∖ (Unit‘𝑃))) ∧ 𝑞 ∈ (𝐵 ∖ (Unit‘𝑃))) ∧ (𝑝(.r‘𝑃)𝑞) = 𝑄) → ¬ 𝑝 ∈ (Unit‘𝑃))
25	24	adantr 480	. . . . . . . . . 10 ⊢ (((((𝜑 ∧ 𝑝 ∈ (𝐵 ∖ (Unit‘𝑃))) ∧ 𝑞 ∈ (𝐵 ∖ (Unit‘𝑃))) ∧ (𝑝(.r‘𝑃)𝑞) = 𝑄) ∧ (𝐷‘𝑝) = 0) → ¬ 𝑝 ∈ (Unit‘𝑃))
26	23, 25	pm2.21fal 1563	. . . . . . . . 9 ⊢ (((((𝜑 ∧ 𝑝 ∈ (𝐵 ∖ (Unit‘𝑃))) ∧ 𝑞 ∈ (𝐵 ∖ (Unit‘𝑃))) ∧ (𝑝(.r‘𝑃)𝑞) = 𝑄) ∧ (𝐷‘𝑝) = 0) → ⊥)
27	26	adantlr 715	. . . . . . . 8 ⊢ ((((((𝜑 ∧ 𝑝 ∈ (𝐵 ∖ (Unit‘𝑃))) ∧ 𝑞 ∈ (𝐵 ∖ (Unit‘𝑃))) ∧ (𝑝(.r‘𝑃)𝑞) = 𝑄) ∧ (𝐷‘𝑝) ∈ {0, 1}) ∧ (𝐷‘𝑝) = 0) → ⊥)
28		ply1dg3rt0irred.o	. . . . . . . . . . . . . . 15 ⊢ 𝑂 = (eval1‘𝐹)
29	10	fldcrngd 20673	. . . . . . . . . . . . . . . 16 ⊢ (𝜑 → 𝐹 ∈ CRing)
30	29	ad3antrrr 730	. . . . . . . . . . . . . . 15 ⊢ ((((𝜑 ∧ 𝑝 ∈ (𝐵 ∖ (Unit‘𝑃))) ∧ 𝑞 ∈ (𝐵 ∖ (Unit‘𝑃))) ∧ (𝑝(.r‘𝑃)𝑞) = 𝑄) → 𝐹 ∈ CRing)
31		simplr 768	. . . . . . . . . . . . . . . 16 ⊢ ((((𝜑 ∧ 𝑝 ∈ (𝐵 ∖ (Unit‘𝑃))) ∧ 𝑞 ∈ (𝐵 ∖ (Unit‘𝑃))) ∧ (𝑝(.r‘𝑃)𝑞) = 𝑄) → 𝑞 ∈ (𝐵 ∖ (Unit‘𝑃)))
32	31	eldifad 3911	. . . . . . . . . . . . . . 15 ⊢ ((((𝜑 ∧ 𝑝 ∈ (𝐵 ∖ (Unit‘𝑃))) ∧ 𝑞 ∈ (𝐵 ∖ (Unit‘𝑃))) ∧ (𝑝(.r‘𝑃)𝑞) = 𝑄) → 𝑞 ∈ 𝐵)
33		eqid 2734	. . . . . . . . . . . . . . 15 ⊢ (.r‘𝑃) = (.r‘𝑃)
34	6, 12, 28, 11, 9, 30, 20, 32, 33	ply1mulrtss 33612	. . . . . . . . . . . . . 14 ⊢ ((((𝜑 ∧ 𝑝 ∈ (𝐵 ∖ (Unit‘𝑃))) ∧ 𝑞 ∈ (𝐵 ∖ (Unit‘𝑃))) ∧ (𝑝(.r‘𝑃)𝑞) = 𝑄) → (◡(𝑂‘𝑝) “ { 0 }) ⊆ (◡(𝑂‘(𝑝(.r‘𝑃)𝑞)) “ { 0 }))
35		simpr 484	. . . . . . . . . . . . . . . . 17 ⊢ ((((𝜑 ∧ 𝑝 ∈ (𝐵 ∖ (Unit‘𝑃))) ∧ 𝑞 ∈ (𝐵 ∖ (Unit‘𝑃))) ∧ (𝑝(.r‘𝑃)𝑞) = 𝑄) → (𝑝(.r‘𝑃)𝑞) = 𝑄)
36	35	fveq2d 6836	. . . . . . . . . . . . . . . 16 ⊢ ((((𝜑 ∧ 𝑝 ∈ (𝐵 ∖ (Unit‘𝑃))) ∧ 𝑞 ∈ (𝐵 ∖ (Unit‘𝑃))) ∧ (𝑝(.r‘𝑃)𝑞) = 𝑄) → (𝑂‘(𝑝(.r‘𝑃)𝑞)) = (𝑂‘𝑄))
37	36	cnveqd 5822	. . . . . . . . . . . . . . 15 ⊢ ((((𝜑 ∧ 𝑝 ∈ (𝐵 ∖ (Unit‘𝑃))) ∧ 𝑞 ∈ (𝐵 ∖ (Unit‘𝑃))) ∧ (𝑝(.r‘𝑃)𝑞) = 𝑄) → ◡(𝑂‘(𝑝(.r‘𝑃)𝑞)) = ◡(𝑂‘𝑄))
38	37	imaeq1d 6016	. . . . . . . . . . . . . 14 ⊢ ((((𝜑 ∧ 𝑝 ∈ (𝐵 ∖ (Unit‘𝑃))) ∧ 𝑞 ∈ (𝐵 ∖ (Unit‘𝑃))) ∧ (𝑝(.r‘𝑃)𝑞) = 𝑄) → (◡(𝑂‘(𝑝(.r‘𝑃)𝑞)) “ { 0 }) = (◡(𝑂‘𝑄) “ { 0 }))
39	34, 38	sseqtrd 3968	. . . . . . . . . . . . 13 ⊢ ((((𝜑 ∧ 𝑝 ∈ (𝐵 ∖ (Unit‘𝑃))) ∧ 𝑞 ∈ (𝐵 ∖ (Unit‘𝑃))) ∧ (𝑝(.r‘𝑃)𝑞) = 𝑄) → (◡(𝑂‘𝑝) “ { 0 }) ⊆ (◡(𝑂‘𝑄) “ { 0 }))
40		ply1dg3rt0irred.1	. . . . . . . . . . . . . 14 ⊢ (𝜑 → (◡(𝑂‘𝑄) “ { 0 }) = ∅)
41	40	ad3antrrr 730	. . . . . . . . . . . . 13 ⊢ ((((𝜑 ∧ 𝑝 ∈ (𝐵 ∖ (Unit‘𝑃))) ∧ 𝑞 ∈ (𝐵 ∖ (Unit‘𝑃))) ∧ (𝑝(.r‘𝑃)𝑞) = 𝑄) → (◡(𝑂‘𝑄) “ { 0 }) = ∅)
42	39, 41	sseqtrd 3968	. . . . . . . . . . . 12 ⊢ ((((𝜑 ∧ 𝑝 ∈ (𝐵 ∖ (Unit‘𝑃))) ∧ 𝑞 ∈ (𝐵 ∖ (Unit‘𝑃))) ∧ (𝑝(.r‘𝑃)𝑞) = 𝑄) → (◡(𝑂‘𝑝) “ { 0 }) ⊆ ∅)
43		ss0 4352	. . . . . . . . . . . 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 33611	. . . . . . . . . 10 ⊢ (((((𝜑 ∧ 𝑝 ∈ (𝐵 ∖ (Unit‘𝑃))) ∧ 𝑞 ∈ (𝐵 ∖ (Unit‘𝑃))) ∧ (𝑝(.r‘𝑃)𝑞) = 𝑄) ∧ (𝐷‘𝑝) = 1) → (◡(𝑂‘𝑝) “ { 0 }) ≠ ∅)
50	45, 49	pm2.21ddne 3014	. . . . . . . . 9 ⊢ (((((𝜑 ∧ 𝑝 ∈ (𝐵 ∖ (Unit‘𝑃))) ∧ 𝑞 ∈ (𝐵 ∖ (Unit‘𝑃))) ∧ (𝑝(.r‘𝑃)𝑞) = 𝑄) ∧ (𝐷‘𝑝) = 1) → ⊥)
51	50	adantlr 715	. . . . . . . 8 ⊢ ((((((𝜑 ∧ 𝑝 ∈ (𝐵 ∖ (Unit‘𝑃))) ∧ 𝑞 ∈ (𝐵 ∖ (Unit‘𝑃))) ∧ (𝑝(.r‘𝑃)𝑞) = 𝑄) ∧ (𝐷‘𝑝) ∈ {0, 1}) ∧ (𝐷‘𝑝) = 1) → ⊥)
52		elpri 4602	. . . . . . . . 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 33612	. . . . . . . . . . . . 13 ⊢ ((((𝜑 ∧ 𝑝 ∈ (𝐵 ∖ (Unit‘𝑃))) ∧ 𝑞 ∈ (𝐵 ∖ (Unit‘𝑃))) ∧ (𝑝(.r‘𝑃)𝑞) = 𝑄) → (◡(𝑂‘𝑞) “ { 0 }) ⊆ (◡(𝑂‘(𝑞(.r‘𝑃)𝑝)) “ { 0 }))
56		fldidom 20702	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ (𝐹 ∈ Field → 𝐹 ∈ IDomn)
57	10, 56	syl 17	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ (𝜑 → 𝐹 ∈ IDomn)
58	6	ply1idom 26084	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ (𝐹 ∈ IDomn → 𝑃 ∈ IDomn)
59	57, 58	syl 17	. . . . . . . . . . . . . . . . . . . . 21 ⊢ (𝜑 → 𝑃 ∈ IDomn)
60	59	idomcringd 20658	. . . . . . . . . . . . . . . . . . . 20 ⊢ (𝜑 → 𝑃 ∈ CRing)
61	60	ad3antrrr 730	. . . . . . . . . . . . . . . . . . 19 ⊢ ((((𝜑 ∧ 𝑝 ∈ (𝐵 ∖ (Unit‘𝑃))) ∧ 𝑞 ∈ (𝐵 ∖ (Unit‘𝑃))) ∧ (𝑝(.r‘𝑃)𝑞) = 𝑄) → 𝑃 ∈ CRing)
62	12, 33, 61, 32, 20	crngcomd 20188	. . . . . . . . . . . . . . . . . 18 ⊢ ((((𝜑 ∧ 𝑝 ∈ (𝐵 ∖ (Unit‘𝑃))) ∧ 𝑞 ∈ (𝐵 ∖ (Unit‘𝑃))) ∧ (𝑝(.r‘𝑃)𝑞) = 𝑄) → (𝑞(.r‘𝑃)𝑝) = (𝑝(.r‘𝑃)𝑞))
63	62, 35	eqtrd 2769	. . . . . . . . . . . . . . . . 17 ⊢ ((((𝜑 ∧ 𝑝 ∈ (𝐵 ∖ (Unit‘𝑃))) ∧ 𝑞 ∈ (𝐵 ∖ (Unit‘𝑃))) ∧ (𝑝(.r‘𝑃)𝑞) = 𝑄) → (𝑞(.r‘𝑃)𝑝) = 𝑄)
64	63	fveq2d 6836	. . . . . . . . . . . . . . . 16 ⊢ ((((𝜑 ∧ 𝑝 ∈ (𝐵 ∖ (Unit‘𝑃))) ∧ 𝑞 ∈ (𝐵 ∖ (Unit‘𝑃))) ∧ (𝑝(.r‘𝑃)𝑞) = 𝑄) → (𝑂‘(𝑞(.r‘𝑃)𝑝)) = (𝑂‘𝑄))
65	64	cnveqd 5822	. . . . . . . . . . . . . . 15 ⊢ ((((𝜑 ∧ 𝑝 ∈ (𝐵 ∖ (Unit‘𝑃))) ∧ 𝑞 ∈ (𝐵 ∖ (Unit‘𝑃))) ∧ (𝑝(.r‘𝑃)𝑞) = 𝑄) → ◡(𝑂‘(𝑞(.r‘𝑃)𝑝)) = ◡(𝑂‘𝑄))
66	65	imaeq1d 6016	. . . . . . . . . . . . . 14 ⊢ ((((𝜑 ∧ 𝑝 ∈ (𝐵 ∖ (Unit‘𝑃))) ∧ 𝑞 ∈ (𝐵 ∖ (Unit‘𝑃))) ∧ (𝑝(.r‘𝑃)𝑞) = 𝑄) → (◡(𝑂‘(𝑞(.r‘𝑃)𝑝)) “ { 0 }) = (◡(𝑂‘𝑄) “ { 0 }))
67	66, 41	eqtrd 2769	. . . . . . . . . . . . 13 ⊢ ((((𝜑 ∧ 𝑝 ∈ (𝐵 ∖ (Unit‘𝑃))) ∧ 𝑞 ∈ (𝐵 ∖ (Unit‘𝑃))) ∧ (𝑝(.r‘𝑃)𝑞) = 𝑄) → (◡(𝑂‘(𝑞(.r‘𝑃)𝑝)) “ { 0 }) = ∅)
68	55, 67	sseqtrd 3968	. . . . . . . . . . . 12 ⊢ ((((𝜑 ∧ 𝑝 ∈ (𝐵 ∖ (Unit‘𝑃))) ∧ 𝑞 ∈ (𝐵 ∖ (Unit‘𝑃))) ∧ (𝑝(.r‘𝑃)𝑞) = 𝑄) → (◡(𝑂‘𝑞) “ { 0 }) ⊆ ∅)
69		ss0 4352	. . . . . . . . . . . 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 20179	. . . . . . . . . . . . . . . . 17 ⊢ (𝜑 → 𝐹 ∈ Ring)
75	74	ad3antrrr 730	. . . . . . . . . . . . . . . 16 ⊢ ((((𝜑 ∧ 𝑝 ∈ (𝐵 ∖ (Unit‘𝑃))) ∧ 𝑞 ∈ (𝐵 ∖ (Unit‘𝑃))) ∧ (𝑝(.r‘𝑃)𝑞) = 𝑄) → 𝐹 ∈ Ring)
76		eqid 2734	. . . . . . . . . . . . . . . . . 18 ⊢ (0g‘𝑃) = (0g‘𝑃)
77	59	idomdomd 20657	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝜑 → 𝑃 ∈ Domn)
78	77	ad3antrrr 730	. . . . . . . . . . . . . . . . . 18 ⊢ ((((𝜑 ∧ 𝑝 ∈ (𝐵 ∖ (Unit‘𝑃))) ∧ 𝑞 ∈ (𝐵 ∖ (Unit‘𝑃))) ∧ (𝑝(.r‘𝑃)𝑞) = 𝑄) → 𝑃 ∈ Domn)
79		3nn0 12417	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ 3 ∈ ℕ0
80	2, 79	eqeltrdi 2842	. . . . . . . . . . . . . . . . . . . . 21 ⊢ (𝜑 → (𝐷‘𝑄) ∈ ℕ0)
81	11, 6, 76, 12	deg1nn0clb 26049	. . . . . . . . . . . . . . . . . . . . . 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 2997	. . . . . . . . . . . . . . . . . 18 ⊢ ((((𝜑 ∧ 𝑝 ∈ (𝐵 ∖ (Unit‘𝑃))) ∧ 𝑞 ∈ (𝐵 ∖ (Unit‘𝑃))) ∧ (𝑝(.r‘𝑃)𝑞) = 𝑄) → (𝑝(.r‘𝑃)𝑞) ≠ (0g‘𝑃))
86	12, 33, 76, 78, 20, 32, 85	domnmuln0rd 33305	. . . . . . . . . . . . . . . . 17 ⊢ ((((𝜑 ∧ 𝑝 ∈ (𝐵 ∖ (Unit‘𝑃))) ∧ 𝑞 ∈ (𝐵 ∖ (Unit‘𝑃))) ∧ (𝑝(.r‘𝑃)𝑞) = 𝑄) → (𝑝 ≠ (0g‘𝑃) ∧ 𝑞 ≠ (0g‘𝑃)))
87	86	simpld 494	. . . . . . . . . . . . . . . 16 ⊢ ((((𝜑 ∧ 𝑝 ∈ (𝐵 ∖ (Unit‘𝑃))) ∧ 𝑞 ∈ (𝐵 ∖ (Unit‘𝑃))) ∧ (𝑝(.r‘𝑃)𝑞) = 𝑄) → 𝑝 ≠ (0g‘𝑃))
88	11, 6, 76, 12	deg1nn0cl 26047	. . . . . . . . . . . . . . . 16 ⊢ ((𝐹 ∈ Ring ∧ 𝑝 ∈ 𝐵 ∧ 𝑝 ≠ (0g‘𝑃)) → (𝐷‘𝑝) ∈ ℕ0)
89	75, 20, 87, 88	syl3anc 1373	. . . . . . . . . . . . . . 15 ⊢ ((((𝜑 ∧ 𝑝 ∈ (𝐵 ∖ (Unit‘𝑃))) ∧ 𝑞 ∈ (𝐵 ∖ (Unit‘𝑃))) ∧ (𝑝(.r‘𝑃)𝑞) = 𝑄) → (𝐷‘𝑝) ∈ ℕ0)
90	89	nn0cnd 12462	. . . . . . . . . . . . . 14 ⊢ ((((𝜑 ∧ 𝑝 ∈ (𝐵 ∖ (Unit‘𝑃))) ∧ 𝑞 ∈ (𝐵 ∖ (Unit‘𝑃))) ∧ (𝑝(.r‘𝑃)𝑞) = 𝑄) → (𝐷‘𝑝) ∈ ℂ)
91	86	simprd 495	. . . . . . . . . . . . . . . 16 ⊢ ((((𝜑 ∧ 𝑝 ∈ (𝐵 ∖ (Unit‘𝑃))) ∧ 𝑞 ∈ (𝐵 ∖ (Unit‘𝑃))) ∧ (𝑝(.r‘𝑃)𝑞) = 𝑄) → 𝑞 ≠ (0g‘𝑃))
92	11, 6, 76, 12	deg1nn0cl 26047	. . . . . . . . . . . . . . . 16 ⊢ ((𝐹 ∈ Ring ∧ 𝑞 ∈ 𝐵 ∧ 𝑞 ≠ (0g‘𝑃)) → (𝐷‘𝑞) ∈ ℕ0)
93	75, 32, 91, 92	syl3anc 1373	. . . . . . . . . . . . . . 15 ⊢ ((((𝜑 ∧ 𝑝 ∈ (𝐵 ∖ (Unit‘𝑃))) ∧ 𝑞 ∈ (𝐵 ∖ (Unit‘𝑃))) ∧ (𝑝(.r‘𝑃)𝑞) = 𝑄) → (𝐷‘𝑞) ∈ ℕ0)
94	93	nn0cnd 12462	. . . . . . . . . . . . . 14 ⊢ ((((𝜑 ∧ 𝑝 ∈ (𝐵 ∖ (Unit‘𝑃))) ∧ 𝑞 ∈ (𝐵 ∖ (Unit‘𝑃))) ∧ (𝑝(.r‘𝑃)𝑞) = 𝑄) → (𝐷‘𝑞) ∈ ℂ)
95	35	fveq2d 6836	. . . . . . . . . . . . . . 15 ⊢ ((((𝜑 ∧ 𝑝 ∈ (𝐵 ∖ (Unit‘𝑃))) ∧ 𝑞 ∈ (𝐵 ∖ (Unit‘𝑃))) ∧ (𝑝(.r‘𝑃)𝑞) = 𝑄) → (𝐷‘(𝑝(.r‘𝑃)𝑞)) = (𝐷‘𝑄))
96	57	idomdomd 20657	. . . . . . . . . . . . . . . . 17 ⊢ (𝜑 → 𝐹 ∈ Domn)
97	96	ad3antrrr 730	. . . . . . . . . . . . . . . 16 ⊢ ((((𝜑 ∧ 𝑝 ∈ (𝐵 ∖ (Unit‘𝑃))) ∧ 𝑞 ∈ (𝐵 ∖ (Unit‘𝑃))) ∧ (𝑝(.r‘𝑃)𝑞) = 𝑄) → 𝐹 ∈ Domn)
98	11, 6, 12, 33, 76, 97, 20, 87, 32, 91	deg1mul 26074	. . . . . . . . . . . . . . 15 ⊢ ((((𝜑 ∧ 𝑝 ∈ (𝐵 ∖ (Unit‘𝑃))) ∧ 𝑞 ∈ (𝐵 ∖ (Unit‘𝑃))) ∧ (𝑝(.r‘𝑃)𝑞) = 𝑄) → (𝐷‘(𝑝(.r‘𝑃)𝑞)) = ((𝐷‘𝑝) + (𝐷‘𝑞)))
99	2	ad3antrrr 730	. . . . . . . . . . . . . . 15 ⊢ ((((𝜑 ∧ 𝑝 ∈ (𝐵 ∖ (Unit‘𝑃))) ∧ 𝑞 ∈ (𝐵 ∖ (Unit‘𝑃))) ∧ (𝑝(.r‘𝑃)𝑞) = 𝑄) → (𝐷‘𝑄) = 3)
100	95, 98, 99	3eqtr3d 2777	. . . . . . . . . . . . . 14 ⊢ ((((𝜑 ∧ 𝑝 ∈ (𝐵 ∖ (Unit‘𝑃))) ∧ 𝑞 ∈ (𝐵 ∖ (Unit‘𝑃))) ∧ (𝑝(.r‘𝑃)𝑞) = 𝑄) → ((𝐷‘𝑝) + (𝐷‘𝑞)) = 3)
101	90, 94, 100	mvlladdd 11546	. . . . . . . . . . . . 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 7372	. . . . . . . . . . . 12 ⊢ (((((𝜑 ∧ 𝑝 ∈ (𝐵 ∖ (Unit‘𝑃))) ∧ 𝑞 ∈ (𝐵 ∖ (Unit‘𝑃))) ∧ (𝑝(.r‘𝑃)𝑞) = 𝑄) ∧ (𝐷‘𝑝) = 2) → (3 − (𝐷‘𝑝)) = (3 − 2))
105		3cn 12224	. . . . . . . . . . . . . 14 ⊢ 3 ∈ ℂ
106		2cn 12218	. . . . . . . . . . . . . 14 ⊢ 2 ∈ ℂ
107		ax-1cn 11082	. . . . . . . . . . . . . 14 ⊢ 1 ∈ ℂ
108		2p1e3 12280	. . . . . . . . . . . . . 14 ⊢ (2 + 1) = 3
109	105, 106, 107, 108	subaddrii 11468	. . . . . . . . . . . . 13 ⊢ (3 − 2) = 1
110	109	a1i 11	. . . . . . . . . . . 12 ⊢ (((((𝜑 ∧ 𝑝 ∈ (𝐵 ∖ (Unit‘𝑃))) ∧ 𝑞 ∈ (𝐵 ∖ (Unit‘𝑃))) ∧ (𝑝(.r‘𝑃)𝑞) = 𝑄) ∧ (𝐷‘𝑝) = 2) → (3 − 2) = 1)
111	102, 104, 110	3eqtrd 2773	. . . . . . . . . . 11 ⊢ (((((𝜑 ∧ 𝑝 ∈ (𝐵 ∖ (Unit‘𝑃))) ∧ 𝑞 ∈ (𝐵 ∖ (Unit‘𝑃))) ∧ (𝑝(.r‘𝑃)𝑞) = 𝑄) ∧ (𝐷‘𝑝) = 2) → (𝐷‘𝑞) = 1)
112	6, 12, 28, 11, 9, 72, 73, 111	ply1dg1rtn0 33611	. . . . . . . . . 10 ⊢ (((((𝜑 ∧ 𝑝 ∈ (𝐵 ∖ (Unit‘𝑃))) ∧ 𝑞 ∈ (𝐵 ∖ (Unit‘𝑃))) ∧ (𝑝(.r‘𝑃)𝑞) = 𝑄) ∧ (𝐷‘𝑝) = 2) → (◡(𝑂‘𝑞) “ { 0 }) ≠ ∅)
113	71, 112	pm2.21ddne 3014	. . . . . . . . 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 7372	. . . . . . . . . . . 12 ⊢ (((((𝜑 ∧ 𝑝 ∈ (𝐵 ∖ (Unit‘𝑃))) ∧ 𝑞 ∈ (𝐵 ∖ (Unit‘𝑃))) ∧ (𝑝(.r‘𝑃)𝑞) = 𝑄) ∧ (𝐷‘𝑝) = 3) → (3 − (𝐷‘𝑝)) = (3 − 3))
118	105	subidi 11450	. . . . . . . . . . . . 13 ⊢ (3 − 3) = 0
119	118	a1i 11	. . . . . . . . . . . 12 ⊢ (((((𝜑 ∧ 𝑝 ∈ (𝐵 ∖ (Unit‘𝑃))) ∧ 𝑞 ∈ (𝐵 ∖ (Unit‘𝑃))) ∧ (𝑝(.r‘𝑃)𝑞) = 𝑄) ∧ (𝐷‘𝑝) = 3) → (3 − 3) = 0)
120	115, 117, 119	3eqtrd 2773	. . . . . . . . . . 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 33605	. . . . . . . . . . 11 ⊢ (((((𝜑 ∧ 𝑝 ∈ (𝐵 ∖ (Unit‘𝑃))) ∧ 𝑞 ∈ (𝐵 ∖ (Unit‘𝑃))) ∧ (𝑝(.r‘𝑃)𝑞) = 𝑄) ∧ (𝐷‘𝑝) = 3) → (𝑞 ∈ (Unit‘𝑃) ↔ (𝐷‘𝑞) = 0))
125	120, 124	mpbird 257	. . . . . . . . . 10 ⊢ (((((𝜑 ∧ 𝑝 ∈ (𝐵 ∖ (Unit‘𝑃))) ∧ 𝑞 ∈ (𝐵 ∖ (Unit‘𝑃))) ∧ (𝑝(.r‘𝑃)𝑞) = 𝑄) ∧ (𝐷‘𝑝) = 3) → 𝑞 ∈ (Unit‘𝑃))
126	31	eldifbd 3912	. . . . . . . . . . 11 ⊢ ((((𝜑 ∧ 𝑝 ∈ (𝐵 ∖ (Unit‘𝑃))) ∧ 𝑞 ∈ (𝐵 ∖ (Unit‘𝑃))) ∧ (𝑝(.r‘𝑃)𝑞) = 𝑄) → ¬ 𝑞 ∈ (Unit‘𝑃))
127	126	adantr 480	. . . . . . . . . 10 ⊢ (((((𝜑 ∧ 𝑝 ∈ (𝐵 ∖ (Unit‘𝑃))) ∧ 𝑞 ∈ (𝐵 ∖ (Unit‘𝑃))) ∧ (𝑝(.r‘𝑃)𝑞) = 𝑄) ∧ (𝐷‘𝑝) = 3) → ¬ 𝑞 ∈ (Unit‘𝑃))
128	125, 127	pm2.21fal 1563	. . . . . . . . 9 ⊢ (((((𝜑 ∧ 𝑝 ∈ (𝐵 ∖ (Unit‘𝑃))) ∧ 𝑞 ∈ (𝐵 ∖ (Unit‘𝑃))) ∧ (𝑝(.r‘𝑃)𝑞) = 𝑄) ∧ (𝐷‘𝑝) = 3) → ⊥)
129	128	adantlr 715	. . . . . . . 8 ⊢ ((((((𝜑 ∧ 𝑝 ∈ (𝐵 ∖ (Unit‘𝑃))) ∧ 𝑞 ∈ (𝐵 ∖ (Unit‘𝑃))) ∧ (𝑝(.r‘𝑃)𝑞) = 𝑄) ∧ (𝐷‘𝑝) ∈ {2, 3}) ∧ (𝐷‘𝑝) = 3) → ⊥)
130		elpri 4602	. . . . . . . . 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 12461	. . . . . . . . . . . 12 ⊢ ((((𝜑 ∧ 𝑝 ∈ (𝐵 ∖ (Unit‘𝑃))) ∧ 𝑞 ∈ (𝐵 ∖ (Unit‘𝑃))) ∧ (𝑝(.r‘𝑃)𝑞) = 𝑄) → (𝐷‘𝑝) ∈ ℝ)
135		nn0addge1 12445	. . . . . . . . . . . 12 ⊢ (((𝐷‘𝑝) ∈ ℝ ∧ (𝐷‘𝑞) ∈ ℕ0) → (𝐷‘𝑝) ≤ ((𝐷‘𝑝) + (𝐷‘𝑞)))
136	134, 93, 135	syl2anc 584	. . . . . . . . . . 11 ⊢ ((((𝜑 ∧ 𝑝 ∈ (𝐵 ∖ (Unit‘𝑃))) ∧ 𝑞 ∈ (𝐵 ∖ (Unit‘𝑃))) ∧ (𝑝(.r‘𝑃)𝑞) = 𝑄) → (𝐷‘𝑝) ≤ ((𝐷‘𝑝) + (𝐷‘𝑞)))
137	136, 100	breqtrd 5122	. . . . . . . . . 10 ⊢ ((((𝜑 ∧ 𝑝 ∈ (𝐵 ∖ (Unit‘𝑃))) ∧ 𝑞 ∈ (𝐵 ∖ (Unit‘𝑃))) ∧ (𝑝(.r‘𝑃)𝑞) = 𝑄) → (𝐷‘𝑝) ≤ 3)
138		fznn0 13533	. . . . . . . . . . 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 13543	. . . . . . . . 9 ⊢ (0...3) = ({0, 1} ∪ {2, 3})
142	140, 141	eleqtrdi 2844	. . . . . . . 8 ⊢ ((((𝜑 ∧ 𝑝 ∈ (𝐵 ∖ (Unit‘𝑃))) ∧ 𝑞 ∈ (𝐵 ∖ (Unit‘𝑃))) ∧ (𝑝(.r‘𝑃)𝑞) = 𝑄) → (𝐷‘𝑝) ∈ ({0, 1} ∪ {2, 3}))
143		elun 4103	. . . . . . . 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 32494	. . . . 5 ⊢ ((𝜑 ∧ ∃𝑝 ∈ (𝐵 ∖ (Unit‘𝑃))∃𝑞 ∈ (𝐵 ∖ (Unit‘𝑃))(𝑝(.r‘𝑃)𝑞) = 𝑄) → ⊥)
147	146	inegd 1561	. . . 4 ⊢ (𝜑 → ¬ ∃𝑝 ∈ (𝐵 ∖ (Unit‘𝑃))∃𝑞 ∈ (𝐵 ∖ (Unit‘𝑃))(𝑝(.r‘𝑃)𝑞) = 𝑄)
148		ralnex2 3114	. . . 4 ⊢ (∀𝑝 ∈ (𝐵 ∖ (Unit‘𝑃))∀𝑞 ∈ (𝐵 ∖ (Unit‘𝑃)) ¬ (𝑝(.r‘𝑃)𝑞) = 𝑄 ↔ ¬ ∃𝑝 ∈ (𝐵 ∖ (Unit‘𝑃))∃𝑞 ∈ (𝐵 ∖ (Unit‘𝑃))(𝑝(.r‘𝑃)𝑞) = 𝑄)
149	147, 148	sylibr 234	. . 3 ⊢ (𝜑 → ∀𝑝 ∈ (𝐵 ∖ (Unit‘𝑃))∀𝑞 ∈ (𝐵 ∖ (Unit‘𝑃)) ¬ (𝑝(.r‘𝑃)𝑞) = 𝑄)
150		df-ne 2931	. . . 4 ⊢ ((𝑝(.r‘𝑃)𝑞) ≠ 𝑄 ↔ ¬ (𝑝(.r‘𝑃)𝑞) = 𝑄)
151	150	2ralbii 3109	. . 3 ⊢ (∀𝑝 ∈ (𝐵 ∖ (Unit‘𝑃))∀𝑞 ∈ (𝐵 ∖ (Unit‘𝑃))(𝑝(.r‘𝑃)𝑞) ≠ 𝑄 ↔ ∀𝑝 ∈ (𝐵 ∖ (Unit‘𝑃))∀𝑞 ∈ (𝐵 ∖ (Unit‘𝑃)) ¬ (𝑝(.r‘𝑃)𝑞) = 𝑄)
152	149, 151	sylibr 234	. 2 ⊢ (𝜑 → ∀𝑝 ∈ (𝐵 ∖ (Unit‘𝑃))∀𝑞 ∈ (𝐵 ∖ (Unit‘𝑃))(𝑝(.r‘𝑃)𝑞) ≠ 𝑄)
153		eqid 2734	. . 3 ⊢ (Unit‘𝑃) = (Unit‘𝑃)
154		eqid 2734	. . 3 ⊢ (Irred‘𝑃) = (Irred‘𝑃)
155		eqid 2734	. . 3 ⊢ (𝐵 ∖ (Unit‘𝑃)) = (𝐵 ∖ (Unit‘𝑃))
156	12, 153, 154, 155, 33	isirred 20353	. 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 1541  ⊥wfal 1553   ∈ wcel 2113   ≠ wne 2930  ∀wral 3049  ∃wrex 3058   ∖ cdif 3896   ∪ cun 3897   ⊆ wss 3899  ∅c0 4283  {csn 4578  {cpr 4580   class class class wbr 5096  ^◡ccnv 5621   “ cima 5625  ‘cfv 6490  (class class class)co 7356  ℝcr 11023  0cc0 11024  1c1 11025   + caddc 11027   ≤ cle 11165   − cmin 11362  2c2 12198  3c3 12199  ℕ₀cn0 12399  ...cfz 13421  Basecbs 17134  ._rcmulr 17176  0_gc0g 17357  Ringcrg 20166  CRingccrg 20167  Unitcui 20289  Irredcir 20290  Domncdomn 20623  IDomncidom 20624  Fieldcfield 20661  algSccascl 21805  Poly₁cpl1 22115  eval₁ce1 22256  deg₁cdg1 26013

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1796  ax-4 1810  ax-5 1911  ax-6 1968  ax-7 2009  ax-8 2115  ax-9 2123  ax-10 2146  ax-11 2162  ax-12 2182  ax-ext 2706  ax-rep 5222  ax-sep 5239  ax-nul 5249  ax-pow 5308  ax-pr 5375  ax-un 7678  ax-cnex 11080  ax-resscn 11081  ax-1cn 11082  ax-icn 11083  ax-addcl 11084  ax-addrcl 11085  ax-mulcl 11086  ax-mulrcl 11087  ax-mulcom 11088  ax-addass 11089  ax-mulass 11090  ax-distr 11091  ax-i2m1 11092  ax-1ne0 11093  ax-1rid 11094  ax-rnegex 11095  ax-rrecex 11096  ax-cnre 11097  ax-pre-lttri 11098  ax-pre-lttrn 11099  ax-pre-ltadd 11100  ax-pre-mulgt0 11101  ax-pre-sup 11102  ax-addf 11103

This theorem depends on definitions:  df-bi 207  df-an 396  df-or 848  df-3or 1087  df-3an 1088  df-tru 1544  df-fal 1554  df-ex 1781  df-nf 1785  df-sb 2068  df-mo 2537  df-eu 2567  df-clab 2713  df-cleq 2726  df-clel 2809  df-nfc 2883  df-ne 2931  df-nel 3035  df-ral 3050  df-rex 3059  df-rmo 3348  df-reu 3349  df-rab 3398  df-v 3440  df-sbc 3739  df-csb 3848  df-dif 3902  df-un 3904  df-in 3906  df-ss 3916  df-pss 3919  df-nul 4284  df-if 4478  df-pw 4554  df-sn 4579  df-pr 4581  df-tp 4583  df-op 4585  df-uni 4862  df-int 4901  df-iun 4946  df-iin 4947  df-br 5097  df-opab 5159  df-mpt 5178  df-tr 5204  df-id 5517  df-eprel 5522  df-po 5530  df-so 5531  df-fr 5575  df-se 5576  df-we 5577  df-xp 5628  df-rel 5629  df-cnv 5630  df-co 5631  df-dm 5632  df-rn 5633  df-res 5634  df-ima 5635  df-pred 6257  df-ord 6318  df-on 6319  df-lim 6320  df-suc 6321  df-iota 6446  df-fun 6492  df-fn 6493  df-f 6494  df-f1 6495  df-fo 6496  df-f1o 6497  df-fv 6498  df-isom 6499  df-riota 7313  df-ov 7359  df-oprab 7360  df-mpo 7361  df-of 7620  df-ofr 7621  df-om 7807  df-1st 7931  df-2nd 7932  df-supp 8101  df-tpos 8166  df-frecs 8221  df-wrecs 8252  df-recs 8301  df-rdg 8339  df-1o 8395  df-2o 8396  df-er 8633  df-map 8763  df-pm 8764  df-ixp 8834  df-en 8882  df-dom 8883  df-sdom 8884  df-fin 8885  df-fsupp 9263  df-sup 9343  df-oi 9413  df-card 9849  df-pnf 11166  df-mnf 11167  df-xr 11168  df-ltxr 11169  df-le 11170  df-sub 11364  df-neg 11365  df-nn 12144  df-2 12206  df-3 12207  df-4 12208  df-5 12209  df-6 12210  df-7 12211  df-8 12212  df-9 12213  df-n0 12400  df-z 12487  df-dec 12606  df-uz 12750  df-fz 13422  df-fzo 13569  df-seq 13923  df-hash 14252  df-struct 17072  df-sets 17089  df-slot 17107  df-ndx 17119  df-base 17135  df-ress 17156  df-plusg 17188  df-mulr 17189  df-starv 17190  df-sca 17191  df-vsca 17192  df-ip 17193  df-tset 17194  df-ple 17195  df-ds 17197  df-unif 17198  df-hom 17199  df-cco 17200  df-0g 17359  df-gsum 17360  df-prds 17365  df-pws 17367  df-mre 17503  df-mrc 17504  df-acs 17506  df-mgm 18563  df-sgrp 18642  df-mnd 18658  df-mhm 18706  df-submnd 18707  df-grp 18864  df-minusg 18865  df-sbg 18866  df-mulg 18996  df-subg 19051  df-ghm 19140  df-cntz 19244  df-cmn 19709  df-abl 19710  df-mgp 20074  df-rng 20086  df-ur 20115  df-srg 20120  df-ring 20168  df-cring 20169  df-oppr 20271  df-dvdsr 20291  df-unit 20292  df-irred 20293  df-invr 20322  df-dvr 20335  df-rhm 20406  df-nzr 20444  df-subrng 20477  df-subrg 20501  df-rlreg 20625  df-domn 20626  df-idom 20627  df-drng 20662  df-field 20663  df-lmod 20811  df-lss 20881  df-lsp 20921  df-cnfld 21308  df-assa 21806  df-asp 21807  df-ascl 21808  df-psr 21863  df-mvr 21864  df-mpl 21865  df-opsr 21867  df-evls 22027  df-evl 22028  df-psr1 22118  df-vr1 22119  df-ply1 22120  df-coe1 22121  df-evls1 22257  df-evl1 22258  df-mdeg 26014  df-deg1 26015  df-mon1 26090

This theorem is referenced by:  2sqr3minply  33886  cos9thpiminply  33894