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

Theorem mamulid 21044
Description: The identity matrix (as operation in maps-to notation) is a left identity (for any matrix with the same number of rows). (Contributed by Stefan O'Rear, 3-Sep-2015.) (Proof shortened by AV, 22-Jul-2019.)
Hypotheses
Ref Expression
mamumat1cl.b 𝐵 = (Base‘𝑅)
mamumat1cl.r (𝜑𝑅 ∈ Ring)
mamumat1cl.o 1 = (1r𝑅)
mamumat1cl.z 0 = (0g𝑅)
mamumat1cl.i 𝐼 = (𝑖𝑀, 𝑗𝑀 ↦ if(𝑖 = 𝑗, 1 , 0 ))
mamumat1cl.m (𝜑𝑀 ∈ Fin)
mamulid.n (𝜑𝑁 ∈ Fin)
mamulid.f 𝐹 = (𝑅 maMul ⟨𝑀, 𝑀, 𝑁⟩)
mamulid.x (𝜑𝑋 ∈ (𝐵m (𝑀 × 𝑁)))
Assertion
Ref Expression
mamulid (𝜑 → (𝐼𝐹𝑋) = 𝑋)
Distinct variable groups:   𝑖,𝑗,𝐵   𝑖,𝑀,𝑗   𝜑,𝑖,𝑗   0 ,𝑖,𝑗   1 ,𝑖,𝑗
Allowed substitution hints:   𝑅(𝑖,𝑗)   𝐹(𝑖,𝑗)   𝐼(𝑖,𝑗)   𝑁(𝑖,𝑗)   𝑋(𝑖,𝑗)

Proof of Theorem mamulid
Dummy variables 𝑘 𝑙 𝑚 are mutually distinct and distinct from all other variables.
StepHypRef Expression
1 mamulid.f . . . . 5 𝐹 = (𝑅 maMul ⟨𝑀, 𝑀, 𝑁⟩)
2 mamumat1cl.b . . . . 5 𝐵 = (Base‘𝑅)
3 eqid 2821 . . . . 5 (.r𝑅) = (.r𝑅)
4 mamumat1cl.r . . . . . 6 (𝜑𝑅 ∈ Ring)
54adantr 483 . . . . 5 ((𝜑 ∧ (𝑙𝑀𝑘𝑁)) → 𝑅 ∈ Ring)
6 mamumat1cl.m . . . . . 6 (𝜑𝑀 ∈ Fin)
76adantr 483 . . . . 5 ((𝜑 ∧ (𝑙𝑀𝑘𝑁)) → 𝑀 ∈ Fin)
8 mamulid.n . . . . . 6 (𝜑𝑁 ∈ Fin)
98adantr 483 . . . . 5 ((𝜑 ∧ (𝑙𝑀𝑘𝑁)) → 𝑁 ∈ Fin)
10 mamumat1cl.o . . . . . . 7 1 = (1r𝑅)
11 mamumat1cl.z . . . . . . 7 0 = (0g𝑅)
12 mamumat1cl.i . . . . . . 7 𝐼 = (𝑖𝑀, 𝑗𝑀 ↦ if(𝑖 = 𝑗, 1 , 0 ))
132, 4, 10, 11, 12, 6mamumat1cl 21042 . . . . . 6 (𝜑𝐼 ∈ (𝐵m (𝑀 × 𝑀)))
1413adantr 483 . . . . 5 ((𝜑 ∧ (𝑙𝑀𝑘𝑁)) → 𝐼 ∈ (𝐵m (𝑀 × 𝑀)))
15 mamulid.x . . . . . 6 (𝜑𝑋 ∈ (𝐵m (𝑀 × 𝑁)))
1615adantr 483 . . . . 5 ((𝜑 ∧ (𝑙𝑀𝑘𝑁)) → 𝑋 ∈ (𝐵m (𝑀 × 𝑁)))
17 simprl 769 . . . . 5 ((𝜑 ∧ (𝑙𝑀𝑘𝑁)) → 𝑙𝑀)
18 simprr 771 . . . . 5 ((𝜑 ∧ (𝑙𝑀𝑘𝑁)) → 𝑘𝑁)
191, 2, 3, 5, 7, 7, 9, 14, 16, 17, 18mamufv 20992 . . . 4 ((𝜑 ∧ (𝑙𝑀𝑘𝑁)) → (𝑙(𝐼𝐹𝑋)𝑘) = (𝑅 Σg (𝑚𝑀 ↦ ((𝑙𝐼𝑚)(.r𝑅)(𝑚𝑋𝑘)))))
20 ringmnd 19300 . . . . . 6 (𝑅 ∈ Ring → 𝑅 ∈ Mnd)
215, 20syl 17 . . . . 5 ((𝜑 ∧ (𝑙𝑀𝑘𝑁)) → 𝑅 ∈ Mnd)
224ad2antrr 724 . . . . . . 7 (((𝜑 ∧ (𝑙𝑀𝑘𝑁)) ∧ 𝑚𝑀) → 𝑅 ∈ Ring)
23 elmapi 8422 . . . . . . . . . 10 (𝐼 ∈ (𝐵m (𝑀 × 𝑀)) → 𝐼:(𝑀 × 𝑀)⟶𝐵)
2413, 23syl 17 . . . . . . . . 9 (𝜑𝐼:(𝑀 × 𝑀)⟶𝐵)
2524ad2antrr 724 . . . . . . . 8 (((𝜑 ∧ (𝑙𝑀𝑘𝑁)) ∧ 𝑚𝑀) → 𝐼:(𝑀 × 𝑀)⟶𝐵)
26 simplrl 775 . . . . . . . 8 (((𝜑 ∧ (𝑙𝑀𝑘𝑁)) ∧ 𝑚𝑀) → 𝑙𝑀)
27 simpr 487 . . . . . . . 8 (((𝜑 ∧ (𝑙𝑀𝑘𝑁)) ∧ 𝑚𝑀) → 𝑚𝑀)
2825, 26, 27fovrnd 7314 . . . . . . 7 (((𝜑 ∧ (𝑙𝑀𝑘𝑁)) ∧ 𝑚𝑀) → (𝑙𝐼𝑚) ∈ 𝐵)
29 elmapi 8422 . . . . . . . . . 10 (𝑋 ∈ (𝐵m (𝑀 × 𝑁)) → 𝑋:(𝑀 × 𝑁)⟶𝐵)
3015, 29syl 17 . . . . . . . . 9 (𝜑𝑋:(𝑀 × 𝑁)⟶𝐵)
3130ad2antrr 724 . . . . . . . 8 (((𝜑 ∧ (𝑙𝑀𝑘𝑁)) ∧ 𝑚𝑀) → 𝑋:(𝑀 × 𝑁)⟶𝐵)
32 simplrr 776 . . . . . . . 8 (((𝜑 ∧ (𝑙𝑀𝑘𝑁)) ∧ 𝑚𝑀) → 𝑘𝑁)
3331, 27, 32fovrnd 7314 . . . . . . 7 (((𝜑 ∧ (𝑙𝑀𝑘𝑁)) ∧ 𝑚𝑀) → (𝑚𝑋𝑘) ∈ 𝐵)
342, 3ringcl 19305 . . . . . . 7 ((𝑅 ∈ Ring ∧ (𝑙𝐼𝑚) ∈ 𝐵 ∧ (𝑚𝑋𝑘) ∈ 𝐵) → ((𝑙𝐼𝑚)(.r𝑅)(𝑚𝑋𝑘)) ∈ 𝐵)
3522, 28, 33, 34syl3anc 1367 . . . . . 6 (((𝜑 ∧ (𝑙𝑀𝑘𝑁)) ∧ 𝑚𝑀) → ((𝑙𝐼𝑚)(.r𝑅)(𝑚𝑋𝑘)) ∈ 𝐵)
3635fmpttd 6873 . . . . 5 ((𝜑 ∧ (𝑙𝑀𝑘𝑁)) → (𝑚𝑀 ↦ ((𝑙𝐼𝑚)(.r𝑅)(𝑚𝑋𝑘))):𝑀𝐵)
37263adant3 1128 . . . . . . . . . 10 (((𝜑 ∧ (𝑙𝑀𝑘𝑁)) ∧ 𝑚𝑀𝑚𝑙) → 𝑙𝑀)
38 simp2 1133 . . . . . . . . . 10 (((𝜑 ∧ (𝑙𝑀𝑘𝑁)) ∧ 𝑚𝑀𝑚𝑙) → 𝑚𝑀)
392, 4, 10, 11, 12, 6mat1comp 21043 . . . . . . . . . . 11 ((𝑙𝑀𝑚𝑀) → (𝑙𝐼𝑚) = if(𝑙 = 𝑚, 1 , 0 ))
40 equcom 2021 . . . . . . . . . . . . 13 (𝑙 = 𝑚𝑚 = 𝑙)
4140a1i 11 . . . . . . . . . . . 12 ((𝑙𝑀𝑚𝑀) → (𝑙 = 𝑚𝑚 = 𝑙))
4241ifbid 4488 . . . . . . . . . . 11 ((𝑙𝑀𝑚𝑀) → if(𝑙 = 𝑚, 1 , 0 ) = if(𝑚 = 𝑙, 1 , 0 ))
4339, 42eqtrd 2856 . . . . . . . . . 10 ((𝑙𝑀𝑚𝑀) → (𝑙𝐼𝑚) = if(𝑚 = 𝑙, 1 , 0 ))
4437, 38, 43syl2anc 586 . . . . . . . . 9 (((𝜑 ∧ (𝑙𝑀𝑘𝑁)) ∧ 𝑚𝑀𝑚𝑙) → (𝑙𝐼𝑚) = if(𝑚 = 𝑙, 1 , 0 ))
45 ifnefalse 4478 . . . . . . . . . 10 (𝑚𝑙 → if(𝑚 = 𝑙, 1 , 0 ) = 0 )
46453ad2ant3 1131 . . . . . . . . 9 (((𝜑 ∧ (𝑙𝑀𝑘𝑁)) ∧ 𝑚𝑀𝑚𝑙) → if(𝑚 = 𝑙, 1 , 0 ) = 0 )
4744, 46eqtrd 2856 . . . . . . . 8 (((𝜑 ∧ (𝑙𝑀𝑘𝑁)) ∧ 𝑚𝑀𝑚𝑙) → (𝑙𝐼𝑚) = 0 )
4847oveq1d 7165 . . . . . . 7 (((𝜑 ∧ (𝑙𝑀𝑘𝑁)) ∧ 𝑚𝑀𝑚𝑙) → ((𝑙𝐼𝑚)(.r𝑅)(𝑚𝑋𝑘)) = ( 0 (.r𝑅)(𝑚𝑋𝑘)))
492, 3, 11ringlz 19331 . . . . . . . . 9 ((𝑅 ∈ Ring ∧ (𝑚𝑋𝑘) ∈ 𝐵) → ( 0 (.r𝑅)(𝑚𝑋𝑘)) = 0 )
5022, 33, 49syl2anc 586 . . . . . . . 8 (((𝜑 ∧ (𝑙𝑀𝑘𝑁)) ∧ 𝑚𝑀) → ( 0 (.r𝑅)(𝑚𝑋𝑘)) = 0 )
51503adant3 1128 . . . . . . 7 (((𝜑 ∧ (𝑙𝑀𝑘𝑁)) ∧ 𝑚𝑀𝑚𝑙) → ( 0 (.r𝑅)(𝑚𝑋𝑘)) = 0 )
5248, 51eqtrd 2856 . . . . . 6 (((𝜑 ∧ (𝑙𝑀𝑘𝑁)) ∧ 𝑚𝑀𝑚𝑙) → ((𝑙𝐼𝑚)(.r𝑅)(𝑚𝑋𝑘)) = 0 )
5352, 7suppsssn 7859 . . . . 5 ((𝜑 ∧ (𝑙𝑀𝑘𝑁)) → ((𝑚𝑀 ↦ ((𝑙𝐼𝑚)(.r𝑅)(𝑚𝑋𝑘))) supp 0 ) ⊆ {𝑙})
542, 11, 21, 7, 17, 36, 53gsumpt 19076 . . . 4 ((𝜑 ∧ (𝑙𝑀𝑘𝑁)) → (𝑅 Σg (𝑚𝑀 ↦ ((𝑙𝐼𝑚)(.r𝑅)(𝑚𝑋𝑘)))) = ((𝑚𝑀 ↦ ((𝑙𝐼𝑚)(.r𝑅)(𝑚𝑋𝑘)))‘𝑙))
55 oveq2 7158 . . . . . . . 8 (𝑚 = 𝑙 → (𝑙𝐼𝑚) = (𝑙𝐼𝑙))
56 oveq1 7157 . . . . . . . 8 (𝑚 = 𝑙 → (𝑚𝑋𝑘) = (𝑙𝑋𝑘))
5755, 56oveq12d 7168 . . . . . . 7 (𝑚 = 𝑙 → ((𝑙𝐼𝑚)(.r𝑅)(𝑚𝑋𝑘)) = ((𝑙𝐼𝑙)(.r𝑅)(𝑙𝑋𝑘)))
58 eqid 2821 . . . . . . 7 (𝑚𝑀 ↦ ((𝑙𝐼𝑚)(.r𝑅)(𝑚𝑋𝑘))) = (𝑚𝑀 ↦ ((𝑙𝐼𝑚)(.r𝑅)(𝑚𝑋𝑘)))
59 ovex 7183 . . . . . . 7 ((𝑙𝐼𝑙)(.r𝑅)(𝑙𝑋𝑘)) ∈ V
6057, 58, 59fvmpt 6762 . . . . . 6 (𝑙𝑀 → ((𝑚𝑀 ↦ ((𝑙𝐼𝑚)(.r𝑅)(𝑚𝑋𝑘)))‘𝑙) = ((𝑙𝐼𝑙)(.r𝑅)(𝑙𝑋𝑘)))
6160ad2antrl 726 . . . . 5 ((𝜑 ∧ (𝑙𝑀𝑘𝑁)) → ((𝑚𝑀 ↦ ((𝑙𝐼𝑚)(.r𝑅)(𝑚𝑋𝑘)))‘𝑙) = ((𝑙𝐼𝑙)(.r𝑅)(𝑙𝑋𝑘)))
62 equequ1 2028 . . . . . . . . . 10 (𝑖 = 𝑙 → (𝑖 = 𝑗𝑙 = 𝑗))
6362ifbid 4488 . . . . . . . . 9 (𝑖 = 𝑙 → if(𝑖 = 𝑗, 1 , 0 ) = if(𝑙 = 𝑗, 1 , 0 ))
64 equequ2 2029 . . . . . . . . . . 11 (𝑗 = 𝑙 → (𝑙 = 𝑗𝑙 = 𝑙))
6564ifbid 4488 . . . . . . . . . 10 (𝑗 = 𝑙 → if(𝑙 = 𝑗, 1 , 0 ) = if(𝑙 = 𝑙, 1 , 0 ))
66 equid 2015 . . . . . . . . . . 11 𝑙 = 𝑙
6766iftruei 4473 . . . . . . . . . 10 if(𝑙 = 𝑙, 1 , 0 ) = 1
6865, 67syl6eq 2872 . . . . . . . . 9 (𝑗 = 𝑙 → if(𝑙 = 𝑗, 1 , 0 ) = 1 )
6910fvexi 6678 . . . . . . . . 9 1 ∈ V
7063, 68, 12, 69ovmpo 7304 . . . . . . . 8 ((𝑙𝑀𝑙𝑀) → (𝑙𝐼𝑙) = 1 )
7170anidms 569 . . . . . . 7 (𝑙𝑀 → (𝑙𝐼𝑙) = 1 )
7271ad2antrl 726 . . . . . 6 ((𝜑 ∧ (𝑙𝑀𝑘𝑁)) → (𝑙𝐼𝑙) = 1 )
7372oveq1d 7165 . . . . 5 ((𝜑 ∧ (𝑙𝑀𝑘𝑁)) → ((𝑙𝐼𝑙)(.r𝑅)(𝑙𝑋𝑘)) = ( 1 (.r𝑅)(𝑙𝑋𝑘)))
7430fovrnda 7313 . . . . . 6 ((𝜑 ∧ (𝑙𝑀𝑘𝑁)) → (𝑙𝑋𝑘) ∈ 𝐵)
752, 3, 10ringlidm 19315 . . . . . 6 ((𝑅 ∈ Ring ∧ (𝑙𝑋𝑘) ∈ 𝐵) → ( 1 (.r𝑅)(𝑙𝑋𝑘)) = (𝑙𝑋𝑘))
765, 74, 75syl2anc 586 . . . . 5 ((𝜑 ∧ (𝑙𝑀𝑘𝑁)) → ( 1 (.r𝑅)(𝑙𝑋𝑘)) = (𝑙𝑋𝑘))
7761, 73, 763eqtrd 2860 . . . 4 ((𝜑 ∧ (𝑙𝑀𝑘𝑁)) → ((𝑚𝑀 ↦ ((𝑙𝐼𝑚)(.r𝑅)(𝑚𝑋𝑘)))‘𝑙) = (𝑙𝑋𝑘))
7819, 54, 773eqtrd 2860 . . 3 ((𝜑 ∧ (𝑙𝑀𝑘𝑁)) → (𝑙(𝐼𝐹𝑋)𝑘) = (𝑙𝑋𝑘))
7978ralrimivva 3191 . 2 (𝜑 → ∀𝑙𝑀𝑘𝑁 (𝑙(𝐼𝐹𝑋)𝑘) = (𝑙𝑋𝑘))
802, 4, 1, 6, 6, 8, 13, 15mamucl 21004 . . . . 5 (𝜑 → (𝐼𝐹𝑋) ∈ (𝐵m (𝑀 × 𝑁)))
81 elmapi 8422 . . . . 5 ((𝐼𝐹𝑋) ∈ (𝐵m (𝑀 × 𝑁)) → (𝐼𝐹𝑋):(𝑀 × 𝑁)⟶𝐵)
8280, 81syl 17 . . . 4 (𝜑 → (𝐼𝐹𝑋):(𝑀 × 𝑁)⟶𝐵)
8382ffnd 6509 . . 3 (𝜑 → (𝐼𝐹𝑋) Fn (𝑀 × 𝑁))
8430ffnd 6509 . . 3 (𝜑𝑋 Fn (𝑀 × 𝑁))
85 eqfnov2 7275 . . 3 (((𝐼𝐹𝑋) Fn (𝑀 × 𝑁) ∧ 𝑋 Fn (𝑀 × 𝑁)) → ((𝐼𝐹𝑋) = 𝑋 ↔ ∀𝑙𝑀𝑘𝑁 (𝑙(𝐼𝐹𝑋)𝑘) = (𝑙𝑋𝑘)))
8683, 84, 85syl2anc 586 . 2 (𝜑 → ((𝐼𝐹𝑋) = 𝑋 ↔ ∀𝑙𝑀𝑘𝑁 (𝑙(𝐼𝐹𝑋)𝑘) = (𝑙𝑋𝑘)))
8779, 86mpbird 259 1 (𝜑 → (𝐼𝐹𝑋) = 𝑋)
Colors of variables: wff setvar class
Syntax hints:  wi 4  wb 208  wa 398  w3a 1083   = wceq 1533  wcel 2110  wne 3016  wral 3138  ifcif 4466  cotp 4568  cmpt 5138   × cxp 5547   Fn wfn 6344  wf 6345  cfv 6349  (class class class)co 7150  cmpo 7152  m cmap 8400  Fincfn 8503  Basecbs 16477  .rcmulr 16560  0gc0g 16707   Σg cgsu 16708  Mndcmnd 17905  1rcur 19245  Ringcrg 19291   maMul cmmul 20988
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1792  ax-4 1806  ax-5 1907  ax-6 1966  ax-7 2011  ax-8 2112  ax-9 2120  ax-10 2141  ax-11 2157  ax-12 2173  ax-ext 2793  ax-rep 5182  ax-sep 5195  ax-nul 5202  ax-pow 5258  ax-pr 5321  ax-un 7455  ax-cnex 10587  ax-resscn 10588  ax-1cn 10589  ax-icn 10590  ax-addcl 10591  ax-addrcl 10592  ax-mulcl 10593  ax-mulrcl 10594  ax-mulcom 10595  ax-addass 10596  ax-mulass 10597  ax-distr 10598  ax-i2m1 10599  ax-1ne0 10600  ax-1rid 10601  ax-rnegex 10602  ax-rrecex 10603  ax-cnre 10604  ax-pre-lttri 10605  ax-pre-lttrn 10606  ax-pre-ltadd 10607  ax-pre-mulgt0 10608
This theorem depends on definitions:  df-bi 209  df-an 399  df-or 844  df-3or 1084  df-3an 1085  df-tru 1536  df-ex 1777  df-nf 1781  df-sb 2066  df-mo 2618  df-eu 2650  df-clab 2800  df-cleq 2814  df-clel 2893  df-nfc 2963  df-ne 3017  df-nel 3124  df-ral 3143  df-rex 3144  df-reu 3145  df-rmo 3146  df-rab 3147  df-v 3496  df-sbc 3772  df-csb 3883  df-dif 3938  df-un 3940  df-in 3942  df-ss 3951  df-pss 3953  df-nul 4291  df-if 4467  df-pw 4540  df-sn 4561  df-pr 4563  df-tp 4565  df-op 4567  df-ot 4569  df-uni 4832  df-int 4869  df-iun 4913  df-iin 4914  df-br 5059  df-opab 5121  df-mpt 5139  df-tr 5165  df-id 5454  df-eprel 5459  df-po 5468  df-so 5469  df-fr 5508  df-se 5509  df-we 5510  df-xp 5555  df-rel 5556  df-cnv 5557  df-co 5558  df-dm 5559  df-rn 5560  df-res 5561  df-ima 5562  df-pred 6142  df-ord 6188  df-on 6189  df-lim 6190  df-suc 6191  df-iota 6308  df-fun 6351  df-fn 6352  df-f 6353  df-f1 6354  df-fo 6355  df-f1o 6356  df-fv 6357  df-isom 6358  df-riota 7108  df-ov 7153  df-oprab 7154  df-mpo 7155  df-om 7575  df-1st 7683  df-2nd 7684  df-supp 7825  df-wrecs 7941  df-recs 8002  df-rdg 8040  df-1o 8096  df-oadd 8100  df-er 8283  df-map 8402  df-en 8504  df-dom 8505  df-sdom 8506  df-fin 8507  df-fsupp 8828  df-oi 8968  df-card 9362  df-pnf 10671  df-mnf 10672  df-xr 10673  df-ltxr 10674  df-le 10675  df-sub 10866  df-neg 10867  df-nn 11633  df-2 11694  df-n0 11892  df-z 11976  df-uz 12238  df-fz 12887  df-fzo 13028  df-seq 13364  df-hash 13685  df-ndx 16480  df-slot 16481  df-base 16483  df-sets 16484  df-ress 16485  df-plusg 16572  df-0g 16709  df-gsum 16710  df-mre 16851  df-mrc 16852  df-acs 16854  df-mgm 17846  df-sgrp 17895  df-mnd 17906  df-submnd 17951  df-grp 18100  df-minusg 18101  df-mulg 18219  df-cntz 18441  df-cmn 18902  df-abl 18903  df-mgp 19234  df-ur 19246  df-ring 19293  df-mamu 20989
This theorem is referenced by:  matring  21046  mat1  21050
  Copyright terms: Public domain W3C validator