Users' Mathboxes Mathbox for Thierry Arnoux < Previous   Next >
Nearby theorems
Mirrors  >  Home  >  MPE Home  >  Th. List  >   Mathboxes  >  qsdrngilem Structured version   Visualization version   GIF version

Theorem qsdrngilem 32883
Description: Lemma for qsdrngi 32884. (Contributed by Thierry Arnoux, 9-Mar-2025.)
Hypotheses
Ref Expression
qsdrng.0 𝑂 = (opprβ€˜π‘…)
qsdrng.q 𝑄 = (𝑅 /s (𝑅 ~QG 𝑀))
qsdrng.r (πœ‘ β†’ 𝑅 ∈ NzRing)
qsdrngi.1 (πœ‘ β†’ 𝑀 ∈ (MaxIdealβ€˜π‘…))
qsdrngi.2 (πœ‘ β†’ 𝑀 ∈ (MaxIdealβ€˜π‘‚))
qsdrngilem.1 (πœ‘ β†’ 𝑋 ∈ (Baseβ€˜π‘…))
qsdrngilem.2 (πœ‘ β†’ Β¬ 𝑋 ∈ 𝑀)
Assertion
Ref Expression
qsdrngilem (πœ‘ β†’ βˆƒπ‘£ ∈ (Baseβ€˜π‘„)(𝑣(.rβ€˜π‘„)[𝑋](𝑅 ~QG 𝑀)) = (1rβ€˜π‘„))
Distinct variable groups:   𝑣,𝑀   𝑣,𝑄   𝑣,𝑅   𝑣,𝑋   πœ‘,𝑣
Allowed substitution hint:   𝑂(𝑣)

