MPE Home Metamath Proof Explorer < Previous   Next >
Nearby theorems
Mirrors  >  Home  >  MPE Home  >  Th. List  >  mdetunilem4 Structured version   Visualization version   GIF version

Theorem mdetunilem4 22491
Description: Lemma for mdetuni 22498. (Contributed by SO, 15-Jul-2018.)
Hypotheses
Ref Expression
mdetuni.a ๐ด = (๐‘ Mat ๐‘…)
mdetuni.b ๐ต = (Baseโ€˜๐ด)
mdetuni.k ๐พ = (Baseโ€˜๐‘…)
mdetuni.0g 0 = (0gโ€˜๐‘…)
mdetuni.1r 1 = (1rโ€˜๐‘…)
mdetuni.pg + = (+gโ€˜๐‘…)
mdetuni.tg ยท = (.rโ€˜๐‘…)
mdetuni.n (๐œ‘ โ†’ ๐‘ โˆˆ Fin)
mdetuni.r (๐œ‘ โ†’ ๐‘… โˆˆ Ring)
mdetuni.ff (๐œ‘ โ†’ ๐ท:๐ตโŸถ๐พ)
mdetuni.al (๐œ‘ โ†’ โˆ€๐‘ฅ โˆˆ ๐ต โˆ€๐‘ฆ โˆˆ ๐‘ โˆ€๐‘ง โˆˆ ๐‘ ((๐‘ฆ โ‰  ๐‘ง โˆง โˆ€๐‘ค โˆˆ ๐‘ (๐‘ฆ๐‘ฅ๐‘ค) = (๐‘ง๐‘ฅ๐‘ค)) โ†’ (๐ทโ€˜๐‘ฅ) = 0 ))
mdetuni.li (๐œ‘ โ†’ โˆ€๐‘ฅ โˆˆ ๐ต โˆ€๐‘ฆ โˆˆ ๐ต โˆ€๐‘ง โˆˆ ๐ต โˆ€๐‘ค โˆˆ ๐‘ (((๐‘ฅ โ†พ ({๐‘ค} ร— ๐‘)) = ((๐‘ฆ โ†พ ({๐‘ค} ร— ๐‘)) โˆ˜f + (๐‘ง โ†พ ({๐‘ค} ร— ๐‘))) โˆง (๐‘ฅ โ†พ ((๐‘ โˆ– {๐‘ค}) ร— ๐‘)) = (๐‘ฆ โ†พ ((๐‘ โˆ– {๐‘ค}) ร— ๐‘)) โˆง (๐‘ฅ โ†พ ((๐‘ โˆ– {๐‘ค}) ร— ๐‘)) = (๐‘ง โ†พ ((๐‘ โˆ– {๐‘ค}) ร— ๐‘))) โ†’ (๐ทโ€˜๐‘ฅ) = ((๐ทโ€˜๐‘ฆ) + (๐ทโ€˜๐‘ง))))
mdetuni.sc (๐œ‘ โ†’ โˆ€๐‘ฅ โˆˆ ๐ต โˆ€๐‘ฆ โˆˆ ๐พ โˆ€๐‘ง โˆˆ ๐ต โˆ€๐‘ค โˆˆ ๐‘ (((๐‘ฅ โ†พ ({๐‘ค} ร— ๐‘)) = ((({๐‘ค} ร— ๐‘) ร— {๐‘ฆ}) โˆ˜f ยท (๐‘ง โ†พ ({๐‘ค} ร— ๐‘))) โˆง (๐‘ฅ โ†พ ((๐‘ โˆ– {๐‘ค}) ร— ๐‘)) = (๐‘ง โ†พ ((๐‘ โˆ– {๐‘ค}) ร— ๐‘))) โ†’ (๐ทโ€˜๐‘ฅ) = (๐‘ฆ ยท (๐ทโ€˜๐‘ง))))
Assertion
Ref Expression
mdetunilem4 ((๐œ‘ โˆง (๐ธ โˆˆ ๐ต โˆง ๐น โˆˆ ๐พ โˆง ๐บ โˆˆ ๐ต) โˆง (๐ป โˆˆ ๐‘ โˆง (๐ธ โ†พ ({๐ป} ร— ๐‘)) = ((({๐ป} ร— ๐‘) ร— {๐น}) โˆ˜f ยท (๐บ โ†พ ({๐ป} ร— ๐‘))) โˆง (๐ธ โ†พ ((๐‘ โˆ– {๐ป}) ร— ๐‘)) = (๐บ โ†พ ((๐‘ โˆ– {๐ป}) ร— ๐‘)))) โ†’ (๐ทโ€˜๐ธ) = (๐น ยท (๐ทโ€˜๐บ)))
Distinct variable groups:   ๐œ‘,๐‘ฅ,๐‘ฆ,๐‘ง,๐‘ค   ๐‘ฅ,๐ต,๐‘ฆ,๐‘ง,๐‘ค   ๐‘ฅ,๐พ,๐‘ฆ,๐‘ง,๐‘ค   ๐‘ฅ,๐‘,๐‘ฆ,๐‘ง,๐‘ค   ๐‘ฅ,๐ท,๐‘ฆ,๐‘ง,๐‘ค   ๐‘ฅ, ยท ,๐‘ฆ,๐‘ง,๐‘ค   ๐‘ฅ, + ,๐‘ฆ,๐‘ง,๐‘ค   ๐‘ฅ, 0 ,๐‘ฆ,๐‘ง,๐‘ค   ๐‘ฅ, 1 ,๐‘ฆ,๐‘ง,๐‘ค   ๐‘ฅ,๐‘…,๐‘ฆ,๐‘ง,๐‘ค   ๐‘ฅ,๐ด,๐‘ฆ,๐‘ง,๐‘ค   ๐‘ฅ,๐ธ,๐‘ฆ,๐‘ง,๐‘ค   ๐‘ฅ,๐น,๐‘ฆ,๐‘ง,๐‘ค   ๐‘ฅ,๐บ,๐‘ฆ,๐‘ง,๐‘ค   ๐‘ฅ,๐ป,๐‘ฆ,๐‘ง,๐‘ค

