Theorem ply1dg3rt0irred 33874

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 12345	. . . . . 6 ⊢ 3 ≠ 0
4	3	a1i 11	. . . . 5 ⊢ (𝜑 → 3 ≠ 0)
5	2, 4	eqnetrd 3025	. . . 4 ⊢ (𝜑 → (𝐷‘𝑄) ≠ 0)
6		ply1dg3rt0irred.p	. . . . . 6 ⊢ 𝑃 = (Poly1‘𝐹)
7		eqid 2763	. . . . . 6 ⊢ (algSc‘𝑃) = (algSc‘𝑃)
8		eqid 2763	. . . . . 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 2873	. . . . . 6 ⊢ (𝜑 → 𝑄 ∈ (Base‘𝑃))
14	6, 7, 8, 9, 10, 11, 13	ply1unit 33865	. . . . 5 ⊢ (𝜑 → (𝑄 ∈ (Unit‘𝑃) ↔ (𝐷‘𝑄) = 0))
15	14	necon3bbid 2995	. . . 4 ⊢ (𝜑 → (¬ 𝑄 ∈ (Unit‘𝑃) ↔ (𝐷‘𝑄) ≠ 0))
16	5, 15	mpbird 260	. . 3 ⊢ (𝜑 → ¬ 𝑄 ∈ (Unit‘𝑃))
17	1, 16	eldifd 3916	. 2 ⊢ (𝜑 → 𝑄 ∈ (𝐵 ∖ (Unit‘𝑃)))
18	10	ad3antrrr 742	. . . . . . . . . . . 12 ⊢ ((((𝜑 ∧ 𝑝 ∈ (𝐵 ∖ (Unit‘𝑃))) ∧ 𝑞 ∈ (𝐵 ∖ (Unit‘𝑃))) ∧ (𝑝(.r‘𝑃)𝑞) = 𝑄) → 𝐹 ∈ Field)
19		simpllr 787	. . . . . . . . . . . . . 14 ⊢ ((((𝜑 ∧ 𝑝 ∈ (𝐵 ∖ (Unit‘𝑃))) ∧ 𝑞 ∈ (𝐵 ∖ (Unit‘𝑃))) ∧ (𝑝(.r‘𝑃)𝑞) = 𝑄) → 𝑝 ∈ (𝐵 ∖ (Unit‘𝑃)))
20	19	eldifad 3917	. . . . . . . . . . . . 13 ⊢ ((((𝜑 ∧ 𝑝 ∈ (𝐵 ∖ (Unit‘𝑃))) ∧ 𝑞 ∈ (𝐵 ∖ (Unit‘𝑃))) ∧ (𝑝(.r‘𝑃)𝑞) = 𝑄) → 𝑝 ∈ 𝐵)
21	20, 12	eleqtrdi 2873	. . . . . . . . . . . 12 ⊢ ((((𝜑 ∧ 𝑝 ∈ (𝐵 ∖ (Unit‘𝑃))) ∧ 𝑞 ∈ (𝐵 ∖ (Unit‘𝑃))) ∧ (𝑝(.r‘𝑃)𝑞) = 𝑄) → 𝑝 ∈ (Base‘𝑃))
22	6, 7, 8, 9, 18, 11, 21	ply1unit 33865	. . . . . . . . . . 11 ⊢ ((((𝜑 ∧ 𝑝 ∈ (𝐵 ∖ (Unit‘𝑃))) ∧ 𝑞 ∈ (𝐵 ∖ (Unit‘𝑃))) ∧ (𝑝(.r‘𝑃)𝑞) = 𝑄) → (𝑝 ∈ (Unit‘𝑃) ↔ (𝐷‘𝑝) = 0))
23	22	biimpar 482	. . . . . . . . . 10 ⊢ (((((𝜑 ∧ 𝑝 ∈ (𝐵 ∖ (Unit‘𝑃))) ∧ 𝑞 ∈ (𝐵 ∖ (Unit‘𝑃))) ∧ (𝑝(.r‘𝑃)𝑞) = 𝑄) ∧ (𝐷‘𝑝) = 0) → 𝑝 ∈ (Unit‘𝑃))
24	19	eldifbd 3918	. . . . . . . . . . 11 ⊢ ((((𝜑 ∧ 𝑝 ∈ (𝐵 ∖ (Unit‘𝑃))) ∧ 𝑞 ∈ (𝐵 ∖ (Unit‘𝑃))) ∧ (𝑝(.r‘𝑃)𝑞) = 𝑄) → ¬ 𝑝 ∈ (Unit‘𝑃))
25	24	adantr 485	. . . . . . . . . 10 ⊢ (((((𝜑 ∧ 𝑝 ∈ (𝐵 ∖ (Unit‘𝑃))) ∧ 𝑞 ∈ (𝐵 ∖ (Unit‘𝑃))) ∧ (𝑝(.r‘𝑃)𝑞) = 𝑄) ∧ (𝐷‘𝑝) = 0) → ¬ 𝑝 ∈ (Unit‘𝑃))
26	23, 25	pm2.21fal 1592	. . . . . . . . 9 ⊢ (((((𝜑 ∧ 𝑝 ∈ (𝐵 ∖ (Unit‘𝑃))) ∧ 𝑞 ∈ (𝐵 ∖ (Unit‘𝑃))) ∧ (𝑝(.r‘𝑃)𝑞) = 𝑄) ∧ (𝐷‘𝑝) = 0) → ⊥)
27	26	adantlr 727	. . . . . . . 8 ⊢ ((((((𝜑 ∧ 𝑝 ∈ (𝐵 ∖ (Unit‘𝑃))) ∧ 𝑞 ∈ (𝐵 ∖ (Unit‘𝑃))) ∧ (𝑝(.r‘𝑃)𝑞) = 𝑄) ∧ (𝐷‘𝑝) ∈ {0, 1}) ∧ (𝐷‘𝑝) = 0) → ⊥)
28		ply1dg3rt0irred.o	. . . . . . . . . . . . . . 15 ⊢ 𝑂 = (eval1‘𝐹)
29	10	fldcrngd 20842	. . . . . . . . . . . . . . . 16 ⊢ (𝜑 → 𝐹 ∈ CRing)
30	29	ad3antrrr 742	. . . . . . . . . . . . . . 15 ⊢ ((((𝜑 ∧ 𝑝 ∈ (𝐵 ∖ (Unit‘𝑃))) ∧ 𝑞 ∈ (𝐵 ∖ (Unit‘𝑃))) ∧ (𝑝(.r‘𝑃)𝑞) = 𝑄) → 𝐹 ∈ CRing)
31		simplr 780	. . . . . . . . . . . . . . . 16 ⊢ ((((𝜑 ∧ 𝑝 ∈ (𝐵 ∖ (Unit‘𝑃))) ∧ 𝑞 ∈ (𝐵 ∖ (Unit‘𝑃))) ∧ (𝑝(.r‘𝑃)𝑞) = 𝑄) → 𝑞 ∈ (𝐵 ∖ (Unit‘𝑃)))
32	31	eldifad 3917	. . . . . . . . . . . . . . 15 ⊢ ((((𝜑 ∧ 𝑝 ∈ (𝐵 ∖ (Unit‘𝑃))) ∧ 𝑞 ∈ (𝐵 ∖ (Unit‘𝑃))) ∧ (𝑝(.r‘𝑃)𝑞) = 𝑄) → 𝑞 ∈ 𝐵)
33		eqid 2763	. . . . . . . . . . . . . . 15 ⊢ (.r‘𝑃) = (.r‘𝑃)
34	6, 12, 28, 11, 9, 30, 20, 32, 33	ply1mulrtss 33872	. . . . . . . . . . . . . 14 ⊢ ((((𝜑 ∧ 𝑝 ∈ (𝐵 ∖ (Unit‘𝑃))) ∧ 𝑞 ∈ (𝐵 ∖ (Unit‘𝑃))) ∧ (𝑝(.r‘𝑃)𝑞) = 𝑄) → (◡(𝑂‘𝑝) “ { 0 }) ⊆ (◡(𝑂‘(𝑝(.r‘𝑃)𝑞)) “ { 0 }))
35		simpr 489	. . . . . . . . . . . . . . . . 17 ⊢ ((((𝜑 ∧ 𝑝 ∈ (𝐵 ∖ (Unit‘𝑃))) ∧ 𝑞 ∈ (𝐵 ∖ (Unit‘𝑃))) ∧ (𝑝(.r‘𝑃)𝑞) = 𝑄) → (𝑝(.r‘𝑃)𝑞) = 𝑄)
36	35	fveq2d 6885	. . . . . . . . . . . . . . . 16 ⊢ ((((𝜑 ∧ 𝑝 ∈ (𝐵 ∖ (Unit‘𝑃))) ∧ 𝑞 ∈ (𝐵 ∖ (Unit‘𝑃))) ∧ (𝑝(.r‘𝑃)𝑞) = 𝑄) → (𝑂‘(𝑝(.r‘𝑃)𝑞)) = (𝑂‘𝑄))
37	36	cnveqd 5861	. . . . . . . . . . . . . . 15 ⊢ ((((𝜑 ∧ 𝑝 ∈ (𝐵 ∖ (Unit‘𝑃))) ∧ 𝑞 ∈ (𝐵 ∖ (Unit‘𝑃))) ∧ (𝑝(.r‘𝑃)𝑞) = 𝑄) → ◡(𝑂‘(𝑝(.r‘𝑃)𝑞)) = ◡(𝑂‘𝑄))
38	37	imaeq1d 6061	. . . . . . . . . . . . . 14 ⊢ ((((𝜑 ∧ 𝑝 ∈ (𝐵 ∖ (Unit‘𝑃))) ∧ 𝑞 ∈ (𝐵 ∖ (Unit‘𝑃))) ∧ (𝑝(.r‘𝑃)𝑞) = 𝑄) → (◡(𝑂‘(𝑝(.r‘𝑃)𝑞)) “ { 0 }) = (◡(𝑂‘𝑄) “ { 0 }))
39	34, 38	sseqtrd 3973	. . . . . . . . . . . . 13 ⊢ ((((𝜑 ∧ 𝑝 ∈ (𝐵 ∖ (Unit‘𝑃))) ∧ 𝑞 ∈ (𝐵 ∖ (Unit‘𝑃))) ∧ (𝑝(.r‘𝑃)𝑞) = 𝑄) → (◡(𝑂‘𝑝) “ { 0 }) ⊆ (◡(𝑂‘𝑄) “ { 0 }))
40		ply1dg3rt0irred.1	. . . . . . . . . . . . . 14 ⊢ (𝜑 → (◡(𝑂‘𝑄) “ { 0 }) = ∅)
41	40	ad3antrrr 742	. . . . . . . . . . . . 13 ⊢ ((((𝜑 ∧ 𝑝 ∈ (𝐵 ∖ (Unit‘𝑃))) ∧ 𝑞 ∈ (𝐵 ∖ (Unit‘𝑃))) ∧ (𝑝(.r‘𝑃)𝑞) = 𝑄) → (◡(𝑂‘𝑄) “ { 0 }) = ∅)
42	39, 41	sseqtrd 3973	. . . . . . . . . . . 12 ⊢ ((((𝜑 ∧ 𝑝 ∈ (𝐵 ∖ (Unit‘𝑃))) ∧ 𝑞 ∈ (𝐵 ∖ (Unit‘𝑃))) ∧ (𝑝(.r‘𝑃)𝑞) = 𝑄) → (◡(𝑂‘𝑝) “ { 0 }) ⊆ ∅)
43		ss0 4359	. . . . . . . . . . . 12 ⊢ ((◡(𝑂‘𝑝) “ { 0 }) ⊆ ∅ → (◡(𝑂‘𝑝) “ { 0 }) = ∅)
44	42, 43	syl 18	. . . . . . . . . . 11 ⊢ ((((𝜑 ∧ 𝑝 ∈ (𝐵 ∖ (Unit‘𝑃))) ∧ 𝑞 ∈ (𝐵 ∖ (Unit‘𝑃))) ∧ (𝑝(.r‘𝑃)𝑞) = 𝑄) → (◡(𝑂‘𝑝) “ { 0 }) = ∅)
45	44	adantr 485	. . . . . . . . . 10 ⊢ (((((𝜑 ∧ 𝑝 ∈ (𝐵 ∖ (Unit‘𝑃))) ∧ 𝑞 ∈ (𝐵 ∖ (Unit‘𝑃))) ∧ (𝑝(.r‘𝑃)𝑞) = 𝑄) ∧ (𝐷‘𝑝) = 1) → (◡(𝑂‘𝑝) “ { 0 }) = ∅)
46	18	adantr 485	. . . . . . . . . . 11 ⊢ (((((𝜑 ∧ 𝑝 ∈ (𝐵 ∖ (Unit‘𝑃))) ∧ 𝑞 ∈ (𝐵 ∖ (Unit‘𝑃))) ∧ (𝑝(.r‘𝑃)𝑞) = 𝑄) ∧ (𝐷‘𝑝) = 1) → 𝐹 ∈ Field)
47	20	adantr 485	. . . . . . . . . . 11 ⊢ (((((𝜑 ∧ 𝑝 ∈ (𝐵 ∖ (Unit‘𝑃))) ∧ 𝑞 ∈ (𝐵 ∖ (Unit‘𝑃))) ∧ (𝑝(.r‘𝑃)𝑞) = 𝑄) ∧ (𝐷‘𝑝) = 1) → 𝑝 ∈ 𝐵)
48		simpr 489	. . . . . . . . . . 11 ⊢ (((((𝜑 ∧ 𝑝 ∈ (𝐵 ∖ (Unit‘𝑃))) ∧ 𝑞 ∈ (𝐵 ∖ (Unit‘𝑃))) ∧ (𝑝(.r‘𝑃)𝑞) = 𝑄) ∧ (𝐷‘𝑝) = 1) → (𝐷‘𝑝) = 1)
49	6, 12, 28, 11, 9, 46, 47, 48	ply1dg1rtn0 33871	. . . . . . . . . 10 ⊢ (((((𝜑 ∧ 𝑝 ∈ (𝐵 ∖ (Unit‘𝑃))) ∧ 𝑞 ∈ (𝐵 ∖ (Unit‘𝑃))) ∧ (𝑝(.r‘𝑃)𝑞) = 𝑄) ∧ (𝐷‘𝑝) = 1) → (◡(𝑂‘𝑝) “ { 0 }) ≠ ∅)
50	45, 49	pm2.21ddne 3042	. . . . . . . . 9 ⊢ (((((𝜑 ∧ 𝑝 ∈ (𝐵 ∖ (Unit‘𝑃))) ∧ 𝑞 ∈ (𝐵 ∖ (Unit‘𝑃))) ∧ (𝑝(.r‘𝑃)𝑞) = 𝑄) ∧ (𝐷‘𝑝) = 1) → ⊥)
51	50	adantlr 727	. . . . . . . 8 ⊢ ((((((𝜑 ∧ 𝑝 ∈ (𝐵 ∖ (Unit‘𝑃))) ∧ 𝑞 ∈ (𝐵 ∖ (Unit‘𝑃))) ∧ (𝑝(.r‘𝑃)𝑞) = 𝑄) ∧ (𝐷‘𝑝) ∈ {0, 1}) ∧ (𝐷‘𝑝) = 1) → ⊥)
52		elpri 4613	. . . . . . . . 9 ⊢ ((𝐷‘𝑝) ∈ {0, 1} → ((𝐷‘𝑝) = 0 ∨ (𝐷‘𝑝) = 1))
53	52	adantl 486	. . . . . . . 8 ⊢ (((((𝜑 ∧ 𝑝 ∈ (𝐵 ∖ (Unit‘𝑃))) ∧ 𝑞 ∈ (𝐵 ∖ (Unit‘𝑃))) ∧ (𝑝(.r‘𝑃)𝑞) = 𝑄) ∧ (𝐷‘𝑝) ∈ {0, 1}) → ((𝐷‘𝑝) = 0 ∨ (𝐷‘𝑝) = 1))
54	27, 51, 53	mpjaodan 973	. . . . . . 7 ⊢ (((((𝜑 ∧ 𝑝 ∈ (𝐵 ∖ (Unit‘𝑃))) ∧ 𝑞 ∈ (𝐵 ∖ (Unit‘𝑃))) ∧ (𝑝(.r‘𝑃)𝑞) = 𝑄) ∧ (𝐷‘𝑝) ∈ {0, 1}) → ⊥)
55	6, 12, 28, 11, 9, 30, 32, 20, 33	ply1mulrtss 33872	. . . . . . . . . . . . 13 ⊢ ((((𝜑 ∧ 𝑝 ∈ (𝐵 ∖ (Unit‘𝑃))) ∧ 𝑞 ∈ (𝐵 ∖ (Unit‘𝑃))) ∧ (𝑝(.r‘𝑃)𝑞) = 𝑄) → (◡(𝑂‘𝑞) “ { 0 }) ⊆ (◡(𝑂‘(𝑞(.r‘𝑃)𝑝)) “ { 0 }))
56		fldidom 20875	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ (𝐹 ∈ Field → 𝐹 ∈ IDomn)
57	10, 56	syl 18	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ (𝜑 → 𝐹 ∈ IDomn)
58	6	ply1idom 26282	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ (𝐹 ∈ IDomn → 𝑃 ∈ IDomn)
59	57, 58	syl 18	. . . . . . . . . . . . . . . . . . . . 21 ⊢ (𝜑 → 𝑃 ∈ IDomn)
60	59	idomcringd 20825	. . . . . . . . . . . . . . . . . . . 20 ⊢ (𝜑 → 𝑃 ∈ CRing)
61	60	ad3antrrr 742	. . . . . . . . . . . . . . . . . . 19 ⊢ ((((𝜑 ∧ 𝑝 ∈ (𝐵 ∖ (Unit‘𝑃))) ∧ 𝑞 ∈ (𝐵 ∖ (Unit‘𝑃))) ∧ (𝑝(.r‘𝑃)𝑞) = 𝑄) → 𝑃 ∈ CRing)
62	12, 33, 61, 32, 20	crngcomd 20332	. . . . . . . . . . . . . . . . . 18 ⊢ ((((𝜑 ∧ 𝑝 ∈ (𝐵 ∖ (Unit‘𝑃))) ∧ 𝑞 ∈ (𝐵 ∖ (Unit‘𝑃))) ∧ (𝑝(.r‘𝑃)𝑞) = 𝑄) → (𝑞(.r‘𝑃)𝑝) = (𝑝(.r‘𝑃)𝑞))
63	62, 35	eqtrd 2798	. . . . . . . . . . . . . . . . 17 ⊢ ((((𝜑 ∧ 𝑝 ∈ (𝐵 ∖ (Unit‘𝑃))) ∧ 𝑞 ∈ (𝐵 ∖ (Unit‘𝑃))) ∧ (𝑝(.r‘𝑃)𝑞) = 𝑄) → (𝑞(.r‘𝑃)𝑝) = 𝑄)
64	63	fveq2d 6885	. . . . . . . . . . . . . . . 16 ⊢ ((((𝜑 ∧ 𝑝 ∈ (𝐵 ∖ (Unit‘𝑃))) ∧ 𝑞 ∈ (𝐵 ∖ (Unit‘𝑃))) ∧ (𝑝(.r‘𝑃)𝑞) = 𝑄) → (𝑂‘(𝑞(.r‘𝑃)𝑝)) = (𝑂‘𝑄))
65	64	cnveqd 5861	. . . . . . . . . . . . . . 15 ⊢ ((((𝜑 ∧ 𝑝 ∈ (𝐵 ∖ (Unit‘𝑃))) ∧ 𝑞 ∈ (𝐵 ∖ (Unit‘𝑃))) ∧ (𝑝(.r‘𝑃)𝑞) = 𝑄) → ◡(𝑂‘(𝑞(.r‘𝑃)𝑝)) = ◡(𝑂‘𝑄))
66	65	imaeq1d 6061	. . . . . . . . . . . . . 14 ⊢ ((((𝜑 ∧ 𝑝 ∈ (𝐵 ∖ (Unit‘𝑃))) ∧ 𝑞 ∈ (𝐵 ∖ (Unit‘𝑃))) ∧ (𝑝(.r‘𝑃)𝑞) = 𝑄) → (◡(𝑂‘(𝑞(.r‘𝑃)𝑝)) “ { 0 }) = (◡(𝑂‘𝑄) “ { 0 }))
67	66, 41	eqtrd 2798	. . . . . . . . . . . . 13 ⊢ ((((𝜑 ∧ 𝑝 ∈ (𝐵 ∖ (Unit‘𝑃))) ∧ 𝑞 ∈ (𝐵 ∖ (Unit‘𝑃))) ∧ (𝑝(.r‘𝑃)𝑞) = 𝑄) → (◡(𝑂‘(𝑞(.r‘𝑃)𝑝)) “ { 0 }) = ∅)
68	55, 67	sseqtrd 3973	. . . . . . . . . . . 12 ⊢ ((((𝜑 ∧ 𝑝 ∈ (𝐵 ∖ (Unit‘𝑃))) ∧ 𝑞 ∈ (𝐵 ∖ (Unit‘𝑃))) ∧ (𝑝(.r‘𝑃)𝑞) = 𝑄) → (◡(𝑂‘𝑞) “ { 0 }) ⊆ ∅)
69		ss0 4359	. . . . . . . . . . . 12 ⊢ ((◡(𝑂‘𝑞) “ { 0 }) ⊆ ∅ → (◡(𝑂‘𝑞) “ { 0 }) = ∅)
70	68, 69	syl 18	. . . . . . . . . . 11 ⊢ ((((𝜑 ∧ 𝑝 ∈ (𝐵 ∖ (Unit‘𝑃))) ∧ 𝑞 ∈ (𝐵 ∖ (Unit‘𝑃))) ∧ (𝑝(.r‘𝑃)𝑞) = 𝑄) → (◡(𝑂‘𝑞) “ { 0 }) = ∅)
71	70	adantr 485	. . . . . . . . . 10 ⊢ (((((𝜑 ∧ 𝑝 ∈ (𝐵 ∖ (Unit‘𝑃))) ∧ 𝑞 ∈ (𝐵 ∖ (Unit‘𝑃))) ∧ (𝑝(.r‘𝑃)𝑞) = 𝑄) ∧ (𝐷‘𝑝) = 2) → (◡(𝑂‘𝑞) “ { 0 }) = ∅)
72	18	adantr 485	. . . . . . . . . . 11 ⊢ (((((𝜑 ∧ 𝑝 ∈ (𝐵 ∖ (Unit‘𝑃))) ∧ 𝑞 ∈ (𝐵 ∖ (Unit‘𝑃))) ∧ (𝑝(.r‘𝑃)𝑞) = 𝑄) ∧ (𝐷‘𝑝) = 2) → 𝐹 ∈ Field)
73	32	adantr 485	. . . . . . . . . . 11 ⊢ (((((𝜑 ∧ 𝑝 ∈ (𝐵 ∖ (Unit‘𝑃))) ∧ 𝑞 ∈ (𝐵 ∖ (Unit‘𝑃))) ∧ (𝑝(.r‘𝑃)𝑞) = 𝑄) ∧ (𝐷‘𝑝) = 2) → 𝑞 ∈ 𝐵)
74	29	crngringd 20323	. . . . . . . . . . . . . . . . 17 ⊢ (𝜑 → 𝐹 ∈ Ring)
75	74	ad3antrrr 742	. . . . . . . . . . . . . . . 16 ⊢ ((((𝜑 ∧ 𝑝 ∈ (𝐵 ∖ (Unit‘𝑃))) ∧ 𝑞 ∈ (𝐵 ∖ (Unit‘𝑃))) ∧ (𝑝(.r‘𝑃)𝑞) = 𝑄) → 𝐹 ∈ Ring)
76		eqid 2763	. . . . . . . . . . . . . . . . . 18 ⊢ (0g‘𝑃) = (0g‘𝑃)
77	59	idomdomd 20824	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝜑 → 𝑃 ∈ Domn)
78	77	ad3antrrr 742	. . . . . . . . . . . . . . . . . 18 ⊢ ((((𝜑 ∧ 𝑝 ∈ (𝐵 ∖ (Unit‘𝑃))) ∧ 𝑞 ∈ (𝐵 ∖ (Unit‘𝑃))) ∧ (𝑝(.r‘𝑃)𝑞) = 𝑄) → 𝑃 ∈ Domn)
79		3nn0 12517	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ 3 ∈ ℕ0
80	2, 79	eqeltrdi 2871	. . . . . . . . . . . . . . . . . . . . 21 ⊢ (𝜑 → (𝐷‘𝑄) ∈ ℕ0)
81	11, 6, 76, 12	deg1nn0clb 26247	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ ((𝐹 ∈ Ring ∧ 𝑄 ∈ 𝐵) → (𝑄 ≠ (0g‘𝑃) ↔ (𝐷‘𝑄) ∈ ℕ0))
82	81	biimpar 482	. . . . . . . . . . . . . . . . . . . . 21 ⊢ (((𝐹 ∈ Ring ∧ 𝑄 ∈ 𝐵) ∧ (𝐷‘𝑄) ∈ ℕ0) → 𝑄 ≠ (0g‘𝑃))
83	74, 1, 80, 82	syl21anc 850	. . . . . . . . . . . . . . . . . . . 20 ⊢ (𝜑 → 𝑄 ≠ (0g‘𝑃))
84	83	ad3antrrr 742	. . . . . . . . . . . . . . . . . . 19 ⊢ ((((𝜑 ∧ 𝑝 ∈ (𝐵 ∖ (Unit‘𝑃))) ∧ 𝑞 ∈ (𝐵 ∖ (Unit‘𝑃))) ∧ (𝑝(.r‘𝑃)𝑞) = 𝑄) → 𝑄 ≠ (0g‘𝑃))
85	35, 84	eqnetrd 3025	. . . . . . . . . . . . . . . . . 18 ⊢ ((((𝜑 ∧ 𝑝 ∈ (𝐵 ∖ (Unit‘𝑃))) ∧ 𝑞 ∈ (𝐵 ∖ (Unit‘𝑃))) ∧ (𝑝(.r‘𝑃)𝑞) = 𝑄) → (𝑝(.r‘𝑃)𝑞) ≠ (0g‘𝑃))
86	12, 33, 76, 78, 20, 32, 85	domnmuln0rd 33597	. . . . . . . . . . . . . . . . 17 ⊢ ((((𝜑 ∧ 𝑝 ∈ (𝐵 ∖ (Unit‘𝑃))) ∧ 𝑞 ∈ (𝐵 ∖ (Unit‘𝑃))) ∧ (𝑝(.r‘𝑃)𝑞) = 𝑄) → (𝑝 ≠ (0g‘𝑃) ∧ 𝑞 ≠ (0g‘𝑃)))
87	86	simpld 499	. . . . . . . . . . . . . . . 16 ⊢ ((((𝜑 ∧ 𝑝 ∈ (𝐵 ∖ (Unit‘𝑃))) ∧ 𝑞 ∈ (𝐵 ∖ (Unit‘𝑃))) ∧ (𝑝(.r‘𝑃)𝑞) = 𝑄) → 𝑝 ≠ (0g‘𝑃))
88	11, 6, 76, 12	deg1nn0cl 26245	. . . . . . . . . . . . . . . 16 ⊢ ((𝐹 ∈ Ring ∧ 𝑝 ∈ 𝐵 ∧ 𝑝 ≠ (0g‘𝑃)) → (𝐷‘𝑝) ∈ ℕ0)
89	75, 20, 87, 88	syl3anc 1398	. . . . . . . . . . . . . . 15 ⊢ ((((𝜑 ∧ 𝑝 ∈ (𝐵 ∖ (Unit‘𝑃))) ∧ 𝑞 ∈ (𝐵 ∖ (Unit‘𝑃))) ∧ (𝑝(.r‘𝑃)𝑞) = 𝑄) → (𝐷‘𝑝) ∈ ℕ0)
90	89	nn0cnd 12562	. . . . . . . . . . . . . 14 ⊢ ((((𝜑 ∧ 𝑝 ∈ (𝐵 ∖ (Unit‘𝑃))) ∧ 𝑞 ∈ (𝐵 ∖ (Unit‘𝑃))) ∧ (𝑝(.r‘𝑃)𝑞) = 𝑄) → (𝐷‘𝑝) ∈ ℂ)
91	86	simprd 500	. . . . . . . . . . . . . . . 16 ⊢ ((((𝜑 ∧ 𝑝 ∈ (𝐵 ∖ (Unit‘𝑃))) ∧ 𝑞 ∈ (𝐵 ∖ (Unit‘𝑃))) ∧ (𝑝(.r‘𝑃)𝑞) = 𝑄) → 𝑞 ≠ (0g‘𝑃))
92	11, 6, 76, 12	deg1nn0cl 26245	. . . . . . . . . . . . . . . 16 ⊢ ((𝐹 ∈ Ring ∧ 𝑞 ∈ 𝐵 ∧ 𝑞 ≠ (0g‘𝑃)) → (𝐷‘𝑞) ∈ ℕ0)
93	75, 32, 91, 92	syl3anc 1398	. . . . . . . . . . . . . . 15 ⊢ ((((𝜑 ∧ 𝑝 ∈ (𝐵 ∖ (Unit‘𝑃))) ∧ 𝑞 ∈ (𝐵 ∖ (Unit‘𝑃))) ∧ (𝑝(.r‘𝑃)𝑞) = 𝑄) → (𝐷‘𝑞) ∈ ℕ0)
94	93	nn0cnd 12562	. . . . . . . . . . . . . 14 ⊢ ((((𝜑 ∧ 𝑝 ∈ (𝐵 ∖ (Unit‘𝑃))) ∧ 𝑞 ∈ (𝐵 ∖ (Unit‘𝑃))) ∧ (𝑝(.r‘𝑃)𝑞) = 𝑄) → (𝐷‘𝑞) ∈ ℂ)
95	35	fveq2d 6885	. . . . . . . . . . . . . . 15 ⊢ ((((𝜑 ∧ 𝑝 ∈ (𝐵 ∖ (Unit‘𝑃))) ∧ 𝑞 ∈ (𝐵 ∖ (Unit‘𝑃))) ∧ (𝑝(.r‘𝑃)𝑞) = 𝑄) → (𝐷‘(𝑝(.r‘𝑃)𝑞)) = (𝐷‘𝑄))
96	57	idomdomd 20824	. . . . . . . . . . . . . . . . 17 ⊢ (𝜑 → 𝐹 ∈ Domn)
97	96	ad3antrrr 742	. . . . . . . . . . . . . . . 16 ⊢ ((((𝜑 ∧ 𝑝 ∈ (𝐵 ∖ (Unit‘𝑃))) ∧ 𝑞 ∈ (𝐵 ∖ (Unit‘𝑃))) ∧ (𝑝(.r‘𝑃)𝑞) = 𝑄) → 𝐹 ∈ Domn)
98	11, 6, 12, 33, 76, 97, 20, 87, 32, 91	deg1mul 26272	. . . . . . . . . . . . . . 15 ⊢ ((((𝜑 ∧ 𝑝 ∈ (𝐵 ∖ (Unit‘𝑃))) ∧ 𝑞 ∈ (𝐵 ∖ (Unit‘𝑃))) ∧ (𝑝(.r‘𝑃)𝑞) = 𝑄) → (𝐷‘(𝑝(.r‘𝑃)𝑞)) = ((𝐷‘𝑝) + (𝐷‘𝑞)))
99	2	ad3antrrr 742	. . . . . . . . . . . . . . 15 ⊢ ((((𝜑 ∧ 𝑝 ∈ (𝐵 ∖ (Unit‘𝑃))) ∧ 𝑞 ∈ (𝐵 ∖ (Unit‘𝑃))) ∧ (𝑝(.r‘𝑃)𝑞) = 𝑄) → (𝐷‘𝑄) = 3)
100	95, 98, 99	3eqtr3d 2806	. . . . . . . . . . . . . 14 ⊢ ((((𝜑 ∧ 𝑝 ∈ (𝐵 ∖ (Unit‘𝑃))) ∧ 𝑞 ∈ (𝐵 ∖ (Unit‘𝑃))) ∧ (𝑝(.r‘𝑃)𝑞) = 𝑄) → ((𝐷‘𝑝) + (𝐷‘𝑞)) = 3)
101	90, 94, 100	mvlladdd 11620	. . . . . . . . . . . . 13 ⊢ ((((𝜑 ∧ 𝑝 ∈ (𝐵 ∖ (Unit‘𝑃))) ∧ 𝑞 ∈ (𝐵 ∖ (Unit‘𝑃))) ∧ (𝑝(.r‘𝑃)𝑞) = 𝑄) → (𝐷‘𝑞) = (3 − (𝐷‘𝑝)))
102	101	adantr 485	. . . . . . . . . . . 12 ⊢ (((((𝜑 ∧ 𝑝 ∈ (𝐵 ∖ (Unit‘𝑃))) ∧ 𝑞 ∈ (𝐵 ∖ (Unit‘𝑃))) ∧ (𝑝(.r‘𝑃)𝑞) = 𝑄) ∧ (𝐷‘𝑝) = 2) → (𝐷‘𝑞) = (3 − (𝐷‘𝑝)))
103		simpr 489	. . . . . . . . . . . . 13 ⊢ (((((𝜑 ∧ 𝑝 ∈ (𝐵 ∖ (Unit‘𝑃))) ∧ 𝑞 ∈ (𝐵 ∖ (Unit‘𝑃))) ∧ (𝑝(.r‘𝑃)𝑞) = 𝑄) ∧ (𝐷‘𝑝) = 2) → (𝐷‘𝑝) = 2)
104	103	oveq2d 7426	. . . . . . . . . . . 12 ⊢ (((((𝜑 ∧ 𝑝 ∈ (𝐵 ∖ (Unit‘𝑃))) ∧ 𝑞 ∈ (𝐵 ∖ (Unit‘𝑃))) ∧ (𝑝(.r‘𝑃)𝑞) = 𝑄) ∧ (𝐷‘𝑝) = 2) → (3 − (𝐷‘𝑝)) = (3 − 2))
105		3cn 12317	. . . . . . . . . . . . . 14 ⊢ 3 ∈ ℂ
106		2cn 12311	. . . . . . . . . . . . . 14 ⊢ 2 ∈ ℂ
107		ax-1cn 11153	. . . . . . . . . . . . . 14 ⊢ 1 ∈ ℂ
108		2p1e3 12377	. . . . . . . . . . . . . 14 ⊢ (2 + 1) = 3
109	105, 106, 107, 108	subaddrii 11542	. . . . . . . . . . . . 13 ⊢ (3 − 2) = 1
110	109	a1i 11	. . . . . . . . . . . 12 ⊢ (((((𝜑 ∧ 𝑝 ∈ (𝐵 ∖ (Unit‘𝑃))) ∧ 𝑞 ∈ (𝐵 ∖ (Unit‘𝑃))) ∧ (𝑝(.r‘𝑃)𝑞) = 𝑄) ∧ (𝐷‘𝑝) = 2) → (3 − 2) = 1)
111	102, 104, 110	3eqtrd 2802	. . . . . . . . . . 11 ⊢ (((((𝜑 ∧ 𝑝 ∈ (𝐵 ∖ (Unit‘𝑃))) ∧ 𝑞 ∈ (𝐵 ∖ (Unit‘𝑃))) ∧ (𝑝(.r‘𝑃)𝑞) = 𝑄) ∧ (𝐷‘𝑝) = 2) → (𝐷‘𝑞) = 1)
112	6, 12, 28, 11, 9, 72, 73, 111	ply1dg1rtn0 33871	. . . . . . . . . 10 ⊢ (((((𝜑 ∧ 𝑝 ∈ (𝐵 ∖ (Unit‘𝑃))) ∧ 𝑞 ∈ (𝐵 ∖ (Unit‘𝑃))) ∧ (𝑝(.r‘𝑃)𝑞) = 𝑄) ∧ (𝐷‘𝑝) = 2) → (◡(𝑂‘𝑞) “ { 0 }) ≠ ∅)
113	71, 112	pm2.21ddne 3042	. . . . . . . . 9 ⊢ (((((𝜑 ∧ 𝑝 ∈ (𝐵 ∖ (Unit‘𝑃))) ∧ 𝑞 ∈ (𝐵 ∖ (Unit‘𝑃))) ∧ (𝑝(.r‘𝑃)𝑞) = 𝑄) ∧ (𝐷‘𝑝) = 2) → ⊥)
114	113	adantlr 727	. . . . . . . 8 ⊢ ((((((𝜑 ∧ 𝑝 ∈ (𝐵 ∖ (Unit‘𝑃))) ∧ 𝑞 ∈ (𝐵 ∖ (Unit‘𝑃))) ∧ (𝑝(.r‘𝑃)𝑞) = 𝑄) ∧ (𝐷‘𝑝) ∈ {2, 3}) ∧ (𝐷‘𝑝) = 2) → ⊥)
115	101	adantr 485	. . . . . . . . . . . 12 ⊢ (((((𝜑 ∧ 𝑝 ∈ (𝐵 ∖ (Unit‘𝑃))) ∧ 𝑞 ∈ (𝐵 ∖ (Unit‘𝑃))) ∧ (𝑝(.r‘𝑃)𝑞) = 𝑄) ∧ (𝐷‘𝑝) = 3) → (𝐷‘𝑞) = (3 − (𝐷‘𝑝)))
116		simpr 489	. . . . . . . . . . . . 13 ⊢ (((((𝜑 ∧ 𝑝 ∈ (𝐵 ∖ (Unit‘𝑃))) ∧ 𝑞 ∈ (𝐵 ∖ (Unit‘𝑃))) ∧ (𝑝(.r‘𝑃)𝑞) = 𝑄) ∧ (𝐷‘𝑝) = 3) → (𝐷‘𝑝) = 3)
117	116	oveq2d 7426	. . . . . . . . . . . 12 ⊢ (((((𝜑 ∧ 𝑝 ∈ (𝐵 ∖ (Unit‘𝑃))) ∧ 𝑞 ∈ (𝐵 ∖ (Unit‘𝑃))) ∧ (𝑝(.r‘𝑃)𝑞) = 𝑄) ∧ (𝐷‘𝑝) = 3) → (3 − (𝐷‘𝑝)) = (3 − 3))
118	105	subidi 11524	. . . . . . . . . . . . 13 ⊢ (3 − 3) = 0
119	118	a1i 11	. . . . . . . . . . . 12 ⊢ (((((𝜑 ∧ 𝑝 ∈ (𝐵 ∖ (Unit‘𝑃))) ∧ 𝑞 ∈ (𝐵 ∖ (Unit‘𝑃))) ∧ (𝑝(.r‘𝑃)𝑞) = 𝑄) ∧ (𝐷‘𝑝) = 3) → (3 − 3) = 0)
120	115, 117, 119	3eqtrd 2802	. . . . . . . . . . 11 ⊢ (((((𝜑 ∧ 𝑝 ∈ (𝐵 ∖ (Unit‘𝑃))) ∧ 𝑞 ∈ (𝐵 ∖ (Unit‘𝑃))) ∧ (𝑝(.r‘𝑃)𝑞) = 𝑄) ∧ (𝐷‘𝑝) = 3) → (𝐷‘𝑞) = 0)
121	18	adantr 485	. . . . . . . . . . . 12 ⊢ (((((𝜑 ∧ 𝑝 ∈ (𝐵 ∖ (Unit‘𝑃))) ∧ 𝑞 ∈ (𝐵 ∖ (Unit‘𝑃))) ∧ (𝑝(.r‘𝑃)𝑞) = 𝑄) ∧ (𝐷‘𝑝) = 3) → 𝐹 ∈ Field)
122	32, 12	eleqtrdi 2873	. . . . . . . . . . . . 13 ⊢ ((((𝜑 ∧ 𝑝 ∈ (𝐵 ∖ (Unit‘𝑃))) ∧ 𝑞 ∈ (𝐵 ∖ (Unit‘𝑃))) ∧ (𝑝(.r‘𝑃)𝑞) = 𝑄) → 𝑞 ∈ (Base‘𝑃))
123	122	adantr 485	. . . . . . . . . . . 12 ⊢ (((((𝜑 ∧ 𝑝 ∈ (𝐵 ∖ (Unit‘𝑃))) ∧ 𝑞 ∈ (𝐵 ∖ (Unit‘𝑃))) ∧ (𝑝(.r‘𝑃)𝑞) = 𝑄) ∧ (𝐷‘𝑝) = 3) → 𝑞 ∈ (Base‘𝑃))
124	6, 7, 8, 9, 121, 11, 123	ply1unit 33865	. . . . . . . . . . 11 ⊢ (((((𝜑 ∧ 𝑝 ∈ (𝐵 ∖ (Unit‘𝑃))) ∧ 𝑞 ∈ (𝐵 ∖ (Unit‘𝑃))) ∧ (𝑝(.r‘𝑃)𝑞) = 𝑄) ∧ (𝐷‘𝑝) = 3) → (𝑞 ∈ (Unit‘𝑃) ↔ (𝐷‘𝑞) = 0))
125	120, 124	mpbird 260	. . . . . . . . . 10 ⊢ (((((𝜑 ∧ 𝑝 ∈ (𝐵 ∖ (Unit‘𝑃))) ∧ 𝑞 ∈ (𝐵 ∖ (Unit‘𝑃))) ∧ (𝑝(.r‘𝑃)𝑞) = 𝑄) ∧ (𝐷‘𝑝) = 3) → 𝑞 ∈ (Unit‘𝑃))
126	31	eldifbd 3918	. . . . . . . . . . 11 ⊢ ((((𝜑 ∧ 𝑝 ∈ (𝐵 ∖ (Unit‘𝑃))) ∧ 𝑞 ∈ (𝐵 ∖ (Unit‘𝑃))) ∧ (𝑝(.r‘𝑃)𝑞) = 𝑄) → ¬ 𝑞 ∈ (Unit‘𝑃))
127	126	adantr 485	. . . . . . . . . 10 ⊢ (((((𝜑 ∧ 𝑝 ∈ (𝐵 ∖ (Unit‘𝑃))) ∧ 𝑞 ∈ (𝐵 ∖ (Unit‘𝑃))) ∧ (𝑝(.r‘𝑃)𝑞) = 𝑄) ∧ (𝐷‘𝑝) = 3) → ¬ 𝑞 ∈ (Unit‘𝑃))
128	125, 127	pm2.21fal 1592	. . . . . . . . 9 ⊢ (((((𝜑 ∧ 𝑝 ∈ (𝐵 ∖ (Unit‘𝑃))) ∧ 𝑞 ∈ (𝐵 ∖ (Unit‘𝑃))) ∧ (𝑝(.r‘𝑃)𝑞) = 𝑄) ∧ (𝐷‘𝑝) = 3) → ⊥)
129	128	adantlr 727	. . . . . . . 8 ⊢ ((((((𝜑 ∧ 𝑝 ∈ (𝐵 ∖ (Unit‘𝑃))) ∧ 𝑞 ∈ (𝐵 ∖ (Unit‘𝑃))) ∧ (𝑝(.r‘𝑃)𝑞) = 𝑄) ∧ (𝐷‘𝑝) ∈ {2, 3}) ∧ (𝐷‘𝑝) = 3) → ⊥)
130		elpri 4613	. . . . . . . . 9 ⊢ ((𝐷‘𝑝) ∈ {2, 3} → ((𝐷‘𝑝) = 2 ∨ (𝐷‘𝑝) = 3))
131	130	adantl 486	. . . . . . . 8 ⊢ (((((𝜑 ∧ 𝑝 ∈ (𝐵 ∖ (Unit‘𝑃))) ∧ 𝑞 ∈ (𝐵 ∖ (Unit‘𝑃))) ∧ (𝑝(.r‘𝑃)𝑞) = 𝑄) ∧ (𝐷‘𝑝) ∈ {2, 3}) → ((𝐷‘𝑝) = 2 ∨ (𝐷‘𝑝) = 3))
132	114, 129, 131	mpjaodan 973	. . . . . . 7 ⊢ (((((𝜑 ∧ 𝑝 ∈ (𝐵 ∖ (Unit‘𝑃))) ∧ 𝑞 ∈ (𝐵 ∖ (Unit‘𝑃))) ∧ (𝑝(.r‘𝑃)𝑞) = 𝑄) ∧ (𝐷‘𝑝) ∈ {2, 3}) → ⊥)
133	79	a1i 11	. . . . . . . . . 10 ⊢ ((((𝜑 ∧ 𝑝 ∈ (𝐵 ∖ (Unit‘𝑃))) ∧ 𝑞 ∈ (𝐵 ∖ (Unit‘𝑃))) ∧ (𝑝(.r‘𝑃)𝑞) = 𝑄) → 3 ∈ ℕ0)
134	89	nn0red 12561	. . . . . . . . . . . 12 ⊢ ((((𝜑 ∧ 𝑝 ∈ (𝐵 ∖ (Unit‘𝑃))) ∧ 𝑞 ∈ (𝐵 ∖ (Unit‘𝑃))) ∧ (𝑝(.r‘𝑃)𝑞) = 𝑄) → (𝐷‘𝑝) ∈ ℝ)
135		nn0addge1 12545	. . . . . . . . . . . 12 ⊢ (((𝐷‘𝑝) ∈ ℝ ∧ (𝐷‘𝑞) ∈ ℕ0) → (𝐷‘𝑝) ≤ ((𝐷‘𝑝) + (𝐷‘𝑞)))
136	134, 93, 135	syl2anc 595	. . . . . . . . . . 11 ⊢ ((((𝜑 ∧ 𝑝 ∈ (𝐵 ∖ (Unit‘𝑃))) ∧ 𝑞 ∈ (𝐵 ∖ (Unit‘𝑃))) ∧ (𝑝(.r‘𝑃)𝑞) = 𝑄) → (𝐷‘𝑝) ≤ ((𝐷‘𝑝) + (𝐷‘𝑞)))
137	136, 100	breqtrd 5137	. . . . . . . . . 10 ⊢ ((((𝜑 ∧ 𝑝 ∈ (𝐵 ∖ (Unit‘𝑃))) ∧ 𝑞 ∈ (𝐵 ∖ (Unit‘𝑃))) ∧ (𝑝(.r‘𝑃)𝑞) = 𝑄) → (𝐷‘𝑝) ≤ 3)
138		fznn0 13643	. . . . . . . . . . 11 ⊢ (3 ∈ ℕ0 → ((𝐷‘𝑝) ∈ (0...3) ↔ ((𝐷‘𝑝) ∈ ℕ0 ∧ (𝐷‘𝑝) ≤ 3)))
139	138	biimpar 482	. . . . . . . . . 10 ⊢ ((3 ∈ ℕ0 ∧ ((𝐷‘𝑝) ∈ ℕ0 ∧ (𝐷‘𝑝) ≤ 3)) → (𝐷‘𝑝) ∈ (0...3))
140	133, 89, 137, 139	syl12anc 849	. . . . . . . . 9 ⊢ ((((𝜑 ∧ 𝑝 ∈ (𝐵 ∖ (Unit‘𝑃))) ∧ 𝑞 ∈ (𝐵 ∖ (Unit‘𝑃))) ∧ (𝑝(.r‘𝑃)𝑞) = 𝑄) → (𝐷‘𝑝) ∈ (0...3))
141		fz0to3un2pr 13653	. . . . . . . . 9 ⊢ (0...3) = ({0, 1} ∪ {2, 3})
142	140, 141	eleqtrdi 2873	. . . . . . . 8 ⊢ ((((𝜑 ∧ 𝑝 ∈ (𝐵 ∖ (Unit‘𝑃))) ∧ 𝑞 ∈ (𝐵 ∖ (Unit‘𝑃))) ∧ (𝑝(.r‘𝑃)𝑞) = 𝑄) → (𝐷‘𝑝) ∈ ({0, 1} ∪ {2, 3}))
143		elun 4107	. . . . . . . 8 ⊢ ((𝐷‘𝑝) ∈ ({0, 1} ∪ {2, 3}) ↔ ((𝐷‘𝑝) ∈ {0, 1} ∨ (𝐷‘𝑝) ∈ {2, 3}))
144	142, 143	sylib 221	. . . . . . 7 ⊢ ((((𝜑 ∧ 𝑝 ∈ (𝐵 ∖ (Unit‘𝑃))) ∧ 𝑞 ∈ (𝐵 ∖ (Unit‘𝑃))) ∧ (𝑝(.r‘𝑃)𝑞) = 𝑄) → ((𝐷‘𝑝) ∈ {0, 1} ∨ (𝐷‘𝑝) ∈ {2, 3}))
145	54, 132, 144	mpjaodan 973	. . . . . 6 ⊢ ((((𝜑 ∧ 𝑝 ∈ (𝐵 ∖ (Unit‘𝑃))) ∧ 𝑞 ∈ (𝐵 ∖ (Unit‘𝑃))) ∧ (𝑝(.r‘𝑃)𝑞) = 𝑄) → ⊥)
146	145	r19.29ffa 32818	. . . . 5 ⊢ ((𝜑 ∧ ∃𝑝 ∈ (𝐵 ∖ (Unit‘𝑃))∃𝑞 ∈ (𝐵 ∖ (Unit‘𝑃))(𝑝(.r‘𝑃)𝑞) = 𝑄) → ⊥)
147	146	inegd 1590	. . . 4 ⊢ (𝜑 → ¬ ∃𝑝 ∈ (𝐵 ∖ (Unit‘𝑃))∃𝑞 ∈ (𝐵 ∖ (Unit‘𝑃))(𝑝(.r‘𝑃)𝑞) = 𝑄)
148		ralnex2 3145	. . . 4 ⊢ (∀𝑝 ∈ (𝐵 ∖ (Unit‘𝑃))∀𝑞 ∈ (𝐵 ∖ (Unit‘𝑃)) ¬ (𝑝(.r‘𝑃)𝑞) = 𝑄 ↔ ¬ ∃𝑝 ∈ (𝐵 ∖ (Unit‘𝑃))∃𝑞 ∈ (𝐵 ∖ (Unit‘𝑃))(𝑝(.r‘𝑃)𝑞) = 𝑄)
149	147, 148	sylibr 237	. . 3 ⊢ (𝜑 → ∀𝑝 ∈ (𝐵 ∖ (Unit‘𝑃))∀𝑞 ∈ (𝐵 ∖ (Unit‘𝑃)) ¬ (𝑝(.r‘𝑃)𝑞) = 𝑄)
150		df-ne 2959	. . . 4 ⊢ ((𝑝(.r‘𝑃)𝑞) ≠ 𝑄 ↔ ¬ (𝑝(.r‘𝑃)𝑞) = 𝑄)
151	150	2ralbii 3140	. . 3 ⊢ (∀𝑝 ∈ (𝐵 ∖ (Unit‘𝑃))∀𝑞 ∈ (𝐵 ∖ (Unit‘𝑃))(𝑝(.r‘𝑃)𝑞) ≠ 𝑄 ↔ ∀𝑝 ∈ (𝐵 ∖ (Unit‘𝑃))∀𝑞 ∈ (𝐵 ∖ (Unit‘𝑃)) ¬ (𝑝(.r‘𝑃)𝑞) = 𝑄)
152	149, 151	sylibr 237	. 2 ⊢ (𝜑 → ∀𝑝 ∈ (𝐵 ∖ (Unit‘𝑃))∀𝑞 ∈ (𝐵 ∖ (Unit‘𝑃))(𝑝(.r‘𝑃)𝑞) ≠ 𝑄)
153		eqid 2763	. . 3 ⊢ (Unit‘𝑃) = (Unit‘𝑃)
154		eqid 2763	. . 3 ⊢ (Irred‘𝑃) = (Irred‘𝑃)
155		eqid 2763	. . 3 ⊢ (𝐵 ∖ (Unit‘𝑃)) = (𝐵 ∖ (Unit‘𝑃))
156	12, 153, 154, 155, 33	isirred 20497	. 2 ⊢ (𝑄 ∈ (Irred‘𝑃) ↔ (𝑄 ∈ (𝐵 ∖ (Unit‘𝑃)) ∧ ∀𝑝 ∈ (𝐵 ∖ (Unit‘𝑃))∀𝑞 ∈ (𝐵 ∖ (Unit‘𝑃))(𝑝(.r‘𝑃)𝑞) ≠ 𝑄))
157	17, 152, 156	sylanbrc 594	1 ⊢ (𝜑 → 𝑄 ∈ (Irred‘𝑃))

