Metamath Proof Explorer


Theorem aks6d1c1p7

Description: X is introspective to all positive integers. (Contributed by metakunt, 30-Apr-2025)

Ref Expression
Hypotheses aks6d1c1p7.1 ⊢ ∼ ˙ = e f | e ∈ ℕ ∧ f ∈ B ∧ ∀ y ∈ V PrimRoots R e × ˙ O ⁡ f ⁡ y = O ⁡ f ⁡ e × ˙ y
aks6d1c1p7.2 ⊢ S = Poly 1 ⁡ K
aks6d1c1p7.3 ⊢ B = Base S
aks6d1c1p7.4 ⊢ X = var 1 ⁡ K
aks6d1c1p7.5 ⊢ V = mulGrp K
aks6d1c1p7.6 ⊢ × ˙ = ⋅ V
aks6d1c1p7.7 ⊢ P = chr ⁡ K
aks6d1c1p7.8 ⊢ O = eval 1 ⁡ K
aks6d1c1p7.9 ⊢ φ → K ∈ Field
aks6d1c1p7.10 ⊢ φ → P ∈ ℙ
aks6d1c1p7.11 ⊢ φ → R ∈ ℕ
aks6d1c1p7.12 ⊢ φ → N ∈ ℕ
aks6d1c1p7.13 ⊢ φ → P ∥ N
aks6d1c1p7.14 ⊢ φ → N gcd R = 1
aks6d1c1p7.15 ⊢ φ → L ∈ ℕ
Assertion aks6d1c1p7 ⊢ φ → L ∼ ˙ X

Proof

Step Hyp Ref Expression
1 aks6d1c1p7.1 ⊢ ∼ ˙ = e f | e ∈ ℕ ∧ f ∈ B ∧ ∀ y ∈ V PrimRoots R e × ˙ O ⁡ f ⁡ y = O ⁡ f ⁡ e × ˙ y
2 aks6d1c1p7.2 ⊢ S = Poly 1 ⁡ K
3 aks6d1c1p7.3 ⊢ B = Base S
4 aks6d1c1p7.4 ⊢ X = var 1 ⁡ K
5 aks6d1c1p7.5 ⊢ V = mulGrp K
6 aks6d1c1p7.6 ⊢ × ˙ = ⋅ V
7 aks6d1c1p7.7 ⊢ P = chr ⁡ K
8 aks6d1c1p7.8 ⊢ O = eval 1 ⁡ K
9 aks6d1c1p7.9 ⊢ φ → K ∈ Field
10 aks6d1c1p7.10 ⊢ φ → P ∈ ℙ
11 aks6d1c1p7.11 ⊢ φ → R ∈ ℕ
12 aks6d1c1p7.12 ⊢ φ → N ∈ ℕ
13 aks6d1c1p7.13 ⊢ φ → P ∥ N
14 aks6d1c1p7.14 ⊢ φ → N gcd R = 1
15 aks6d1c1p7.15 ⊢ φ → L ∈ ℕ
16 eqid ⊢ Base K = Base K
17 9 fldcrngd ⊢ φ → K ∈ CRing
18 17 adantr ⊢ φ ∧ y ∈ V PrimRoots R → K ∈ CRing
19 5 crngmgp ⊢ K ∈ CRing → V ∈ CMnd
20 17 19 syl ⊢ φ → V ∈ CMnd
21 11 nnnn0d ⊢ φ → R ∈ ℕ 0
22 20 21 6 isprimroot ⊢ φ → y ∈ V PrimRoots R ↔ y ∈ Base V ∧ R × ˙ y = 0 V ∧ ∀ l ∈ ℕ 0 l × ˙ y = 0 V → R ∥ l
23 22 biimpd ⊢ φ → y ∈ V PrimRoots R → y ∈ Base V ∧ R × ˙ y = 0 V ∧ ∀ l ∈ ℕ 0 l × ˙ y = 0 V → R ∥ l
24 23 imp ⊢ φ ∧ y ∈ V PrimRoots R → y ∈ Base V ∧ R × ˙ y = 0 V ∧ ∀ l ∈ ℕ 0 l × ˙ y = 0 V → R ∥ l
25 24 simp1d ⊢ φ ∧ y ∈ V PrimRoots R → y ∈ Base V
26 5 16 mgpbas ⊢ Base K = Base V
27 25 26 eleqtrrdi ⊢ φ ∧ y ∈ V PrimRoots R → y ∈ Base K
28 8 4 16 2 3 18 27 evl1vard ⊢ φ ∧ y ∈ V PrimRoots R → X ∈ B ∧ O ⁡ X ⁡ y = y
29 28 simprd ⊢ φ ∧ y ∈ V PrimRoots R → O ⁡ X ⁡ y = y
30 29 oveq2d ⊢ φ ∧ y ∈ V PrimRoots R → L × ˙ O ⁡ X ⁡ y = L × ˙ y
31 20 cmnmndd ⊢ φ → V ∈ Mnd
32 31 adantr ⊢ φ ∧ y ∈ V PrimRoots R → V ∈ Mnd
33 15 nnnn0d ⊢ φ → L ∈ ℕ 0
34 33 adantr ⊢ φ ∧ y ∈ V PrimRoots R → L ∈ ℕ 0
35 27 26 eleqtrdi ⊢ φ ∧ y ∈ V PrimRoots R → y ∈ Base V
36 eqid ⊢ Base V = Base V
37 36 6 mulgnn0cl ⊢ V ∈ Mnd ∧ L ∈ ℕ 0 ∧ y ∈ Base V → L × ˙ y ∈ Base V
38 32 34 35 37 syl3anc ⊢ φ ∧ y ∈ V PrimRoots R → L × ˙ y ∈ Base V
39 38 26 eleqtrrdi ⊢ φ ∧ y ∈ V PrimRoots R → L × ˙ y ∈ Base K
40 8 4 16 2 3 18 39 evl1vard ⊢ φ ∧ y ∈ V PrimRoots R → X ∈ B ∧ O ⁡ X ⁡ L × ˙ y = L × ˙ y
41 40 simprd ⊢ φ ∧ y ∈ V PrimRoots R → O ⁡ X ⁡ L × ˙ y = L × ˙ y
42 eqidd ⊢ φ ∧ y ∈ V PrimRoots R → L × ˙ y = L × ˙ y
43 41 42 eqtr2d ⊢ φ ∧ y ∈ V PrimRoots R → L × ˙ y = O ⁡ X ⁡ L × ˙ y
44 30 43 eqtrd ⊢ φ ∧ y ∈ V PrimRoots R → L × ˙ O ⁡ X ⁡ y = O ⁡ X ⁡ L × ˙ y
45 44 ralrimiva ⊢ φ → ∀ y ∈ V PrimRoots R L × ˙ O ⁡ X ⁡ y = O ⁡ X ⁡ L × ˙ y
46 crngring ⊢ K ∈ CRing → K ∈ Ring
47 17 46 syl ⊢ φ → K ∈ Ring
48 eqid ⊢ Base S = Base S
49 4 2 48 vr1cl ⊢ K ∈ Ring → X ∈ Base S
50 47 49 syl ⊢ φ → X ∈ Base S
51 50 3 eleqtrrdi ⊢ φ → X ∈ B
52 1 51 15 aks6d1c1p1 ⊢ φ → L ∼ ˙ X ↔ ∀ y ∈ V PrimRoots R L × ˙ O ⁡ X ⁡ y = O ⁡ X ⁡ L × ˙ y
53 45 52 mpbird ⊢ φ → L ∼ ˙ X