Proof of Theorem qsdrngilem
Dummy variables π‘š π‘Ÿ are mutually distinct and distinct from all other variables.
StepHypRef Expression
1 simpllr 773 . . . . 5 ((((πœ‘ ∧ π‘Ÿ ∈ (Baseβ€˜π‘…)) ∧ π‘š ∈ 𝑀) ∧ (1rβ€˜π‘…) = ((π‘Ÿ(.rβ€˜π‘…)𝑋)(+gβ€˜π‘…)π‘š)) β†’ π‘Ÿ ∈ (Baseβ€˜π‘…))
2 ovex 7445 . . . . . 6 (𝑅 ~QG 𝑀) ∈ V
32ecelqsi 8771 . . . . 5 (π‘Ÿ ∈ (Baseβ€˜π‘…) β†’ [π‘Ÿ](𝑅 ~QG 𝑀) ∈ ((Baseβ€˜π‘…) / (𝑅 ~QG 𝑀)))
41, 3syl 17 . . . 4 ((((πœ‘ ∧ π‘Ÿ ∈ (Baseβ€˜π‘…)) ∧ π‘š ∈ 𝑀) ∧ (1rβ€˜π‘…) = ((π‘Ÿ(.rβ€˜π‘…)𝑋)(+gβ€˜π‘…)π‘š)) β†’ [π‘Ÿ](𝑅 ~QG 𝑀) ∈ ((Baseβ€˜π‘…) / (𝑅 ~QG 𝑀)))
5 qsdrng.q . . . . . . 7 𝑄 = (𝑅 /s (𝑅 ~QG 𝑀))
65a1i 11 . . . . . 6 (πœ‘ β†’ 𝑄 = (𝑅 /s (𝑅 ~QG 𝑀)))
7 eqid 2731 . . . . . . 7 (Baseβ€˜π‘…) = (Baseβ€˜π‘…)
87a1i 11 . . . . . 6 (πœ‘ β†’ (Baseβ€˜π‘…) = (Baseβ€˜π‘…))
9 ovexd 7447 . . . . . 6 (πœ‘ β†’ (𝑅 ~QG 𝑀) ∈ V)
10 qsdrng.r . . . . . 6 (πœ‘ β†’ 𝑅 ∈ NzRing)
116, 8, 9, 10qusbas 17496 . . . . 5 (πœ‘ β†’ ((Baseβ€˜π‘…) / (𝑅 ~QG 𝑀)) = (Baseβ€˜π‘„))
1211ad3antrrr 727 . . . 4 ((((πœ‘ ∧ π‘Ÿ ∈ (Baseβ€˜π‘…)) ∧ π‘š ∈ 𝑀) ∧ (1rβ€˜π‘…) = ((π‘Ÿ(.rβ€˜π‘…)𝑋)(+gβ€˜π‘…)π‘š)) β†’ ((Baseβ€˜π‘…) / (𝑅 ~QG 𝑀)) = (Baseβ€˜π‘„))
134, 12eleqtrd 2834 . . 3 ((((πœ‘ ∧ π‘Ÿ ∈ (Baseβ€˜π‘…)) ∧ π‘š ∈ 𝑀) ∧ (1rβ€˜π‘…) = ((π‘Ÿ(.rβ€˜π‘…)𝑋)(+gβ€˜π‘…)π‘š)) β†’ [π‘Ÿ](𝑅 ~QG 𝑀) ∈ (Baseβ€˜π‘„))
14 oveq1 7419 . . . . 5 (𝑣 = [π‘Ÿ](𝑅 ~QG 𝑀) β†’ (𝑣(.rβ€˜π‘„)[𝑋](𝑅 ~QG 𝑀)) = ([π‘Ÿ](𝑅 ~QG 𝑀)(.rβ€˜π‘„)[𝑋](𝑅 ~QG 𝑀)))
1514eqeq1d 2733 . . . 4 (𝑣 = [π‘Ÿ](𝑅 ~QG 𝑀) β†’ ((𝑣(.rβ€˜π‘„)[𝑋](𝑅 ~QG 𝑀)) = (1rβ€˜π‘„) ↔ ([π‘Ÿ](𝑅 ~QG 𝑀)(.rβ€˜π‘„)[𝑋](𝑅 ~QG 𝑀)) = (1rβ€˜π‘„)))
1615adantl 481 . . 3 (((((πœ‘ ∧ π‘Ÿ ∈ (Baseβ€˜π‘…)) ∧ π‘š ∈ 𝑀) ∧ (1rβ€˜π‘…) = ((π‘Ÿ(.rβ€˜π‘…)𝑋)(+gβ€˜π‘…)π‘š)) ∧ 𝑣 = [π‘Ÿ](𝑅 ~QG 𝑀)) β†’ ((𝑣(.rβ€˜π‘„)[𝑋](𝑅 ~QG 𝑀)) = (1rβ€˜π‘„) ↔ ([π‘Ÿ](𝑅 ~QG 𝑀)(.rβ€˜π‘„)[𝑋](𝑅 ~QG 𝑀)) = (1rβ€˜π‘„)))
17 eqid 2731 . . . . . 6 (.rβ€˜π‘…) = (.rβ€˜π‘…)
18 eqid 2731 . . . . . 6 (.rβ€˜π‘„) = (.rβ€˜π‘„)
19 nzrring 20408 . . . . . . . 8 (𝑅 ∈ NzRing β†’ 𝑅 ∈ Ring)
2010, 19syl 17 . . . . . . 7 (πœ‘ β†’ 𝑅 ∈ Ring)
2120ad3antrrr 727 . . . . . 6 ((((πœ‘ ∧ π‘Ÿ ∈ (Baseβ€˜π‘…)) ∧ π‘š ∈ 𝑀) ∧ (1rβ€˜π‘…) = ((π‘Ÿ(.rβ€˜π‘…)𝑋)(+gβ€˜π‘…)π‘š)) β†’ 𝑅 ∈ Ring)
22 qsdrngi.1 . . . . . . . . . 10 (πœ‘ β†’ 𝑀 ∈ (MaxIdealβ€˜π‘…))
237mxidlidl 32854 . . . . . . . . . 10 ((𝑅 ∈ Ring ∧ 𝑀 ∈ (MaxIdealβ€˜π‘…)) β†’ 𝑀 ∈ (LIdealβ€˜π‘…))
2420, 22, 23syl2anc 583 . . . . . . . . 9 (πœ‘ β†’ 𝑀 ∈ (LIdealβ€˜π‘…))
25 qsdrng.0 . . . . . . . . . . . 12 𝑂 = (opprβ€˜π‘…)
2625opprring 20239 . . . . . . . . . . 11 (𝑅 ∈ Ring β†’ 𝑂 ∈ Ring)
2720, 26syl 17 . . . . . . . . . 10 (πœ‘ β†’ 𝑂 ∈ Ring)
28 qsdrngi.2 . . . . . . . . . 10 (πœ‘ β†’ 𝑀 ∈ (MaxIdealβ€˜π‘‚))
29 eqid 2731 . . . . . . . . . . 11 (Baseβ€˜π‘‚) = (Baseβ€˜π‘‚)
3029mxidlidl 32854 . . . . . . . . . 10 ((𝑂 ∈ Ring ∧ 𝑀 ∈ (MaxIdealβ€˜π‘‚)) β†’ 𝑀 ∈ (LIdealβ€˜π‘‚))
3127, 28, 30syl2anc 583 . . . . . . . . 9 (πœ‘ β†’ 𝑀 ∈ (LIdealβ€˜π‘‚))
3224, 31elind 4194 . . . . . . . 8 (πœ‘ β†’ 𝑀 ∈ ((LIdealβ€˜π‘…) ∩ (LIdealβ€˜π‘‚)))
33 eqid 2731 . . . . . . . . 9 (LIdealβ€˜π‘…) = (LIdealβ€˜π‘…)
34 eqid 2731 . . . . . . . . 9 (LIdealβ€˜π‘‚) = (LIdealβ€˜π‘‚)
35 eqid 2731 . . . . . . . . 9 (2Idealβ€˜π‘…) = (2Idealβ€˜π‘…)
3633, 25, 34, 352idlval 21008 . . . . . . . 8 (2Idealβ€˜π‘…) = ((LIdealβ€˜π‘…) ∩ (LIdealβ€˜π‘‚))
3732, 36eleqtrrdi 2843 . . . . . . 7 (πœ‘ β†’ 𝑀 ∈ (2Idealβ€˜π‘…))
3837ad3antrrr 727 . . . . . 6 ((((πœ‘ ∧ π‘Ÿ ∈ (Baseβ€˜π‘…)) ∧ π‘š ∈ 𝑀) ∧ (1rβ€˜π‘…) = ((π‘Ÿ(.rβ€˜π‘…)𝑋)(+gβ€˜π‘…)π‘š)) β†’ 𝑀 ∈ (2Idealβ€˜π‘…))
39 qsdrngilem.1 . . . . . . 7 (πœ‘ β†’ 𝑋 ∈ (Baseβ€˜π‘…))
4039ad3antrrr 727 . . . . . 6 ((((πœ‘ ∧ π‘Ÿ ∈ (Baseβ€˜π‘…)) ∧ π‘š ∈ 𝑀) ∧ (1rβ€˜π‘…) = ((π‘Ÿ(.rβ€˜π‘…)𝑋)(+gβ€˜π‘…)π‘š)) β†’ 𝑋 ∈ (Baseβ€˜π‘…))
415, 7, 17, 18, 21, 38, 1, 40qusmul2 21026 . . . . 5 ((((πœ‘ ∧ π‘Ÿ ∈ (Baseβ€˜π‘…)) ∧ π‘š ∈ 𝑀) ∧ (1rβ€˜π‘…) = ((π‘Ÿ(.rβ€˜π‘…)𝑋)(+gβ€˜π‘…)π‘š)) β†’ ([π‘Ÿ](𝑅 ~QG 𝑀)(.rβ€˜π‘„)[𝑋](𝑅 ~QG 𝑀)) = [(π‘Ÿ(.rβ€˜π‘…)𝑋)](𝑅 ~QG 𝑀))
42 lidlnsg 32839 . . . . . . . . 9 ((𝑅 ∈ Ring ∧ 𝑀 ∈ (LIdealβ€˜π‘…)) β†’ 𝑀 ∈ (NrmSGrpβ€˜π‘…))
4320, 24, 42syl2anc 583 . . . . . . . 8 (πœ‘ β†’ 𝑀 ∈ (NrmSGrpβ€˜π‘…))
44 nsgsubg 19075 . . . . . . . 8 (𝑀 ∈ (NrmSGrpβ€˜π‘…) β†’ 𝑀 ∈ (SubGrpβ€˜π‘…))
45 eqid 2731 . . . . . . . . 9 (𝑅 ~QG 𝑀) = (𝑅 ~QG 𝑀)
467, 45eqger 19095 . . . . . . . 8 (𝑀 ∈ (SubGrpβ€˜π‘…) β†’ (𝑅 ~QG 𝑀) Er (Baseβ€˜π‘…))
4743, 44, 463syl 18 . . . . . . 7 (πœ‘ β†’ (𝑅 ~QG 𝑀) Er (Baseβ€˜π‘…))
4847ad3antrrr 727 . . . . . 6 ((((πœ‘ ∧ π‘Ÿ ∈ (Baseβ€˜π‘…)) ∧ π‘š ∈ 𝑀) ∧ (1rβ€˜π‘…) = ((π‘Ÿ(.rβ€˜π‘…)𝑋)(+gβ€˜π‘…)π‘š)) β†’ (𝑅 ~QG 𝑀) Er (Baseβ€˜π‘…))
497, 33lidlss 20979 . . . . . . . . 9 (𝑀 ∈ (LIdealβ€˜π‘…) β†’ 𝑀 βŠ† (Baseβ€˜π‘…))
5024, 49syl 17 . . . . . . . 8 (πœ‘ β†’ 𝑀 βŠ† (Baseβ€˜π‘…))
5150ad3antrrr 727 . . . . . . 7 ((((πœ‘ ∧ π‘Ÿ ∈ (Baseβ€˜π‘…)) ∧ π‘š ∈ 𝑀) ∧ (1rβ€˜π‘…) = ((π‘Ÿ(.rβ€˜π‘…)𝑋)(+gβ€˜π‘…)π‘š)) β†’ 𝑀 βŠ† (Baseβ€˜π‘…))
527, 17, 21, 1, 40ringcld 20152 . . . . . . 7 ((((πœ‘ ∧ π‘Ÿ ∈ (Baseβ€˜π‘…)) ∧ π‘š ∈ 𝑀) ∧ (1rβ€˜π‘…) = ((π‘Ÿ(.rβ€˜π‘…)𝑋)(+gβ€˜π‘…)π‘š)) β†’ (π‘Ÿ(.rβ€˜π‘…)𝑋) ∈ (Baseβ€˜π‘…))
53 eqid 2731 . . . . . . . . . 10 (1rβ€˜π‘…) = (1rβ€˜π‘…)
547, 53ringidcl 20155 . . . . . . . . 9 (𝑅 ∈ Ring β†’ (1rβ€˜π‘…) ∈ (Baseβ€˜π‘…))
5520, 54syl 17 . . . . . . . 8 (πœ‘ β†’ (1rβ€˜π‘…) ∈ (Baseβ€˜π‘…))
5655ad3antrrr 727 . . . . . . 7 ((((πœ‘ ∧ π‘Ÿ ∈ (Baseβ€˜π‘…)) ∧ π‘š ∈ 𝑀) ∧ (1rβ€˜π‘…) = ((π‘Ÿ(.rβ€˜π‘…)𝑋)(+gβ€˜π‘…)π‘š)) β†’ (1rβ€˜π‘…) ∈ (Baseβ€˜π‘…))
57 simpr 484 . . . . . . . . . 10 ((((πœ‘ ∧ π‘Ÿ ∈ (Baseβ€˜π‘…)) ∧ π‘š ∈ 𝑀) ∧ (1rβ€˜π‘…) = ((π‘Ÿ(.rβ€˜π‘…)𝑋)(+gβ€˜π‘…)π‘š)) β†’ (1rβ€˜π‘…) = ((π‘Ÿ(.rβ€˜π‘…)𝑋)(+gβ€˜π‘…)π‘š))
5857oveq2d 7428 . . . . . . . . 9 ((((πœ‘ ∧ π‘Ÿ ∈ (Baseβ€˜π‘…)) ∧ π‘š ∈ 𝑀) ∧ (1rβ€˜π‘…) = ((π‘Ÿ(.rβ€˜π‘…)𝑋)(+gβ€˜π‘…)π‘š)) β†’ (((invgβ€˜π‘…)β€˜(π‘Ÿ(.rβ€˜π‘…)𝑋))(+gβ€˜π‘…)(1rβ€˜π‘…)) = (((invgβ€˜π‘…)β€˜(π‘Ÿ(.rβ€˜π‘…)𝑋))(+gβ€˜π‘…)((π‘Ÿ(.rβ€˜π‘…)𝑋)(+gβ€˜π‘…)π‘š)))
59 eqid 2731 . . . . . . . . . . . 12 (+gβ€˜π‘…) = (+gβ€˜π‘…)
60 eqid 2731 . . . . . . . . . . . 12 (0gβ€˜π‘…) = (0gβ€˜π‘…)
61 eqid 2731 . . . . . . . . . . . 12 (invgβ€˜π‘…) = (invgβ€˜π‘…)
6220ringgrpd 20137 . . . . . . . . . . . . 13 (πœ‘ β†’ 𝑅 ∈ Grp)
6362ad3antrrr 727 . . . . . . . . . . . 12 ((((πœ‘ ∧ π‘Ÿ ∈ (Baseβ€˜π‘…)) ∧ π‘š ∈ 𝑀) ∧ (1rβ€˜π‘…) = ((π‘Ÿ(.rβ€˜π‘…)𝑋)(+gβ€˜π‘…)π‘š)) β†’ 𝑅 ∈ Grp)
647, 59, 60, 61, 63, 52grplinvd 18916 . . . . . . . . . . 11 ((((πœ‘ ∧ π‘Ÿ ∈ (Baseβ€˜π‘…)) ∧ π‘š ∈ 𝑀) ∧ (1rβ€˜π‘…) = ((π‘Ÿ(.rβ€˜π‘…)𝑋)(+gβ€˜π‘…)π‘š)) β†’ (((invgβ€˜π‘…)β€˜(π‘Ÿ(.rβ€˜π‘…)𝑋))(+gβ€˜π‘…)(π‘Ÿ(.rβ€˜π‘…)𝑋)) = (0gβ€˜π‘…))
6564oveq1d 7427 . . . . . . . . . 10 ((((πœ‘ ∧ π‘Ÿ ∈ (Baseβ€˜π‘…)) ∧ π‘š ∈ 𝑀) ∧ (1rβ€˜π‘…) = ((π‘Ÿ(.rβ€˜π‘…)𝑋)(+gβ€˜π‘…)π‘š)) β†’ ((((invgβ€˜π‘…)β€˜(π‘Ÿ(.rβ€˜π‘…)𝑋))(+gβ€˜π‘…)(π‘Ÿ(.rβ€˜π‘…)𝑋))(+gβ€˜π‘…)π‘š) = ((0gβ€˜π‘…)(+gβ€˜π‘…)π‘š))
667, 61, 63, 52grpinvcld 18910 . . . . . . . . . . 11 ((((πœ‘ ∧ π‘Ÿ ∈ (Baseβ€˜π‘…)) ∧ π‘š ∈ 𝑀) ∧ (1rβ€˜π‘…) = ((π‘Ÿ(.rβ€˜π‘…)𝑋)(+gβ€˜π‘…)π‘š)) β†’ ((invgβ€˜π‘…)β€˜(π‘Ÿ(.rβ€˜π‘…)𝑋)) ∈ (Baseβ€˜π‘…))
67 simplr 766 . . . . . . . . . . . 12 ((((πœ‘ ∧ π‘Ÿ ∈ (Baseβ€˜π‘…)) ∧ π‘š ∈ 𝑀) ∧ (1rβ€˜π‘…) = ((π‘Ÿ(.rβ€˜π‘…)𝑋)(+gβ€˜π‘…)π‘š)) β†’ π‘š ∈ 𝑀)
6851, 67sseldd 3983 . . . . . . . . . . 11 ((((πœ‘ ∧ π‘Ÿ ∈ (Baseβ€˜π‘…)) ∧ π‘š ∈ 𝑀) ∧ (1rβ€˜π‘…) = ((π‘Ÿ(.rβ€˜π‘…)𝑋)(+gβ€˜π‘…)π‘š)) β†’ π‘š ∈ (Baseβ€˜π‘…))
697, 59, 63, 66, 52, 68grpassd 18868 . . . . . . . . . 10 ((((πœ‘ ∧ π‘Ÿ ∈ (Baseβ€˜π‘…)) ∧ π‘š ∈ 𝑀) ∧ (1rβ€˜π‘…) = ((π‘Ÿ(.rβ€˜π‘…)𝑋)(+gβ€˜π‘…)π‘š)) β†’ ((((invgβ€˜π‘…)β€˜(π‘Ÿ(.rβ€˜π‘…)𝑋))(+gβ€˜π‘…)(π‘Ÿ(.rβ€˜π‘…)𝑋))(+gβ€˜π‘…)π‘š) = (((invgβ€˜π‘…)β€˜(π‘Ÿ(.rβ€˜π‘…)𝑋))(+gβ€˜π‘…)((π‘Ÿ(.rβ€˜π‘…)𝑋)(+gβ€˜π‘…)π‘š)))
707, 59, 60, 63, 68grplidd 18891 . . . . . . . . . 10 ((((πœ‘ ∧ π‘Ÿ ∈ (Baseβ€˜π‘…)) ∧ π‘š ∈ 𝑀) ∧ (1rβ€˜π‘…) = ((π‘Ÿ(.rβ€˜π‘…)𝑋)(+gβ€˜π‘…)π‘š)) β†’ ((0gβ€˜π‘…)(+gβ€˜π‘…)π‘š) = π‘š)
7165, 69, 703eqtr3d 2779 . . . . . . . . 9 ((((πœ‘ ∧ π‘Ÿ ∈ (Baseβ€˜π‘…)) ∧ π‘š ∈ 𝑀) ∧ (1rβ€˜π‘…) = ((π‘Ÿ(.rβ€˜π‘…)𝑋)(+gβ€˜π‘…)π‘š)) β†’ (((invgβ€˜π‘…)β€˜(π‘Ÿ(.rβ€˜π‘…)𝑋))(+gβ€˜π‘…)((π‘Ÿ(.rβ€˜π‘…)𝑋)(+gβ€˜π‘…)π‘š)) = π‘š)
7258, 71eqtrd 2771 . . . . . . . 8 ((((πœ‘ ∧ π‘Ÿ ∈ (Baseβ€˜π‘…)) ∧ π‘š ∈ 𝑀) ∧ (1rβ€˜π‘…) = ((π‘Ÿ(.rβ€˜π‘…)𝑋)(+gβ€˜π‘…)π‘š)) β†’ (((invgβ€˜π‘…)β€˜(π‘Ÿ(.rβ€˜π‘…)𝑋))(+gβ€˜π‘…)(1rβ€˜π‘…)) = π‘š)
7372, 67eqeltrd 2832 . . . . . . 7 ((((πœ‘ ∧ π‘Ÿ ∈ (Baseβ€˜π‘…)) ∧ π‘š ∈ 𝑀) ∧ (1rβ€˜π‘…) = ((π‘Ÿ(.rβ€˜π‘…)𝑋)(+gβ€˜π‘…)π‘š)) β†’ (((invgβ€˜π‘…)β€˜(π‘Ÿ(.rβ€˜π‘…)𝑋))(+gβ€˜π‘…)(1rβ€˜π‘…)) ∈ 𝑀)
747, 61, 59, 45eqgval 19094 . . . . . . . 8 ((𝑅 ∈ Ring ∧ 𝑀 βŠ† (Baseβ€˜π‘…)) β†’ ((π‘Ÿ(.rβ€˜π‘…)𝑋)(𝑅 ~QG 𝑀)(1rβ€˜π‘…) ↔ ((π‘Ÿ(.rβ€˜π‘…)𝑋) ∈ (Baseβ€˜π‘…) ∧ (1rβ€˜π‘…) ∈ (Baseβ€˜π‘…) ∧ (((invgβ€˜π‘…)β€˜(π‘Ÿ(.rβ€˜π‘…)𝑋))(+gβ€˜π‘…)(1rβ€˜π‘…)) ∈ 𝑀)))
7574biimpar 477 . . . . . . 7 (((𝑅 ∈ Ring ∧ 𝑀 βŠ† (Baseβ€˜π‘…)) ∧ ((π‘Ÿ(.rβ€˜π‘…)𝑋) ∈ (Baseβ€˜π‘…) ∧ (1rβ€˜π‘…) ∈ (Baseβ€˜π‘…) ∧ (((invgβ€˜π‘…)β€˜(π‘Ÿ(.rβ€˜π‘…)𝑋))(+gβ€˜π‘…)(1rβ€˜π‘…)) ∈ 𝑀)) β†’ (π‘Ÿ(.rβ€˜π‘…)𝑋)(𝑅 ~QG 𝑀)(1rβ€˜π‘…))
7621, 51, 52, 56, 73, 75syl23anc 1376 . . . . . 6 ((((πœ‘ ∧ π‘Ÿ ∈ (Baseβ€˜π‘…)) ∧ π‘š ∈ 𝑀) ∧ (1rβ€˜π‘…) = ((π‘Ÿ(.rβ€˜π‘…)𝑋)(+gβ€˜π‘…)π‘š)) β†’ (π‘Ÿ(.rβ€˜π‘…)𝑋)(𝑅 ~QG 𝑀)(1rβ€˜π‘…))
7748, 76erthi 8758 . . . . 5 ((((πœ‘ ∧ π‘Ÿ ∈ (Baseβ€˜π‘…)) ∧ π‘š ∈ 𝑀) ∧ (1rβ€˜π‘…) = ((π‘Ÿ(.rβ€˜π‘…)𝑋)(+gβ€˜π‘…)π‘š)) β†’ [(π‘Ÿ(.rβ€˜π‘…)𝑋)](𝑅 ~QG 𝑀) = [(1rβ€˜π‘…)](𝑅 ~QG 𝑀))
7841, 77eqtrd 2771 . . . 4 ((((πœ‘ ∧ π‘Ÿ ∈ (Baseβ€˜π‘…)) ∧ π‘š ∈ 𝑀) ∧ (1rβ€˜π‘…) = ((π‘Ÿ(.rβ€˜π‘…)𝑋)(+gβ€˜π‘…)π‘š)) β†’ ([π‘Ÿ](𝑅 ~QG 𝑀)(.rβ€˜π‘„)[𝑋](𝑅 ~QG 𝑀)) = [(1rβ€˜π‘…)](𝑅 ~QG 𝑀))
795, 35, 53qus1 21023 . . . . . 6 ((𝑅 ∈ Ring ∧ 𝑀 ∈ (2Idealβ€˜π‘…)) β†’ (𝑄 ∈ Ring ∧ [(1rβ€˜π‘…)](𝑅 ~QG 𝑀) = (1rβ€˜π‘„)))
8079simprd 495 . . . . 5 ((𝑅 ∈ Ring ∧ 𝑀 ∈ (2Idealβ€˜π‘…)) β†’ [(1rβ€˜π‘…)](𝑅 ~QG 𝑀) = (1rβ€˜π‘„))
8121, 38, 80syl2anc 583 . . . 4 ((((πœ‘ ∧ π‘Ÿ ∈ (Baseβ€˜π‘…)) ∧ π‘š ∈ 𝑀) ∧ (1rβ€˜π‘…) = ((π‘Ÿ(.rβ€˜π‘…)𝑋)(+gβ€˜π‘…)π‘š)) β†’ [(1rβ€˜π‘…)](𝑅 ~QG 𝑀) = (1rβ€˜π‘„))
8278, 81eqtrd 2771 . . 3 ((((πœ‘ ∧ π‘Ÿ ∈ (Baseβ€˜π‘…)) ∧ π‘š ∈ 𝑀) ∧ (1rβ€˜π‘…) = ((π‘Ÿ(.rβ€˜π‘…)𝑋)(+gβ€˜π‘…)π‘š)) β†’ ([π‘Ÿ](𝑅 ~QG 𝑀)(.rβ€˜π‘„)[𝑋](𝑅 ~QG 𝑀)) = (1rβ€˜π‘„))
8313, 16, 82rspcedvd 3614 . 2 ((((πœ‘ ∧ π‘Ÿ ∈ (Baseβ€˜π‘…)) ∧ π‘š ∈ 𝑀) ∧ (1rβ€˜π‘…) = ((π‘Ÿ(.rβ€˜π‘…)𝑋)(+gβ€˜π‘…)π‘š)) β†’ βˆƒπ‘£ ∈ (Baseβ€˜π‘„)(𝑣(.rβ€˜π‘„)[𝑋](𝑅 ~QG 𝑀)) = (1rβ€˜π‘„))
8439snssd 4812 . . . . . . 7 (πœ‘ β†’ {𝑋} βŠ† (Baseβ€˜π‘…))
8550, 84unssd 4186 . . . . . 6 (πœ‘ β†’ (𝑀 βˆͺ {𝑋}) βŠ† (Baseβ€˜π‘…))
86 eqid 2731 . . . . . . 7 (RSpanβ€˜π‘…) = (RSpanβ€˜π‘…)
8786, 7, 33rspcl 20997 . . . . . 6 ((𝑅 ∈ Ring ∧ (𝑀 βˆͺ {𝑋}) βŠ† (Baseβ€˜π‘…)) β†’ ((RSpanβ€˜π‘…)β€˜(𝑀 βˆͺ {𝑋})) ∈ (LIdealβ€˜π‘…))
8820, 85, 87syl2anc 583 . . . . 5 (πœ‘ β†’ ((RSpanβ€˜π‘…)β€˜(𝑀 βˆͺ {𝑋})) ∈ (LIdealβ€˜π‘…))
8986, 7rspssid 20998 . . . . . . 7 ((𝑅 ∈ Ring ∧ (𝑀 βˆͺ {𝑋}) βŠ† (Baseβ€˜π‘…)) β†’ (𝑀 βˆͺ {𝑋}) βŠ† ((RSpanβ€˜π‘…)β€˜(𝑀 βˆͺ {𝑋})))
9020, 85, 89syl2anc 583 . . . . . 6 (πœ‘ β†’ (𝑀 βˆͺ {𝑋}) βŠ† ((RSpanβ€˜π‘…)β€˜(𝑀 βˆͺ {𝑋})))
9190unssad 4187 . . . . 5 (πœ‘ β†’ 𝑀 βŠ† ((RSpanβ€˜π‘…)β€˜(𝑀 βˆͺ {𝑋})))
9290unssbd 4188 . . . . . . 7 (πœ‘ β†’ {𝑋} βŠ† ((RSpanβ€˜π‘…)β€˜(𝑀 βˆͺ {𝑋})))
93 snssg 4787 . . . . . . . 8 (𝑋 ∈ (Baseβ€˜π‘…) β†’ (𝑋 ∈ ((RSpanβ€˜π‘…)β€˜(𝑀 βˆͺ {𝑋})) ↔ {𝑋} βŠ† ((RSpanβ€˜π‘…)β€˜(𝑀 βˆͺ {𝑋}))))
9493biimpar 477 . . . . . . 7 ((𝑋 ∈ (Baseβ€˜π‘…) ∧ {𝑋} βŠ† ((RSpanβ€˜π‘…)β€˜(𝑀 βˆͺ {𝑋}))) β†’ 𝑋 ∈ ((RSpanβ€˜π‘…)β€˜(𝑀 βˆͺ {𝑋})))
9539, 92, 94syl2anc 583 . . . . . 6 (πœ‘ β†’ 𝑋 ∈ ((RSpanβ€˜π‘…)β€˜(𝑀 βˆͺ {𝑋})))
96 qsdrngilem.2 . . . . . 6 (πœ‘ β†’ Β¬ 𝑋 ∈ 𝑀)
9795, 96eldifd 3959 . . . . 5 (πœ‘ β†’ 𝑋 ∈ (((RSpanβ€˜π‘…)β€˜(𝑀 βˆͺ {𝑋})) βˆ– 𝑀))
987, 20, 22, 88, 91, 97mxidlmaxv 32859 . . . 4 (πœ‘ β†’ ((RSpanβ€˜π‘…)β€˜(𝑀 βˆͺ {𝑋})) = (Baseβ€˜π‘…))
9955, 98eleqtrrd 2835 . . 3 (πœ‘ β†’ (1rβ€˜π‘…) ∈ ((RSpanβ€˜π‘…)β€˜(𝑀 βˆͺ {𝑋})))
10039, 96eldifd 3959 . . . 4 (πœ‘ β†’ 𝑋 ∈ ((Baseβ€˜π‘…) βˆ– 𝑀))
10186, 7, 60, 17, 20, 59, 24, 100elrspunsn 32822 . . 3 (πœ‘ β†’ ((1rβ€˜π‘…) ∈ ((RSpanβ€˜π‘…)β€˜(𝑀 βˆͺ {𝑋})) ↔ βˆƒπ‘Ÿ ∈ (Baseβ€˜π‘…)βˆƒπ‘š ∈ 𝑀 (1rβ€˜π‘…) = ((π‘Ÿ(.rβ€˜π‘…)𝑋)(+gβ€˜π‘…)π‘š)))
10299, 101mpbid 231 . 2 (πœ‘ β†’ βˆƒπ‘Ÿ ∈ (Baseβ€˜π‘…)βˆƒπ‘š ∈ 𝑀 (1rβ€˜π‘…) = ((π‘Ÿ(.rβ€˜π‘…)𝑋)(+gβ€˜π‘…)π‘š))
10383, 102r19.29vva 3212 1 (πœ‘ β†’ βˆƒπ‘£ ∈ (Baseβ€˜π‘„)(𝑣(.rβ€˜π‘„)[𝑋](𝑅 ~QG 𝑀)) = (1rβ€˜π‘„))
Colors of variables: wff setvar class
Syntax hints:  Β¬ wn 3   β†’ wi 4   ↔ wb 205   ∧ wa 395   ∧ w3a 1086   = wceq 1540   ∈ wcel 2105  βˆƒwrex 3069  Vcvv 3473   βˆͺ cun 3946   ∩ cin 3947   βŠ† wss 3948  {csn 4628   class class class wbr 5148  β€˜cfv 6543  (class class class)co 7412   Er wer 8704  [cec 8705   / cqs 8706  Basecbs 17149  +gcplusg 17202  .rcmulr 17203  0gc0g 17390   /s cqus 17456  Grpcgrp 18856  invgcminusg 18857  SubGrpcsubg 19037  NrmSGrpcnsg 19038   ~QG cqg 19039  1rcur 20076  Ringcrg 20128  opprcoppr 20225  NzRingcnzr 20404  LIdealclidl 20929  RSpancrsp 20930  2Idealc2idl 21006  MaxIdealcmxidl 32850
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1796  ax-4 1810  ax-5 1912  ax-6 1970  ax-7 2010  ax-8 2107  ax-9 2115  ax-10 2136  ax-11 2153  ax-12 2170  ax-ext 2702  ax-rep 5285  ax-sep 5299  ax-nul 5306  ax-pow 5363  ax-pr 5427  ax-un 7729  ax-cnex 11170  ax-resscn 11171  ax-1cn 11172  ax-icn 11173  ax-addcl 11174  ax-addrcl 11175  ax-mulcl 11176  ax-mulrcl 11177  ax-mulcom 11178  ax-addass 11179  ax-mulass 11180  ax-distr 11181  ax-i2m1 11182  ax-1ne0 11183  ax-1rid 11184  ax-rnegex 11185  ax-rrecex 11186  ax-cnre 11187  ax-pre-lttri 11188  ax-pre-lttrn 11189  ax-pre-ltadd 11190  ax-pre-mulgt0 11191
This theorem depends on definitions:  df-bi 206  df-an 396  df-or 845  df-3or 1087  df-3an 1088  df-tru 1543  df-fal 1553  df-ex 1781  df-nf 1785  df-sb 2067  df-mo 2533  df-eu 2562  df-clab 2709  df-cleq 2723  df-clel 2809  df-nfc 2884  df-ne 2940  df-nel 3046  df-ral 3061  df-rex 3070  df-rmo 3375  df-reu 3376  df-rab 3432  df-v 3475  df-sbc 3778  df-csb 3894  df-dif 3951  df-un 3953  df-in 3955  df-ss 3965  df-pss 3967  df-nul 4323  df-if 4529  df-pw 4604  df-sn 4629  df-pr 4631  df-tp 4633  df-op 4635  df-uni 4909  df-int 4951  df-iun 4999  df-iin 5000  df-br 5149  df-opab 5211  df-mpt 5232  df-tr 5266  df-id 5574  df-eprel 5580  df-po 5588  df-so 5589  df-fr 5631  df-se 5632  df-we 5633  df-xp 5682  df-rel 5683  df-cnv 5684  df-co 5685  df-dm 5686  df-rn 5687  df-res 5688  df-ima 5689  df-pred 6300  df-ord 6367  df-on 6368  df-lim 6369  df-suc 6370  df-iota 6495  df-fun 6545  df-fn 6546  df-f 6547  df-f1 6548  df-fo 6549  df-f1o 6550  df-fv 6551  df-isom 6552  df-riota 7368  df-ov 7415  df-oprab 7416  df-mpo 7417  df-of 7674  df-om 7860  df-1st 7979  df-2nd 7980  df-supp 8151  df-tpos 8215  df-frecs 8270  df-wrecs 8301  df-recs 8375  df-rdg 8414  df-1o 8470  df-er 8707  df-ec 8709  df-qs 8713  df-map 8826  df-ixp 8896  df-en 8944  df-dom 8945  df-sdom 8946  df-fin 8947  df-fsupp 9366  df-sup 9441  df-inf 9442  df-oi 9509  df-card 9938  df-pnf 11255  df-mnf 11256  df-xr 11257  df-ltxr 11258  df-le 11259  df-sub 11451  df-neg 11452  df-nn 12218  df-2 12280  df-3 12281  df-4 12282  df-5 12283  df-6 12284  df-7 12285  df-8 12286  df-9 12287  df-n0 12478  df-z 12564  df-dec 12683  df-uz 12828  df-fz 13490  df-fzo 13633  df-seq 13972  df-hash 14296  df-struct 17085  df-sets 17102  df-slot 17120  df-ndx 17132  df-base 17150  df-ress 17179  df-plusg 17215  df-mulr 17216  df-sca 17218  df-vsca 17219  df-ip 17220  df-tset 17221  df-ple 17222  df-ds 17224  df-hom 17226  df-cco 17227  df-0g 17392  df-gsum 17393  df-prds 17398  df-pws 17400  df-imas 17459  df-qus 17460  df-mre 17535  df-mrc 17536  df-acs 17538  df-mgm 18566  df-sgrp 18645  df-mnd 18661  df-mhm 18706  df-submnd 18707  df-grp 18859  df-minusg 18860  df-sbg 18861  df-mulg 18988  df-subg 19040  df-nsg 19041  df-eqg 19042  df-ghm 19129  df-cntz 19223  df-cmn 19692  df-abl 19693  df-mgp 20030  df-rng 20048  df-ur 20077  df-ring 20130  df-oppr 20226  df-nzr 20405  df-subrg 20460  df-lmod 20617  df-lss 20688  df-lsp 20728  df-lmhm 20778  df-lbs 20831  df-sra 20931  df-rgmod 20932  df-lidl 20933  df-rsp 20934  df-2idl 21007  df-dsmm 21507  df-frlm 21522  df-uvc 21558  df-mxidl 32851
This theorem is referenced by:  qsdrngi  32884
  Copyright terms: Public domain W3C validator