Theorem islmhm 18848

Description: Property of being a homomorphism of left modules. (Contributed by Stefan O'Rear, 1-Jan-2015.) (Proof shortened by Mario Carneiro, 30-Apr-2015.)

Hypotheses

Ref	Expression
islmhm.k	⊢ 𝐾 = (Scalar‘𝑆)
islmhm.l	⊢ 𝐿 = (Scalar‘𝑇)
islmhm.b	⊢ 𝐵 = (Base‘𝐾)
islmhm.e	⊢ 𝐸 = (Base‘𝑆)
islmhm.m	⊢ · = ( ·𝑠 ‘𝑆)
islmhm.n	⊢ × = ( ·𝑠 ‘𝑇)

Assertion

Ref	Expression
islmhm	⊢ (𝐹 ∈ (𝑆 LMHom 𝑇) ↔ ((𝑆 ∈ LMod ∧ 𝑇 ∈ LMod) ∧ (𝐹 ∈ (𝑆 GrpHom 𝑇) ∧ 𝐿 = 𝐾 ∧ ∀𝑥 ∈ 𝐵 ∀𝑦 ∈ 𝐸 (𝐹‘(𝑥 · 𝑦)) = (𝑥 × (𝐹‘𝑦)))))

Distinct variable groups:   𝑥,𝐵   𝑦,𝐸   𝑥,𝑦,𝑆   𝑥,𝐹,𝑦   𝑥,𝑇,𝑦

Allowed substitution hints:   𝐵(𝑦)   · (𝑥,𝑦)   × (𝑥,𝑦)   𝐸(𝑥)   𝐾(𝑥,𝑦)   𝐿(𝑥,𝑦)

Proof of Theorem islmhm

Dummy variables 𝑓 𝑠 𝑡 𝑤 are mutually distinct and distinct from all other variables.

Step	Hyp	Ref	Expression
1		df-lmhm 18843	. . 3 ⊢ LMHom = (𝑠 ∈ LMod, 𝑡 ∈ LMod ↦ {𝑓 ∈ (𝑠 GrpHom 𝑡) ∣ [(Scalar‘𝑠) / 𝑤]((Scalar‘𝑡) = 𝑤 ∧ ∀𝑥 ∈ (Base‘𝑤)∀𝑦 ∈ (Base‘𝑠)(𝑓‘(𝑥( ·𝑠 ‘𝑠)𝑦)) = (𝑥( ·𝑠 ‘𝑡)(𝑓‘𝑦)))})
2	1	elmpt2cl 6774	. 2 ⊢ (𝐹 ∈ (𝑆 LMHom 𝑇) → (𝑆 ∈ LMod ∧ 𝑇 ∈ LMod))
3		oveq12 6558	. . . . . 6 ⊢ ((𝑠 = 𝑆 ∧ 𝑡 = 𝑇) → (𝑠 GrpHom 𝑡) = (𝑆 GrpHom 𝑇))
4		fvex 6113	. . . . . . . 8 ⊢ (Scalar‘𝑠) ∈ V
5	4	a1i 11	. . . . . . 7 ⊢ ((𝑠 = 𝑆 ∧ 𝑡 = 𝑇) → (Scalar‘𝑠) ∈ V)
6		simplr 788	. . . . . . . . . . 11 ⊢ (((𝑠 = 𝑆 ∧ 𝑡 = 𝑇) ∧ 𝑤 = (Scalar‘𝑠)) → 𝑡 = 𝑇)
7	6	fveq2d 6107	. . . . . . . . . 10 ⊢ (((𝑠 = 𝑆 ∧ 𝑡 = 𝑇) ∧ 𝑤 = (Scalar‘𝑠)) → (Scalar‘𝑡) = (Scalar‘𝑇))
8		islmhm.l	. . . . . . . . . 10 ⊢ 𝐿 = (Scalar‘𝑇)
9	7, 8	syl6eqr 2662	. . . . . . . . 9 ⊢ (((𝑠 = 𝑆 ∧ 𝑡 = 𝑇) ∧ 𝑤 = (Scalar‘𝑠)) → (Scalar‘𝑡) = 𝐿)
10		simpr 476	. . . . . . . . . . 11 ⊢ (((𝑠 = 𝑆 ∧ 𝑡 = 𝑇) ∧ 𝑤 = (Scalar‘𝑠)) → 𝑤 = (Scalar‘𝑠))
11		simpll 786	. . . . . . . . . . . 12 ⊢ (((𝑠 = 𝑆 ∧ 𝑡 = 𝑇) ∧ 𝑤 = (Scalar‘𝑠)) → 𝑠 = 𝑆)
12	11	fveq2d 6107	. . . . . . . . . . 11 ⊢ (((𝑠 = 𝑆 ∧ 𝑡 = 𝑇) ∧ 𝑤 = (Scalar‘𝑠)) → (Scalar‘𝑠) = (Scalar‘𝑆))
13	10, 12	eqtrd 2644	. . . . . . . . . 10 ⊢ (((𝑠 = 𝑆 ∧ 𝑡 = 𝑇) ∧ 𝑤 = (Scalar‘𝑠)) → 𝑤 = (Scalar‘𝑆))
14		islmhm.k	. . . . . . . . . 10 ⊢ 𝐾 = (Scalar‘𝑆)
15	13, 14	syl6eqr 2662	. . . . . . . . 9 ⊢ (((𝑠 = 𝑆 ∧ 𝑡 = 𝑇) ∧ 𝑤 = (Scalar‘𝑠)) → 𝑤 = 𝐾)
16	9, 15	eqeq12d 2625	. . . . . . . 8 ⊢ (((𝑠 = 𝑆 ∧ 𝑡 = 𝑇) ∧ 𝑤 = (Scalar‘𝑠)) → ((Scalar‘𝑡) = 𝑤 ↔ 𝐿 = 𝐾))
17	15	fveq2d 6107	. . . . . . . . . 10 ⊢ (((𝑠 = 𝑆 ∧ 𝑡 = 𝑇) ∧ 𝑤 = (Scalar‘𝑠)) → (Base‘𝑤) = (Base‘𝐾))
18		islmhm.b	. . . . . . . . . 10 ⊢ 𝐵 = (Base‘𝐾)
19	17, 18	syl6eqr 2662	. . . . . . . . 9 ⊢ (((𝑠 = 𝑆 ∧ 𝑡 = 𝑇) ∧ 𝑤 = (Scalar‘𝑠)) → (Base‘𝑤) = 𝐵)
20	11	fveq2d 6107	. . . . . . . . . . 11 ⊢ (((𝑠 = 𝑆 ∧ 𝑡 = 𝑇) ∧ 𝑤 = (Scalar‘𝑠)) → (Base‘𝑠) = (Base‘𝑆))
21		islmhm.e	. . . . . . . . . . 11 ⊢ 𝐸 = (Base‘𝑆)
22	20, 21	syl6eqr 2662	. . . . . . . . . 10 ⊢ (((𝑠 = 𝑆 ∧ 𝑡 = 𝑇) ∧ 𝑤 = (Scalar‘𝑠)) → (Base‘𝑠) = 𝐸)
23	11	fveq2d 6107	. . . . . . . . . . . . . 14 ⊢ (((𝑠 = 𝑆 ∧ 𝑡 = 𝑇) ∧ 𝑤 = (Scalar‘𝑠)) → ( ·𝑠 ‘𝑠) = ( ·𝑠 ‘𝑆))
24		islmhm.m	. . . . . . . . . . . . . 14 ⊢ · = ( ·𝑠 ‘𝑆)
25	23, 24	syl6eqr 2662	. . . . . . . . . . . . 13 ⊢ (((𝑠 = 𝑆 ∧ 𝑡 = 𝑇) ∧ 𝑤 = (Scalar‘𝑠)) → ( ·𝑠 ‘𝑠) = · )
26	25	oveqd 6566	. . . . . . . . . . . 12 ⊢ (((𝑠 = 𝑆 ∧ 𝑡 = 𝑇) ∧ 𝑤 = (Scalar‘𝑠)) → (𝑥( ·𝑠 ‘𝑠)𝑦) = (𝑥 · 𝑦))
27	26	fveq2d 6107	. . . . . . . . . . 11 ⊢ (((𝑠 = 𝑆 ∧ 𝑡 = 𝑇) ∧ 𝑤 = (Scalar‘𝑠)) → (𝑓‘(𝑥( ·𝑠 ‘𝑠)𝑦)) = (𝑓‘(𝑥 · 𝑦)))
28	6	fveq2d 6107	. . . . . . . . . . . . 13 ⊢ (((𝑠 = 𝑆 ∧ 𝑡 = 𝑇) ∧ 𝑤 = (Scalar‘𝑠)) → ( ·𝑠 ‘𝑡) = ( ·𝑠 ‘𝑇))
29		islmhm.n	. . . . . . . . . . . . 13 ⊢ × = ( ·𝑠 ‘𝑇)
30	28, 29	syl6eqr 2662	. . . . . . . . . . . 12 ⊢ (((𝑠 = 𝑆 ∧ 𝑡 = 𝑇) ∧ 𝑤 = (Scalar‘𝑠)) → ( ·𝑠 ‘𝑡) = × )
31	30	oveqd 6566	. . . . . . . . . . 11 ⊢ (((𝑠 = 𝑆 ∧ 𝑡 = 𝑇) ∧ 𝑤 = (Scalar‘𝑠)) → (𝑥( ·𝑠 ‘𝑡)(𝑓‘𝑦)) = (𝑥 × (𝑓‘𝑦)))
32	27, 31	eqeq12d 2625	. . . . . . . . . 10 ⊢ (((𝑠 = 𝑆 ∧ 𝑡 = 𝑇) ∧ 𝑤 = (Scalar‘𝑠)) → ((𝑓‘(𝑥( ·𝑠 ‘𝑠)𝑦)) = (𝑥( ·𝑠 ‘𝑡)(𝑓‘𝑦)) ↔ (𝑓‘(𝑥 · 𝑦)) = (𝑥 × (𝑓‘𝑦))))
33	22, 32	raleqbidv 3129	. . . . . . . . 9 ⊢ (((𝑠 = 𝑆 ∧ 𝑡 = 𝑇) ∧ 𝑤 = (Scalar‘𝑠)) → (∀𝑦 ∈ (Base‘𝑠)(𝑓‘(𝑥( ·𝑠 ‘𝑠)𝑦)) = (𝑥( ·𝑠 ‘𝑡)(𝑓‘𝑦)) ↔ ∀𝑦 ∈ 𝐸 (𝑓‘(𝑥 · 𝑦)) = (𝑥 × (𝑓‘𝑦))))
34	19, 33	raleqbidv 3129	. . . . . . . 8 ⊢ (((𝑠 = 𝑆 ∧ 𝑡 = 𝑇) ∧ 𝑤 = (Scalar‘𝑠)) → (∀𝑥 ∈ (Base‘𝑤)∀𝑦 ∈ (Base‘𝑠)(𝑓‘(𝑥( ·𝑠 ‘𝑠)𝑦)) = (𝑥( ·𝑠 ‘𝑡)(𝑓‘𝑦)) ↔ ∀𝑥 ∈ 𝐵 ∀𝑦 ∈ 𝐸 (𝑓‘(𝑥 · 𝑦)) = (𝑥 × (𝑓‘𝑦))))
35	16, 34	anbi12d 743	. . . . . . 7 ⊢ (((𝑠 = 𝑆 ∧ 𝑡 = 𝑇) ∧ 𝑤 = (Scalar‘𝑠)) → (((Scalar‘𝑡) = 𝑤 ∧ ∀𝑥 ∈ (Base‘𝑤)∀𝑦 ∈ (Base‘𝑠)(𝑓‘(𝑥( ·𝑠 ‘𝑠)𝑦)) = (𝑥( ·𝑠 ‘𝑡)(𝑓‘𝑦))) ↔ (𝐿 = 𝐾 ∧ ∀𝑥 ∈ 𝐵 ∀𝑦 ∈ 𝐸 (𝑓‘(𝑥 · 𝑦)) = (𝑥 × (𝑓‘𝑦)))))
36	5, 35	sbcied 3439	. . . . . 6 ⊢ ((𝑠 = 𝑆 ∧ 𝑡 = 𝑇) → ([(Scalar‘𝑠) / 𝑤]((Scalar‘𝑡) = 𝑤 ∧ ∀𝑥 ∈ (Base‘𝑤)∀𝑦 ∈ (Base‘𝑠)(𝑓‘(𝑥( ·𝑠 ‘𝑠)𝑦)) = (𝑥( ·𝑠 ‘𝑡)(𝑓‘𝑦))) ↔ (𝐿 = 𝐾 ∧ ∀𝑥 ∈ 𝐵 ∀𝑦 ∈ 𝐸 (𝑓‘(𝑥 · 𝑦)) = (𝑥 × (𝑓‘𝑦)))))
37	3, 36	rabeqbidv 3168	. . . . 5 ⊢ ((𝑠 = 𝑆 ∧ 𝑡 = 𝑇) → {𝑓 ∈ (𝑠 GrpHom 𝑡) ∣ [(Scalar‘𝑠) / 𝑤]((Scalar‘𝑡) = 𝑤 ∧ ∀𝑥 ∈ (Base‘𝑤)∀𝑦 ∈ (Base‘𝑠)(𝑓‘(𝑥( ·𝑠 ‘𝑠)𝑦)) = (𝑥( ·𝑠 ‘𝑡)(𝑓‘𝑦)))} = {𝑓 ∈ (𝑆 GrpHom 𝑇) ∣ (𝐿 = 𝐾 ∧ ∀𝑥 ∈ 𝐵 ∀𝑦 ∈ 𝐸 (𝑓‘(𝑥 · 𝑦)) = (𝑥 × (𝑓‘𝑦)))})
38		ovex 6577	. . . . . 6 ⊢ (𝑆 GrpHom 𝑇) ∈ V
39	38	rabex 4740	. . . . 5 ⊢ {𝑓 ∈ (𝑆 GrpHom 𝑇) ∣ (𝐿 = 𝐾 ∧ ∀𝑥 ∈ 𝐵 ∀𝑦 ∈ 𝐸 (𝑓‘(𝑥 · 𝑦)) = (𝑥 × (𝑓‘𝑦)))} ∈ V
40	37, 1, 39	ovmpt2a 6689	. . . 4 ⊢ ((𝑆 ∈ LMod ∧ 𝑇 ∈ LMod) → (𝑆 LMHom 𝑇) = {𝑓 ∈ (𝑆 GrpHom 𝑇) ∣ (𝐿 = 𝐾 ∧ ∀𝑥 ∈ 𝐵 ∀𝑦 ∈ 𝐸 (𝑓‘(𝑥 · 𝑦)) = (𝑥 × (𝑓‘𝑦)))})
41	40	eleq2d 2673	. . 3 ⊢ ((𝑆 ∈ LMod ∧ 𝑇 ∈ LMod) → (𝐹 ∈ (𝑆 LMHom 𝑇) ↔ 𝐹 ∈ {𝑓 ∈ (𝑆 GrpHom 𝑇) ∣ (𝐿 = 𝐾 ∧ ∀𝑥 ∈ 𝐵 ∀𝑦 ∈ 𝐸 (𝑓‘(𝑥 · 𝑦)) = (𝑥 × (𝑓‘𝑦)))}))
42		fveq1 6102	. . . . . . . 8 ⊢ (𝑓 = 𝐹 → (𝑓‘(𝑥 · 𝑦)) = (𝐹‘(𝑥 · 𝑦)))
43		fveq1 6102	. . . . . . . . 9 ⊢ (𝑓 = 𝐹 → (𝑓‘𝑦) = (𝐹‘𝑦))
44	43	oveq2d 6565	. . . . . . . 8 ⊢ (𝑓 = 𝐹 → (𝑥 × (𝑓‘𝑦)) = (𝑥 × (𝐹‘𝑦)))
45	42, 44	eqeq12d 2625	. . . . . . 7 ⊢ (𝑓 = 𝐹 → ((𝑓‘(𝑥 · 𝑦)) = (𝑥 × (𝑓‘𝑦)) ↔ (𝐹‘(𝑥 · 𝑦)) = (𝑥 × (𝐹‘𝑦))))
46	45	2ralbidv 2972	. . . . . 6 ⊢ (𝑓 = 𝐹 → (∀𝑥 ∈ 𝐵 ∀𝑦 ∈ 𝐸 (𝑓‘(𝑥 · 𝑦)) = (𝑥 × (𝑓‘𝑦)) ↔ ∀𝑥 ∈ 𝐵 ∀𝑦 ∈ 𝐸 (𝐹‘(𝑥 · 𝑦)) = (𝑥 × (𝐹‘𝑦))))
47	46	anbi2d 736	. . . . 5 ⊢ (𝑓 = 𝐹 → ((𝐿 = 𝐾 ∧ ∀𝑥 ∈ 𝐵 ∀𝑦 ∈ 𝐸 (𝑓‘(𝑥 · 𝑦)) = (𝑥 × (𝑓‘𝑦))) ↔ (𝐿 = 𝐾 ∧ ∀𝑥 ∈ 𝐵 ∀𝑦 ∈ 𝐸 (𝐹‘(𝑥 · 𝑦)) = (𝑥 × (𝐹‘𝑦)))))
48	47	elrab 3331	. . . 4 ⊢ (𝐹 ∈ {𝑓 ∈ (𝑆 GrpHom 𝑇) ∣ (𝐿 = 𝐾 ∧ ∀𝑥 ∈ 𝐵 ∀𝑦 ∈ 𝐸 (𝑓‘(𝑥 · 𝑦)) = (𝑥 × (𝑓‘𝑦)))} ↔ (𝐹 ∈ (𝑆 GrpHom 𝑇) ∧ (𝐿 = 𝐾 ∧ ∀𝑥 ∈ 𝐵 ∀𝑦 ∈ 𝐸 (𝐹‘(𝑥 · 𝑦)) = (𝑥 × (𝐹‘𝑦)))))
49		3anass 1035	. . . 4 ⊢ ((𝐹 ∈ (𝑆 GrpHom 𝑇) ∧ 𝐿 = 𝐾 ∧ ∀𝑥 ∈ 𝐵 ∀𝑦 ∈ 𝐸 (𝐹‘(𝑥 · 𝑦)) = (𝑥 × (𝐹‘𝑦))) ↔ (𝐹 ∈ (𝑆 GrpHom 𝑇) ∧ (𝐿 = 𝐾 ∧ ∀𝑥 ∈ 𝐵 ∀𝑦 ∈ 𝐸 (𝐹‘(𝑥 · 𝑦)) = (𝑥 × (𝐹‘𝑦)))))
50	48, 49	bitr4i 266	. . 3 ⊢ (𝐹 ∈ {𝑓 ∈ (𝑆 GrpHom 𝑇) ∣ (𝐿 = 𝐾 ∧ ∀𝑥 ∈ 𝐵 ∀𝑦 ∈ 𝐸 (𝑓‘(𝑥 · 𝑦)) = (𝑥 × (𝑓‘𝑦)))} ↔ (𝐹 ∈ (𝑆 GrpHom 𝑇) ∧ 𝐿 = 𝐾 ∧ ∀𝑥 ∈ 𝐵 ∀𝑦 ∈ 𝐸 (𝐹‘(𝑥 · 𝑦)) = (𝑥 × (𝐹‘𝑦))))
51	41, 50	syl6bb 275	. 2 ⊢ ((𝑆 ∈ LMod ∧ 𝑇 ∈ LMod) → (𝐹 ∈ (𝑆 LMHom 𝑇) ↔ (𝐹 ∈ (𝑆 GrpHom 𝑇) ∧ 𝐿 = 𝐾 ∧ ∀𝑥 ∈ 𝐵 ∀𝑦 ∈ 𝐸 (𝐹‘(𝑥 · 𝑦)) = (𝑥 × (𝐹‘𝑦)))))
52	2, 51	biadan2 672	1 ⊢ (𝐹 ∈ (𝑆 LMHom 𝑇) ↔ ((𝑆 ∈ LMod ∧ 𝑇 ∈ LMod) ∧ (𝐹 ∈ (𝑆 GrpHom 𝑇) ∧ 𝐿 = 𝐾 ∧ ∀𝑥 ∈ 𝐵 ∀𝑦 ∈ 𝐸 (𝐹‘(𝑥 · 𝑦)) = (𝑥 × (𝐹‘𝑦)))))

Syntax hints:   ↔ wb 195   ∧ wa 383   ∧ w3a 1031   = wceq 1475   ∈ wcel 1977  ∀wral 2896  {crab 2900  Vcvv 3173  [wsbc 3402  ‘cfv 5804  (class class class)co 6549  Basecbs 15695  Scalarcsca 15771   ·_𝑠 cvsca 15772   GrpHom cghm 17480  LModclmod 18686   LMHom clmhm 18840

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1713  ax-4 1728  ax-5 1827  ax-6 1875  ax-7 1922  ax-8 1979  ax-9 1986  ax-10 2006  ax-11 2021  ax-12 2034  ax-13 2234  ax-ext 2590  ax-sep 4709  ax-nul 4717  ax-pow 4769  ax-pr 4833

This theorem depends on definitions:  df-bi 196  df-or 384  df-an 385  df-3an 1033  df-tru 1478  df-ex 1696  df-nf 1701  df-sb 1868  df-eu 2462  df-mo 2463  df-clab 2597  df-cleq 2603  df-clel 2606  df-nfc 2740  df-ne 2782  df-ral 2901  df-rex 2902  df-rab 2905  df-v 3175  df-sbc 3403  df-dif 3543  df-un 3545  df-in 3547  df-ss 3554  df-nul 3875  df-if 4037  df-sn 4126  df-pr 4128  df-op 4132  df-uni 4373  df-br 4584  df-opab 4644  df-id 4953  df-xp 5044  df-rel 5045  df-cnv 5046  df-co 5047  df-dm 5048  df-iota 5768  df-fun 5806  df-fv 5812  df-ov 6552  df-oprab 6553  df-mpt2 6554  df-lmhm 18843

This theorem is referenced by:  islmhm3  18849  lmhmlem  18850  lmhmlin  18856  islmhmd  18860  reslmhm  18873  lmhmpropd  18894