Syntax hints:  ¬ wn 3   → wi 4   ∧ wa 400   ∨ wo 860   = wceq 1570  ⊥wfal 1582   ∈ wcel 2143   ≠ wne 2958  ∀wral 3079  ∃wrex 3089   ∖ cdif 3902   ∪ cun 3903   ⊆ wss 3905  ∅c0 4286  {csn 4589  {cpr 4591   class class class wbr 5109  ^◡ccnv 5660   “ cima 5664  ‘cfv 6536  (class class class)co 7410  ℝcr 11094  0cc0 11095  1c1 11096   + caddc 11098   ≤ cle 11239   − cmin 11436  2c2 12290  3c3 12291  ℕ₀cn0 12499  ...cfz 13530  Basecbs 17264  ._rcmulr 17306  0_gc0g 17487  Ringcrg 20310  CRingccrg 20311  Unitcui 20433  Irredcir 20434  Domncdomn 20791  IDomncidom 20792  Fieldcfield 20828  algSccascl 22002  Poly₁cpl1 22337  eval₁ce1 22474  deg₁cdg1 26211

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1825  ax-4 1839  ax-5 1940  ax-6 1997  ax-7 2038  ax-8 2145  ax-9 2153  ax-10 2176  ax-11 2192  ax-12 2213  ax-ext 2735  ax-rep 5238  ax-sep 5257  ax-nul 5269  ax-pow 5336  ax-pr 5404  ax-un 7732  ax-cnex 11151  ax-resscn 11152  ax-1cn 11153  ax-icn 11154  ax-addcl 11155  ax-addrcl 11156  ax-mulcl 11157  ax-mulrcl 11158  ax-mulcom 11159  ax-addass 11160  ax-mulass 11161  ax-distr 11162  ax-i2m1 11163  ax-1ne0 11164  ax-1rid 11165  ax-rnegex 11166  ax-rrecex 11167  ax-cnre 11168  ax-pre-lttri 11169  ax-pre-lttrn 11170  ax-pre-ltadd 11171  ax-pre-mulgt0 11172  ax-pre-sup 11173  ax-addf 11174

This theorem depends on definitions:  df-bi 210  df-an 401  df-or 861  df-3or 1104  df-3an 1105  df-tru 1573  df-fal 1583  df-ex 1810  df-nf 1814  df-sb 2097  df-mo 2567  df-eu 2597  df-clab 2742  df-cleq 2755  df-clel 2838  df-nfc 2912  df-ne 2959  df-nel 3065  df-ral 3080  df-rex 3090  df-rmo 3369  df-reu 3370  df-rab 3417  df-v 3457  df-sbc 3745  df-csb 3854  df-dif 3908  df-un 3910  df-in 3912  df-ss 3922  df-pss 3925  df-nul 4287  df-if 4488  df-pw 4564  df-sn 4590  df-pr 4592  df-tp 4594  df-op 4596  df-uni 4873  df-int 4913  df-iun 4958  df-iin 4959  df-br 5110  df-opab 5174  df-mpt 5193  df-tr 5219  df-id 5556  df-eprel 5561  df-po 5569  df-so 5570  df-fr 5614  df-se 5615  df-we 5616  df-xp 5667  df-rel 5668  df-cnv 5669  df-co 5670  df-dm 5671  df-rn 5672  df-res 5673  df-ima 5674  df-pred 6302  df-ord 6363  df-on 6364  df-lim 6365  df-suc 6366  df-iota 6492  df-fun 6538  df-fn 6539  df-f 6540  df-f1 6541  df-fo 6542  df-f1o 6543  df-fv 6544  df-isom 6545  df-riota 7367  df-ov 7413  df-oprab 7414  df-mpo 7415  df-of 7674  df-ofr 7675  df-om 7859  df-1st 7982  df-2nd 7983  df-supp 8153  df-tpos 8218  df-frecs 8274  df-wrecs 8305  df-recs 8354  df-rdg 8393  df-1o 8449  df-2o 8450  df-er 8690  df-map 8822  df-pm 8823  df-ixp 8892  df-en 8940  df-dom 8941  df-sdom 8942  df-fin 8943  df-fsupp 9318  df-sup 9398  df-oi 9468  df-card 9921  df-pnf 11240  df-mnf 11241  df-xr 11242  df-ltxr 11243  df-le 11244  df-sub 11438  df-neg 11439  df-nn 12229  df-2 12298  df-3 12299  df-4 12300  df-5 12301  df-6 12302  df-7 12303  df-8 12304  df-9 12305  df-n0 12500  df-z 12587  df-dec 12707  df-uz 12858  df-fz 13531  df-fzo 13679  df-seq 14034  df-hash 14363  df-struct 17202  df-sets 17219  df-slot 17237  df-ndx 17249  df-base 17265  df-ress 17286  df-plusg 17318  df-mulr 17319  df-starv 17320  df-sca 17321  df-vsca 17322  df-ip 17323  df-tset 17324  df-ple 17325  df-ds 17327  df-unif 17328  df-hom 17329  df-cco 17330  df-0g 17489  df-gsum 17490  df-prds 17495  df-pws 17497  df-mre 17633  df-mrc 17634  df-acs 17636  df-mgm 18693  df-sgrp 18772  df-mnd 18788  df-mhm 18836  df-submnd 18837  df-grp 18998  df-minusg 18999  df-sbg 19000  df-mulg 19129  df-subg 19184  df-ghm 19279  df-cntz 19382  df-cmn 19847  df-abl 19848  df-mgp 20212  df-rng 20226  df-ur 20259  df-srg 20264  df-ring 20312  df-cring 20313  df-oppr 20415  df-dvdsr 20435  df-unit 20436  df-irred 20437  df-invr 20466  df-dvr 20479  df-rhm 20550  df-nzr 20610  df-subrng 20645  df-subrg 20669  df-rlreg 20793  df-domn 20794  df-idom 20795  df-drng 20829  df-field 20830  df-lmod 20983  df-lss 21053  df-lsp 21093  df-cnfld 21523  df-assa 22003  df-asp 22004  df-ascl 22005  df-psr 22059  df-mvr 22060  df-mpl 22061  df-opsr 22063  df-evls 22225  df-evl 22226  df-psr1 22340  df-vr1 22341  df-ply1 22342  df-coe1 22343  df-evls1 22475  df-evl1 22476  df-mdeg 26212  df-deg1 26213  df-mon1 26288

This theorem is referenced by:  2sqr3minply  34170  cos9thpiminply  34178