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

Theorem gsumwmhm 13060
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 2193 . . . . 5 (0g𝑀) = (0g𝑀)
2 eqid 2193 . . . . 5 (0g𝑁) = (0g𝑁)
31, 2mhm0 13030 . . . 4 (𝐻 ∈ (𝑀 MndHom 𝑁) → (𝐻‘(0g𝑀)) = (0g𝑁))
43ad2antrr 488 . . 3 (((𝐻 ∈ (𝑀 MndHom 𝑁) ∧ 𝑊 ∈ Word 𝐵) ∧ 𝑊 = ∅) → (𝐻‘(0g𝑀)) = (0g𝑁))
5 oveq2 5918 . . . . . 6 (𝑊 = ∅ → (𝑀 Σg 𝑊) = (𝑀 Σg ∅))
65adantl 277 . . . . 5 (((𝐻 ∈ (𝑀 MndHom 𝑁) ∧ 𝑊 ∈ Word 𝐵) ∧ 𝑊 = ∅) → (𝑀 Σg 𝑊) = (𝑀 Σg ∅))
7 mhmrcl1 13025 . . . . . . 7 (𝐻 ∈ (𝑀 MndHom 𝑁) → 𝑀 ∈ Mnd)
87ad2antrr 488 . . . . . 6 (((𝐻 ∈ (𝑀 MndHom 𝑁) ∧ 𝑊 ∈ Word 𝐵) ∧ 𝑊 = ∅) → 𝑀 ∈ Mnd)
91gsum0g 12969 . . . . . 6 (𝑀 ∈ Mnd → (𝑀 Σg ∅) = (0g𝑀))
108, 9syl 14 . . . . 5 (((𝐻 ∈ (𝑀 MndHom 𝑁) ∧ 𝑊 ∈ Word 𝐵) ∧ 𝑊 = ∅) → (𝑀 Σg ∅) = (0g𝑀))
116, 10eqtrd 2226 . . . 4 (((𝐻 ∈ (𝑀 MndHom 𝑁) ∧ 𝑊 ∈ Word 𝐵) ∧ 𝑊 = ∅) → (𝑀 Σg 𝑊) = (0g𝑀))
1211fveq2d 5550 . . 3 (((𝐻 ∈ (𝑀 MndHom 𝑁) ∧ 𝑊 ∈ Word 𝐵) ∧ 𝑊 = ∅) → (𝐻‘(𝑀 Σg 𝑊)) = (𝐻‘(0g𝑀)))
13 coeq2 4814 . . . . . . 7 (𝑊 = ∅ → (𝐻𝑊) = (𝐻 ∘ ∅))
14 co02 5171 . . . . . . 7 (𝐻 ∘ ∅) = ∅
1513, 14eqtrdi 2242 . . . . . 6 (𝑊 = ∅ → (𝐻𝑊) = ∅)
1615oveq2d 5926 . . . . 5 (𝑊 = ∅ → (𝑁 Σg (𝐻𝑊)) = (𝑁 Σg ∅))
1716adantl 277 . . . 4 (((𝐻 ∈ (𝑀 MndHom 𝑁) ∧ 𝑊 ∈ Word 𝐵) ∧ 𝑊 = ∅) → (𝑁 Σg (𝐻𝑊)) = (𝑁 Σg ∅))
18 mhmrcl2 13026 . . . . . 6 (𝐻 ∈ (𝑀 MndHom 𝑁) → 𝑁 ∈ Mnd)
1918ad2antrr 488 . . . . 5 (((𝐻 ∈ (𝑀 MndHom 𝑁) ∧ 𝑊 ∈ Word 𝐵) ∧ 𝑊 = ∅) → 𝑁 ∈ Mnd)
202gsum0g 12969 . . . . 5 (𝑁 ∈ Mnd → (𝑁 Σg ∅) = (0g𝑁))
2119, 20syl 14 . . . 4 (((𝐻 ∈ (𝑀 MndHom 𝑁) ∧ 𝑊 ∈ Word 𝐵) ∧ 𝑊 = ∅) → (𝑁 Σg ∅) = (0g𝑁))
2217, 21eqtrd 2226 . . 3 (((𝐻 ∈ (𝑀 MndHom 𝑁) ∧ 𝑊 ∈ Word 𝐵) ∧ 𝑊 = ∅) → (𝑁 Σg (𝐻𝑊)) = (0g𝑁))
234, 12, 223eqtr4d 2236 . 2 (((𝐻 ∈ (𝑀 MndHom 𝑁) ∧ 𝑊 ∈ Word 𝐵) ∧ 𝑊 = ∅) → (𝐻‘(𝑀 Σg 𝑊)) = (𝑁 Σg (𝐻𝑊)))
247ad2antrr 488 . . . . 5 (((𝐻 ∈ (𝑀 MndHom 𝑁) ∧ 𝑊 ∈ Word 𝐵) ∧ 𝑊 ≠ ∅) → 𝑀 ∈ Mnd)
25 gsumwmhm.b . . . . . . 7 𝐵 = (Base‘𝑀)
26 eqid 2193 . . . . . . 7 (+g𝑀) = (+g𝑀)
2725, 26mndcl 12994 . . . . . 6 ((𝑀 ∈ Mnd ∧ 𝑥𝐵𝑦𝐵) → (𝑥(+g𝑀)𝑦) ∈ 𝐵)
28273expb 1206 . . . . 5 ((𝑀 ∈ Mnd ∧ (𝑥𝐵𝑦𝐵)) → (𝑥(+g𝑀)𝑦) ∈ 𝐵)
2924, 28sylan 283 . . . 4 ((((𝐻 ∈ (𝑀 MndHom 𝑁) ∧ 𝑊 ∈ Word 𝐵) ∧ 𝑊 ≠ ∅) ∧ (𝑥𝐵𝑦𝐵)) → (𝑥(+g𝑀)𝑦) ∈ 𝐵)
30 wrdf 10910 . . . . . . 7 (𝑊 ∈ Word 𝐵𝑊:(0..^(♯‘𝑊))⟶𝐵)
3130ad2antlr 489 . . . . . 6 (((𝐻 ∈ (𝑀 MndHom 𝑁) ∧ 𝑊 ∈ Word 𝐵) ∧ 𝑊 ≠ ∅) → 𝑊:(0..^(♯‘𝑊))⟶𝐵)
32 wrdfin 10923 . . . . . . . . . . . 12 (𝑊 ∈ Word 𝐵𝑊 ∈ Fin)
3332adantl 277 . . . . . . . . . . 11 ((𝐻 ∈ (𝑀 MndHom 𝑁) ∧ 𝑊 ∈ Word 𝐵) → 𝑊 ∈ Fin)
34 hashnncl 10856 . . . . . . . . . . 11 (𝑊 ∈ Fin → ((♯‘𝑊) ∈ ℕ ↔ 𝑊 ≠ ∅))
3533, 34syl 14 . . . . . . . . . 10 ((𝐻 ∈ (𝑀 MndHom 𝑁) ∧ 𝑊 ∈ Word 𝐵) → ((♯‘𝑊) ∈ ℕ ↔ 𝑊 ≠ ∅))
3635biimpar 297 . . . . . . . . 9 (((𝐻 ∈ (𝑀 MndHom 𝑁) ∧ 𝑊 ∈ Word 𝐵) ∧ 𝑊 ≠ ∅) → (♯‘𝑊) ∈ ℕ)
3736nnzd 9428 . . . . . . . 8 (((𝐻 ∈ (𝑀 MndHom 𝑁) ∧ 𝑊 ∈ Word 𝐵) ∧ 𝑊 ≠ ∅) → (♯‘𝑊) ∈ ℤ)
38 fzoval 10204 . . . . . . . 8 ((♯‘𝑊) ∈ ℤ → (0..^(♯‘𝑊)) = (0...((♯‘𝑊) − 1)))
3937, 38syl 14 . . . . . . 7 (((𝐻 ∈ (𝑀 MndHom 𝑁) ∧ 𝑊 ∈ Word 𝐵) ∧ 𝑊 ≠ ∅) → (0..^(♯‘𝑊)) = (0...((♯‘𝑊) − 1)))
4039feq2d 5383 . . . . . 6 (((𝐻 ∈ (𝑀 MndHom 𝑁) ∧ 𝑊 ∈ Word 𝐵) ∧ 𝑊 ≠ ∅) → (𝑊:(0..^(♯‘𝑊))⟶𝐵𝑊:(0...((♯‘𝑊) − 1))⟶𝐵))
4131, 40mpbid 147 . . . . 5 (((𝐻 ∈ (𝑀 MndHom 𝑁) ∧ 𝑊 ∈ Word 𝐵) ∧ 𝑊 ≠ ∅) → 𝑊:(0...((♯‘𝑊) − 1))⟶𝐵)
4241ffvelcdmda 5685 . . . 4 ((((𝐻 ∈ (𝑀 MndHom 𝑁) ∧ 𝑊 ∈ Word 𝐵) ∧ 𝑊 ≠ ∅) ∧ 𝑥 ∈ (0...((♯‘𝑊) − 1))) → (𝑊𝑥) ∈ 𝐵)
43 nnm1nn0 9271 . . . . . 6 ((♯‘𝑊) ∈ ℕ → ((♯‘𝑊) − 1) ∈ ℕ0)
4436, 43syl 14 . . . . 5 (((𝐻 ∈ (𝑀 MndHom 𝑁) ∧ 𝑊 ∈ Word 𝐵) ∧ 𝑊 ≠ ∅) → ((♯‘𝑊) − 1) ∈ ℕ0)
45 nn0uz 9617 . . . . 5 0 = (ℤ‘0)
4644, 45eleqtrdi 2286 . . . 4 (((𝐻 ∈ (𝑀 MndHom 𝑁) ∧ 𝑊 ∈ Word 𝐵) ∧ 𝑊 ≠ ∅) → ((♯‘𝑊) − 1) ∈ (ℤ‘0))
47 eqid 2193 . . . . . . 7 (+g𝑁) = (+g𝑁)
4825, 26, 47mhmlin 13029 . . . . . 6 ((𝐻 ∈ (𝑀 MndHom 𝑁) ∧ 𝑥𝐵𝑦𝐵) → (𝐻‘(𝑥(+g𝑀)𝑦)) = ((𝐻𝑥)(+g𝑁)(𝐻𝑦)))
49483expb 1206 . . . . 5 ((𝐻 ∈ (𝑀 MndHom 𝑁) ∧ (𝑥𝐵𝑦𝐵)) → (𝐻‘(𝑥(+g𝑀)𝑦)) = ((𝐻𝑥)(+g𝑁)(𝐻𝑦)))
5049ad4ant14 514 . . . 4 ((((𝐻 ∈ (𝑀 MndHom 𝑁) ∧ 𝑊 ∈ Word 𝐵) ∧ 𝑊 ≠ ∅) ∧ (𝑥𝐵𝑦𝐵)) → (𝐻‘(𝑥(+g𝑀)𝑦)) = ((𝐻𝑥)(+g𝑁)(𝐻𝑦)))
5141ffnd 5396 . . . . . 6 (((𝐻 ∈ (𝑀 MndHom 𝑁) ∧ 𝑊 ∈ Word 𝐵) ∧ 𝑊 ≠ ∅) → 𝑊 Fn (0...((♯‘𝑊) − 1)))
52 fvco2 5618 . . . . . 6 ((𝑊 Fn (0...((♯‘𝑊) − 1)) ∧ 𝑥 ∈ (0...((♯‘𝑊) − 1))) → ((𝐻𝑊)‘𝑥) = (𝐻‘(𝑊𝑥)))
5351, 52sylan 283 . . . . 5 ((((𝐻 ∈ (𝑀 MndHom 𝑁) ∧ 𝑊 ∈ Word 𝐵) ∧ 𝑊 ≠ ∅) ∧ 𝑥 ∈ (0...((♯‘𝑊) − 1))) → ((𝐻𝑊)‘𝑥) = (𝐻‘(𝑊𝑥)))
5453eqcomd 2199 . . . 4 ((((𝐻 ∈ (𝑀 MndHom 𝑁) ∧ 𝑊 ∈ Word 𝐵) ∧ 𝑊 ≠ ∅) ∧ 𝑥 ∈ (0...((♯‘𝑊) − 1))) → (𝐻‘(𝑊𝑥)) = ((𝐻𝑊)‘𝑥))
55 simplr 528 . . . 4 (((𝐻 ∈ (𝑀 MndHom 𝑁) ∧ 𝑊 ∈ Word 𝐵) ∧ 𝑊 ≠ ∅) → 𝑊 ∈ Word 𝐵)
56 coexg 5202 . . . . 5 ((𝐻 ∈ (𝑀 MndHom 𝑁) ∧ 𝑊 ∈ Word 𝐵) → (𝐻𝑊) ∈ V)
5756adantr 276 . . . 4 (((𝐻 ∈ (𝑀 MndHom 𝑁) ∧ 𝑊 ∈ Word 𝐵) ∧ 𝑊 ≠ ∅) → (𝐻𝑊) ∈ V)
58 plusgslid 12720 . . . . . . 7 (+g = Slot (+g‘ndx) ∧ (+g‘ndx) ∈ ℕ)
5958slotex 12635 . . . . . 6 (𝑀 ∈ Mnd → (+g𝑀) ∈ V)
607, 59syl 14 . . . . 5 (𝐻 ∈ (𝑀 MndHom 𝑁) → (+g𝑀) ∈ V)
6160ad2antrr 488 . . . 4 (((𝐻 ∈ (𝑀 MndHom 𝑁) ∧ 𝑊 ∈ Word 𝐵) ∧ 𝑊 ≠ ∅) → (+g𝑀) ∈ V)
6258slotex 12635 . . . . . 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 10591 . . 3 (((𝐻 ∈ (𝑀 MndHom 𝑁) ∧ 𝑊 ∈ Word 𝐵) ∧ 𝑊 ≠ ∅) → (𝐻‘(seq0((+g𝑀), 𝑊)‘((♯‘𝑊) − 1))) = (seq0((+g𝑁), (𝐻𝑊))‘((♯‘𝑊) − 1)))
6625, 26, 24, 46, 41gsumval2 12970 . . . 4 (((𝐻 ∈ (𝑀 MndHom 𝑁) ∧ 𝑊 ∈ Word 𝐵) ∧ 𝑊 ≠ ∅) → (𝑀 Σg 𝑊) = (seq0((+g𝑀), 𝑊)‘((♯‘𝑊) − 1)))
6766fveq2d 5550 . . 3 (((𝐻 ∈ (𝑀 MndHom 𝑁) ∧ 𝑊 ∈ Word 𝐵) ∧ 𝑊 ≠ ∅) → (𝐻‘(𝑀 Σg 𝑊)) = (𝐻‘(seq0((+g𝑀), 𝑊)‘((♯‘𝑊) − 1))))
68 eqid 2193 . . . 4 (Base‘𝑁) = (Base‘𝑁)
6918ad2antrr 488 . . . 4 (((𝐻 ∈ (𝑀 MndHom 𝑁) ∧ 𝑊 ∈ Word 𝐵) ∧ 𝑊 ≠ ∅) → 𝑁 ∈ Mnd)
7025, 68mhmf 13027 . . . . . 6 (𝐻 ∈ (𝑀 MndHom 𝑁) → 𝐻:𝐵⟶(Base‘𝑁))
7170ad2antrr 488 . . . . 5 (((𝐻 ∈ (𝑀 MndHom 𝑁) ∧ 𝑊 ∈ Word 𝐵) ∧ 𝑊 ≠ ∅) → 𝐻:𝐵⟶(Base‘𝑁))
72 fco 5411 . . . . 5 ((𝐻:𝐵⟶(Base‘𝑁) ∧ 𝑊:(0...((♯‘𝑊) − 1))⟶𝐵) → (𝐻𝑊):(0...((♯‘𝑊) − 1))⟶(Base‘𝑁))
7371, 41, 72syl2anc 411 . . . 4 (((𝐻 ∈ (𝑀 MndHom 𝑁) ∧ 𝑊 ∈ Word 𝐵) ∧ 𝑊 ≠ ∅) → (𝐻𝑊):(0...((♯‘𝑊) − 1))⟶(Base‘𝑁))
7468, 47, 69, 46, 73gsumval2 12970 . . 3 (((𝐻 ∈ (𝑀 MndHom 𝑁) ∧ 𝑊 ∈ Word 𝐵) ∧ 𝑊 ≠ ∅) → (𝑁 Σg (𝐻𝑊)) = (seq0((+g𝑁), (𝐻𝑊))‘((♯‘𝑊) − 1)))
7565, 67, 743eqtr4d 2236 . 2 (((𝐻 ∈ (𝑀 MndHom 𝑁) ∧ 𝑊 ∈ Word 𝐵) ∧ 𝑊 ≠ ∅) → (𝐻‘(𝑀 Σg 𝑊)) = (𝑁 Σg (𝐻𝑊)))
76 fin0or 6933 . . . 4 (𝑊 ∈ Fin → (𝑊 = ∅ ∨ ∃𝑗 𝑗𝑊))
77 n0r 3460 . . . . 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 1503  wcel 2164  wne 2364  Vcvv 2760  c0 3446  ccom 4659   Fn wfn 5241  wf 5242  cfv 5246  (class class class)co 5910  Fincfn 6785  0cc0 7862  1c1 7863  cmin 8180  cn 8972  0cn0 9230  cz 9307  cuz 9582  ...cfz 10064  ..^cfzo 10198  seqcseq 10508  chash 10836  Word cword 10904  Basecbs 12608  +gcplusg 12685  0gc0g 12857   Σg cgsu 12858  Mndcmnd 12987   MndHom cmhm 13019
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 1458  ax-7 1459  ax-gen 1460  ax-ie1 1504  ax-ie2 1505  ax-8 1515  ax-10 1516  ax-11 1517  ax-i12 1518  ax-bndl 1520  ax-4 1521  ax-17 1537  ax-i9 1541  ax-ial 1545  ax-i5r 1546  ax-13 2166  ax-14 2167  ax-ext 2175  ax-coll 4144  ax-sep 4147  ax-nul 4155  ax-pow 4203  ax-pr 4238  ax-un 4462  ax-setind 4565  ax-iinf 4616  ax-cnex 7953  ax-resscn 7954  ax-1cn 7955  ax-1re 7956  ax-icn 7957  ax-addcl 7958  ax-addrcl 7959  ax-mulcl 7960  ax-addcom 7962  ax-addass 7964  ax-distr 7966  ax-i2m1 7967  ax-0lt1 7968  ax-0id 7970  ax-rnegex 7971  ax-cnre 7973  ax-pre-ltirr 7974  ax-pre-ltwlin 7975  ax-pre-lttrn 7976  ax-pre-apti 7977  ax-pre-ltadd 7978
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 1472  df-sb 1774  df-eu 2045  df-mo 2046  df-clab 2180  df-cleq 2186  df-clel 2189  df-nfc 2325  df-ne 2365  df-nel 2460  df-ral 2477  df-rex 2478  df-reu 2479  df-rab 2481  df-v 2762  df-sbc 2986  df-csb 3081  df-dif 3155  df-un 3157  df-in 3159  df-ss 3166  df-nul 3447  df-if 3558  df-pw 3603  df-sn 3624  df-pr 3625  df-op 3627  df-uni 3836  df-int 3871  df-iun 3914  df-br 4030  df-opab 4091  df-mpt 4092  df-tr 4128  df-id 4322  df-iord 4395  df-on 4397  df-ilim 4398  df-suc 4400  df-iom 4619  df-xp 4661  df-rel 4662  df-cnv 4663  df-co 4664  df-dm 4665  df-rn 4666  df-res 4667  df-ima 4668  df-iota 5207  df-fun 5248  df-fn 5249  df-f 5250  df-f1 5251  df-fo 5252  df-f1o 5253  df-fv 5254  df-riota 5865  df-ov 5913  df-oprab 5914  df-mpo 5915  df-1st 6184  df-2nd 6185  df-recs 6349  df-frec 6435  df-1o 6460  df-er 6578  df-map 6695  df-en 6786  df-dom 6787  df-fin 6788  df-pnf 8046  df-mnf 8047  df-xr 8048  df-ltxr 8049  df-le 8050  df-sub 8182  df-neg 8183  df-inn 8973  df-2 9031  df-n0 9231  df-z 9308  df-uz 9583  df-fz 10065  df-fzo 10199  df-seqfrec 10509  df-ihash 10837  df-word 10905  df-ndx 12611  df-slot 12612  df-base 12614  df-plusg 12698  df-0g 12859  df-igsum 12860  df-mgm 12929  df-sgrp 12975  df-mnd 12988  df-mhm 13021
This theorem is referenced by: (None)
  Copyright terms: Public domain W3C validator