Metamath Proof Explorer


Theorem rngqiprnglinlem3

Description: Lemma 3 for rngqiprnglin . (Contributed by AV, 28-Feb-2025)

Ref Expression
Hypotheses rng2idlring.r โŠข ( ๐œ‘ โ†’ ๐‘… โˆˆ Rng )
rng2idlring.i โŠข ( ๐œ‘ โ†’ ๐ผ โˆˆ ( 2Ideal โ€˜ ๐‘… ) )
rng2idlring.j โŠข ๐ฝ = ( ๐‘… โ†พs ๐ผ )
rng2idlring.u โŠข ( ๐œ‘ โ†’ ๐ฝ โˆˆ Ring )
rng2idlring.b โŠข ๐ต = ( Base โ€˜ ๐‘… )
rng2idlring.t โŠข ยท = ( .r โ€˜ ๐‘… )
rng2idlring.1 โŠข 1 = ( 1r โ€˜ ๐ฝ )
rngqiprngim.g โŠข โˆผ = ( ๐‘… ~QG ๐ผ )
rngqiprngim.q โŠข ๐‘„ = ( ๐‘… /s โˆผ )
Assertion rngqiprnglinlem3 ( ( ๐œ‘ โˆง ( ๐ด โˆˆ ๐ต โˆง ๐ถ โˆˆ ๐ต ) ) โ†’ ( [ ๐ด ] โˆผ ( .r โ€˜ ๐‘„ ) [ ๐ถ ] โˆผ ) โˆˆ ( Base โ€˜ ๐‘„ ) )

Proof

Step Hyp Ref Expression
1 rng2idlring.r โŠข ( ๐œ‘ โ†’ ๐‘… โˆˆ Rng )
2 rng2idlring.i โŠข ( ๐œ‘ โ†’ ๐ผ โˆˆ ( 2Ideal โ€˜ ๐‘… ) )
3 rng2idlring.j โŠข ๐ฝ = ( ๐‘… โ†พs ๐ผ )
4 rng2idlring.u โŠข ( ๐œ‘ โ†’ ๐ฝ โˆˆ Ring )
5 rng2idlring.b โŠข ๐ต = ( Base โ€˜ ๐‘… )
6 rng2idlring.t โŠข ยท = ( .r โ€˜ ๐‘… )
7 rng2idlring.1 โŠข 1 = ( 1r โ€˜ ๐ฝ )
8 rngqiprngim.g โŠข โˆผ = ( ๐‘… ~QG ๐ผ )
9 rngqiprngim.q โŠข ๐‘„ = ( ๐‘… /s โˆผ )
10 1 2 3 4 5 6 7 8 9 rngqiprnglinlem2 โŠข ( ( ๐œ‘ โˆง ( ๐ด โˆˆ ๐ต โˆง ๐ถ โˆˆ ๐ต ) ) โ†’ [ ( ๐ด ยท ๐ถ ) ] โˆผ = ( [ ๐ด ] โˆผ ( .r โ€˜ ๐‘„ ) [ ๐ถ ] โˆผ ) )
11 1 anim1i โŠข ( ( ๐œ‘ โˆง ( ๐ด โˆˆ ๐ต โˆง ๐ถ โˆˆ ๐ต ) ) โ†’ ( ๐‘… โˆˆ Rng โˆง ( ๐ด โˆˆ ๐ต โˆง ๐ถ โˆˆ ๐ต ) ) )
12 3anass โŠข ( ( ๐‘… โˆˆ Rng โˆง ๐ด โˆˆ ๐ต โˆง ๐ถ โˆˆ ๐ต ) โ†” ( ๐‘… โˆˆ Rng โˆง ( ๐ด โˆˆ ๐ต โˆง ๐ถ โˆˆ ๐ต ) ) )
13 11 12 sylibr โŠข ( ( ๐œ‘ โˆง ( ๐ด โˆˆ ๐ต โˆง ๐ถ โˆˆ ๐ต ) ) โ†’ ( ๐‘… โˆˆ Rng โˆง ๐ด โˆˆ ๐ต โˆง ๐ถ โˆˆ ๐ต ) )
14 5 6 rngcl โŠข ( ( ๐‘… โˆˆ Rng โˆง ๐ด โˆˆ ๐ต โˆง ๐ถ โˆˆ ๐ต ) โ†’ ( ๐ด ยท ๐ถ ) โˆˆ ๐ต )
15 13 14 syl โŠข ( ( ๐œ‘ โˆง ( ๐ด โˆˆ ๐ต โˆง ๐ถ โˆˆ ๐ต ) ) โ†’ ( ๐ด ยท ๐ถ ) โˆˆ ๐ต )
16 eqid โŠข ( Base โ€˜ ๐‘„ ) = ( Base โ€˜ ๐‘„ )
17 8 9 5 16 quseccl0 โŠข ( ( ๐‘… โˆˆ Rng โˆง ( ๐ด ยท ๐ถ ) โˆˆ ๐ต ) โ†’ [ ( ๐ด ยท ๐ถ ) ] โˆผ โˆˆ ( Base โ€˜ ๐‘„ ) )
18 1 15 17 syl2an2r โŠข ( ( ๐œ‘ โˆง ( ๐ด โˆˆ ๐ต โˆง ๐ถ โˆˆ ๐ต ) ) โ†’ [ ( ๐ด ยท ๐ถ ) ] โˆผ โˆˆ ( Base โ€˜ ๐‘„ ) )
19 10 18 eqeltrrd โŠข ( ( ๐œ‘ โˆง ( ๐ด โˆˆ ๐ต โˆง ๐ถ โˆˆ ๐ต ) ) โ†’ ( [ ๐ด ] โˆผ ( .r โ€˜ ๐‘„ ) [ ๐ถ ] โˆผ ) โˆˆ ( Base โ€˜ ๐‘„ ) )