ILE Home Intuitionistic Logic Explorer < Previous   Next >
Nearby theorems
Mirrors  >  Home  >  ILE Home  >  Th. List  >  gsumwmhm GIF version

Theorem gsumwmhm 13140
Description: Behavior of homomorphisms on finite monoidal sums. (Contributed by Stefan O'Rear, 27-Aug-2015.)
Hypothesis
Ref Expression
gsumwmhm.b 𝐵 = (Base‘𝑀)
Assertion
Ref Expression
gsumwmhm ((𝐻 ∈ (𝑀 MndHom 𝑁) ∧ 𝑊 ∈ Word 𝐵) → (𝐻‘(𝑀 Σg 𝑊)) = (𝑁 Σg (𝐻𝑊)))

Proof of Theorem gsumwmhm
Dummy variables 𝑥 𝑦 𝑗 are mutually distinct and distinct from all other variables.
StepHypRef Expression
1 eqid 2196 . . . . 5 (0g𝑀) = (0g𝑀)
2 eqid 2196 . . . . 5 (0g𝑁) = (0g𝑁)
31, 2mhm0 13110 . . . 4 (𝐻 ∈ (𝑀 MndHom 𝑁) → (𝐻‘(0g𝑀)) = (0g𝑁))
43ad2antrr 488 . . 3 (((𝐻 ∈ (𝑀 MndHom 𝑁) ∧ 𝑊 ∈ Word 𝐵) ∧ 𝑊 = ∅) → (𝐻‘(0g𝑀)) = (0g𝑁))
5 oveq2 5931 . . . . . 6 (𝑊 = ∅ → (𝑀 Σg 𝑊) = (𝑀 Σg ∅))
65adantl 277 . . . . 5 (((𝐻 ∈ (𝑀 MndHom 𝑁) ∧ 𝑊 ∈ Word 𝐵) ∧ 𝑊 = ∅) → (𝑀 Σg 𝑊) = (𝑀 Σg ∅))
7 mhmrcl1 13105 . . . . . . 7 (𝐻 ∈ (𝑀 MndHom 𝑁) → 𝑀 ∈ Mnd)
87ad2antrr 488 . . . . . 6 (((𝐻 ∈ (𝑀 MndHom 𝑁) ∧ 𝑊 ∈ Word 𝐵) ∧ 𝑊 = ∅) → 𝑀 ∈ Mnd)
91gsum0g 13049 . . . . . 6 (𝑀 ∈ Mnd → (𝑀 Σg ∅) = (0g𝑀))
108, 9syl 14 . . . . 5 (((𝐻 ∈ (𝑀 MndHom 𝑁) ∧ 𝑊 ∈ Word 𝐵) ∧ 𝑊 = ∅) → (𝑀 Σg ∅) = (0g𝑀))
116, 10eqtrd 2229 . . . 4 (((𝐻 ∈ (𝑀 MndHom 𝑁) ∧ 𝑊 ∈ Word 𝐵) ∧ 𝑊 = ∅) → (𝑀 Σg 𝑊) = (0g𝑀))
1211fveq2d 5563 . . 3 (((𝐻 ∈ (𝑀 MndHom 𝑁) ∧ 𝑊 ∈ Word 𝐵) ∧ 𝑊 = ∅) → (𝐻‘(𝑀 Σg 𝑊)) = (𝐻‘(0g𝑀)))
13 coeq2 4825 . . . . . . 7 (𝑊 = ∅ → (𝐻𝑊) = (𝐻 ∘ ∅))
14 co02 5184 . . . . . . 7 (𝐻 ∘ ∅) = ∅
1513, 14eqtrdi 2245 . . . . . 6 (𝑊 = ∅ → (𝐻𝑊) = ∅)
1615oveq2d 5939 . . . . 5 (𝑊 = ∅ → (𝑁 Σg (𝐻𝑊)) = (𝑁 Σg ∅))
1716adantl 277 . . . 4 (((𝐻 ∈ (𝑀 MndHom 𝑁) ∧ 𝑊 ∈ Word 𝐵) ∧ 𝑊 = ∅) → (𝑁 Σg (𝐻𝑊)) = (𝑁 Σg ∅))
18 mhmrcl2 13106 . . . . . 6 (𝐻 ∈ (𝑀 MndHom 𝑁) → 𝑁 ∈ Mnd)
1918ad2antrr 488 . . . . 5 (((𝐻 ∈ (𝑀 MndHom 𝑁) ∧ 𝑊 ∈ Word 𝐵) ∧ 𝑊 = ∅) → 𝑁 ∈ Mnd)
202gsum0g 13049 . . . . 5 (𝑁 ∈ Mnd → (𝑁 Σg ∅) = (0g𝑁))
2119, 20syl 14 . . . 4 (((𝐻 ∈ (𝑀 MndHom 𝑁) ∧ 𝑊 ∈ Word 𝐵) ∧ 𝑊 = ∅) → (𝑁 Σg ∅) = (0g𝑁))
2217, 21eqtrd 2229 . . 3 (((𝐻 ∈ (𝑀 MndHom 𝑁) ∧ 𝑊 ∈ Word 𝐵) ∧ 𝑊 = ∅) → (𝑁 Σg (𝐻𝑊)) = (0g𝑁))
234, 12, 223eqtr4d 2239 . 2 (((𝐻 ∈ (𝑀 MndHom 𝑁) ∧ 𝑊 ∈ Word 𝐵) ∧ 𝑊 = ∅) → (𝐻‘(𝑀 Σg 𝑊)) = (𝑁 Σg (𝐻𝑊)))
247ad2antrr 488 . . . . 5 (((𝐻 ∈ (𝑀 MndHom 𝑁) ∧ 𝑊 ∈ Word 𝐵) ∧ 𝑊 ≠ ∅) → 𝑀 ∈ Mnd)
25 gsumwmhm.b . . . . . . 7 𝐵 = (Base‘𝑀)
26 eqid 2196 . . . . . . 7 (+g𝑀) = (+g𝑀)
2725, 26mndcl 13074 . . . . . 6 ((𝑀 ∈ Mnd ∧ 𝑥𝐵𝑦𝐵) → (𝑥(+g𝑀)𝑦) ∈ 𝐵)
28273expb 1206 . . . . 5 ((𝑀 ∈ Mnd ∧ (𝑥𝐵𝑦𝐵)) → (𝑥(+g𝑀)𝑦) ∈ 𝐵)
2924, 28sylan 283 . . . 4 ((((𝐻 ∈ (𝑀 MndHom 𝑁) ∧ 𝑊 ∈ Word 𝐵) ∧ 𝑊 ≠ ∅) ∧ (𝑥𝐵𝑦𝐵)) → (𝑥(+g𝑀)𝑦) ∈ 𝐵)
30 wrdf 10943 . . . . . . 7 (𝑊 ∈ Word 𝐵𝑊:(0..^(♯‘𝑊))⟶𝐵)
3130ad2antlr 489 . . . . . 6 (((𝐻 ∈ (𝑀 MndHom 𝑁) ∧ 𝑊 ∈ Word 𝐵) ∧ 𝑊 ≠ ∅) → 𝑊:(0..^(♯‘𝑊))⟶𝐵)
32 wrdfin 10956 . . . . . . . . . . . 12 (𝑊 ∈ Word 𝐵𝑊 ∈ Fin)
3332adantl 277 . . . . . . . . . . 11 ((𝐻 ∈ (𝑀 MndHom 𝑁) ∧ 𝑊 ∈ Word 𝐵) → 𝑊 ∈ Fin)
34 hashnncl 10889 . . . . . . . . . . 11 (𝑊 ∈ Fin → ((♯‘𝑊) ∈ ℕ ↔ 𝑊 ≠ ∅))
3533, 34syl 14 . . . . . . . . . 10 ((𝐻 ∈ (𝑀 MndHom 𝑁) ∧ 𝑊 ∈ Word 𝐵) → ((♯‘𝑊) ∈ ℕ ↔ 𝑊 ≠ ∅))
3635biimpar 297 . . . . . . . . 9 (((𝐻 ∈ (𝑀 MndHom 𝑁) ∧ 𝑊 ∈ Word 𝐵) ∧ 𝑊 ≠ ∅) → (♯‘𝑊) ∈ ℕ)
3736nnzd 9449 . . . . . . . 8 (((𝐻 ∈ (𝑀 MndHom 𝑁) ∧ 𝑊 ∈ Word 𝐵) ∧ 𝑊 ≠ ∅) → (♯‘𝑊) ∈ ℤ)
38 fzoval 10225 . . . . . . . 8 ((♯‘𝑊) ∈ ℤ → (0..^(♯‘𝑊)) = (0...((♯‘𝑊) − 1)))
3937, 38syl 14 . . . . . . 7 (((𝐻 ∈ (𝑀 MndHom 𝑁) ∧ 𝑊 ∈ Word 𝐵) ∧ 𝑊 ≠ ∅) → (0..^(♯‘𝑊)) = (0...((♯‘𝑊) − 1)))
4039feq2d 5396 . . . . . 6 (((𝐻 ∈ (𝑀 MndHom 𝑁) ∧ 𝑊 ∈ Word 𝐵) ∧ 𝑊 ≠ ∅) → (𝑊:(0..^(♯‘𝑊))⟶𝐵𝑊:(0...((♯‘𝑊) − 1))⟶𝐵))
4131, 40mpbid 147 . . . . 5 (((𝐻 ∈ (𝑀 MndHom 𝑁) ∧ 𝑊 ∈ Word 𝐵) ∧ 𝑊 ≠ ∅) → 𝑊:(0...((♯‘𝑊) − 1))⟶𝐵)
4241ffvelcdmda 5698 . . . 4 ((((𝐻 ∈ (𝑀 MndHom 𝑁) ∧ 𝑊 ∈ Word 𝐵) ∧ 𝑊 ≠ ∅) ∧ 𝑥 ∈ (0...((♯‘𝑊) − 1))) → (𝑊𝑥) ∈ 𝐵)
43 nnm1nn0 9292 . . . . . 6 ((♯‘𝑊) ∈ ℕ → ((♯‘𝑊) − 1) ∈ ℕ0)
4436, 43syl 14 . . . . 5 (((𝐻 ∈ (𝑀 MndHom 𝑁) ∧ 𝑊 ∈ Word 𝐵) ∧ 𝑊 ≠ ∅) → ((♯‘𝑊) − 1) ∈ ℕ0)
45 nn0uz 9638 . . . . 5 0 = (ℤ‘0)
4644, 45eleqtrdi 2289 . . . 4 (((𝐻 ∈ (𝑀 MndHom 𝑁) ∧ 𝑊 ∈ Word 𝐵) ∧ 𝑊 ≠ ∅) → ((♯‘𝑊) − 1) ∈ (ℤ‘0))
47 eqid 2196 . . . . . . 7 (+g𝑁) = (+g𝑁)
4825, 26, 47mhmlin 13109 . . . . . 6 ((𝐻 ∈ (𝑀 MndHom 𝑁) ∧ 𝑥𝐵𝑦𝐵) → (𝐻‘(𝑥(+g𝑀)𝑦)) = ((𝐻𝑥)(+g𝑁)(𝐻𝑦)))
49483expb 1206 . . . . 5 ((𝐻 ∈ (𝑀 MndHom 𝑁) ∧ (𝑥𝐵𝑦𝐵)) → (𝐻‘(𝑥(+g𝑀)𝑦)) = ((𝐻𝑥)(+g𝑁)(𝐻𝑦)))
5049ad4ant14 514 . . . 4 ((((𝐻 ∈ (𝑀 MndHom 𝑁) ∧ 𝑊 ∈ Word 𝐵) ∧ 𝑊 ≠ ∅) ∧ (𝑥𝐵𝑦𝐵)) → (𝐻‘(𝑥(+g𝑀)𝑦)) = ((𝐻𝑥)(+g𝑁)(𝐻𝑦)))
5141ffnd 5409 . . . . . 6 (((𝐻 ∈ (𝑀 MndHom 𝑁) ∧ 𝑊 ∈ Word 𝐵) ∧ 𝑊 ≠ ∅) → 𝑊 Fn (0...((♯‘𝑊) − 1)))
52 fvco2 5631 . . . . . 6 ((𝑊 Fn (0...((♯‘𝑊) − 1)) ∧ 𝑥 ∈ (0...((♯‘𝑊) − 1))) → ((𝐻𝑊)‘𝑥) = (𝐻‘(𝑊𝑥)))
5351, 52sylan 283 . . . . 5 ((((𝐻 ∈ (𝑀 MndHom 𝑁) ∧ 𝑊 ∈ Word 𝐵) ∧ 𝑊 ≠ ∅) ∧ 𝑥 ∈ (0...((♯‘𝑊) − 1))) → ((𝐻𝑊)‘𝑥) = (𝐻‘(𝑊𝑥)))
5453eqcomd 2202 . . . 4 ((((𝐻 ∈ (𝑀 MndHom 𝑁) ∧ 𝑊 ∈ Word 𝐵) ∧ 𝑊 ≠ ∅) ∧ 𝑥 ∈ (0...((♯‘𝑊) − 1))) → (𝐻‘(𝑊𝑥)) = ((𝐻𝑊)‘𝑥))
55 simplr 528 . . . 4 (((𝐻 ∈ (𝑀 MndHom 𝑁) ∧ 𝑊 ∈ Word 𝐵) ∧ 𝑊 ≠ ∅) → 𝑊 ∈ Word 𝐵)
56 coexg 5215 . . . . 5 ((𝐻 ∈ (𝑀 MndHom 𝑁) ∧ 𝑊 ∈ Word 𝐵) → (𝐻𝑊) ∈ V)
5756adantr 276 . . . 4 (((𝐻 ∈ (𝑀 MndHom 𝑁) ∧ 𝑊 ∈ Word 𝐵) ∧ 𝑊 ≠ ∅) → (𝐻𝑊) ∈ V)
58 plusgslid 12800 . . . . . . 7 (+g = Slot (+g‘ndx) ∧ (+g‘ndx) ∈ ℕ)
5958slotex 12715 . . . . . 6 (𝑀 ∈ Mnd → (+g𝑀) ∈ V)
607, 59syl 14 . . . . 5 (𝐻 ∈ (𝑀 MndHom 𝑁) → (+g𝑀) ∈ V)
6160ad2antrr 488 . . . 4 (((𝐻 ∈ (𝑀 MndHom 𝑁) ∧ 𝑊 ∈ Word 𝐵) ∧ 𝑊 ≠ ∅) → (+g𝑀) ∈ V)
6258slotex 12715 . . . . . 6 (𝑁 ∈ Mnd → (+g𝑁) ∈ V)
6318, 62syl 14 . . . . 5 (𝐻 ∈ (𝑀 MndHom 𝑁) → (+g𝑁) ∈ V)
6463ad2antrr 488 . . . 4 (((𝐻 ∈ (𝑀 MndHom 𝑁) ∧ 𝑊 ∈ Word 𝐵) ∧ 𝑊 ≠ ∅) → (+g𝑁) ∈ V)
6529, 42, 46, 50, 54, 55, 57, 61, 64seqhomog 10624 . . 3 (((𝐻 ∈ (𝑀 MndHom 𝑁) ∧ 𝑊 ∈ Word 𝐵) ∧ 𝑊 ≠ ∅) → (𝐻‘(seq0((+g𝑀), 𝑊)‘((♯‘𝑊) − 1))) = (seq0((+g𝑁), (𝐻𝑊))‘((♯‘𝑊) − 1)))
6625, 26, 24, 46, 41gsumval2 13050 . . . 4 (((𝐻 ∈ (𝑀 MndHom 𝑁) ∧ 𝑊 ∈ Word 𝐵) ∧ 𝑊 ≠ ∅) → (𝑀 Σg 𝑊) = (seq0((+g𝑀), 𝑊)‘((♯‘𝑊) − 1)))
6766fveq2d 5563 . . 3 (((𝐻 ∈ (𝑀 MndHom 𝑁) ∧ 𝑊 ∈ Word 𝐵) ∧ 𝑊 ≠ ∅) → (𝐻‘(𝑀 Σg 𝑊)) = (𝐻‘(seq0((+g𝑀), 𝑊)‘((♯‘𝑊) − 1))))
68 eqid 2196 . . . 4 (Base‘𝑁) = (Base‘𝑁)
6918ad2antrr 488 . . . 4 (((𝐻 ∈ (𝑀 MndHom 𝑁) ∧ 𝑊 ∈ Word 𝐵) ∧ 𝑊 ≠ ∅) → 𝑁 ∈ Mnd)
7025, 68mhmf 13107 . . . . . 6 (𝐻 ∈ (𝑀 MndHom 𝑁) → 𝐻:𝐵⟶(Base‘𝑁))
7170ad2antrr 488 . . . . 5 (((𝐻 ∈ (𝑀 MndHom 𝑁) ∧ 𝑊 ∈ Word 𝐵) ∧ 𝑊 ≠ ∅) → 𝐻:𝐵⟶(Base‘𝑁))
72 fco 5424 . . . . 5 ((𝐻:𝐵⟶(Base‘𝑁) ∧ 𝑊:(0...((♯‘𝑊) − 1))⟶𝐵) → (𝐻𝑊):(0...((♯‘𝑊) − 1))⟶(Base‘𝑁))
7371, 41, 72syl2anc 411 . . . 4 (((𝐻 ∈ (𝑀 MndHom 𝑁) ∧ 𝑊 ∈ Word 𝐵) ∧ 𝑊 ≠ ∅) → (𝐻𝑊):(0...((♯‘𝑊) − 1))⟶(Base‘𝑁))
7468, 47, 69, 46, 73gsumval2 13050 . . 3 (((𝐻 ∈ (𝑀 MndHom 𝑁) ∧ 𝑊 ∈ Word 𝐵) ∧ 𝑊 ≠ ∅) → (𝑁 Σg (𝐻𝑊)) = (seq0((+g𝑁), (𝐻𝑊))‘((♯‘𝑊) − 1)))
7565, 67, 743eqtr4d 2239 . 2 (((𝐻 ∈ (𝑀 MndHom 𝑁) ∧ 𝑊 ∈ Word 𝐵) ∧ 𝑊 ≠ ∅) → (𝐻‘(𝑀 Σg 𝑊)) = (𝑁 Σg (𝐻𝑊)))
76 fin0or 6948 . . . 4 (𝑊 ∈ Fin → (𝑊 = ∅ ∨ ∃𝑗 𝑗𝑊))
77 n0r 3465 . . . . 5 (∃𝑗 𝑗𝑊𝑊 ≠ ∅)
7877orim2i 762 . . . 4 ((𝑊 = ∅ ∨ ∃𝑗 𝑗𝑊) → (𝑊 = ∅ ∨ 𝑊 ≠ ∅))
7976, 78syl 14 . . 3 (𝑊 ∈ Fin → (𝑊 = ∅ ∨ 𝑊 ≠ ∅))
8033, 79syl 14 . 2 ((𝐻 ∈ (𝑀 MndHom 𝑁) ∧ 𝑊 ∈ Word 𝐵) → (𝑊 = ∅ ∨ 𝑊 ≠ ∅))
8123, 75, 80mpjaodan 799 1 ((𝐻 ∈ (𝑀 MndHom 𝑁) ∧ 𝑊 ∈ Word 𝐵) → (𝐻‘(𝑀 Σg 𝑊)) = (𝑁 Σg (𝐻𝑊)))
Colors of variables: wff set class
Syntax hints:  wi 4  wa 104  wb 105  wo 709   = wceq 1364  wex 1506  wcel 2167  wne 2367  Vcvv 2763  c0 3451  ccom 4668   Fn wfn 5254  wf 5255  cfv 5259  (class class class)co 5923  Fincfn 6800  0cc0 7881  1c1 7882  cmin 8199  cn 8992  0cn0 9251  cz 9328  cuz 9603  ...cfz 10085  ..^cfzo 10219  seqcseq 10541  chash 10869  Word cword 10937  Basecbs 12688  +gcplusg 12765  0gc0g 12937   Σg cgsu 12938  Mndcmnd 13067   MndHom cmhm 13099
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-ia1 106  ax-ia2 107  ax-ia3 108  ax-in1 615  ax-in2 616  ax-io 710  ax-5 1461  ax-7 1462  ax-gen 1463  ax-ie1 1507  ax-ie2 1508  ax-8 1518  ax-10 1519  ax-11 1520  ax-i12 1521  ax-bndl 1523  ax-4 1524  ax-17 1540  ax-i9 1544  ax-ial 1548  ax-i5r 1549  ax-13 2169  ax-14 2170  ax-ext 2178  ax-coll 4149  ax-sep 4152  ax-nul 4160  ax-pow 4208  ax-pr 4243  ax-un 4469  ax-setind 4574  ax-iinf 4625  ax-cnex 7972  ax-resscn 7973  ax-1cn 7974  ax-1re 7975  ax-icn 7976  ax-addcl 7977  ax-addrcl 7978  ax-mulcl 7979  ax-addcom 7981  ax-addass 7983  ax-distr 7985  ax-i2m1 7986  ax-0lt1 7987  ax-0id 7989  ax-rnegex 7990  ax-cnre 7992  ax-pre-ltirr 7993  ax-pre-ltwlin 7994  ax-pre-lttrn 7995  ax-pre-apti 7996  ax-pre-ltadd 7997
This theorem depends on definitions:  df-bi 117  df-dc 836  df-3or 981  df-3an 982  df-tru 1367  df-fal 1370  df-nf 1475  df-sb 1777  df-eu 2048  df-mo 2049  df-clab 2183  df-cleq 2189  df-clel 2192  df-nfc 2328  df-ne 2368  df-nel 2463  df-ral 2480  df-rex 2481  df-reu 2482  df-rab 2484  df-v 2765  df-sbc 2990  df-csb 3085  df-dif 3159  df-un 3161  df-in 3163  df-ss 3170  df-nul 3452  df-if 3563  df-pw 3608  df-sn 3629  df-pr 3630  df-op 3632  df-uni 3841  df-int 3876  df-iun 3919  df-br 4035  df-opab 4096  df-mpt 4097  df-tr 4133  df-id 4329  df-iord 4402  df-on 4404  df-ilim 4405  df-suc 4407  df-iom 4628  df-xp 4670  df-rel 4671  df-cnv 4672  df-co 4673  df-dm 4674  df-rn 4675  df-res 4676  df-ima 4677  df-iota 5220  df-fun 5261  df-fn 5262  df-f 5263  df-f1 5264  df-fo 5265  df-f1o 5266  df-fv 5267  df-riota 5878  df-ov 5926  df-oprab 5927  df-mpo 5928  df-1st 6199  df-2nd 6200  df-recs 6364  df-frec 6450  df-1o 6475  df-er 6593  df-map 6710  df-en 6801  df-dom 6802  df-fin 6803  df-pnf 8065  df-mnf 8066  df-xr 8067  df-ltxr 8068  df-le 8069  df-sub 8201  df-neg 8202  df-inn 8993  df-2 9051  df-n0 9252  df-z 9329  df-uz 9604  df-fz 10086  df-fzo 10220  df-seqfrec 10542  df-ihash 10870  df-word 10938  df-ndx 12691  df-slot 12692  df-base 12694  df-plusg 12778  df-0g 12939  df-igsum 12940  df-mgm 13009  df-sgrp 13055  df-mnd 13068  df-mhm 13101
This theorem is referenced by: (None)
  Copyright terms: Public domain W3C validator