ILE Home Intuitionistic Logic Explorer < Previous   Next >
Nearby theorems
Mirrors  >  Home  >  ILE Home  >  Th. List  >  srgpcomp GIF version

Theorem srgpcomp 13242
Description: If two elements of a semiring commute, they also commute if one of the elements is raised to a higher power. (Contributed by AV, 23-Aug-2019.)
Hypotheses
Ref Expression
srgpcomp.s 𝑆 = (Base‘𝑅)
srgpcomp.m × = (.r𝑅)
srgpcomp.g 𝐺 = (mulGrp‘𝑅)
srgpcomp.e = (.g𝐺)
srgpcomp.r (𝜑𝑅 ∈ SRing)
srgpcomp.a (𝜑𝐴𝑆)
srgpcomp.b (𝜑𝐵𝑆)
srgpcomp.k (𝜑𝐾 ∈ ℕ0)
srgpcomp.c (𝜑 → (𝐴 × 𝐵) = (𝐵 × 𝐴))
Assertion
Ref Expression
srgpcomp (𝜑 → ((𝐾 𝐵) × 𝐴) = (𝐴 × (𝐾 𝐵)))

Proof of Theorem srgpcomp
Dummy variables 𝑥 𝑦 are mutually distinct and distinct from all other variables.
StepHypRef Expression
1 srgpcomp.k . 2 (𝜑𝐾 ∈ ℕ0)
2 oveq1 5895 . . . . . 6 (𝑥 = 0 → (𝑥 𝐵) = (0 𝐵))
32oveq1d 5903 . . . . 5 (𝑥 = 0 → ((𝑥 𝐵) × 𝐴) = ((0 𝐵) × 𝐴))
42oveq2d 5904 . . . . 5 (𝑥 = 0 → (𝐴 × (𝑥 𝐵)) = (𝐴 × (0 𝐵)))
53, 4eqeq12d 2202 . . . 4 (𝑥 = 0 → (((𝑥 𝐵) × 𝐴) = (𝐴 × (𝑥 𝐵)) ↔ ((0 𝐵) × 𝐴) = (𝐴 × (0 𝐵))))
65imbi2d 230 . . 3 (𝑥 = 0 → ((𝜑 → ((𝑥 𝐵) × 𝐴) = (𝐴 × (𝑥 𝐵))) ↔ (𝜑 → ((0 𝐵) × 𝐴) = (𝐴 × (0 𝐵)))))
7 oveq1 5895 . . . . . 6 (𝑥 = 𝑦 → (𝑥 𝐵) = (𝑦 𝐵))
87oveq1d 5903 . . . . 5 (𝑥 = 𝑦 → ((𝑥 𝐵) × 𝐴) = ((𝑦 𝐵) × 𝐴))
97oveq2d 5904 . . . . 5 (𝑥 = 𝑦 → (𝐴 × (𝑥 𝐵)) = (𝐴 × (𝑦 𝐵)))
108, 9eqeq12d 2202 . . . 4 (𝑥 = 𝑦 → (((𝑥 𝐵) × 𝐴) = (𝐴 × (𝑥 𝐵)) ↔ ((𝑦 𝐵) × 𝐴) = (𝐴 × (𝑦 𝐵))))
1110imbi2d 230 . . 3 (𝑥 = 𝑦 → ((𝜑 → ((𝑥 𝐵) × 𝐴) = (𝐴 × (𝑥 𝐵))) ↔ (𝜑 → ((𝑦 𝐵) × 𝐴) = (𝐴 × (𝑦 𝐵)))))
12 oveq1 5895 . . . . . 6 (𝑥 = (𝑦 + 1) → (𝑥 𝐵) = ((𝑦 + 1) 𝐵))
1312oveq1d 5903 . . . . 5 (𝑥 = (𝑦 + 1) → ((𝑥 𝐵) × 𝐴) = (((𝑦 + 1) 𝐵) × 𝐴))
1412oveq2d 5904 . . . . 5 (𝑥 = (𝑦 + 1) → (𝐴 × (𝑥 𝐵)) = (𝐴 × ((𝑦 + 1) 𝐵)))
1513, 14eqeq12d 2202 . . . 4 (𝑥 = (𝑦 + 1) → (((𝑥 𝐵) × 𝐴) = (𝐴 × (𝑥 𝐵)) ↔ (((𝑦 + 1) 𝐵) × 𝐴) = (𝐴 × ((𝑦 + 1) 𝐵))))
1615imbi2d 230 . . 3 (𝑥 = (𝑦 + 1) → ((𝜑 → ((𝑥 𝐵) × 𝐴) = (𝐴 × (𝑥 𝐵))) ↔ (𝜑 → (((𝑦 + 1) 𝐵) × 𝐴) = (𝐴 × ((𝑦 + 1) 𝐵)))))
17 oveq1 5895 . . . . . 6 (𝑥 = 𝐾 → (𝑥 𝐵) = (𝐾 𝐵))
1817oveq1d 5903 . . . . 5 (𝑥 = 𝐾 → ((𝑥 𝐵) × 𝐴) = ((𝐾 𝐵) × 𝐴))
1917oveq2d 5904 . . . . 5 (𝑥 = 𝐾 → (𝐴 × (𝑥 𝐵)) = (𝐴 × (𝐾 𝐵)))
2018, 19eqeq12d 2202 . . . 4 (𝑥 = 𝐾 → (((𝑥 𝐵) × 𝐴) = (𝐴 × (𝑥 𝐵)) ↔ ((𝐾 𝐵) × 𝐴) = (𝐴 × (𝐾 𝐵))))
2120imbi2d 230 . . 3 (𝑥 = 𝐾 → ((𝜑 → ((𝑥 𝐵) × 𝐴) = (𝐴 × (𝑥 𝐵))) ↔ (𝜑 → ((𝐾 𝐵) × 𝐴) = (𝐴 × (𝐾 𝐵)))))
22 srgpcomp.b . . . . . . . 8 (𝜑𝐵𝑆)
23 srgpcomp.r . . . . . . . . 9 (𝜑𝑅 ∈ SRing)
24 srgpcomp.g . . . . . . . . . 10 𝐺 = (mulGrp‘𝑅)
25 srgpcomp.s . . . . . . . . . 10 𝑆 = (Base‘𝑅)
2624, 25mgpbasg 13178 . . . . . . . . 9 (𝑅 ∈ SRing → 𝑆 = (Base‘𝐺))
2723, 26syl 14 . . . . . . . 8 (𝜑𝑆 = (Base‘𝐺))
2822, 27eleqtrd 2266 . . . . . . 7 (𝜑𝐵 ∈ (Base‘𝐺))
29 eqid 2187 . . . . . . . 8 (Base‘𝐺) = (Base‘𝐺)
30 eqid 2187 . . . . . . . 8 (0g𝐺) = (0g𝐺)
31 srgpcomp.e . . . . . . . 8 = (.g𝐺)
3229, 30, 31mulg0 13020 . . . . . . 7 (𝐵 ∈ (Base‘𝐺) → (0 𝐵) = (0g𝐺))
3328, 32syl 14 . . . . . 6 (𝜑 → (0 𝐵) = (0g𝐺))
34 eqid 2187 . . . . . . . 8 (1r𝑅) = (1r𝑅)
3524, 34ringidvalg 13213 . . . . . . 7 (𝑅 ∈ SRing → (1r𝑅) = (0g𝐺))
3623, 35syl 14 . . . . . 6 (𝜑 → (1r𝑅) = (0g𝐺))
3733, 36eqtr4d 2223 . . . . 5 (𝜑 → (0 𝐵) = (1r𝑅))
3837oveq1d 5903 . . . 4 (𝜑 → ((0 𝐵) × 𝐴) = ((1r𝑅) × 𝐴))
39 srgpcomp.a . . . . . 6 (𝜑𝐴𝑆)
40 srgpcomp.m . . . . . . 7 × = (.r𝑅)
4125, 40, 34srgridm 13232 . . . . . 6 ((𝑅 ∈ SRing ∧ 𝐴𝑆) → (𝐴 × (1r𝑅)) = 𝐴)
4223, 39, 41syl2anc 411 . . . . 5 (𝜑 → (𝐴 × (1r𝑅)) = 𝐴)
4337oveq2d 5904 . . . . 5 (𝜑 → (𝐴 × (0 𝐵)) = (𝐴 × (1r𝑅)))
4425, 40, 34srglidm 13231 . . . . . 6 ((𝑅 ∈ SRing ∧ 𝐴𝑆) → ((1r𝑅) × 𝐴) = 𝐴)
4523, 39, 44syl2anc 411 . . . . 5 (𝜑 → ((1r𝑅) × 𝐴) = 𝐴)
4642, 43, 453eqtr4rd 2231 . . . 4 (𝜑 → ((1r𝑅) × 𝐴) = (𝐴 × (0 𝐵)))
4738, 46eqtrd 2220 . . 3 (𝜑 → ((0 𝐵) × 𝐴) = (𝐴 × (0 𝐵)))
4824srgmgp 13220 . . . . . . . . . . . . . 14 (𝑅 ∈ SRing → 𝐺 ∈ Mnd)
4923, 48syl 14 . . . . . . . . . . . . 13 (𝜑𝐺 ∈ Mnd)
5049adantr 276 . . . . . . . . . . . 12 ((𝜑𝑦 ∈ ℕ0) → 𝐺 ∈ Mnd)
51 simpr 110 . . . . . . . . . . . 12 ((𝜑𝑦 ∈ ℕ0) → 𝑦 ∈ ℕ0)
5222adantr 276 . . . . . . . . . . . . 13 ((𝜑𝑦 ∈ ℕ0) → 𝐵𝑆)
5327adantr 276 . . . . . . . . . . . . 13 ((𝜑𝑦 ∈ ℕ0) → 𝑆 = (Base‘𝐺))
5452, 53eleqtrd 2266 . . . . . . . . . . . 12 ((𝜑𝑦 ∈ ℕ0) → 𝐵 ∈ (Base‘𝐺))
55 eqid 2187 . . . . . . . . . . . . 13 (+g𝐺) = (+g𝐺)
5629, 31, 55mulgnn0p1 13026 . . . . . . . . . . . 12 ((𝐺 ∈ Mnd ∧ 𝑦 ∈ ℕ0𝐵 ∈ (Base‘𝐺)) → ((𝑦 + 1) 𝐵) = ((𝑦 𝐵)(+g𝐺)𝐵))
5750, 51, 54, 56syl3anc 1248 . . . . . . . . . . 11 ((𝜑𝑦 ∈ ℕ0) → ((𝑦 + 1) 𝐵) = ((𝑦 𝐵)(+g𝐺)𝐵))
5824, 40mgpplusgg 13176 . . . . . . . . . . . . . . 15 (𝑅 ∈ SRing → × = (+g𝐺))
5923, 58syl 14 . . . . . . . . . . . . . 14 (𝜑× = (+g𝐺))
6059oveqd 5905 . . . . . . . . . . . . 13 (𝜑 → ((𝑦 𝐵) × 𝐵) = ((𝑦 𝐵)(+g𝐺)𝐵))
6160eqeq2d 2199 . . . . . . . . . . . 12 (𝜑 → (((𝑦 + 1) 𝐵) = ((𝑦 𝐵) × 𝐵) ↔ ((𝑦 + 1) 𝐵) = ((𝑦 𝐵)(+g𝐺)𝐵)))
6261adantr 276 . . . . . . . . . . 11 ((𝜑𝑦 ∈ ℕ0) → (((𝑦 + 1) 𝐵) = ((𝑦 𝐵) × 𝐵) ↔ ((𝑦 + 1) 𝐵) = ((𝑦 𝐵)(+g𝐺)𝐵)))
6357, 62mpbird 167 . . . . . . . . . 10 ((𝜑𝑦 ∈ ℕ0) → ((𝑦 + 1) 𝐵) = ((𝑦 𝐵) × 𝐵))
6463oveq1d 5903 . . . . . . . . 9 ((𝜑𝑦 ∈ ℕ0) → (((𝑦 + 1) 𝐵) × 𝐴) = (((𝑦 𝐵) × 𝐵) × 𝐴))
65 srgpcomp.c . . . . . . . . . . . . 13 (𝜑 → (𝐴 × 𝐵) = (𝐵 × 𝐴))
6665eqcomd 2193 . . . . . . . . . . . 12 (𝜑 → (𝐵 × 𝐴) = (𝐴 × 𝐵))
6766adantr 276 . . . . . . . . . . 11 ((𝜑𝑦 ∈ ℕ0) → (𝐵 × 𝐴) = (𝐴 × 𝐵))
6867oveq2d 5904 . . . . . . . . . 10 ((𝜑𝑦 ∈ ℕ0) → ((𝑦 𝐵) × (𝐵 × 𝐴)) = ((𝑦 𝐵) × (𝐴 × 𝐵)))
6923adantr 276 . . . . . . . . . . 11 ((𝜑𝑦 ∈ ℕ0) → 𝑅 ∈ SRing)
7029, 31mulgnn0cl 13031 . . . . . . . . . . . . 13 ((𝐺 ∈ Mnd ∧ 𝑦 ∈ ℕ0𝐵 ∈ (Base‘𝐺)) → (𝑦 𝐵) ∈ (Base‘𝐺))
7150, 51, 54, 70syl3anc 1248 . . . . . . . . . . . 12 ((𝜑𝑦 ∈ ℕ0) → (𝑦 𝐵) ∈ (Base‘𝐺))
7271, 53eleqtrrd 2267 . . . . . . . . . . 11 ((𝜑𝑦 ∈ ℕ0) → (𝑦 𝐵) ∈ 𝑆)
7339adantr 276 . . . . . . . . . . 11 ((𝜑𝑦 ∈ ℕ0) → 𝐴𝑆)
7425, 40srgass 13223 . . . . . . . . . . 11 ((𝑅 ∈ SRing ∧ ((𝑦 𝐵) ∈ 𝑆𝐵𝑆𝐴𝑆)) → (((𝑦 𝐵) × 𝐵) × 𝐴) = ((𝑦 𝐵) × (𝐵 × 𝐴)))
7569, 72, 52, 73, 74syl13anc 1250 . . . . . . . . . 10 ((𝜑𝑦 ∈ ℕ0) → (((𝑦 𝐵) × 𝐵) × 𝐴) = ((𝑦 𝐵) × (𝐵 × 𝐴)))
7625, 40srgass 13223 . . . . . . . . . . 11 ((𝑅 ∈ SRing ∧ ((𝑦 𝐵) ∈ 𝑆𝐴𝑆𝐵𝑆)) → (((𝑦 𝐵) × 𝐴) × 𝐵) = ((𝑦 𝐵) × (𝐴 × 𝐵)))
7769, 72, 73, 52, 76syl13anc 1250 . . . . . . . . . 10 ((𝜑𝑦 ∈ ℕ0) → (((𝑦 𝐵) × 𝐴) × 𝐵) = ((𝑦 𝐵) × (𝐴 × 𝐵)))
7868, 75, 773eqtr4d 2230 . . . . . . . . 9 ((𝜑𝑦 ∈ ℕ0) → (((𝑦 𝐵) × 𝐵) × 𝐴) = (((𝑦 𝐵) × 𝐴) × 𝐵))
7964, 78eqtrd 2220 . . . . . . . 8 ((𝜑𝑦 ∈ ℕ0) → (((𝑦 + 1) 𝐵) × 𝐴) = (((𝑦 𝐵) × 𝐴) × 𝐵))
8079adantr 276 . . . . . . 7 (((𝜑𝑦 ∈ ℕ0) ∧ ((𝑦 𝐵) × 𝐴) = (𝐴 × (𝑦 𝐵))) → (((𝑦 + 1) 𝐵) × 𝐴) = (((𝑦 𝐵) × 𝐴) × 𝐵))
81 oveq1 5895 . . . . . . . 8 (((𝑦 𝐵) × 𝐴) = (𝐴 × (𝑦 𝐵)) → (((𝑦 𝐵) × 𝐴) × 𝐵) = ((𝐴 × (𝑦 𝐵)) × 𝐵))
8225, 40srgass 13223 . . . . . . . . . 10 ((𝑅 ∈ SRing ∧ (𝐴𝑆 ∧ (𝑦 𝐵) ∈ 𝑆𝐵𝑆)) → ((𝐴 × (𝑦 𝐵)) × 𝐵) = (𝐴 × ((𝑦 𝐵) × 𝐵)))
8369, 73, 72, 52, 82syl13anc 1250 . . . . . . . . 9 ((𝜑𝑦 ∈ ℕ0) → ((𝐴 × (𝑦 𝐵)) × 𝐵) = (𝐴 × ((𝑦 𝐵) × 𝐵)))
8463eqcomd 2193 . . . . . . . . . 10 ((𝜑𝑦 ∈ ℕ0) → ((𝑦 𝐵) × 𝐵) = ((𝑦 + 1) 𝐵))
8584oveq2d 5904 . . . . . . . . 9 ((𝜑𝑦 ∈ ℕ0) → (𝐴 × ((𝑦 𝐵) × 𝐵)) = (𝐴 × ((𝑦 + 1) 𝐵)))
8683, 85eqtrd 2220 . . . . . . . 8 ((𝜑𝑦 ∈ ℕ0) → ((𝐴 × (𝑦 𝐵)) × 𝐵) = (𝐴 × ((𝑦 + 1) 𝐵)))
8781, 86sylan9eqr 2242 . . . . . . 7 (((𝜑𝑦 ∈ ℕ0) ∧ ((𝑦 𝐵) × 𝐴) = (𝐴 × (𝑦 𝐵))) → (((𝑦 𝐵) × 𝐴) × 𝐵) = (𝐴 × ((𝑦 + 1) 𝐵)))
8880, 87eqtrd 2220 . . . . . 6 (((𝜑𝑦 ∈ ℕ0) ∧ ((𝑦 𝐵) × 𝐴) = (𝐴 × (𝑦 𝐵))) → (((𝑦 + 1) 𝐵) × 𝐴) = (𝐴 × ((𝑦 + 1) 𝐵)))
8988ex 115 . . . . 5 ((𝜑𝑦 ∈ ℕ0) → (((𝑦 𝐵) × 𝐴) = (𝐴 × (𝑦 𝐵)) → (((𝑦 + 1) 𝐵) × 𝐴) = (𝐴 × ((𝑦 + 1) 𝐵))))
9089expcom 116 . . . 4 (𝑦 ∈ ℕ0 → (𝜑 → (((𝑦 𝐵) × 𝐴) = (𝐴 × (𝑦 𝐵)) → (((𝑦 + 1) 𝐵) × 𝐴) = (𝐴 × ((𝑦 + 1) 𝐵)))))
9190a2d 26 . . 3 (𝑦 ∈ ℕ0 → ((𝜑 → ((𝑦 𝐵) × 𝐴) = (𝐴 × (𝑦 𝐵))) → (𝜑 → (((𝑦 + 1) 𝐵) × 𝐴) = (𝐴 × ((𝑦 + 1) 𝐵)))))
926, 11, 16, 21, 47, 91nn0ind 9381 . 2 (𝐾 ∈ ℕ0 → (𝜑 → ((𝐾 𝐵) × 𝐴) = (𝐴 × (𝐾 𝐵))))
931, 92mpcom 36 1 (𝜑 → ((𝐾 𝐵) × 𝐴) = (𝐴 × (𝐾 𝐵)))
Colors of variables: wff set class
Syntax hints:  wi 4  wa 104  wb 105   = wceq 1363  wcel 2158  cfv 5228  (class class class)co 5888  0cc0 7825  1c1 7826   + caddc 7828  0cn0 9190  Basecbs 12476  +gcplusg 12551  .rcmulr 12552  0gc0g 12723  Mndcmnd 12839  .gcmg 13014  mulGrpcmgp 13172  1rcur 13211  SRingcsrg 13215
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-ia1 106  ax-ia2 107  ax-ia3 108  ax-in1 615  ax-in2 616  ax-io 710  ax-5 1457  ax-7 1458  ax-gen 1459  ax-ie1 1503  ax-ie2 1504  ax-8 1514  ax-10 1515  ax-11 1516  ax-i12 1517  ax-bndl 1519  ax-4 1520  ax-17 1536  ax-i9 1540  ax-ial 1544  ax-i5r 1545  ax-13 2160  ax-14 2161  ax-ext 2169  ax-coll 4130  ax-sep 4133  ax-nul 4141  ax-pow 4186  ax-pr 4221  ax-un 4445  ax-setind 4548  ax-iinf 4599  ax-cnex 7916  ax-resscn 7917  ax-1cn 7918  ax-1re 7919  ax-icn 7920  ax-addcl 7921  ax-addrcl 7922  ax-mulcl 7923  ax-addcom 7925  ax-addass 7927  ax-distr 7929  ax-i2m1 7930  ax-0lt1 7931  ax-0id 7933  ax-rnegex 7934  ax-cnre 7936  ax-pre-ltirr 7937  ax-pre-ltwlin 7938  ax-pre-lttrn 7939  ax-pre-ltadd 7941
This theorem depends on definitions:  df-bi 117  df-dc 836  df-3or 980  df-3an 981  df-tru 1366  df-fal 1369  df-nf 1471  df-sb 1773  df-eu 2039  df-mo 2040  df-clab 2174  df-cleq 2180  df-clel 2183  df-nfc 2318  df-ne 2358  df-nel 2453  df-ral 2470  df-rex 2471  df-reu 2472  df-rmo 2473  df-rab 2474  df-v 2751  df-sbc 2975  df-csb 3070  df-dif 3143  df-un 3145  df-in 3147  df-ss 3154  df-nul 3435  df-if 3547  df-pw 3589  df-sn 3610  df-pr 3611  df-op 3613  df-uni 3822  df-int 3857  df-iun 3900  df-br 4016  df-opab 4077  df-mpt 4078  df-tr 4114  df-id 4305  df-iord 4378  df-on 4380  df-ilim 4381  df-suc 4383  df-iom 4602  df-xp 4644  df-rel 4645  df-cnv 4646  df-co 4647  df-dm 4648  df-rn 4649  df-res 4650  df-ima 4651  df-iota 5190  df-fun 5230  df-fn 5231  df-f 5232  df-f1 5233  df-fo 5234  df-f1o 5235  df-fv 5236  df-riota 5844  df-ov 5891  df-oprab 5892  df-mpo 5893  df-1st 6155  df-2nd 6156  df-recs 6320  df-frec 6406  df-pnf 8008  df-mnf 8009  df-xr 8010  df-ltxr 8011  df-le 8012  df-sub 8144  df-neg 8145  df-inn 8934  df-2 8992  df-3 8993  df-n0 9191  df-z 9268  df-uz 9543  df-seqfrec 10460  df-ndx 12479  df-slot 12480  df-base 12482  df-sets 12483  df-plusg 12564  df-mulr 12565  df-0g 12725  df-mgm 12794  df-sgrp 12827  df-mnd 12840  df-minusg 12903  df-mulg 13015  df-mgp 13173  df-ur 13212  df-srg 13216
This theorem is referenced by:  srgpcompp  13243
  Copyright terms: Public domain W3C validator