Proof of Theorem mdetunilem4
StepHypRef Expression
1 simp32 1208 . 2 ((๐œ‘ โˆง (๐ธ โˆˆ ๐ต โˆง ๐น โˆˆ ๐พ โˆง ๐บ โˆˆ ๐ต) โˆง (๐ป โˆˆ ๐‘ โˆง (๐ธ โ†พ ({๐ป} ร— ๐‘)) = ((({๐ป} ร— ๐‘) ร— {๐น}) โˆ˜f ยท (๐บ โ†พ ({๐ป} ร— ๐‘))) โˆง (๐ธ โ†พ ((๐‘ โˆ– {๐ป}) ร— ๐‘)) = (๐บ โ†พ ((๐‘ โˆ– {๐ป}) ร— ๐‘)))) โ†’ (๐ธ โ†พ ({๐ป} ร— ๐‘)) = ((({๐ป} ร— ๐‘) ร— {๐น}) โˆ˜f ยท (๐บ โ†พ ({๐ป} ร— ๐‘))))
2 simp33 1209 . 2 ((๐œ‘ โˆง (๐ธ โˆˆ ๐ต โˆง ๐น โˆˆ ๐พ โˆง ๐บ โˆˆ ๐ต) โˆง (๐ป โˆˆ ๐‘ โˆง (๐ธ โ†พ ({๐ป} ร— ๐‘)) = ((({๐ป} ร— ๐‘) ร— {๐น}) โˆ˜f ยท (๐บ โ†พ ({๐ป} ร— ๐‘))) โˆง (๐ธ โ†พ ((๐‘ โˆ– {๐ป}) ร— ๐‘)) = (๐บ โ†พ ((๐‘ โˆ– {๐ป}) ร— ๐‘)))) โ†’ (๐ธ โ†พ ((๐‘ โˆ– {๐ป}) ร— ๐‘)) = (๐บ โ†พ ((๐‘ โˆ– {๐ป}) ร— ๐‘)))
3 simp1 1134 . . 3 ((๐ป โˆˆ ๐‘ โˆง (๐ธ โ†พ ({๐ป} ร— ๐‘)) = ((({๐ป} ร— ๐‘) ร— {๐น}) โˆ˜f ยท (๐บ โ†พ ({๐ป} ร— ๐‘))) โˆง (๐ธ โ†พ ((๐‘ โˆ– {๐ป}) ร— ๐‘)) = (๐บ โ†พ ((๐‘ โˆ– {๐ป}) ร— ๐‘))) โ†’ ๐ป โˆˆ ๐‘)
4 simp23 1206 . . . 4 ((๐œ‘ โˆง (๐ธ โˆˆ ๐ต โˆง ๐น โˆˆ ๐พ โˆง ๐บ โˆˆ ๐ต) โˆง ๐ป โˆˆ ๐‘) โ†’ ๐บ โˆˆ ๐ต)
5 simp3 1136 . . . 4 ((๐œ‘ โˆง (๐ธ โˆˆ ๐ต โˆง ๐น โˆˆ ๐พ โˆง ๐บ โˆˆ ๐ต) โˆง ๐ป โˆˆ ๐‘) โ†’ ๐ป โˆˆ ๐‘)
6 simp21 1204 . . . . 5 ((๐œ‘ โˆง (๐ธ โˆˆ ๐ต โˆง ๐น โˆˆ ๐พ โˆง ๐บ โˆˆ ๐ต) โˆง ๐ป โˆˆ ๐‘) โ†’ ๐ธ โˆˆ ๐ต)
7 simp22 1205 . . . . 5 ((๐œ‘ โˆง (๐ธ โˆˆ ๐ต โˆง ๐น โˆˆ ๐พ โˆง ๐บ โˆˆ ๐ต) โˆง ๐ป โˆˆ ๐‘) โ†’ ๐น โˆˆ ๐พ)
8 mdetuni.sc . . . . . 6 (๐œ‘ โ†’ โˆ€๐‘ฅ โˆˆ ๐ต โˆ€๐‘ฆ โˆˆ ๐พ โˆ€๐‘ง โˆˆ ๐ต โˆ€๐‘ค โˆˆ ๐‘ (((๐‘ฅ โ†พ ({๐‘ค} ร— ๐‘)) = ((({๐‘ค} ร— ๐‘) ร— {๐‘ฆ}) โˆ˜f ยท (๐‘ง โ†พ ({๐‘ค} ร— ๐‘))) โˆง (๐‘ฅ โ†พ ((๐‘ โˆ– {๐‘ค}) ร— ๐‘)) = (๐‘ง โ†พ ((๐‘ โˆ– {๐‘ค}) ร— ๐‘))) โ†’ (๐ทโ€˜๐‘ฅ) = (๐‘ฆ ยท (๐ทโ€˜๐‘ง))))
983ad2ant1 1131 . . . . 5 ((๐œ‘ โˆง (๐ธ โˆˆ ๐ต โˆง ๐น โˆˆ ๐พ โˆง ๐บ โˆˆ ๐ต) โˆง ๐ป โˆˆ ๐‘) โ†’ โˆ€๐‘ฅ โˆˆ ๐ต โˆ€๐‘ฆ โˆˆ ๐พ โˆ€๐‘ง โˆˆ ๐ต โˆ€๐‘ค โˆˆ ๐‘ (((๐‘ฅ โ†พ ({๐‘ค} ร— ๐‘)) = ((({๐‘ค} ร— ๐‘) ร— {๐‘ฆ}) โˆ˜f ยท (๐‘ง โ†พ ({๐‘ค} ร— ๐‘))) โˆง (๐‘ฅ โ†พ ((๐‘ โˆ– {๐‘ค}) ร— ๐‘)) = (๐‘ง โ†พ ((๐‘ โˆ– {๐‘ค}) ร— ๐‘))) โ†’ (๐ทโ€˜๐‘ฅ) = (๐‘ฆ ยท (๐ทโ€˜๐‘ง))))
10 reseq1 5973 . . . . . . . . . 10 (๐‘ฅ = ๐ธ โ†’ (๐‘ฅ โ†พ ({๐‘ค} ร— ๐‘)) = (๐ธ โ†พ ({๐‘ค} ร— ๐‘)))
1110eqeq1d 2729 . . . . . . . . 9 (๐‘ฅ = ๐ธ โ†’ ((๐‘ฅ โ†พ ({๐‘ค} ร— ๐‘)) = ((({๐‘ค} ร— ๐‘) ร— {๐‘ฆ}) โˆ˜f ยท (๐‘ง โ†พ ({๐‘ค} ร— ๐‘))) โ†” (๐ธ โ†พ ({๐‘ค} ร— ๐‘)) = ((({๐‘ค} ร— ๐‘) ร— {๐‘ฆ}) โˆ˜f ยท (๐‘ง โ†พ ({๐‘ค} ร— ๐‘)))))
12 reseq1 5973 . . . . . . . . . 10 (๐‘ฅ = ๐ธ โ†’ (๐‘ฅ โ†พ ((๐‘ โˆ– {๐‘ค}) ร— ๐‘)) = (๐ธ โ†พ ((๐‘ โˆ– {๐‘ค}) ร— ๐‘)))
1312eqeq1d 2729 . . . . . . . . 9 (๐‘ฅ = ๐ธ โ†’ ((๐‘ฅ โ†พ ((๐‘ โˆ– {๐‘ค}) ร— ๐‘)) = (๐‘ง โ†พ ((๐‘ โˆ– {๐‘ค}) ร— ๐‘)) โ†” (๐ธ โ†พ ((๐‘ โˆ– {๐‘ค}) ร— ๐‘)) = (๐‘ง โ†พ ((๐‘ โˆ– {๐‘ค}) ร— ๐‘))))
1411, 13anbi12d 630 . . . . . . . 8 (๐‘ฅ = ๐ธ โ†’ (((๐‘ฅ โ†พ ({๐‘ค} ร— ๐‘)) = ((({๐‘ค} ร— ๐‘) ร— {๐‘ฆ}) โˆ˜f ยท (๐‘ง โ†พ ({๐‘ค} ร— ๐‘))) โˆง (๐‘ฅ โ†พ ((๐‘ โˆ– {๐‘ค}) ร— ๐‘)) = (๐‘ง โ†พ ((๐‘ โˆ– {๐‘ค}) ร— ๐‘))) โ†” ((๐ธ โ†พ ({๐‘ค} ร— ๐‘)) = ((({๐‘ค} ร— ๐‘) ร— {๐‘ฆ}) โˆ˜f ยท (๐‘ง โ†พ ({๐‘ค} ร— ๐‘))) โˆง (๐ธ โ†พ ((๐‘ โˆ– {๐‘ค}) ร— ๐‘)) = (๐‘ง โ†พ ((๐‘ โˆ– {๐‘ค}) ร— ๐‘)))))
15 fveqeq2 6900 . . . . . . . 8 (๐‘ฅ = ๐ธ โ†’ ((๐ทโ€˜๐‘ฅ) = (๐‘ฆ ยท (๐ทโ€˜๐‘ง)) โ†” (๐ทโ€˜๐ธ) = (๐‘ฆ ยท (๐ทโ€˜๐‘ง))))
1614, 15imbi12d 344 . . . . . . 7 (๐‘ฅ = ๐ธ โ†’ ((((๐‘ฅ โ†พ ({๐‘ค} ร— ๐‘)) = ((({๐‘ค} ร— ๐‘) ร— {๐‘ฆ}) โˆ˜f ยท (๐‘ง โ†พ ({๐‘ค} ร— ๐‘))) โˆง (๐‘ฅ โ†พ ((๐‘ โˆ– {๐‘ค}) ร— ๐‘)) = (๐‘ง โ†พ ((๐‘ โˆ– {๐‘ค}) ร— ๐‘))) โ†’ (๐ทโ€˜๐‘ฅ) = (๐‘ฆ ยท (๐ทโ€˜๐‘ง))) โ†” (((๐ธ โ†พ ({๐‘ค} ร— ๐‘)) = ((({๐‘ค} ร— ๐‘) ร— {๐‘ฆ}) โˆ˜f ยท (๐‘ง โ†พ ({๐‘ค} ร— ๐‘))) โˆง (๐ธ โ†พ ((๐‘ โˆ– {๐‘ค}) ร— ๐‘)) = (๐‘ง โ†พ ((๐‘ โˆ– {๐‘ค}) ร— ๐‘))) โ†’ (๐ทโ€˜๐ธ) = (๐‘ฆ ยท (๐ทโ€˜๐‘ง)))))
17162ralbidv 3213 . . . . . 6 (๐‘ฅ = ๐ธ โ†’ (โˆ€๐‘ง โˆˆ ๐ต โˆ€๐‘ค โˆˆ ๐‘ (((๐‘ฅ โ†พ ({๐‘ค} ร— ๐‘)) = ((({๐‘ค} ร— ๐‘) ร— {๐‘ฆ}) โˆ˜f ยท (๐‘ง โ†พ ({๐‘ค} ร— ๐‘))) โˆง (๐‘ฅ โ†พ ((๐‘ โˆ– {๐‘ค}) ร— ๐‘)) = (๐‘ง โ†พ ((๐‘ โˆ– {๐‘ค}) ร— ๐‘))) โ†’ (๐ทโ€˜๐‘ฅ) = (๐‘ฆ ยท (๐ทโ€˜๐‘ง))) โ†” โˆ€๐‘ง โˆˆ ๐ต โˆ€๐‘ค โˆˆ ๐‘ (((๐ธ โ†พ ({๐‘ค} ร— ๐‘)) = ((({๐‘ค} ร— ๐‘) ร— {๐‘ฆ}) โˆ˜f ยท (๐‘ง โ†พ ({๐‘ค} ร— ๐‘))) โˆง (๐ธ โ†พ ((๐‘ โˆ– {๐‘ค}) ร— ๐‘)) = (๐‘ง โ†พ ((๐‘ โˆ– {๐‘ค}) ร— ๐‘))) โ†’ (๐ทโ€˜๐ธ) = (๐‘ฆ ยท (๐ทโ€˜๐‘ง)))))
18 sneq 4634 . . . . . . . . . . . 12 (๐‘ฆ = ๐น โ†’ {๐‘ฆ} = {๐น})
1918xpeq2d 5702 . . . . . . . . . . 11 (๐‘ฆ = ๐น โ†’ (({๐‘ค} ร— ๐‘) ร— {๐‘ฆ}) = (({๐‘ค} ร— ๐‘) ร— {๐น}))
2019oveq1d 7429 . . . . . . . . . 10 (๐‘ฆ = ๐น โ†’ ((({๐‘ค} ร— ๐‘) ร— {๐‘ฆ}) โˆ˜f ยท (๐‘ง โ†พ ({๐‘ค} ร— ๐‘))) = ((({๐‘ค} ร— ๐‘) ร— {๐น}) โˆ˜f ยท (๐‘ง โ†พ ({๐‘ค} ร— ๐‘))))
2120eqeq2d 2738 . . . . . . . . 9 (๐‘ฆ = ๐น โ†’ ((๐ธ โ†พ ({๐‘ค} ร— ๐‘)) = ((({๐‘ค} ร— ๐‘) ร— {๐‘ฆ}) โˆ˜f ยท (๐‘ง โ†พ ({๐‘ค} ร— ๐‘))) โ†” (๐ธ โ†พ ({๐‘ค} ร— ๐‘)) = ((({๐‘ค} ร— ๐‘) ร— {๐น}) โˆ˜f ยท (๐‘ง โ†พ ({๐‘ค} ร— ๐‘)))))
2221anbi1d 629 . . . . . . . 8 (๐‘ฆ = ๐น โ†’ (((๐ธ โ†พ ({๐‘ค} ร— ๐‘)) = ((({๐‘ค} ร— ๐‘) ร— {๐‘ฆ}) โˆ˜f ยท (๐‘ง โ†พ ({๐‘ค} ร— ๐‘))) โˆง (๐ธ โ†พ ((๐‘ โˆ– {๐‘ค}) ร— ๐‘)) = (๐‘ง โ†พ ((๐‘ โˆ– {๐‘ค}) ร— ๐‘))) โ†” ((๐ธ โ†พ ({๐‘ค} ร— ๐‘)) = ((({๐‘ค} ร— ๐‘) ร— {๐น}) โˆ˜f ยท (๐‘ง โ†พ ({๐‘ค} ร— ๐‘))) โˆง (๐ธ โ†พ ((๐‘ โˆ– {๐‘ค}) ร— ๐‘)) = (๐‘ง โ†พ ((๐‘ โˆ– {๐‘ค}) ร— ๐‘)))))
23 oveq1 7421 . . . . . . . . 9 (๐‘ฆ = ๐น โ†’ (๐‘ฆ ยท (๐ทโ€˜๐‘ง)) = (๐น ยท (๐ทโ€˜๐‘ง)))
2423eqeq2d 2738 . . . . . . . 8 (๐‘ฆ = ๐น โ†’ ((๐ทโ€˜๐ธ) = (๐‘ฆ ยท (๐ทโ€˜๐‘ง)) โ†” (๐ทโ€˜๐ธ) = (๐น ยท (๐ทโ€˜๐‘ง))))
2522, 24imbi12d 344 . . . . . . 7 (๐‘ฆ = ๐น โ†’ ((((๐ธ โ†พ ({๐‘ค} ร— ๐‘)) = ((({๐‘ค} ร— ๐‘) ร— {๐‘ฆ}) โˆ˜f ยท (๐‘ง โ†พ ({๐‘ค} ร— ๐‘))) โˆง (๐ธ โ†พ ((๐‘ โˆ– {๐‘ค}) ร— ๐‘)) = (๐‘ง โ†พ ((๐‘ โˆ– {๐‘ค}) ร— ๐‘))) โ†’ (๐ทโ€˜๐ธ) = (๐‘ฆ ยท (๐ทโ€˜๐‘ง))) โ†” (((๐ธ โ†พ ({๐‘ค} ร— ๐‘)) = ((({๐‘ค} ร— ๐‘) ร— {๐น}) โˆ˜f ยท (๐‘ง โ†พ ({๐‘ค} ร— ๐‘))) โˆง (๐ธ โ†พ ((๐‘ โˆ– {๐‘ค}) ร— ๐‘)) = (๐‘ง โ†พ ((๐‘ โˆ– {๐‘ค}) ร— ๐‘))) โ†’ (๐ทโ€˜๐ธ) = (๐น ยท (๐ทโ€˜๐‘ง)))))
26252ralbidv 3213 . . . . . 6 (๐‘ฆ = ๐น โ†’ (โˆ€๐‘ง โˆˆ ๐ต โˆ€๐‘ค โˆˆ ๐‘ (((๐ธ โ†พ ({๐‘ค} ร— ๐‘)) = ((({๐‘ค} ร— ๐‘) ร— {๐‘ฆ}) โˆ˜f ยท (๐‘ง โ†พ ({๐‘ค} ร— ๐‘))) โˆง (๐ธ โ†พ ((๐‘ โˆ– {๐‘ค}) ร— ๐‘)) = (๐‘ง โ†พ ((๐‘ โˆ– {๐‘ค}) ร— ๐‘))) โ†’ (๐ทโ€˜๐ธ) = (๐‘ฆ ยท (๐ทโ€˜๐‘ง))) โ†” โˆ€๐‘ง โˆˆ ๐ต โˆ€๐‘ค โˆˆ ๐‘ (((๐ธ โ†พ ({๐‘ค} ร— ๐‘)) = ((({๐‘ค} ร— ๐‘) ร— {๐น}) โˆ˜f ยท (๐‘ง โ†พ ({๐‘ค} ร— ๐‘))) โˆง (๐ธ โ†พ ((๐‘ โˆ– {๐‘ค}) ร— ๐‘)) = (๐‘ง โ†พ ((๐‘ โˆ– {๐‘ค}) ร— ๐‘))) โ†’ (๐ทโ€˜๐ธ) = (๐น ยท (๐ทโ€˜๐‘ง)))))
2717, 26rspc2va 3619 . . . . 5 (((๐ธ โˆˆ ๐ต โˆง ๐น โˆˆ ๐พ) โˆง โˆ€๐‘ฅ โˆˆ ๐ต โˆ€๐‘ฆ โˆˆ ๐พ โˆ€๐‘ง โˆˆ ๐ต โˆ€๐‘ค โˆˆ ๐‘ (((๐‘ฅ โ†พ ({๐‘ค} ร— ๐‘)) = ((({๐‘ค} ร— ๐‘) ร— {๐‘ฆ}) โˆ˜f ยท (๐‘ง โ†พ ({๐‘ค} ร— ๐‘))) โˆง (๐‘ฅ โ†พ ((๐‘ โˆ– {๐‘ค}) ร— ๐‘)) = (๐‘ง โ†พ ((๐‘ โˆ– {๐‘ค}) ร— ๐‘))) โ†’ (๐ทโ€˜๐‘ฅ) = (๐‘ฆ ยท (๐ทโ€˜๐‘ง)))) โ†’ โˆ€๐‘ง โˆˆ ๐ต โˆ€๐‘ค โˆˆ ๐‘ (((๐ธ โ†พ ({๐‘ค} ร— ๐‘)) = ((({๐‘ค} ร— ๐‘) ร— {๐น}) โˆ˜f ยท (๐‘ง โ†พ ({๐‘ค} ร— ๐‘))) โˆง (๐ธ โ†พ ((๐‘ โˆ– {๐‘ค}) ร— ๐‘)) = (๐‘ง โ†พ ((๐‘ โˆ– {๐‘ค}) ร— ๐‘))) โ†’ (๐ทโ€˜๐ธ) = (๐น ยท (๐ทโ€˜๐‘ง))))
286, 7, 9, 27syl21anc 837 . . . 4 ((๐œ‘ โˆง (๐ธ โˆˆ ๐ต โˆง ๐น โˆˆ ๐พ โˆง ๐บ โˆˆ ๐ต) โˆง ๐ป โˆˆ ๐‘) โ†’ โˆ€๐‘ง โˆˆ ๐ต โˆ€๐‘ค โˆˆ ๐‘ (((๐ธ โ†พ ({๐‘ค} ร— ๐‘)) = ((({๐‘ค} ร— ๐‘) ร— {๐น}) โˆ˜f ยท (๐‘ง โ†พ ({๐‘ค} ร— ๐‘))) โˆง (๐ธ โ†พ ((๐‘ โˆ– {๐‘ค}) ร— ๐‘)) = (๐‘ง โ†พ ((๐‘ โˆ– {๐‘ค}) ร— ๐‘))) โ†’ (๐ทโ€˜๐ธ) = (๐น ยท (๐ทโ€˜๐‘ง))))
29 reseq1 5973 . . . . . . . . 9 (๐‘ง = ๐บ โ†’ (๐‘ง โ†พ ({๐‘ค} ร— ๐‘)) = (๐บ โ†พ ({๐‘ค} ร— ๐‘)))
3029oveq2d 7430 . . . . . . . 8 (๐‘ง = ๐บ โ†’ ((({๐‘ค} ร— ๐‘) ร— {๐น}) โˆ˜f ยท (๐‘ง โ†พ ({๐‘ค} ร— ๐‘))) = ((({๐‘ค} ร— ๐‘) ร— {๐น}) โˆ˜f ยท (๐บ โ†พ ({๐‘ค} ร— ๐‘))))
3130eqeq2d 2738 . . . . . . 7 (๐‘ง = ๐บ โ†’ ((๐ธ โ†พ ({๐‘ค} ร— ๐‘)) = ((({๐‘ค} ร— ๐‘) ร— {๐น}) โˆ˜f ยท (๐‘ง โ†พ ({๐‘ค} ร— ๐‘))) โ†” (๐ธ โ†พ ({๐‘ค} ร— ๐‘)) = ((({๐‘ค} ร— ๐‘) ร— {๐น}) โˆ˜f ยท (๐บ โ†พ ({๐‘ค} ร— ๐‘)))))
32 reseq1 5973 . . . . . . . 8 (๐‘ง = ๐บ โ†’ (๐‘ง โ†พ ((๐‘ โˆ– {๐‘ค}) ร— ๐‘)) = (๐บ โ†พ ((๐‘ โˆ– {๐‘ค}) ร— ๐‘)))
3332eqeq2d 2738 . . . . . . 7 (๐‘ง = ๐บ โ†’ ((๐ธ โ†พ ((๐‘ โˆ– {๐‘ค}) ร— ๐‘)) = (๐‘ง โ†พ ((๐‘ โˆ– {๐‘ค}) ร— ๐‘)) โ†” (๐ธ โ†พ ((๐‘ โˆ– {๐‘ค}) ร— ๐‘)) = (๐บ โ†พ ((๐‘ โˆ– {๐‘ค}) ร— ๐‘))))
3431, 33anbi12d 630 . . . . . 6 (๐‘ง = ๐บ โ†’ (((๐ธ โ†พ ({๐‘ค} ร— ๐‘)) = ((({๐‘ค} ร— ๐‘) ร— {๐น}) โˆ˜f ยท (๐‘ง โ†พ ({๐‘ค} ร— ๐‘))) โˆง (๐ธ โ†พ ((๐‘ โˆ– {๐‘ค}) ร— ๐‘)) = (๐‘ง โ†พ ((๐‘ โˆ– {๐‘ค}) ร— ๐‘))) โ†” ((๐ธ โ†พ ({๐‘ค} ร— ๐‘)) = ((({๐‘ค} ร— ๐‘) ร— {๐น}) โˆ˜f ยท (๐บ โ†พ ({๐‘ค} ร— ๐‘))) โˆง (๐ธ โ†พ ((๐‘ โˆ– {๐‘ค}) ร— ๐‘)) = (๐บ โ†พ ((๐‘ โˆ– {๐‘ค}) ร— ๐‘)))))
35 fveq2 6891 . . . . . . . 8 (๐‘ง = ๐บ โ†’ (๐ทโ€˜๐‘ง) = (๐ทโ€˜๐บ))
3635oveq2d 7430 . . . . . . 7 (๐‘ง = ๐บ โ†’ (๐น ยท (๐ทโ€˜๐‘ง)) = (๐น ยท (๐ทโ€˜๐บ)))
3736eqeq2d 2738 . . . . . 6 (๐‘ง = ๐บ โ†’ ((๐ทโ€˜๐ธ) = (๐น ยท (๐ทโ€˜๐‘ง)) โ†” (๐ทโ€˜๐ธ) = (๐น ยท (๐ทโ€˜๐บ))))
3834, 37imbi12d 344 . . . . 5 (๐‘ง = ๐บ โ†’ ((((๐ธ โ†พ ({๐‘ค} ร— ๐‘)) = ((({๐‘ค} ร— ๐‘) ร— {๐น}) โˆ˜f ยท (๐‘ง โ†พ ({๐‘ค} ร— ๐‘))) โˆง (๐ธ โ†พ ((๐‘ โˆ– {๐‘ค}) ร— ๐‘)) = (๐‘ง โ†พ ((๐‘ โˆ– {๐‘ค}) ร— ๐‘))) โ†’ (๐ทโ€˜๐ธ) = (๐น ยท (๐ทโ€˜๐‘ง))) โ†” (((๐ธ โ†พ ({๐‘ค} ร— ๐‘)) = ((({๐‘ค} ร— ๐‘) ร— {๐น}) โˆ˜f ยท (๐บ โ†พ ({๐‘ค} ร— ๐‘))) โˆง (๐ธ โ†พ ((๐‘ โˆ– {๐‘ค}) ร— ๐‘)) = (๐บ โ†พ ((๐‘ โˆ– {๐‘ค}) ร— ๐‘))) โ†’ (๐ทโ€˜๐ธ) = (๐น ยท (๐ทโ€˜๐บ)))))
39 sneq 4634 . . . . . . . . . 10 (๐‘ค = ๐ป โ†’ {๐‘ค} = {๐ป})
4039xpeq1d 5701 . . . . . . . . 9 (๐‘ค = ๐ป โ†’ ({๐‘ค} ร— ๐‘) = ({๐ป} ร— ๐‘))
4140reseq2d 5979 . . . . . . . 8 (๐‘ค = ๐ป โ†’ (๐ธ โ†พ ({๐‘ค} ร— ๐‘)) = (๐ธ โ†พ ({๐ป} ร— ๐‘)))
4240xpeq1d 5701 . . . . . . . . 9 (๐‘ค = ๐ป โ†’ (({๐‘ค} ร— ๐‘) ร— {๐น}) = (({๐ป} ร— ๐‘) ร— {๐น}))
4340reseq2d 5979 . . . . . . . . 9 (๐‘ค = ๐ป โ†’ (๐บ โ†พ ({๐‘ค} ร— ๐‘)) = (๐บ โ†พ ({๐ป} ร— ๐‘)))
4442, 43oveq12d 7432 . . . . . . . 8 (๐‘ค = ๐ป โ†’ ((({๐‘ค} ร— ๐‘) ร— {๐น}) โˆ˜f ยท (๐บ โ†พ ({๐‘ค} ร— ๐‘))) = ((({๐ป} ร— ๐‘) ร— {๐น}) โˆ˜f ยท (๐บ โ†พ ({๐ป} ร— ๐‘))))
4541, 44eqeq12d 2743 . . . . . . 7 (๐‘ค = ๐ป โ†’ ((๐ธ โ†พ ({๐‘ค} ร— ๐‘)) = ((({๐‘ค} ร— ๐‘) ร— {๐น}) โˆ˜f ยท (๐บ โ†พ ({๐‘ค} ร— ๐‘))) โ†” (๐ธ โ†พ ({๐ป} ร— ๐‘)) = ((({๐ป} ร— ๐‘) ร— {๐น}) โˆ˜f ยท (๐บ โ†พ ({๐ป} ร— ๐‘)))))
4639difeq2d 4118 . . . . . . . . . 10 (๐‘ค = ๐ป โ†’ (๐‘ โˆ– {๐‘ค}) = (๐‘ โˆ– {๐ป}))
4746xpeq1d 5701 . . . . . . . . 9 (๐‘ค = ๐ป โ†’ ((๐‘ โˆ– {๐‘ค}) ร— ๐‘) = ((๐‘ โˆ– {๐ป}) ร— ๐‘))
4847reseq2d 5979 . . . . . . . 8 (๐‘ค = ๐ป โ†’ (๐ธ โ†พ ((๐‘ โˆ– {๐‘ค}) ร— ๐‘)) = (๐ธ โ†พ ((๐‘ โˆ– {๐ป}) ร— ๐‘)))
4947reseq2d 5979 . . . . . . . 8 (๐‘ค = ๐ป โ†’ (๐บ โ†พ ((๐‘ โˆ– {๐‘ค}) ร— ๐‘)) = (๐บ โ†พ ((๐‘ โˆ– {๐ป}) ร— ๐‘)))
5048, 49eqeq12d 2743 . . . . . . 7 (๐‘ค = ๐ป โ†’ ((๐ธ โ†พ ((๐‘ โˆ– {๐‘ค}) ร— ๐‘)) = (๐บ โ†พ ((๐‘ โˆ– {๐‘ค}) ร— ๐‘)) โ†” (๐ธ โ†พ ((๐‘ โˆ– {๐ป}) ร— ๐‘)) = (๐บ โ†พ ((๐‘ โˆ– {๐ป}) ร— ๐‘))))
5145, 50anbi12d 630 . . . . . 6 (๐‘ค = ๐ป โ†’ (((๐ธ โ†พ ({๐‘ค} ร— ๐‘)) = ((({๐‘ค} ร— ๐‘) ร— {๐น}) โˆ˜f ยท (๐บ โ†พ ({๐‘ค} ร— ๐‘))) โˆง (๐ธ โ†พ ((๐‘ โˆ– {๐‘ค}) ร— ๐‘)) = (๐บ โ†พ ((๐‘ โˆ– {๐‘ค}) ร— ๐‘))) โ†” ((๐ธ โ†พ ({๐ป} ร— ๐‘)) = ((({๐ป} ร— ๐‘) ร— {๐น}) โˆ˜f ยท (๐บ โ†พ ({๐ป} ร— ๐‘))) โˆง (๐ธ โ†พ ((๐‘ โˆ– {๐ป}) ร— ๐‘)) = (๐บ โ†พ ((๐‘ โˆ– {๐ป}) ร— ๐‘)))))
5251imbi1d 341 . . . . 5 (๐‘ค = ๐ป โ†’ ((((๐ธ โ†พ ({๐‘ค} ร— ๐‘)) = ((({๐‘ค} ร— ๐‘) ร— {๐น}) โˆ˜f ยท (๐บ โ†พ ({๐‘ค} ร— ๐‘))) โˆง (๐ธ โ†พ ((๐‘ โˆ– {๐‘ค}) ร— ๐‘)) = (๐บ โ†พ ((๐‘ โˆ– {๐‘ค}) ร— ๐‘))) โ†’ (๐ทโ€˜๐ธ) = (๐น ยท (๐ทโ€˜๐บ))) โ†” (((๐ธ โ†พ ({๐ป} ร— ๐‘)) = ((({๐ป} ร— ๐‘) ร— {๐น}) โˆ˜f ยท (๐บ โ†พ ({๐ป} ร— ๐‘))) โˆง (๐ธ โ†พ ((๐‘ โˆ– {๐ป}) ร— ๐‘)) = (๐บ โ†พ ((๐‘ โˆ– {๐ป}) ร— ๐‘))) โ†’ (๐ทโ€˜๐ธ) = (๐น ยท (๐ทโ€˜๐บ)))))
5338, 52rspc2va 3619 . . . 4 (((๐บ โˆˆ ๐ต โˆง ๐ป โˆˆ ๐‘) โˆง โˆ€๐‘ง โˆˆ ๐ต โˆ€๐‘ค โˆˆ ๐‘ (((๐ธ โ†พ ({๐‘ค} ร— ๐‘)) = ((({๐‘ค} ร— ๐‘) ร— {๐น}) โˆ˜f ยท (๐‘ง โ†พ ({๐‘ค} ร— ๐‘))) โˆง (๐ธ โ†พ ((๐‘ โˆ– {๐‘ค}) ร— ๐‘)) = (๐‘ง โ†พ ((๐‘ โˆ– {๐‘ค}) ร— ๐‘))) โ†’ (๐ทโ€˜๐ธ) = (๐น ยท (๐ทโ€˜๐‘ง)))) โ†’ (((๐ธ โ†พ ({๐ป} ร— ๐‘)) = ((({๐ป} ร— ๐‘) ร— {๐น}) โˆ˜f ยท (๐บ โ†พ ({๐ป} ร— ๐‘))) โˆง (๐ธ โ†พ ((๐‘ โˆ– {๐ป}) ร— ๐‘)) = (๐บ โ†พ ((๐‘ โˆ– {๐ป}) ร— ๐‘))) โ†’ (๐ทโ€˜๐ธ) = (๐น ยท (๐ทโ€˜๐บ))))
544, 5, 28, 53syl21anc 837 . . 3 ((๐œ‘ โˆง (๐ธ โˆˆ ๐ต โˆง ๐น โˆˆ ๐พ โˆง ๐บ โˆˆ ๐ต) โˆง ๐ป โˆˆ ๐‘) โ†’ (((๐ธ โ†พ ({๐ป} ร— ๐‘)) = ((({๐ป} ร— ๐‘) ร— {๐น}) โˆ˜f ยท (๐บ โ†พ ({๐ป} ร— ๐‘))) โˆง (๐ธ โ†พ ((๐‘ โˆ– {๐ป}) ร— ๐‘)) = (๐บ โ†พ ((๐‘ โˆ– {๐ป}) ร— ๐‘))) โ†’ (๐ทโ€˜๐ธ) = (๐น ยท (๐ทโ€˜๐บ))))
553, 54syl3an3 1163 . 2 ((๐œ‘ โˆง (๐ธ โˆˆ ๐ต โˆง ๐น โˆˆ ๐พ โˆง ๐บ โˆˆ ๐ต) โˆง (๐ป โˆˆ ๐‘ โˆง (๐ธ โ†พ ({๐ป} ร— ๐‘)) = ((({๐ป} ร— ๐‘) ร— {๐น}) โˆ˜f ยท (๐บ โ†พ ({๐ป} ร— ๐‘))) โˆง (๐ธ โ†พ ((๐‘ โˆ– {๐ป}) ร— ๐‘)) = (๐บ โ†พ ((๐‘ โˆ– {๐ป}) ร— ๐‘)))) โ†’ (((๐ธ โ†พ ({๐ป} ร— ๐‘)) = ((({๐ป} ร— ๐‘) ร— {๐น}) โˆ˜f ยท (๐บ โ†พ ({๐ป} ร— ๐‘))) โˆง (๐ธ โ†พ ((๐‘ โˆ– {๐ป}) ร— ๐‘)) = (๐บ โ†พ ((๐‘ โˆ– {๐ป}) ร— ๐‘))) โ†’ (๐ทโ€˜๐ธ) = (๐น ยท (๐ทโ€˜๐บ))))
561, 2, 55mp2and 698 1 ((๐œ‘ โˆง (๐ธ โˆˆ ๐ต โˆง ๐น โˆˆ ๐พ โˆง ๐บ โˆˆ ๐ต) โˆง (๐ป โˆˆ ๐‘ โˆง (๐ธ โ†พ ({๐ป} ร— ๐‘)) = ((({๐ป} ร— ๐‘) ร— {๐น}) โˆ˜f ยท (๐บ โ†พ ({๐ป} ร— ๐‘))) โˆง (๐ธ โ†พ ((๐‘ โˆ– {๐ป}) ร— ๐‘)) = (๐บ โ†พ ((๐‘ โˆ– {๐ป}) ร— ๐‘)))) โ†’ (๐ทโ€˜๐ธ) = (๐น ยท (๐ทโ€˜๐บ)))
Colors of variables: wff setvar class
Syntax hints:   โ†’ wi 4   โˆง wa 395   โˆง w3a 1085   = wceq 1534   โˆˆ wcel 2099   โ‰  wne 2935  โˆ€wral 3056   โˆ– cdif 3941  {csn 4624   ร— cxp 5670   โ†พ cres 5674  โŸถwf 6538  โ€˜cfv 6542  (class class class)co 7414   โˆ˜f cof 7675  Fincfn 8953  Basecbs 17165  +gcplusg 17218  .rcmulr 17219  0gc0g 17406  1rcur 20105  Ringcrg 20157   Mat cmat 22281
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1790  ax-4 1804  ax-5 1906  ax-6 1964  ax-7 2004  ax-8 2101  ax-9 2109  ax-ext 2698
This theorem depends on definitions:  df-bi 206  df-an 396  df-or 847  df-3an 1087  df-tru 1537  df-fal 1547  df-ex 1775  df-sb 2061  df-clab 2705  df-cleq 2719  df-clel 2805  df-ral 3057  df-rab 3428  df-v 3471  df-dif 3947  df-un 3949  df-in 3951  df-ss 3961  df-nul 4319  df-if 4525  df-sn 4625  df-pr 4627  df-op 4631  df-uni 4904  df-br 5143  df-opab 5205  df-xp 5678  df-res 5684  df-iota 6494  df-fv 6550  df-ov 7417
This theorem is referenced by:  mdetuni0  22497
  Copyright terms: Public domain W3C validator