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