Theorem mgpbasg 14275

Description: Base set of the multiplication group. (Contributed by Mario Carneiro, 21-Dec-2014.) (Revised by Mario Carneiro, 5-Oct-2015.)

Hypotheses

Ref	Expression
mgpbas.1	⊢ 𝑀 = (mulGrp‘𝑅)
mgpbas.2	⊢ 𝐵 = (Base‘𝑅)

Assertion

Ref	Expression
mgpbasg	⊢ (𝑅 ∈ 𝑉 → 𝐵 = (Base‘𝑀))

Proof of Theorem mgpbasg

Step	Hyp	Ref	Expression
1		mgpbas.2	. 2 ⊢ 𝐵 = (Base‘𝑅)
2		mulrslid 13537	. . . . 5 ⊢ (.r = Slot (.r‘ndx) ∧ (.r‘ndx) ∈ ℕ)
3	2	slotex 13430	. . . 4 ⊢ (𝑅 ∈ 𝑉 → (.r‘𝑅) ∈ V)
4		baseslid 13461	. . . . 5 ⊢ (Base = Slot (Base‘ndx) ∧ (Base‘ndx) ∈ ℕ)
5		basendxnplusgndx 13530	. . . . 5 ⊢ (Base‘ndx) ≠ (+g‘ndx)
6		plusgslid 13517	. . . . . 6 ⊢ (+g = Slot (+g‘ndx) ∧ (+g‘ndx) ∈ ℕ)
7	6	simpri 113	. . . . 5 ⊢ (+g‘ndx) ∈ ℕ
8	4, 5, 7	setsslnid 13455	. . . 4 ⊢ ((𝑅 ∈ 𝑉 ∧ (.r‘𝑅) ∈ V) → (Base‘𝑅) = (Base‘(𝑅 sSet ⟨(+g‘ndx), (.r‘𝑅)⟩)))
9	3, 8	mpdan 425	. . 3 ⊢ (𝑅 ∈ 𝑉 → (Base‘𝑅) = (Base‘(𝑅 sSet ⟨(+g‘ndx), (.r‘𝑅)⟩)))
10		mgpbas.1	. . . . 5 ⊢ 𝑀 = (mulGrp‘𝑅)
11		eqid 2238	. . . . 5 ⊢ (.r‘𝑅) = (.r‘𝑅)
12	10, 11	mgpvalg 14271	. . . 4 ⊢ (𝑅 ∈ 𝑉 → 𝑀 = (𝑅 sSet ⟨(+g‘ndx), (.r‘𝑅)⟩))
13	12	fveq2d 5699	. . 3 ⊢ (𝑅 ∈ 𝑉 → (Base‘𝑀) = (Base‘(𝑅 sSet ⟨(+g‘ndx), (.r‘𝑅)⟩)))
14	9, 13	eqtr4d 2274	. 2 ⊢ (𝑅 ∈ 𝑉 → (Base‘𝑅) = (Base‘𝑀))
15	1, 14	eqtrid 2283	1 ⊢ (𝑅 ∈ 𝑉 → 𝐵 = (Base‘𝑀))

This proof depends on syntax axioms:   → wi 4   = wceq 1402   ∈ wcel 2209  Vcvv 2821  ⟨cop 3712  ‘cfv 5377  (class class class)co 6085  ℕcn 9307  ndxcnx 13400   sSet csts 13401  Slot cslot 13402  Basecbs 13403  +_gcplusg 13482  ._rcmulr 13483  mulGrpcmgp 14268

This proof depends on axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-ia1 106  ax-ia2 107  ax-ia3 108  ax-in1 623  ax-in2 624  ax-io 721  ax-5 1500  ax-7 1501  ax-gen 1502  ax-ie1 1546  ax-ie2 1547  ax-8 1557  ax-10 1558  ax-11 1559  ax-i12 1560  ax-bndl 1562  ax-4 1563  ax-17 1579  ax-i9 1583  ax-ial 1587  ax-i5r 1588  ax-14 2212  ax-ext 2220  ax-sep 4249  ax-pow 4311  ax-pr 4346  ax-un 4578  ax-setind 4684  ax-cnex 8271  ax-resscn 8272  ax-1cn 8273  ax-1re 8274  ax-icn 8275  ax-addcl 8276  ax-addrcl 8277  ax-mulcl 8278  ax-addcom 8280  ax-addass 8282  ax-i2m1 8285  ax-0lt1 8286  ax-0id 8288  ax-rnegex 8289  ax-pre-ltirr 8292  ax-pre-ltadd 8296

This proof depends on definitions:  df-bi 117  df-3an 1011  df-tru 1405  df-fal 1408  df-nf 1514  df-sb 1816  df-eu 2089  df-mo 2090  df-clab 2225  df-cleq 2231  df-clel 2234  df-nfc 2381  df-ne 2421  df-nel 2516  df-ral 2533  df-rex 2534  df-rab 2537  df-v 2823  df-sbc 3052  df-csb 3148  df-dif 3222  df-un 3224  df-in 3226  df-ss 3233  df-nul 3521  df-pw 3690  df-sn 3715  df-pr 3716  df-op 3718  df-uni 3936  df-int 3971  df-br 4131  df-opab 4193  df-mpt 4194  df-id 4438  df-xp 4780  df-rel 4781  df-cnv 4782  df-co 4783  df-dm 4784  df-rn 4785  df-res 4786  df-iota 5337  df-fun 5379  df-fn 5380  df-fv 5385  df-ov 6088  df-oprab 6089  df-mpo 6090  df-pnf 8363  df-mnf 8364  df-ltxr 8366  df-inn 9308  df-2 9366  df-3 9367  df-ndx 13406  df-slot 13407  df-base 13409  df-sets 13410  df-plusg 13495  df-mulr 13496  df-mgp 14269

This theorem is used by:  mgpbas  14276  mgptopng  14279  mgpress  14281  rngass  14289  rngcl  14294  isrngd  14303  rngpropd  14305  rng1zrlem  14309  dfur2g  14317  srgcl  14325  srgass  14326  srgideu  14327  srgidcl  14331  srgidmlem  14333  issrgid  14336  srgpcomp  14345  srgpcompp  14346  srgpcomppsc  14347  ringcl  14368  crngcom  14369  iscrng2  14370  ringass  14371  ringideu  14372  ringidcl  14376  ringidmlem  14378  isringid  14381  ringidss  14385  ringpropd  14394  crngpropd  14395  isringd  14397  iscrngd  14398  ring1  14415  oppr1g  14439  unitgrpbasd  14473  unitsubm  14477  rngidpropdg  14504  dfrhm2  14512  rhmmul  14522  isrhm2d  14523  rhmf1o  14526  subrgsubm  14593  issubrg3  14606  rhmpropd  14613  rnglidlmmgm  14884  rnglidlmsgrp  14885  cnfldexp  14965  expghmap  14993  lgseisenlem3  16313  lgseisenlem4  16314