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

Theorem mdetunilem4 22108
Description: Lemma for mdetuni 22115. (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 1210 . 2 ((๐œ‘ โˆง (๐ธ โˆˆ ๐ต โˆง ๐น โˆˆ ๐พ โˆง ๐บ โˆˆ ๐ต) โˆง (๐ป โˆˆ ๐‘ โˆง (๐ธ โ†พ ({๐ป} ร— ๐‘)) = ((({๐ป} ร— ๐‘) ร— {๐น}) โˆ˜f ยท (๐บ โ†พ ({๐ป} ร— ๐‘))) โˆง (๐ธ โ†พ ((๐‘ โˆ– {๐ป}) ร— ๐‘)) = (๐บ โ†พ ((๐‘ โˆ– {๐ป}) ร— ๐‘)))) โ†’ (๐ธ โ†พ ({๐ป} ร— ๐‘)) = ((({๐ป} ร— ๐‘) ร— {๐น}) โˆ˜f ยท (๐บ โ†พ ({๐ป} ร— ๐‘))))
2 simp33 1211 . 2 ((๐œ‘ โˆง (๐ธ โˆˆ ๐ต โˆง ๐น โˆˆ ๐พ โˆง ๐บ โˆˆ ๐ต) โˆง (๐ป โˆˆ ๐‘ โˆง (๐ธ โ†พ ({๐ป} ร— ๐‘)) = ((({๐ป} ร— ๐‘) ร— {๐น}) โˆ˜f ยท (๐บ โ†พ ({๐ป} ร— ๐‘))) โˆง (๐ธ โ†พ ((๐‘ โˆ– {๐ป}) ร— ๐‘)) = (๐บ โ†พ ((๐‘ โˆ– {๐ป}) ร— ๐‘)))) โ†’ (๐ธ โ†พ ((๐‘ โˆ– {๐ป}) ร— ๐‘)) = (๐บ โ†พ ((๐‘ โˆ– {๐ป}) ร— ๐‘)))
3 simp1 1136 . . 3 ((๐ป โˆˆ ๐‘ โˆง (๐ธ โ†พ ({๐ป} ร— ๐‘)) = ((({๐ป} ร— ๐‘) ร— {๐น}) โˆ˜f ยท (๐บ โ†พ ({๐ป} ร— ๐‘))) โˆง (๐ธ โ†พ ((๐‘ โˆ– {๐ป}) ร— ๐‘)) = (๐บ โ†พ ((๐‘ โˆ– {๐ป}) ร— ๐‘))) โ†’ ๐ป โˆˆ ๐‘)
4 simp23 1208 . . . 4 ((๐œ‘ โˆง (๐ธ โˆˆ ๐ต โˆง ๐น โˆˆ ๐พ โˆง ๐บ โˆˆ ๐ต) โˆง ๐ป โˆˆ ๐‘) โ†’ ๐บ โˆˆ ๐ต)
5 simp3 1138 . . . 4 ((๐œ‘ โˆง (๐ธ โˆˆ ๐ต โˆง ๐น โˆˆ ๐พ โˆง ๐บ โˆˆ ๐ต) โˆง ๐ป โˆˆ ๐‘) โ†’ ๐ป โˆˆ ๐‘)
6 simp21 1206 . . . . 5 ((๐œ‘ โˆง (๐ธ โˆˆ ๐ต โˆง ๐น โˆˆ ๐พ โˆง ๐บ โˆˆ ๐ต) โˆง ๐ป โˆˆ ๐‘) โ†’ ๐ธ โˆˆ ๐ต)
7 simp22 1207 . . . . 5 ((๐œ‘ โˆง (๐ธ โˆˆ ๐ต โˆง ๐น โˆˆ ๐พ โˆง ๐บ โˆˆ ๐ต) โˆง ๐ป โˆˆ ๐‘) โ†’ ๐น โˆˆ ๐พ)
8 mdetuni.sc . . . . . 6 (๐œ‘ โ†’ โˆ€๐‘ฅ โˆˆ ๐ต โˆ€๐‘ฆ โˆˆ ๐พ โˆ€๐‘ง โˆˆ ๐ต โˆ€๐‘ค โˆˆ ๐‘ (((๐‘ฅ โ†พ ({๐‘ค} ร— ๐‘)) = ((({๐‘ค} ร— ๐‘) ร— {๐‘ฆ}) โˆ˜f ยท (๐‘ง โ†พ ({๐‘ค} ร— ๐‘))) โˆง (๐‘ฅ โ†พ ((๐‘ โˆ– {๐‘ค}) ร— ๐‘)) = (๐‘ง โ†พ ((๐‘ โˆ– {๐‘ค}) ร— ๐‘))) โ†’ (๐ทโ€˜๐‘ฅ) = (๐‘ฆ ยท (๐ทโ€˜๐‘ง))))
983ad2ant1 1133 . . . . 5 ((๐œ‘ โˆง (๐ธ โˆˆ ๐ต โˆง ๐น โˆˆ ๐พ โˆง ๐บ โˆˆ ๐ต) โˆง ๐ป โˆˆ ๐‘) โ†’ โˆ€๐‘ฅ โˆˆ ๐ต โˆ€๐‘ฆ โˆˆ ๐พ โˆ€๐‘ง โˆˆ ๐ต โˆ€๐‘ค โˆˆ ๐‘ (((๐‘ฅ โ†พ ({๐‘ค} ร— ๐‘)) = ((({๐‘ค} ร— ๐‘) ร— {๐‘ฆ}) โˆ˜f ยท (๐‘ง โ†พ ({๐‘ค} ร— ๐‘))) โˆง (๐‘ฅ โ†พ ((๐‘ โˆ– {๐‘ค}) ร— ๐‘)) = (๐‘ง โ†พ ((๐‘ โˆ– {๐‘ค}) ร— ๐‘))) โ†’ (๐ทโ€˜๐‘ฅ) = (๐‘ฆ ยท (๐ทโ€˜๐‘ง))))
10 reseq1 5973 . . . . . . . . . 10 (๐‘ฅ = ๐ธ โ†’ (๐‘ฅ โ†พ ({๐‘ค} ร— ๐‘)) = (๐ธ โ†พ ({๐‘ค} ร— ๐‘)))
1110eqeq1d 2734 . . . . . . . . 9 (๐‘ฅ = ๐ธ โ†’ ((๐‘ฅ โ†พ ({๐‘ค} ร— ๐‘)) = ((({๐‘ค} ร— ๐‘) ร— {๐‘ฆ}) โˆ˜f ยท (๐‘ง โ†พ ({๐‘ค} ร— ๐‘))) โ†” (๐ธ โ†พ ({๐‘ค} ร— ๐‘)) = ((({๐‘ค} ร— ๐‘) ร— {๐‘ฆ}) โˆ˜f ยท (๐‘ง โ†พ ({๐‘ค} ร— ๐‘)))))
12 reseq1 5973 . . . . . . . . . 10 (๐‘ฅ = ๐ธ โ†’ (๐‘ฅ โ†พ ((๐‘ โˆ– {๐‘ค}) ร— ๐‘)) = (๐ธ โ†พ ((๐‘ โˆ– {๐‘ค}) ร— ๐‘)))
1312eqeq1d 2734 . . . . . . . . 9 (๐‘ฅ = ๐ธ โ†’ ((๐‘ฅ โ†พ ((๐‘ โˆ– {๐‘ค}) ร— ๐‘)) = (๐‘ง โ†พ ((๐‘ โˆ– {๐‘ค}) ร— ๐‘)) โ†” (๐ธ โ†พ ((๐‘ โˆ– {๐‘ค}) ร— ๐‘)) = (๐‘ง โ†พ ((๐‘ โˆ– {๐‘ค}) ร— ๐‘))))
1411, 13anbi12d 631 . . . . . . . 8 (๐‘ฅ = ๐ธ โ†’ (((๐‘ฅ โ†พ ({๐‘ค} ร— ๐‘)) = ((({๐‘ค} ร— ๐‘) ร— {๐‘ฆ}) โˆ˜f ยท (๐‘ง โ†พ ({๐‘ค} ร— ๐‘))) โˆง (๐‘ฅ โ†พ ((๐‘ โˆ– {๐‘ค}) ร— ๐‘)) = (๐‘ง โ†พ ((๐‘ โˆ– {๐‘ค}) ร— ๐‘))) โ†” ((๐ธ โ†พ ({๐‘ค} ร— ๐‘)) = ((({๐‘ค} ร— ๐‘) ร— {๐‘ฆ}) โˆ˜f ยท (๐‘ง โ†พ ({๐‘ค} ร— ๐‘))) โˆง (๐ธ โ†พ ((๐‘ โˆ– {๐‘ค}) ร— ๐‘)) = (๐‘ง โ†พ ((๐‘ โˆ– {๐‘ค}) ร— ๐‘)))))
15 fveqeq2 6897 . . . . . . . 8 (๐‘ฅ = ๐ธ โ†’ ((๐ทโ€˜๐‘ฅ) = (๐‘ฆ ยท (๐ทโ€˜๐‘ง)) โ†” (๐ทโ€˜๐ธ) = (๐‘ฆ ยท (๐ทโ€˜๐‘ง))))
1614, 15imbi12d 344 . . . . . . 7 (๐‘ฅ = ๐ธ โ†’ ((((๐‘ฅ โ†พ ({๐‘ค} ร— ๐‘)) = ((({๐‘ค} ร— ๐‘) ร— {๐‘ฆ}) โˆ˜f ยท (๐‘ง โ†พ ({๐‘ค} ร— ๐‘))) โˆง (๐‘ฅ โ†พ ((๐‘ โˆ– {๐‘ค}) ร— ๐‘)) = (๐‘ง โ†พ ((๐‘ โˆ– {๐‘ค}) ร— ๐‘))) โ†’ (๐ทโ€˜๐‘ฅ) = (๐‘ฆ ยท (๐ทโ€˜๐‘ง))) โ†” (((๐ธ โ†พ ({๐‘ค} ร— ๐‘)) = ((({๐‘ค} ร— ๐‘) ร— {๐‘ฆ}) โˆ˜f ยท (๐‘ง โ†พ ({๐‘ค} ร— ๐‘))) โˆง (๐ธ โ†พ ((๐‘ โˆ– {๐‘ค}) ร— ๐‘)) = (๐‘ง โ†พ ((๐‘ โˆ– {๐‘ค}) ร— ๐‘))) โ†’ (๐ทโ€˜๐ธ) = (๐‘ฆ ยท (๐ทโ€˜๐‘ง)))))
17162ralbidv 3218 . . . . . 6 (๐‘ฅ = ๐ธ โ†’ (โˆ€๐‘ง โˆˆ ๐ต โˆ€๐‘ค โˆˆ ๐‘ (((๐‘ฅ โ†พ ({๐‘ค} ร— ๐‘)) = ((({๐‘ค} ร— ๐‘) ร— {๐‘ฆ}) โˆ˜f ยท (๐‘ง โ†พ ({๐‘ค} ร— ๐‘))) โˆง (๐‘ฅ โ†พ ((๐‘ โˆ– {๐‘ค}) ร— ๐‘)) = (๐‘ง โ†พ ((๐‘ โˆ– {๐‘ค}) ร— ๐‘))) โ†’ (๐ทโ€˜๐‘ฅ) = (๐‘ฆ ยท (๐ทโ€˜๐‘ง))) โ†” โˆ€๐‘ง โˆˆ ๐ต โˆ€๐‘ค โˆˆ ๐‘ (((๐ธ โ†พ ({๐‘ค} ร— ๐‘)) = ((({๐‘ค} ร— ๐‘) ร— {๐‘ฆ}) โˆ˜f ยท (๐‘ง โ†พ ({๐‘ค} ร— ๐‘))) โˆง (๐ธ โ†พ ((๐‘ โˆ– {๐‘ค}) ร— ๐‘)) = (๐‘ง โ†พ ((๐‘ โˆ– {๐‘ค}) ร— ๐‘))) โ†’ (๐ทโ€˜๐ธ) = (๐‘ฆ ยท (๐ทโ€˜๐‘ง)))))
18 sneq 4637 . . . . . . . . . . . 12 (๐‘ฆ = ๐น โ†’ {๐‘ฆ} = {๐น})
1918xpeq2d 5705 . . . . . . . . . . 11 (๐‘ฆ = ๐น โ†’ (({๐‘ค} ร— ๐‘) ร— {๐‘ฆ}) = (({๐‘ค} ร— ๐‘) ร— {๐น}))
2019oveq1d 7420 . . . . . . . . . 10 (๐‘ฆ = ๐น โ†’ ((({๐‘ค} ร— ๐‘) ร— {๐‘ฆ}) โˆ˜f ยท (๐‘ง โ†พ ({๐‘ค} ร— ๐‘))) = ((({๐‘ค} ร— ๐‘) ร— {๐น}) โˆ˜f ยท (๐‘ง โ†พ ({๐‘ค} ร— ๐‘))))
2120eqeq2d 2743 . . . . . . . . 9 (๐‘ฆ = ๐น โ†’ ((๐ธ โ†พ ({๐‘ค} ร— ๐‘)) = ((({๐‘ค} ร— ๐‘) ร— {๐‘ฆ}) โˆ˜f ยท (๐‘ง โ†พ ({๐‘ค} ร— ๐‘))) โ†” (๐ธ โ†พ ({๐‘ค} ร— ๐‘)) = ((({๐‘ค} ร— ๐‘) ร— {๐น}) โˆ˜f ยท (๐‘ง โ†พ ({๐‘ค} ร— ๐‘)))))
2221anbi1d 630 . . . . . . . 8 (๐‘ฆ = ๐น โ†’ (((๐ธ โ†พ ({๐‘ค} ร— ๐‘)) = ((({๐‘ค} ร— ๐‘) ร— {๐‘ฆ}) โˆ˜f ยท (๐‘ง โ†พ ({๐‘ค} ร— ๐‘))) โˆง (๐ธ โ†พ ((๐‘ โˆ– {๐‘ค}) ร— ๐‘)) = (๐‘ง โ†พ ((๐‘ โˆ– {๐‘ค}) ร— ๐‘))) โ†” ((๐ธ โ†พ ({๐‘ค} ร— ๐‘)) = ((({๐‘ค} ร— ๐‘) ร— {๐น}) โˆ˜f ยท (๐‘ง โ†พ ({๐‘ค} ร— ๐‘))) โˆง (๐ธ โ†พ ((๐‘ โˆ– {๐‘ค}) ร— ๐‘)) = (๐‘ง โ†พ ((๐‘ โˆ– {๐‘ค}) ร— ๐‘)))))
23 oveq1 7412 . . . . . . . . 9 (๐‘ฆ = ๐น โ†’ (๐‘ฆ ยท (๐ทโ€˜๐‘ง)) = (๐น ยท (๐ทโ€˜๐‘ง)))
2423eqeq2d 2743 . . . . . . . 8 (๐‘ฆ = ๐น โ†’ ((๐ทโ€˜๐ธ) = (๐‘ฆ ยท (๐ทโ€˜๐‘ง)) โ†” (๐ทโ€˜๐ธ) = (๐น ยท (๐ทโ€˜๐‘ง))))
2522, 24imbi12d 344 . . . . . . 7 (๐‘ฆ = ๐น โ†’ ((((๐ธ โ†พ ({๐‘ค} ร— ๐‘)) = ((({๐‘ค} ร— ๐‘) ร— {๐‘ฆ}) โˆ˜f ยท (๐‘ง โ†พ ({๐‘ค} ร— ๐‘))) โˆง (๐ธ โ†พ ((๐‘ โˆ– {๐‘ค}) ร— ๐‘)) = (๐‘ง โ†พ ((๐‘ โˆ– {๐‘ค}) ร— ๐‘))) โ†’ (๐ทโ€˜๐ธ) = (๐‘ฆ ยท (๐ทโ€˜๐‘ง))) โ†” (((๐ธ โ†พ ({๐‘ค} ร— ๐‘)) = ((({๐‘ค} ร— ๐‘) ร— {๐น}) โˆ˜f ยท (๐‘ง โ†พ ({๐‘ค} ร— ๐‘))) โˆง (๐ธ โ†พ ((๐‘ โˆ– {๐‘ค}) ร— ๐‘)) = (๐‘ง โ†พ ((๐‘ โˆ– {๐‘ค}) ร— ๐‘))) โ†’ (๐ทโ€˜๐ธ) = (๐น ยท (๐ทโ€˜๐‘ง)))))
26252ralbidv 3218 . . . . . 6 (๐‘ฆ = ๐น โ†’ (โˆ€๐‘ง โˆˆ ๐ต โˆ€๐‘ค โˆˆ ๐‘ (((๐ธ โ†พ ({๐‘ค} ร— ๐‘)) = ((({๐‘ค} ร— ๐‘) ร— {๐‘ฆ}) โˆ˜f ยท (๐‘ง โ†พ ({๐‘ค} ร— ๐‘))) โˆง (๐ธ โ†พ ((๐‘ โˆ– {๐‘ค}) ร— ๐‘)) = (๐‘ง โ†พ ((๐‘ โˆ– {๐‘ค}) ร— ๐‘))) โ†’ (๐ทโ€˜๐ธ) = (๐‘ฆ ยท (๐ทโ€˜๐‘ง))) โ†” โˆ€๐‘ง โˆˆ ๐ต โˆ€๐‘ค โˆˆ ๐‘ (((๐ธ โ†พ ({๐‘ค} ร— ๐‘)) = ((({๐‘ค} ร— ๐‘) ร— {๐น}) โˆ˜f ยท (๐‘ง โ†พ ({๐‘ค} ร— ๐‘))) โˆง (๐ธ โ†พ ((๐‘ โˆ– {๐‘ค}) ร— ๐‘)) = (๐‘ง โ†พ ((๐‘ โˆ– {๐‘ค}) ร— ๐‘))) โ†’ (๐ทโ€˜๐ธ) = (๐น ยท (๐ทโ€˜๐‘ง)))))
2717, 26rspc2va 3622 . . . . 5 (((๐ธ โˆˆ ๐ต โˆง ๐น โˆˆ ๐พ) โˆง โˆ€๐‘ฅ โˆˆ ๐ต โˆ€๐‘ฆ โˆˆ ๐พ โˆ€๐‘ง โˆˆ ๐ต โˆ€๐‘ค โˆˆ ๐‘ (((๐‘ฅ โ†พ ({๐‘ค} ร— ๐‘)) = ((({๐‘ค} ร— ๐‘) ร— {๐‘ฆ}) โˆ˜f ยท (๐‘ง โ†พ ({๐‘ค} ร— ๐‘))) โˆง (๐‘ฅ โ†พ ((๐‘ โˆ– {๐‘ค}) ร— ๐‘)) = (๐‘ง โ†พ ((๐‘ โˆ– {๐‘ค}) ร— ๐‘))) โ†’ (๐ทโ€˜๐‘ฅ) = (๐‘ฆ ยท (๐ทโ€˜๐‘ง)))) โ†’ โˆ€๐‘ง โˆˆ ๐ต โˆ€๐‘ค โˆˆ ๐‘ (((๐ธ โ†พ ({๐‘ค} ร— ๐‘)) = ((({๐‘ค} ร— ๐‘) ร— {๐น}) โˆ˜f ยท (๐‘ง โ†พ ({๐‘ค} ร— ๐‘))) โˆง (๐ธ โ†พ ((๐‘ โˆ– {๐‘ค}) ร— ๐‘)) = (๐‘ง โ†พ ((๐‘ โˆ– {๐‘ค}) ร— ๐‘))) โ†’ (๐ทโ€˜๐ธ) = (๐น ยท (๐ทโ€˜๐‘ง))))
286, 7, 9, 27syl21anc 836 . . . 4 ((๐œ‘ โˆง (๐ธ โˆˆ ๐ต โˆง ๐น โˆˆ ๐พ โˆง ๐บ โˆˆ ๐ต) โˆง ๐ป โˆˆ ๐‘) โ†’ โˆ€๐‘ง โˆˆ ๐ต โˆ€๐‘ค โˆˆ ๐‘ (((๐ธ โ†พ ({๐‘ค} ร— ๐‘)) = ((({๐‘ค} ร— ๐‘) ร— {๐น}) โˆ˜f ยท (๐‘ง โ†พ ({๐‘ค} ร— ๐‘))) โˆง (๐ธ โ†พ ((๐‘ โˆ– {๐‘ค}) ร— ๐‘)) = (๐‘ง โ†พ ((๐‘ โˆ– {๐‘ค}) ร— ๐‘))) โ†’ (๐ทโ€˜๐ธ) = (๐น ยท (๐ทโ€˜๐‘ง))))
29 reseq1 5973 . . . . . . . . 9 (๐‘ง = ๐บ โ†’ (๐‘ง โ†พ ({๐‘ค} ร— ๐‘)) = (๐บ โ†พ ({๐‘ค} ร— ๐‘)))
3029oveq2d 7421 . . . . . . . 8 (๐‘ง = ๐บ โ†’ ((({๐‘ค} ร— ๐‘) ร— {๐น}) โˆ˜f ยท (๐‘ง โ†พ ({๐‘ค} ร— ๐‘))) = ((({๐‘ค} ร— ๐‘) ร— {๐น}) โˆ˜f ยท (๐บ โ†พ ({๐‘ค} ร— ๐‘))))
3130eqeq2d 2743 . . . . . . 7 (๐‘ง = ๐บ โ†’ ((๐ธ โ†พ ({๐‘ค} ร— ๐‘)) = ((({๐‘ค} ร— ๐‘) ร— {๐น}) โˆ˜f ยท (๐‘ง โ†พ ({๐‘ค} ร— ๐‘))) โ†” (๐ธ โ†พ ({๐‘ค} ร— ๐‘)) = ((({๐‘ค} ร— ๐‘) ร— {๐น}) โˆ˜f ยท (๐บ โ†พ ({๐‘ค} ร— ๐‘)))))
32 reseq1 5973 . . . . . . . 8 (๐‘ง = ๐บ โ†’ (๐‘ง โ†พ ((๐‘ โˆ– {๐‘ค}) ร— ๐‘)) = (๐บ โ†พ ((๐‘ โˆ– {๐‘ค}) ร— ๐‘)))
3332eqeq2d 2743 . . . . . . 7 (๐‘ง = ๐บ โ†’ ((๐ธ โ†พ ((๐‘ โˆ– {๐‘ค}) ร— ๐‘)) = (๐‘ง โ†พ ((๐‘ โˆ– {๐‘ค}) ร— ๐‘)) โ†” (๐ธ โ†พ ((๐‘ โˆ– {๐‘ค}) ร— ๐‘)) = (๐บ โ†พ ((๐‘ โˆ– {๐‘ค}) ร— ๐‘))))
3431, 33anbi12d 631 . . . . . 6 (๐‘ง = ๐บ โ†’ (((๐ธ โ†พ ({๐‘ค} ร— ๐‘)) = ((({๐‘ค} ร— ๐‘) ร— {๐น}) โˆ˜f ยท (๐‘ง โ†พ ({๐‘ค} ร— ๐‘))) โˆง (๐ธ โ†พ ((๐‘ โˆ– {๐‘ค}) ร— ๐‘)) = (๐‘ง โ†พ ((๐‘ โˆ– {๐‘ค}) ร— ๐‘))) โ†” ((๐ธ โ†พ ({๐‘ค} ร— ๐‘)) = ((({๐‘ค} ร— ๐‘) ร— {๐น}) โˆ˜f ยท (๐บ โ†พ ({๐‘ค} ร— ๐‘))) โˆง (๐ธ โ†พ ((๐‘ โˆ– {๐‘ค}) ร— ๐‘)) = (๐บ โ†พ ((๐‘ โˆ– {๐‘ค}) ร— ๐‘)))))
35 fveq2 6888 . . . . . . . 8 (๐‘ง = ๐บ โ†’ (๐ทโ€˜๐‘ง) = (๐ทโ€˜๐บ))
3635oveq2d 7421 . . . . . . 7 (๐‘ง = ๐บ โ†’ (๐น ยท (๐ทโ€˜๐‘ง)) = (๐น ยท (๐ทโ€˜๐บ)))
3736eqeq2d 2743 . . . . . 6 (๐‘ง = ๐บ โ†’ ((๐ทโ€˜๐ธ) = (๐น ยท (๐ทโ€˜๐‘ง)) โ†” (๐ทโ€˜๐ธ) = (๐น ยท (๐ทโ€˜๐บ))))
3834, 37imbi12d 344 . . . . 5 (๐‘ง = ๐บ โ†’ ((((๐ธ โ†พ ({๐‘ค} ร— ๐‘)) = ((({๐‘ค} ร— ๐‘) ร— {๐น}) โˆ˜f ยท (๐‘ง โ†พ ({๐‘ค} ร— ๐‘))) โˆง (๐ธ โ†พ ((๐‘ โˆ– {๐‘ค}) ร— ๐‘)) = (๐‘ง โ†พ ((๐‘ โˆ– {๐‘ค}) ร— ๐‘))) โ†’ (๐ทโ€˜๐ธ) = (๐น ยท (๐ทโ€˜๐‘ง))) โ†” (((๐ธ โ†พ ({๐‘ค} ร— ๐‘)) = ((({๐‘ค} ร— ๐‘) ร— {๐น}) โˆ˜f ยท (๐บ โ†พ ({๐‘ค} ร— ๐‘))) โˆง (๐ธ โ†พ ((๐‘ โˆ– {๐‘ค}) ร— ๐‘)) = (๐บ โ†พ ((๐‘ โˆ– {๐‘ค}) ร— ๐‘))) โ†’ (๐ทโ€˜๐ธ) = (๐น ยท (๐ทโ€˜๐บ)))))
39 sneq 4637 . . . . . . . . . 10 (๐‘ค = ๐ป โ†’ {๐‘ค} = {๐ป})
4039xpeq1d 5704 . . . . . . . . 9 (๐‘ค = ๐ป โ†’ ({๐‘ค} ร— ๐‘) = ({๐ป} ร— ๐‘))
4140reseq2d 5979 . . . . . . . 8 (๐‘ค = ๐ป โ†’ (๐ธ โ†พ ({๐‘ค} ร— ๐‘)) = (๐ธ โ†พ ({๐ป} ร— ๐‘)))
4240xpeq1d 5704 . . . . . . . . 9 (๐‘ค = ๐ป โ†’ (({๐‘ค} ร— ๐‘) ร— {๐น}) = (({๐ป} ร— ๐‘) ร— {๐น}))
4340reseq2d 5979 . . . . . . . . 9 (๐‘ค = ๐ป โ†’ (๐บ โ†พ ({๐‘ค} ร— ๐‘)) = (๐บ โ†พ ({๐ป} ร— ๐‘)))
4442, 43oveq12d 7423 . . . . . . . 8 (๐‘ค = ๐ป โ†’ ((({๐‘ค} ร— ๐‘) ร— {๐น}) โˆ˜f ยท (๐บ โ†พ ({๐‘ค} ร— ๐‘))) = ((({๐ป} ร— ๐‘) ร— {๐น}) โˆ˜f ยท (๐บ โ†พ ({๐ป} ร— ๐‘))))
4541, 44eqeq12d 2748 . . . . . . 7 (๐‘ค = ๐ป โ†’ ((๐ธ โ†พ ({๐‘ค} ร— ๐‘)) = ((({๐‘ค} ร— ๐‘) ร— {๐น}) โˆ˜f ยท (๐บ โ†พ ({๐‘ค} ร— ๐‘))) โ†” (๐ธ โ†พ ({๐ป} ร— ๐‘)) = ((({๐ป} ร— ๐‘) ร— {๐น}) โˆ˜f ยท (๐บ โ†พ ({๐ป} ร— ๐‘)))))
4639difeq2d 4121 . . . . . . . . . 10 (๐‘ค = ๐ป โ†’ (๐‘ โˆ– {๐‘ค}) = (๐‘ โˆ– {๐ป}))
4746xpeq1d 5704 . . . . . . . . 9 (๐‘ค = ๐ป โ†’ ((๐‘ โˆ– {๐‘ค}) ร— ๐‘) = ((๐‘ โˆ– {๐ป}) ร— ๐‘))
4847reseq2d 5979 . . . . . . . 8 (๐‘ค = ๐ป โ†’ (๐ธ โ†พ ((๐‘ โˆ– {๐‘ค}) ร— ๐‘)) = (๐ธ โ†พ ((๐‘ โˆ– {๐ป}) ร— ๐‘)))
4947reseq2d 5979 . . . . . . . 8 (๐‘ค = ๐ป โ†’ (๐บ โ†พ ((๐‘ โˆ– {๐‘ค}) ร— ๐‘)) = (๐บ โ†พ ((๐‘ โˆ– {๐ป}) ร— ๐‘)))
5048, 49eqeq12d 2748 . . . . . . 7 (๐‘ค = ๐ป โ†’ ((๐ธ โ†พ ((๐‘ โˆ– {๐‘ค}) ร— ๐‘)) = (๐บ โ†พ ((๐‘ โˆ– {๐‘ค}) ร— ๐‘)) โ†” (๐ธ โ†พ ((๐‘ โˆ– {๐ป}) ร— ๐‘)) = (๐บ โ†พ ((๐‘ โˆ– {๐ป}) ร— ๐‘))))
5145, 50anbi12d 631 . . . . . 6 (๐‘ค = ๐ป โ†’ (((๐ธ โ†พ ({๐‘ค} ร— ๐‘)) = ((({๐‘ค} ร— ๐‘) ร— {๐น}) โˆ˜f ยท (๐บ โ†พ ({๐‘ค} ร— ๐‘))) โˆง (๐ธ โ†พ ((๐‘ โˆ– {๐‘ค}) ร— ๐‘)) = (๐บ โ†พ ((๐‘ โˆ– {๐‘ค}) ร— ๐‘))) โ†” ((๐ธ โ†พ ({๐ป} ร— ๐‘)) = ((({๐ป} ร— ๐‘) ร— {๐น}) โˆ˜f ยท (๐บ โ†พ ({๐ป} ร— ๐‘))) โˆง (๐ธ โ†พ ((๐‘ โˆ– {๐ป}) ร— ๐‘)) = (๐บ โ†พ ((๐‘ โˆ– {๐ป}) ร— ๐‘)))))
5251imbi1d 341 . . . . 5 (๐‘ค = ๐ป โ†’ ((((๐ธ โ†พ ({๐‘ค} ร— ๐‘)) = ((({๐‘ค} ร— ๐‘) ร— {๐น}) โˆ˜f ยท (๐บ โ†พ ({๐‘ค} ร— ๐‘))) โˆง (๐ธ โ†พ ((๐‘ โˆ– {๐‘ค}) ร— ๐‘)) = (๐บ โ†พ ((๐‘ โˆ– {๐‘ค}) ร— ๐‘))) โ†’ (๐ทโ€˜๐ธ) = (๐น ยท (๐ทโ€˜๐บ))) โ†” (((๐ธ โ†พ ({๐ป} ร— ๐‘)) = ((({๐ป} ร— ๐‘) ร— {๐น}) โˆ˜f ยท (๐บ โ†พ ({๐ป} ร— ๐‘))) โˆง (๐ธ โ†พ ((๐‘ โˆ– {๐ป}) ร— ๐‘)) = (๐บ โ†พ ((๐‘ โˆ– {๐ป}) ร— ๐‘))) โ†’ (๐ทโ€˜๐ธ) = (๐น ยท (๐ทโ€˜๐บ)))))
5338, 52rspc2va 3622 . . . 4 (((๐บ โˆˆ ๐ต โˆง ๐ป โˆˆ ๐‘) โˆง โˆ€๐‘ง โˆˆ ๐ต โˆ€๐‘ค โˆˆ ๐‘ (((๐ธ โ†พ ({๐‘ค} ร— ๐‘)) = ((({๐‘ค} ร— ๐‘) ร— {๐น}) โˆ˜f ยท (๐‘ง โ†พ ({๐‘ค} ร— ๐‘))) โˆง (๐ธ โ†พ ((๐‘ โˆ– {๐‘ค}) ร— ๐‘)) = (๐‘ง โ†พ ((๐‘ โˆ– {๐‘ค}) ร— ๐‘))) โ†’ (๐ทโ€˜๐ธ) = (๐น ยท (๐ทโ€˜๐‘ง)))) โ†’ (((๐ธ โ†พ ({๐ป} ร— ๐‘)) = ((({๐ป} ร— ๐‘) ร— {๐น}) โˆ˜f ยท (๐บ โ†พ ({๐ป} ร— ๐‘))) โˆง (๐ธ โ†พ ((๐‘ โˆ– {๐ป}) ร— ๐‘)) = (๐บ โ†พ ((๐‘ โˆ– {๐ป}) ร— ๐‘))) โ†’ (๐ทโ€˜๐ธ) = (๐น ยท (๐ทโ€˜๐บ))))
544, 5, 28, 53syl21anc 836 . . 3 ((๐œ‘ โˆง (๐ธ โˆˆ ๐ต โˆง ๐น โˆˆ ๐พ โˆง ๐บ โˆˆ ๐ต) โˆง ๐ป โˆˆ ๐‘) โ†’ (((๐ธ โ†พ ({๐ป} ร— ๐‘)) = ((({๐ป} ร— ๐‘) ร— {๐น}) โˆ˜f ยท (๐บ โ†พ ({๐ป} ร— ๐‘))) โˆง (๐ธ โ†พ ((๐‘ โˆ– {๐ป}) ร— ๐‘)) = (๐บ โ†พ ((๐‘ โˆ– {๐ป}) ร— ๐‘))) โ†’ (๐ทโ€˜๐ธ) = (๐น ยท (๐ทโ€˜๐บ))))
553, 54syl3an3 1165 . 2 ((๐œ‘ โˆง (๐ธ โˆˆ ๐ต โˆง ๐น โˆˆ ๐พ โˆง ๐บ โˆˆ ๐ต) โˆง (๐ป โˆˆ ๐‘ โˆง (๐ธ โ†พ ({๐ป} ร— ๐‘)) = ((({๐ป} ร— ๐‘) ร— {๐น}) โˆ˜f ยท (๐บ โ†พ ({๐ป} ร— ๐‘))) โˆง (๐ธ โ†พ ((๐‘ โˆ– {๐ป}) ร— ๐‘)) = (๐บ โ†พ ((๐‘ โˆ– {๐ป}) ร— ๐‘)))) โ†’ (((๐ธ โ†พ ({๐ป} ร— ๐‘)) = ((({๐ป} ร— ๐‘) ร— {๐น}) โˆ˜f ยท (๐บ โ†พ ({๐ป} ร— ๐‘))) โˆง (๐ธ โ†พ ((๐‘ โˆ– {๐ป}) ร— ๐‘)) = (๐บ โ†พ ((๐‘ โˆ– {๐ป}) ร— ๐‘))) โ†’ (๐ทโ€˜๐ธ) = (๐น ยท (๐ทโ€˜๐บ))))
561, 2, 55mp2and 697 1 ((๐œ‘ โˆง (๐ธ โˆˆ ๐ต โˆง ๐น โˆˆ ๐พ โˆง ๐บ โˆˆ ๐ต) โˆง (๐ป โˆˆ ๐‘ โˆง (๐ธ โ†พ ({๐ป} ร— ๐‘)) = ((({๐ป} ร— ๐‘) ร— {๐น}) โˆ˜f ยท (๐บ โ†พ ({๐ป} ร— ๐‘))) โˆง (๐ธ โ†พ ((๐‘ โˆ– {๐ป}) ร— ๐‘)) = (๐บ โ†พ ((๐‘ โˆ– {๐ป}) ร— ๐‘)))) โ†’ (๐ทโ€˜๐ธ) = (๐น ยท (๐ทโ€˜๐บ)))
Colors of variables: wff setvar class
Syntax hints:   โ†’ wi 4   โˆง wa 396   โˆง w3a 1087   = wceq 1541   โˆˆ wcel 2106   โ‰  wne 2940  โˆ€wral 3061   โˆ– cdif 3944  {csn 4627   ร— cxp 5673   โ†พ cres 5677  โŸถwf 6536  โ€˜cfv 6540  (class class class)co 7405   โˆ˜f cof 7664  Fincfn 8935  Basecbs 17140  +gcplusg 17193  .rcmulr 17194  0gc0g 17381  1rcur 19998  Ringcrg 20049   Mat cmat 21898
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1797  ax-4 1811  ax-5 1913  ax-6 1971  ax-7 2011  ax-8 2108  ax-9 2116  ax-ext 2703
This theorem depends on definitions:  df-bi 206  df-an 397  df-or 846  df-3an 1089  df-tru 1544  df-fal 1554  df-ex 1782  df-sb 2068  df-clab 2710  df-cleq 2724  df-clel 2810  df-ral 3062  df-rab 3433  df-v 3476  df-dif 3950  df-un 3952  df-in 3954  df-ss 3964  df-nul 4322  df-if 4528  df-sn 4628  df-pr 4630  df-op 4634  df-uni 4908  df-br 5148  df-opab 5210  df-xp 5681  df-res 5687  df-iota 6492  df-fv 6548  df-ov 7408
This theorem is referenced by:  mdetuni0  22114
  Copyright terms: Public domain W3C validator