Theorem dvhlveclem 41436

Description: Lemma for dvhlvec 41437. TODO: proof substituting inner part first shorter/longer than substituting outer part first? TODO: break up into smaller lemmas? TODO: does 𝜑 → method shorten proof? (Contributed by NM, 22-Oct-2013.) (Proof shortened by Mario Carneiro, 24-Jun-2014.)

Hypotheses

Ref	Expression
dvhgrp.b	⊢ 𝐵 = (Base‘𝐾)
dvhgrp.h	⊢ 𝐻 = (LHyp‘𝐾)
dvhgrp.t	⊢ 𝑇 = ((LTrn‘𝐾)‘𝑊)
dvhgrp.e	⊢ 𝐸 = ((TEndo‘𝐾)‘𝑊)
dvhgrp.u	⊢ 𝑈 = ((DVecH‘𝐾)‘𝑊)
dvhgrp.d	⊢ 𝐷 = (Scalar‘𝑈)
dvhgrp.p	⊢ ⨣ = (+g‘𝐷)
dvhgrp.a	⊢ + = (+g‘𝑈)
dvhgrp.o	⊢ 0 = (0g‘𝐷)
dvhgrp.i	⊢ 𝐼 = (invg‘𝐷)
dvhlvec.m	⊢ × = (.r‘𝐷)
dvhlvec.s	⊢ · = ( ·𝑠 ‘𝑈)

Assertion

Ref	Expression
dvhlveclem	⊢ ((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) → 𝑈 ∈ LVec)

Proof of Theorem dvhlveclem

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

Step	Hyp	Ref	Expression
1		dvhgrp.h	. . . . 5 ⊢ 𝐻 = (LHyp‘𝐾)
2		dvhgrp.t	. . . . 5 ⊢ 𝑇 = ((LTrn‘𝐾)‘𝑊)
3		dvhgrp.e	. . . . 5 ⊢ 𝐸 = ((TEndo‘𝐾)‘𝑊)
4		dvhgrp.u	. . . . 5 ⊢ 𝑈 = ((DVecH‘𝐾)‘𝑊)
5		eqid 2737	. . . . 5 ⊢ (Base‘𝑈) = (Base‘𝑈)
6	1, 2, 3, 4, 5	dvhvbase 41415	. . . 4 ⊢ ((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) → (Base‘𝑈) = (𝑇 × 𝐸))
7	6	eqcomd 2743	. . 3 ⊢ ((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) → (𝑇 × 𝐸) = (Base‘𝑈))
8		dvhgrp.a	. . . 4 ⊢ + = (+g‘𝑈)
9	8	a1i 11	. . 3 ⊢ ((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) → + = (+g‘𝑈))
10		dvhgrp.d	. . . 4 ⊢ 𝐷 = (Scalar‘𝑈)
11	10	a1i 11	. . 3 ⊢ ((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) → 𝐷 = (Scalar‘𝑈))
12		dvhlvec.s	. . . 4 ⊢ · = ( ·𝑠 ‘𝑈)
13	12	a1i 11	. . 3 ⊢ ((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) → · = ( ·𝑠 ‘𝑈))
14		eqid 2737	. . . . 5 ⊢ (Base‘𝐷) = (Base‘𝐷)
15	1, 3, 4, 10, 14	dvhbase 41411	. . . 4 ⊢ ((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) → (Base‘𝐷) = 𝐸)
16	15	eqcomd 2743	. . 3 ⊢ ((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) → 𝐸 = (Base‘𝐷))
17		dvhgrp.p	. . . 4 ⊢ ⨣ = (+g‘𝐷)
18	17	a1i 11	. . 3 ⊢ ((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) → ⨣ = (+g‘𝐷))
19		dvhlvec.m	. . . 4 ⊢ × = (.r‘𝐷)
20	19	a1i 11	. . 3 ⊢ ((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) → × = (.r‘𝐷))
21		eqid 2737	. . . . . 6 ⊢ ((EDRing‘𝐾)‘𝑊) = ((EDRing‘𝐾)‘𝑊)
22	1, 21, 4, 10	dvhsca 41410	. . . . 5 ⊢ ((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) → 𝐷 = ((EDRing‘𝐾)‘𝑊))
23	22	fveq2d 6839	. . . 4 ⊢ ((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) → (1r‘𝐷) = (1r‘((EDRing‘𝐾)‘𝑊)))
24		eqid 2737	. . . . 5 ⊢ (1r‘((EDRing‘𝐾)‘𝑊)) = (1r‘((EDRing‘𝐾)‘𝑊))
25	1, 2, 21, 24	erng1r 41323	. . . 4 ⊢ ((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) → (1r‘((EDRing‘𝐾)‘𝑊)) = ( I ↾ 𝑇))
26	23, 25	eqtr2d 2773	. . 3 ⊢ ((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) → ( I ↾ 𝑇) = (1r‘𝐷))
27	1, 21	erngdv 41321	. . . . 5 ⊢ ((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) → ((EDRing‘𝐾)‘𝑊) ∈ DivRing)
28	22, 27	eqeltrd 2837	. . . 4 ⊢ ((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) → 𝐷 ∈ DivRing)
29		drngring 20673	. . . 4 ⊢ (𝐷 ∈ DivRing → 𝐷 ∈ Ring)
30	28, 29	syl 17	. . 3 ⊢ ((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) → 𝐷 ∈ Ring)
31		dvhgrp.b	. . . 4 ⊢ 𝐵 = (Base‘𝐾)
32		dvhgrp.o	. . . 4 ⊢ 0 = (0g‘𝐷)
33		dvhgrp.i	. . . 4 ⊢ 𝐼 = (invg‘𝐷)
34	31, 1, 2, 3, 4, 10, 17, 8, 32, 33	dvhgrp 41435	. . 3 ⊢ ((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) → 𝑈 ∈ Grp)
35	1, 2, 3, 4, 12	dvhvscacl 41431	. . . 4 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑠 ∈ 𝐸 ∧ 𝑡 ∈ (𝑇 × 𝐸))) → (𝑠 · 𝑡) ∈ (𝑇 × 𝐸))
36	35	3impb 1115	. . 3 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝑠 ∈ 𝐸 ∧ 𝑡 ∈ (𝑇 × 𝐸)) → (𝑠 · 𝑡) ∈ (𝑇 × 𝐸))
37		simpl 482	. . . . . . 7 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑠 ∈ 𝐸 ∧ 𝑡 ∈ (𝑇 × 𝐸) ∧ 𝑓 ∈ (𝑇 × 𝐸))) → (𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻))
38		simpr1 1196	. . . . . . 7 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑠 ∈ 𝐸 ∧ 𝑡 ∈ (𝑇 × 𝐸) ∧ 𝑓 ∈ (𝑇 × 𝐸))) → 𝑠 ∈ 𝐸)
39		simpr2 1197	. . . . . . . 8 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑠 ∈ 𝐸 ∧ 𝑡 ∈ (𝑇 × 𝐸) ∧ 𝑓 ∈ (𝑇 × 𝐸))) → 𝑡 ∈ (𝑇 × 𝐸))
40		xp1st 7967	. . . . . . . 8 ⊢ (𝑡 ∈ (𝑇 × 𝐸) → (1st ‘𝑡) ∈ 𝑇)
41	39, 40	syl 17	. . . . . . 7 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑠 ∈ 𝐸 ∧ 𝑡 ∈ (𝑇 × 𝐸) ∧ 𝑓 ∈ (𝑇 × 𝐸))) → (1st ‘𝑡) ∈ 𝑇)
42		simpr3 1198	. . . . . . . 8 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑠 ∈ 𝐸 ∧ 𝑡 ∈ (𝑇 × 𝐸) ∧ 𝑓 ∈ (𝑇 × 𝐸))) → 𝑓 ∈ (𝑇 × 𝐸))
43		xp1st 7967	. . . . . . . 8 ⊢ (𝑓 ∈ (𝑇 × 𝐸) → (1st ‘𝑓) ∈ 𝑇)
44	42, 43	syl 17	. . . . . . 7 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑠 ∈ 𝐸 ∧ 𝑡 ∈ (𝑇 × 𝐸) ∧ 𝑓 ∈ (𝑇 × 𝐸))) → (1st ‘𝑓) ∈ 𝑇)
45	1, 2, 3	tendospdi1 41348	. . . . . . 7 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑠 ∈ 𝐸 ∧ (1st ‘𝑡) ∈ 𝑇 ∧ (1st ‘𝑓) ∈ 𝑇)) → (𝑠‘((1st ‘𝑡) ∘ (1st ‘𝑓))) = ((𝑠‘(1st ‘𝑡)) ∘ (𝑠‘(1st ‘𝑓))))
46	37, 38, 41, 44, 45	syl13anc 1375	. . . . . 6 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑠 ∈ 𝐸 ∧ 𝑡 ∈ (𝑇 × 𝐸) ∧ 𝑓 ∈ (𝑇 × 𝐸))) → (𝑠‘((1st ‘𝑡) ∘ (1st ‘𝑓))) = ((𝑠‘(1st ‘𝑡)) ∘ (𝑠‘(1st ‘𝑓))))
47	1, 2, 3, 4, 10, 8, 17	dvhvadd 41420	. . . . . . . . . 10 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑡 ∈ (𝑇 × 𝐸) ∧ 𝑓 ∈ (𝑇 × 𝐸))) → (𝑡 + 𝑓) = ⟨((1st ‘𝑡) ∘ (1st ‘𝑓)), ((2nd ‘𝑡) ⨣ (2nd ‘𝑓))⟩)
48	47	3adantr1 1171	. . . . . . . . 9 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑠 ∈ 𝐸 ∧ 𝑡 ∈ (𝑇 × 𝐸) ∧ 𝑓 ∈ (𝑇 × 𝐸))) → (𝑡 + 𝑓) = ⟨((1st ‘𝑡) ∘ (1st ‘𝑓)), ((2nd ‘𝑡) ⨣ (2nd ‘𝑓))⟩)
49	48	fveq2d 6839	. . . . . . . 8 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑠 ∈ 𝐸 ∧ 𝑡 ∈ (𝑇 × 𝐸) ∧ 𝑓 ∈ (𝑇 × 𝐸))) → (1st ‘(𝑡 + 𝑓)) = (1st ‘⟨((1st ‘𝑡) ∘ (1st ‘𝑓)), ((2nd ‘𝑡) ⨣ (2nd ‘𝑓))⟩))
50		fvex 6848	. . . . . . . . . 10 ⊢ (1st ‘𝑡) ∈ V
51		fvex 6848	. . . . . . . . . 10 ⊢ (1st ‘𝑓) ∈ V
52	50, 51	coex 7874	. . . . . . . . 9 ⊢ ((1st ‘𝑡) ∘ (1st ‘𝑓)) ∈ V
53		ovex 7393	. . . . . . . . 9 ⊢ ((2nd ‘𝑡) ⨣ (2nd ‘𝑓)) ∈ V
54	52, 53	op1st 7943	. . . . . . . 8 ⊢ (1st ‘⟨((1st ‘𝑡) ∘ (1st ‘𝑓)), ((2nd ‘𝑡) ⨣ (2nd ‘𝑓))⟩) = ((1st ‘𝑡) ∘ (1st ‘𝑓))
55	49, 54	eqtrdi 2788	. . . . . . 7 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑠 ∈ 𝐸 ∧ 𝑡 ∈ (𝑇 × 𝐸) ∧ 𝑓 ∈ (𝑇 × 𝐸))) → (1st ‘(𝑡 + 𝑓)) = ((1st ‘𝑡) ∘ (1st ‘𝑓)))
56	55	fveq2d 6839	. . . . . 6 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑠 ∈ 𝐸 ∧ 𝑡 ∈ (𝑇 × 𝐸) ∧ 𝑓 ∈ (𝑇 × 𝐸))) → (𝑠‘(1st ‘(𝑡 + 𝑓))) = (𝑠‘((1st ‘𝑡) ∘ (1st ‘𝑓))))
57	1, 2, 3, 4, 12	dvhvsca 41429	. . . . . . . . . 10 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑠 ∈ 𝐸 ∧ 𝑡 ∈ (𝑇 × 𝐸))) → (𝑠 · 𝑡) = ⟨(𝑠‘(1st ‘𝑡)), (𝑠 ∘ (2nd ‘𝑡))⟩)
58	57	3adantr3 1173	. . . . . . . . 9 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑠 ∈ 𝐸 ∧ 𝑡 ∈ (𝑇 × 𝐸) ∧ 𝑓 ∈ (𝑇 × 𝐸))) → (𝑠 · 𝑡) = ⟨(𝑠‘(1st ‘𝑡)), (𝑠 ∘ (2nd ‘𝑡))⟩)
59	58	fveq2d 6839	. . . . . . . 8 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑠 ∈ 𝐸 ∧ 𝑡 ∈ (𝑇 × 𝐸) ∧ 𝑓 ∈ (𝑇 × 𝐸))) → (1st ‘(𝑠 · 𝑡)) = (1st ‘⟨(𝑠‘(1st ‘𝑡)), (𝑠 ∘ (2nd ‘𝑡))⟩))
60		fvex 6848	. . . . . . . . 9 ⊢ (𝑠‘(1st ‘𝑡)) ∈ V
61		vex 3445	. . . . . . . . . 10 ⊢ 𝑠 ∈ V
62		fvex 6848	. . . . . . . . . 10 ⊢ (2nd ‘𝑡) ∈ V
63	61, 62	coex 7874	. . . . . . . . 9 ⊢ (𝑠 ∘ (2nd ‘𝑡)) ∈ V
64	60, 63	op1st 7943	. . . . . . . 8 ⊢ (1st ‘⟨(𝑠‘(1st ‘𝑡)), (𝑠 ∘ (2nd ‘𝑡))⟩) = (𝑠‘(1st ‘𝑡))
65	59, 64	eqtrdi 2788	. . . . . . 7 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑠 ∈ 𝐸 ∧ 𝑡 ∈ (𝑇 × 𝐸) ∧ 𝑓 ∈ (𝑇 × 𝐸))) → (1st ‘(𝑠 · 𝑡)) = (𝑠‘(1st ‘𝑡)))
66	1, 2, 3, 4, 12	dvhvsca 41429	. . . . . . . . . 10 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑠 ∈ 𝐸 ∧ 𝑓 ∈ (𝑇 × 𝐸))) → (𝑠 · 𝑓) = ⟨(𝑠‘(1st ‘𝑓)), (𝑠 ∘ (2nd ‘𝑓))⟩)
67	66	3adantr2 1172	. . . . . . . . 9 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑠 ∈ 𝐸 ∧ 𝑡 ∈ (𝑇 × 𝐸) ∧ 𝑓 ∈ (𝑇 × 𝐸))) → (𝑠 · 𝑓) = ⟨(𝑠‘(1st ‘𝑓)), (𝑠 ∘ (2nd ‘𝑓))⟩)
68	67	fveq2d 6839	. . . . . . . 8 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑠 ∈ 𝐸 ∧ 𝑡 ∈ (𝑇 × 𝐸) ∧ 𝑓 ∈ (𝑇 × 𝐸))) → (1st ‘(𝑠 · 𝑓)) = (1st ‘⟨(𝑠‘(1st ‘𝑓)), (𝑠 ∘ (2nd ‘𝑓))⟩))
69		fvex 6848	. . . . . . . . 9 ⊢ (𝑠‘(1st ‘𝑓)) ∈ V
70		fvex 6848	. . . . . . . . . 10 ⊢ (2nd ‘𝑓) ∈ V
71	61, 70	coex 7874	. . . . . . . . 9 ⊢ (𝑠 ∘ (2nd ‘𝑓)) ∈ V
72	69, 71	op1st 7943	. . . . . . . 8 ⊢ (1st ‘⟨(𝑠‘(1st ‘𝑓)), (𝑠 ∘ (2nd ‘𝑓))⟩) = (𝑠‘(1st ‘𝑓))
73	68, 72	eqtrdi 2788	. . . . . . 7 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑠 ∈ 𝐸 ∧ 𝑡 ∈ (𝑇 × 𝐸) ∧ 𝑓 ∈ (𝑇 × 𝐸))) → (1st ‘(𝑠 · 𝑓)) = (𝑠‘(1st ‘𝑓)))
74	65, 73	coeq12d 5814	. . . . . 6 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑠 ∈ 𝐸 ∧ 𝑡 ∈ (𝑇 × 𝐸) ∧ 𝑓 ∈ (𝑇 × 𝐸))) → ((1st ‘(𝑠 · 𝑡)) ∘ (1st ‘(𝑠 · 𝑓))) = ((𝑠‘(1st ‘𝑡)) ∘ (𝑠‘(1st ‘𝑓))))
75	46, 56, 74	3eqtr4d 2782	. . . . 5 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑠 ∈ 𝐸 ∧ 𝑡 ∈ (𝑇 × 𝐸) ∧ 𝑓 ∈ (𝑇 × 𝐸))) → (𝑠‘(1st ‘(𝑡 + 𝑓))) = ((1st ‘(𝑠 · 𝑡)) ∘ (1st ‘(𝑠 · 𝑓))))
76	30	adantr 480	. . . . . . . 8 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑠 ∈ 𝐸 ∧ 𝑡 ∈ (𝑇 × 𝐸) ∧ 𝑓 ∈ (𝑇 × 𝐸))) → 𝐷 ∈ Ring)
77	16	adantr 480	. . . . . . . . 9 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑠 ∈ 𝐸 ∧ 𝑡 ∈ (𝑇 × 𝐸) ∧ 𝑓 ∈ (𝑇 × 𝐸))) → 𝐸 = (Base‘𝐷))
78	38, 77	eleqtrd 2839	. . . . . . . 8 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑠 ∈ 𝐸 ∧ 𝑡 ∈ (𝑇 × 𝐸) ∧ 𝑓 ∈ (𝑇 × 𝐸))) → 𝑠 ∈ (Base‘𝐷))
79		xp2nd 7968	. . . . . . . . . 10 ⊢ (𝑡 ∈ (𝑇 × 𝐸) → (2nd ‘𝑡) ∈ 𝐸)
80	39, 79	syl 17	. . . . . . . . 9 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑠 ∈ 𝐸 ∧ 𝑡 ∈ (𝑇 × 𝐸) ∧ 𝑓 ∈ (𝑇 × 𝐸))) → (2nd ‘𝑡) ∈ 𝐸)
81	80, 77	eleqtrd 2839	. . . . . . . 8 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑠 ∈ 𝐸 ∧ 𝑡 ∈ (𝑇 × 𝐸) ∧ 𝑓 ∈ (𝑇 × 𝐸))) → (2nd ‘𝑡) ∈ (Base‘𝐷))
82		xp2nd 7968	. . . . . . . . . 10 ⊢ (𝑓 ∈ (𝑇 × 𝐸) → (2nd ‘𝑓) ∈ 𝐸)
83	42, 82	syl 17	. . . . . . . . 9 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑠 ∈ 𝐸 ∧ 𝑡 ∈ (𝑇 × 𝐸) ∧ 𝑓 ∈ (𝑇 × 𝐸))) → (2nd ‘𝑓) ∈ 𝐸)
84	83, 77	eleqtrd 2839	. . . . . . . 8 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑠 ∈ 𝐸 ∧ 𝑡 ∈ (𝑇 × 𝐸) ∧ 𝑓 ∈ (𝑇 × 𝐸))) → (2nd ‘𝑓) ∈ (Base‘𝐷))
85	14, 17, 19	ringdi 20200	. . . . . . . 8 ⊢ ((𝐷 ∈ Ring ∧ (𝑠 ∈ (Base‘𝐷) ∧ (2nd ‘𝑡) ∈ (Base‘𝐷) ∧ (2nd ‘𝑓) ∈ (Base‘𝐷))) → (𝑠 × ((2nd ‘𝑡) ⨣ (2nd ‘𝑓))) = ((𝑠 × (2nd ‘𝑡)) ⨣ (𝑠 × (2nd ‘𝑓))))
86	76, 78, 81, 84, 85	syl13anc 1375	. . . . . . 7 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑠 ∈ 𝐸 ∧ 𝑡 ∈ (𝑇 × 𝐸) ∧ 𝑓 ∈ (𝑇 × 𝐸))) → (𝑠 × ((2nd ‘𝑡) ⨣ (2nd ‘𝑓))) = ((𝑠 × (2nd ‘𝑡)) ⨣ (𝑠 × (2nd ‘𝑓))))
87	14, 17	ringacl 20217	. . . . . . . . . 10 ⊢ ((𝐷 ∈ Ring ∧ (2nd ‘𝑡) ∈ (Base‘𝐷) ∧ (2nd ‘𝑓) ∈ (Base‘𝐷)) → ((2nd ‘𝑡) ⨣ (2nd ‘𝑓)) ∈ (Base‘𝐷))
88	76, 81, 84, 87	syl3anc 1374	. . . . . . . . 9 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑠 ∈ 𝐸 ∧ 𝑡 ∈ (𝑇 × 𝐸) ∧ 𝑓 ∈ (𝑇 × 𝐸))) → ((2nd ‘𝑡) ⨣ (2nd ‘𝑓)) ∈ (Base‘𝐷))
89	88, 77	eleqtrrd 2840	. . . . . . . 8 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑠 ∈ 𝐸 ∧ 𝑡 ∈ (𝑇 × 𝐸) ∧ 𝑓 ∈ (𝑇 × 𝐸))) → ((2nd ‘𝑡) ⨣ (2nd ‘𝑓)) ∈ 𝐸)
90	1, 2, 3, 4, 10, 19	dvhmulr 41414	. . . . . . . 8 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑠 ∈ 𝐸 ∧ ((2nd ‘𝑡) ⨣ (2nd ‘𝑓)) ∈ 𝐸)) → (𝑠 × ((2nd ‘𝑡) ⨣ (2nd ‘𝑓))) = (𝑠 ∘ ((2nd ‘𝑡) ⨣ (2nd ‘𝑓))))
91	37, 38, 89, 90	syl12anc 837	. . . . . . 7 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑠 ∈ 𝐸 ∧ 𝑡 ∈ (𝑇 × 𝐸) ∧ 𝑓 ∈ (𝑇 × 𝐸))) → (𝑠 × ((2nd ‘𝑡) ⨣ (2nd ‘𝑓))) = (𝑠 ∘ ((2nd ‘𝑡) ⨣ (2nd ‘𝑓))))
92	1, 2, 3, 4, 10, 19	dvhmulr 41414	. . . . . . . . 9 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑠 ∈ 𝐸 ∧ (2nd ‘𝑡) ∈ 𝐸)) → (𝑠 × (2nd ‘𝑡)) = (𝑠 ∘ (2nd ‘𝑡)))
93	37, 38, 80, 92	syl12anc 837	. . . . . . . 8 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑠 ∈ 𝐸 ∧ 𝑡 ∈ (𝑇 × 𝐸) ∧ 𝑓 ∈ (𝑇 × 𝐸))) → (𝑠 × (2nd ‘𝑡)) = (𝑠 ∘ (2nd ‘𝑡)))
94	1, 2, 3, 4, 10, 19	dvhmulr 41414	. . . . . . . . 9 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑠 ∈ 𝐸 ∧ (2nd ‘𝑓) ∈ 𝐸)) → (𝑠 × (2nd ‘𝑓)) = (𝑠 ∘ (2nd ‘𝑓)))
95	37, 38, 83, 94	syl12anc 837	. . . . . . . 8 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑠 ∈ 𝐸 ∧ 𝑡 ∈ (𝑇 × 𝐸) ∧ 𝑓 ∈ (𝑇 × 𝐸))) → (𝑠 × (2nd ‘𝑓)) = (𝑠 ∘ (2nd ‘𝑓)))
96	93, 95	oveq12d 7378	. . . . . . 7 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑠 ∈ 𝐸 ∧ 𝑡 ∈ (𝑇 × 𝐸) ∧ 𝑓 ∈ (𝑇 × 𝐸))) → ((𝑠 × (2nd ‘𝑡)) ⨣ (𝑠 × (2nd ‘𝑓))) = ((𝑠 ∘ (2nd ‘𝑡)) ⨣ (𝑠 ∘ (2nd ‘𝑓))))
97	86, 91, 96	3eqtr3d 2780	. . . . . 6 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑠 ∈ 𝐸 ∧ 𝑡 ∈ (𝑇 × 𝐸) ∧ 𝑓 ∈ (𝑇 × 𝐸))) → (𝑠 ∘ ((2nd ‘𝑡) ⨣ (2nd ‘𝑓))) = ((𝑠 ∘ (2nd ‘𝑡)) ⨣ (𝑠 ∘ (2nd ‘𝑓))))
98	48	fveq2d 6839	. . . . . . . 8 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑠 ∈ 𝐸 ∧ 𝑡 ∈ (𝑇 × 𝐸) ∧ 𝑓 ∈ (𝑇 × 𝐸))) → (2nd ‘(𝑡 + 𝑓)) = (2nd ‘⟨((1st ‘𝑡) ∘ (1st ‘𝑓)), ((2nd ‘𝑡) ⨣ (2nd ‘𝑓))⟩))
99	52, 53	op2nd 7944	. . . . . . . 8 ⊢ (2nd ‘⟨((1st ‘𝑡) ∘ (1st ‘𝑓)), ((2nd ‘𝑡) ⨣ (2nd ‘𝑓))⟩) = ((2nd ‘𝑡) ⨣ (2nd ‘𝑓))
100	98, 99	eqtrdi 2788	. . . . . . 7 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑠 ∈ 𝐸 ∧ 𝑡 ∈ (𝑇 × 𝐸) ∧ 𝑓 ∈ (𝑇 × 𝐸))) → (2nd ‘(𝑡 + 𝑓)) = ((2nd ‘𝑡) ⨣ (2nd ‘𝑓)))
101	100	coeq2d 5812	. . . . . 6 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑠 ∈ 𝐸 ∧ 𝑡 ∈ (𝑇 × 𝐸) ∧ 𝑓 ∈ (𝑇 × 𝐸))) → (𝑠 ∘ (2nd ‘(𝑡 + 𝑓))) = (𝑠 ∘ ((2nd ‘𝑡) ⨣ (2nd ‘𝑓))))
102	58	fveq2d 6839	. . . . . . . 8 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑠 ∈ 𝐸 ∧ 𝑡 ∈ (𝑇 × 𝐸) ∧ 𝑓 ∈ (𝑇 × 𝐸))) → (2nd ‘(𝑠 · 𝑡)) = (2nd ‘⟨(𝑠‘(1st ‘𝑡)), (𝑠 ∘ (2nd ‘𝑡))⟩))
103	60, 63	op2nd 7944	. . . . . . . 8 ⊢ (2nd ‘⟨(𝑠‘(1st ‘𝑡)), (𝑠 ∘ (2nd ‘𝑡))⟩) = (𝑠 ∘ (2nd ‘𝑡))
104	102, 103	eqtrdi 2788	. . . . . . 7 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑠 ∈ 𝐸 ∧ 𝑡 ∈ (𝑇 × 𝐸) ∧ 𝑓 ∈ (𝑇 × 𝐸))) → (2nd ‘(𝑠 · 𝑡)) = (𝑠 ∘ (2nd ‘𝑡)))
105	67	fveq2d 6839	. . . . . . . 8 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑠 ∈ 𝐸 ∧ 𝑡 ∈ (𝑇 × 𝐸) ∧ 𝑓 ∈ (𝑇 × 𝐸))) → (2nd ‘(𝑠 · 𝑓)) = (2nd ‘⟨(𝑠‘(1st ‘𝑓)), (𝑠 ∘ (2nd ‘𝑓))⟩))
106	69, 71	op2nd 7944	. . . . . . . 8 ⊢ (2nd ‘⟨(𝑠‘(1st ‘𝑓)), (𝑠 ∘ (2nd ‘𝑓))⟩) = (𝑠 ∘ (2nd ‘𝑓))
107	105, 106	eqtrdi 2788	. . . . . . 7 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑠 ∈ 𝐸 ∧ 𝑡 ∈ (𝑇 × 𝐸) ∧ 𝑓 ∈ (𝑇 × 𝐸))) → (2nd ‘(𝑠 · 𝑓)) = (𝑠 ∘ (2nd ‘𝑓)))
108	104, 107	oveq12d 7378	. . . . . 6 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑠 ∈ 𝐸 ∧ 𝑡 ∈ (𝑇 × 𝐸) ∧ 𝑓 ∈ (𝑇 × 𝐸))) → ((2nd ‘(𝑠 · 𝑡)) ⨣ (2nd ‘(𝑠 · 𝑓))) = ((𝑠 ∘ (2nd ‘𝑡)) ⨣ (𝑠 ∘ (2nd ‘𝑓))))
109	97, 101, 108	3eqtr4d 2782	. . . . 5 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑠 ∈ 𝐸 ∧ 𝑡 ∈ (𝑇 × 𝐸) ∧ 𝑓 ∈ (𝑇 × 𝐸))) → (𝑠 ∘ (2nd ‘(𝑡 + 𝑓))) = ((2nd ‘(𝑠 · 𝑡)) ⨣ (2nd ‘(𝑠 · 𝑓))))
110	75, 109	opeq12d 4838	. . . 4 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑠 ∈ 𝐸 ∧ 𝑡 ∈ (𝑇 × 𝐸) ∧ 𝑓 ∈ (𝑇 × 𝐸))) → ⟨(𝑠‘(1st ‘(𝑡 + 𝑓))), (𝑠 ∘ (2nd ‘(𝑡 + 𝑓)))⟩ = ⟨((1st ‘(𝑠 · 𝑡)) ∘ (1st ‘(𝑠 · 𝑓))), ((2nd ‘(𝑠 · 𝑡)) ⨣ (2nd ‘(𝑠 · 𝑓)))⟩)
111	1, 2, 3, 4, 10, 17, 8	dvhvaddcl 41423	. . . . . 6 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑡 ∈ (𝑇 × 𝐸) ∧ 𝑓 ∈ (𝑇 × 𝐸))) → (𝑡 + 𝑓) ∈ (𝑇 × 𝐸))
112	111	3adantr1 1171	. . . . 5 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑠 ∈ 𝐸 ∧ 𝑡 ∈ (𝑇 × 𝐸) ∧ 𝑓 ∈ (𝑇 × 𝐸))) → (𝑡 + 𝑓) ∈ (𝑇 × 𝐸))
113	1, 2, 3, 4, 12	dvhvsca 41429	. . . . 5 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑠 ∈ 𝐸 ∧ (𝑡 + 𝑓) ∈ (𝑇 × 𝐸))) → (𝑠 · (𝑡 + 𝑓)) = ⟨(𝑠‘(1st ‘(𝑡 + 𝑓))), (𝑠 ∘ (2nd ‘(𝑡 + 𝑓)))⟩)
114	37, 38, 112, 113	syl12anc 837	. . . 4 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑠 ∈ 𝐸 ∧ 𝑡 ∈ (𝑇 × 𝐸) ∧ 𝑓 ∈ (𝑇 × 𝐸))) → (𝑠 · (𝑡 + 𝑓)) = ⟨(𝑠‘(1st ‘(𝑡 + 𝑓))), (𝑠 ∘ (2nd ‘(𝑡 + 𝑓)))⟩)
115	35	3adantr3 1173	. . . . 5 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑠 ∈ 𝐸 ∧ 𝑡 ∈ (𝑇 × 𝐸) ∧ 𝑓 ∈ (𝑇 × 𝐸))) → (𝑠 · 𝑡) ∈ (𝑇 × 𝐸))
116	1, 2, 3, 4, 12	dvhvscacl 41431	. . . . . 6 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑠 ∈ 𝐸 ∧ 𝑓 ∈ (𝑇 × 𝐸))) → (𝑠 · 𝑓) ∈ (𝑇 × 𝐸))
117	116	3adantr2 1172	. . . . 5 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑠 ∈ 𝐸 ∧ 𝑡 ∈ (𝑇 × 𝐸) ∧ 𝑓 ∈ (𝑇 × 𝐸))) → (𝑠 · 𝑓) ∈ (𝑇 × 𝐸))
118	1, 2, 3, 4, 10, 8, 17	dvhvadd 41420	. . . . 5 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ ((𝑠 · 𝑡) ∈ (𝑇 × 𝐸) ∧ (𝑠 · 𝑓) ∈ (𝑇 × 𝐸))) → ((𝑠 · 𝑡) + (𝑠 · 𝑓)) = ⟨((1st ‘(𝑠 · 𝑡)) ∘ (1st ‘(𝑠 · 𝑓))), ((2nd ‘(𝑠 · 𝑡)) ⨣ (2nd ‘(𝑠 · 𝑓)))⟩)
119	37, 115, 117, 118	syl12anc 837	. . . 4 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑠 ∈ 𝐸 ∧ 𝑡 ∈ (𝑇 × 𝐸) ∧ 𝑓 ∈ (𝑇 × 𝐸))) → ((𝑠 · 𝑡) + (𝑠 · 𝑓)) = ⟨((1st ‘(𝑠 · 𝑡)) ∘ (1st ‘(𝑠 · 𝑓))), ((2nd ‘(𝑠 · 𝑡)) ⨣ (2nd ‘(𝑠 · 𝑓)))⟩)
120	110, 114, 119	3eqtr4d 2782	. . 3 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑠 ∈ 𝐸 ∧ 𝑡 ∈ (𝑇 × 𝐸) ∧ 𝑓 ∈ (𝑇 × 𝐸))) → (𝑠 · (𝑡 + 𝑓)) = ((𝑠 · 𝑡) + (𝑠 · 𝑓)))
121		simpl 482	. . . . . . 7 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑠 ∈ 𝐸 ∧ 𝑡 ∈ 𝐸 ∧ 𝑓 ∈ (𝑇 × 𝐸))) → (𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻))
122		simpr1 1196	. . . . . . 7 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑠 ∈ 𝐸 ∧ 𝑡 ∈ 𝐸 ∧ 𝑓 ∈ (𝑇 × 𝐸))) → 𝑠 ∈ 𝐸)
123		simpr2 1197	. . . . . . 7 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑠 ∈ 𝐸 ∧ 𝑡 ∈ 𝐸 ∧ 𝑓 ∈ (𝑇 × 𝐸))) → 𝑡 ∈ 𝐸)
124		simpr3 1198	. . . . . . . 8 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑠 ∈ 𝐸 ∧ 𝑡 ∈ 𝐸 ∧ 𝑓 ∈ (𝑇 × 𝐸))) → 𝑓 ∈ (𝑇 × 𝐸))
125	124, 43	syl 17	. . . . . . 7 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑠 ∈ 𝐸 ∧ 𝑡 ∈ 𝐸 ∧ 𝑓 ∈ (𝑇 × 𝐸))) → (1st ‘𝑓) ∈ 𝑇)
126		eqid 2737	. . . . . . . 8 ⊢ (+g‘((EDRing‘𝐾)‘𝑊)) = (+g‘((EDRing‘𝐾)‘𝑊))
127	1, 2, 3, 21, 126	erngplus2 41132	. . . . . . 7 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑠 ∈ 𝐸 ∧ 𝑡 ∈ 𝐸 ∧ (1st ‘𝑓) ∈ 𝑇)) → ((𝑠(+g‘((EDRing‘𝐾)‘𝑊))𝑡)‘(1st ‘𝑓)) = ((𝑠‘(1st ‘𝑓)) ∘ (𝑡‘(1st ‘𝑓))))
128	121, 122, 123, 125, 127	syl13anc 1375	. . . . . 6 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑠 ∈ 𝐸 ∧ 𝑡 ∈ 𝐸 ∧ 𝑓 ∈ (𝑇 × 𝐸))) → ((𝑠(+g‘((EDRing‘𝐾)‘𝑊))𝑡)‘(1st ‘𝑓)) = ((𝑠‘(1st ‘𝑓)) ∘ (𝑡‘(1st ‘𝑓))))
129	22	fveq2d 6839	. . . . . . . . . 10 ⊢ ((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) → (+g‘𝐷) = (+g‘((EDRing‘𝐾)‘𝑊)))
130	17, 129	eqtrid 2784	. . . . . . . . 9 ⊢ ((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) → ⨣ = (+g‘((EDRing‘𝐾)‘𝑊)))
131	130	oveqd 7377	. . . . . . . 8 ⊢ ((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) → (𝑠 ⨣ 𝑡) = (𝑠(+g‘((EDRing‘𝐾)‘𝑊))𝑡))
132	131	fveq1d 6837	. . . . . . 7 ⊢ ((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) → ((𝑠 ⨣ 𝑡)‘(1st ‘𝑓)) = ((𝑠(+g‘((EDRing‘𝐾)‘𝑊))𝑡)‘(1st ‘𝑓)))
133	132	adantr 480	. . . . . 6 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑠 ∈ 𝐸 ∧ 𝑡 ∈ 𝐸 ∧ 𝑓 ∈ (𝑇 × 𝐸))) → ((𝑠 ⨣ 𝑡)‘(1st ‘𝑓)) = ((𝑠(+g‘((EDRing‘𝐾)‘𝑊))𝑡)‘(1st ‘𝑓)))
134	66	3adantr2 1172	. . . . . . . . 9 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑠 ∈ 𝐸 ∧ 𝑡 ∈ 𝐸 ∧ 𝑓 ∈ (𝑇 × 𝐸))) → (𝑠 · 𝑓) = ⟨(𝑠‘(1st ‘𝑓)), (𝑠 ∘ (2nd ‘𝑓))⟩)
135	134	fveq2d 6839	. . . . . . . 8 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑠 ∈ 𝐸 ∧ 𝑡 ∈ 𝐸 ∧ 𝑓 ∈ (𝑇 × 𝐸))) → (1st ‘(𝑠 · 𝑓)) = (1st ‘⟨(𝑠‘(1st ‘𝑓)), (𝑠 ∘ (2nd ‘𝑓))⟩))
136	135, 72	eqtrdi 2788	. . . . . . 7 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑠 ∈ 𝐸 ∧ 𝑡 ∈ 𝐸 ∧ 𝑓 ∈ (𝑇 × 𝐸))) → (1st ‘(𝑠 · 𝑓)) = (𝑠‘(1st ‘𝑓)))
137	1, 2, 3, 4, 12	dvhvsca 41429	. . . . . . . . . 10 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑡 ∈ 𝐸 ∧ 𝑓 ∈ (𝑇 × 𝐸))) → (𝑡 · 𝑓) = ⟨(𝑡‘(1st ‘𝑓)), (𝑡 ∘ (2nd ‘𝑓))⟩)
138	137	3adantr1 1171	. . . . . . . . 9 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑠 ∈ 𝐸 ∧ 𝑡 ∈ 𝐸 ∧ 𝑓 ∈ (𝑇 × 𝐸))) → (𝑡 · 𝑓) = ⟨(𝑡‘(1st ‘𝑓)), (𝑡 ∘ (2nd ‘𝑓))⟩)
139	138	fveq2d 6839	. . . . . . . 8 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑠 ∈ 𝐸 ∧ 𝑡 ∈ 𝐸 ∧ 𝑓 ∈ (𝑇 × 𝐸))) → (1st ‘(𝑡 · 𝑓)) = (1st ‘⟨(𝑡‘(1st ‘𝑓)), (𝑡 ∘ (2nd ‘𝑓))⟩))
140		fvex 6848	. . . . . . . . 9 ⊢ (𝑡‘(1st ‘𝑓)) ∈ V
141		vex 3445	. . . . . . . . . 10 ⊢ 𝑡 ∈ V
142	141, 70	coex 7874	. . . . . . . . 9 ⊢ (𝑡 ∘ (2nd ‘𝑓)) ∈ V
143	140, 142	op1st 7943	. . . . . . . 8 ⊢ (1st ‘⟨(𝑡‘(1st ‘𝑓)), (𝑡 ∘ (2nd ‘𝑓))⟩) = (𝑡‘(1st ‘𝑓))
144	139, 143	eqtrdi 2788	. . . . . . 7 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑠 ∈ 𝐸 ∧ 𝑡 ∈ 𝐸 ∧ 𝑓 ∈ (𝑇 × 𝐸))) → (1st ‘(𝑡 · 𝑓)) = (𝑡‘(1st ‘𝑓)))
145	136, 144	coeq12d 5814	. . . . . 6 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑠 ∈ 𝐸 ∧ 𝑡 ∈ 𝐸 ∧ 𝑓 ∈ (𝑇 × 𝐸))) → ((1st ‘(𝑠 · 𝑓)) ∘ (1st ‘(𝑡 · 𝑓))) = ((𝑠‘(1st ‘𝑓)) ∘ (𝑡‘(1st ‘𝑓))))
146	128, 133, 145	3eqtr4d 2782	. . . . 5 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑠 ∈ 𝐸 ∧ 𝑡 ∈ 𝐸 ∧ 𝑓 ∈ (𝑇 × 𝐸))) → ((𝑠 ⨣ 𝑡)‘(1st ‘𝑓)) = ((1st ‘(𝑠 · 𝑓)) ∘ (1st ‘(𝑡 · 𝑓))))
147	30	adantr 480	. . . . . . . 8 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑠 ∈ 𝐸 ∧ 𝑡 ∈ 𝐸 ∧ 𝑓 ∈ (𝑇 × 𝐸))) → 𝐷 ∈ Ring)
148	16	adantr 480	. . . . . . . . 9 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑠 ∈ 𝐸 ∧ 𝑡 ∈ 𝐸 ∧ 𝑓 ∈ (𝑇 × 𝐸))) → 𝐸 = (Base‘𝐷))
149	122, 148	eleqtrd 2839	. . . . . . . 8 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑠 ∈ 𝐸 ∧ 𝑡 ∈ 𝐸 ∧ 𝑓 ∈ (𝑇 × 𝐸))) → 𝑠 ∈ (Base‘𝐷))
150	123, 148	eleqtrd 2839	. . . . . . . 8 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑠 ∈ 𝐸 ∧ 𝑡 ∈ 𝐸 ∧ 𝑓 ∈ (𝑇 × 𝐸))) → 𝑡 ∈ (Base‘𝐷))
151	124, 82	syl 17	. . . . . . . . 9 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑠 ∈ 𝐸 ∧ 𝑡 ∈ 𝐸 ∧ 𝑓 ∈ (𝑇 × 𝐸))) → (2nd ‘𝑓) ∈ 𝐸)
152	151, 148	eleqtrd 2839	. . . . . . . 8 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑠 ∈ 𝐸 ∧ 𝑡 ∈ 𝐸 ∧ 𝑓 ∈ (𝑇 × 𝐸))) → (2nd ‘𝑓) ∈ (Base‘𝐷))
153	14, 17, 19	ringdir 20201	. . . . . . . 8 ⊢ ((𝐷 ∈ Ring ∧ (𝑠 ∈ (Base‘𝐷) ∧ 𝑡 ∈ (Base‘𝐷) ∧ (2nd ‘𝑓) ∈ (Base‘𝐷))) → ((𝑠 ⨣ 𝑡) × (2nd ‘𝑓)) = ((𝑠 × (2nd ‘𝑓)) ⨣ (𝑡 × (2nd ‘𝑓))))
154	147, 149, 150, 152, 153	syl13anc 1375	. . . . . . 7 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑠 ∈ 𝐸 ∧ 𝑡 ∈ 𝐸 ∧ 𝑓 ∈ (𝑇 × 𝐸))) → ((𝑠 ⨣ 𝑡) × (2nd ‘𝑓)) = ((𝑠 × (2nd ‘𝑓)) ⨣ (𝑡 × (2nd ‘𝑓))))
155	14, 17	ringacl 20217	. . . . . . . . . 10 ⊢ ((𝐷 ∈ Ring ∧ 𝑠 ∈ (Base‘𝐷) ∧ 𝑡 ∈ (Base‘𝐷)) → (𝑠 ⨣ 𝑡) ∈ (Base‘𝐷))
156	147, 149, 150, 155	syl3anc 1374	. . . . . . . . 9 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑠 ∈ 𝐸 ∧ 𝑡 ∈ 𝐸 ∧ 𝑓 ∈ (𝑇 × 𝐸))) → (𝑠 ⨣ 𝑡) ∈ (Base‘𝐷))
157	156, 148	eleqtrrd 2840	. . . . . . . 8 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑠 ∈ 𝐸 ∧ 𝑡 ∈ 𝐸 ∧ 𝑓 ∈ (𝑇 × 𝐸))) → (𝑠 ⨣ 𝑡) ∈ 𝐸)
158	1, 2, 3, 4, 10, 19	dvhmulr 41414	. . . . . . . 8 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ ((𝑠 ⨣ 𝑡) ∈ 𝐸 ∧ (2nd ‘𝑓) ∈ 𝐸)) → ((𝑠 ⨣ 𝑡) × (2nd ‘𝑓)) = ((𝑠 ⨣ 𝑡) ∘ (2nd ‘𝑓)))
159	121, 157, 151, 158	syl12anc 837	. . . . . . 7 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑠 ∈ 𝐸 ∧ 𝑡 ∈ 𝐸 ∧ 𝑓 ∈ (𝑇 × 𝐸))) → ((𝑠 ⨣ 𝑡) × (2nd ‘𝑓)) = ((𝑠 ⨣ 𝑡) ∘ (2nd ‘𝑓)))
160	121, 122, 151, 94	syl12anc 837	. . . . . . . 8 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑠 ∈ 𝐸 ∧ 𝑡 ∈ 𝐸 ∧ 𝑓 ∈ (𝑇 × 𝐸))) → (𝑠 × (2nd ‘𝑓)) = (𝑠 ∘ (2nd ‘𝑓)))
161	1, 2, 3, 4, 10, 19	dvhmulr 41414	. . . . . . . . 9 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑡 ∈ 𝐸 ∧ (2nd ‘𝑓) ∈ 𝐸)) → (𝑡 × (2nd ‘𝑓)) = (𝑡 ∘ (2nd ‘𝑓)))
162	121, 123, 151, 161	syl12anc 837	. . . . . . . 8 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑠 ∈ 𝐸 ∧ 𝑡 ∈ 𝐸 ∧ 𝑓 ∈ (𝑇 × 𝐸))) → (𝑡 × (2nd ‘𝑓)) = (𝑡 ∘ (2nd ‘𝑓)))
163	160, 162	oveq12d 7378	. . . . . . 7 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑠 ∈ 𝐸 ∧ 𝑡 ∈ 𝐸 ∧ 𝑓 ∈ (𝑇 × 𝐸))) → ((𝑠 × (2nd ‘𝑓)) ⨣ (𝑡 × (2nd ‘𝑓))) = ((𝑠 ∘ (2nd ‘𝑓)) ⨣ (𝑡 ∘ (2nd ‘𝑓))))
164	154, 159, 163	3eqtr3d 2780	. . . . . 6 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑠 ∈ 𝐸 ∧ 𝑡 ∈ 𝐸 ∧ 𝑓 ∈ (𝑇 × 𝐸))) → ((𝑠 ⨣ 𝑡) ∘ (2nd ‘𝑓)) = ((𝑠 ∘ (2nd ‘𝑓)) ⨣ (𝑡 ∘ (2nd ‘𝑓))))
165	134	fveq2d 6839	. . . . . . . 8 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑠 ∈ 𝐸 ∧ 𝑡 ∈ 𝐸 ∧ 𝑓 ∈ (𝑇 × 𝐸))) → (2nd ‘(𝑠 · 𝑓)) = (2nd ‘⟨(𝑠‘(1st ‘𝑓)), (𝑠 ∘ (2nd ‘𝑓))⟩))
166	165, 106	eqtrdi 2788	. . . . . . 7 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑠 ∈ 𝐸 ∧ 𝑡 ∈ 𝐸 ∧ 𝑓 ∈ (𝑇 × 𝐸))) → (2nd ‘(𝑠 · 𝑓)) = (𝑠 ∘ (2nd ‘𝑓)))
167	138	fveq2d 6839	. . . . . . . 8 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑠 ∈ 𝐸 ∧ 𝑡 ∈ 𝐸 ∧ 𝑓 ∈ (𝑇 × 𝐸))) → (2nd ‘(𝑡 · 𝑓)) = (2nd ‘⟨(𝑡‘(1st ‘𝑓)), (𝑡 ∘ (2nd ‘𝑓))⟩))
168	140, 142	op2nd 7944	. . . . . . . 8 ⊢ (2nd ‘⟨(𝑡‘(1st ‘𝑓)), (𝑡 ∘ (2nd ‘𝑓))⟩) = (𝑡 ∘ (2nd ‘𝑓))
169	167, 168	eqtrdi 2788	. . . . . . 7 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑠 ∈ 𝐸 ∧ 𝑡 ∈ 𝐸 ∧ 𝑓 ∈ (𝑇 × 𝐸))) → (2nd ‘(𝑡 · 𝑓)) = (𝑡 ∘ (2nd ‘𝑓)))
170	166, 169	oveq12d 7378	. . . . . 6 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑠 ∈ 𝐸 ∧ 𝑡 ∈ 𝐸 ∧ 𝑓 ∈ (𝑇 × 𝐸))) → ((2nd ‘(𝑠 · 𝑓)) ⨣ (2nd ‘(𝑡 · 𝑓))) = ((𝑠 ∘ (2nd ‘𝑓)) ⨣ (𝑡 ∘ (2nd ‘𝑓))))
171	164, 170	eqtr4d 2775	. . . . 5 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑠 ∈ 𝐸 ∧ 𝑡 ∈ 𝐸 ∧ 𝑓 ∈ (𝑇 × 𝐸))) → ((𝑠 ⨣ 𝑡) ∘ (2nd ‘𝑓)) = ((2nd ‘(𝑠 · 𝑓)) ⨣ (2nd ‘(𝑡 · 𝑓))))
172	146, 171	opeq12d 4838	. . . 4 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑠 ∈ 𝐸 ∧ 𝑡 ∈ 𝐸 ∧ 𝑓 ∈ (𝑇 × 𝐸))) → ⟨((𝑠 ⨣ 𝑡)‘(1st ‘𝑓)), ((𝑠 ⨣ 𝑡) ∘ (2nd ‘𝑓))⟩ = ⟨((1st ‘(𝑠 · 𝑓)) ∘ (1st ‘(𝑡 · 𝑓))), ((2nd ‘(𝑠 · 𝑓)) ⨣ (2nd ‘(𝑡 · 𝑓)))⟩)
173	1, 2, 3, 4, 12	dvhvsca 41429	. . . . 5 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ ((𝑠 ⨣ 𝑡) ∈ 𝐸 ∧ 𝑓 ∈ (𝑇 × 𝐸))) → ((𝑠 ⨣ 𝑡) · 𝑓) = ⟨((𝑠 ⨣ 𝑡)‘(1st ‘𝑓)), ((𝑠 ⨣ 𝑡) ∘ (2nd ‘𝑓))⟩)
174	121, 157, 124, 173	syl12anc 837	. . . 4 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑠 ∈ 𝐸 ∧ 𝑡 ∈ 𝐸 ∧ 𝑓 ∈ (𝑇 × 𝐸))) → ((𝑠 ⨣ 𝑡) · 𝑓) = ⟨((𝑠 ⨣ 𝑡)‘(1st ‘𝑓)), ((𝑠 ⨣ 𝑡) ∘ (2nd ‘𝑓))⟩)
175	116	3adantr2 1172	. . . . 5 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑠 ∈ 𝐸 ∧ 𝑡 ∈ 𝐸 ∧ 𝑓 ∈ (𝑇 × 𝐸))) → (𝑠 · 𝑓) ∈ (𝑇 × 𝐸))
176	1, 2, 3, 4, 12	dvhvscacl 41431	. . . . . 6 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑡 ∈ 𝐸 ∧ 𝑓 ∈ (𝑇 × 𝐸))) → (𝑡 · 𝑓) ∈ (𝑇 × 𝐸))
177	176	3adantr1 1171	. . . . 5 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑠 ∈ 𝐸 ∧ 𝑡 ∈ 𝐸 ∧ 𝑓 ∈ (𝑇 × 𝐸))) → (𝑡 · 𝑓) ∈ (𝑇 × 𝐸))
178	1, 2, 3, 4, 10, 8, 17	dvhvadd 41420	. . . . 5 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ ((𝑠 · 𝑓) ∈ (𝑇 × 𝐸) ∧ (𝑡 · 𝑓) ∈ (𝑇 × 𝐸))) → ((𝑠 · 𝑓) + (𝑡 · 𝑓)) = ⟨((1st ‘(𝑠 · 𝑓)) ∘ (1st ‘(𝑡 · 𝑓))), ((2nd ‘(𝑠 · 𝑓)) ⨣ (2nd ‘(𝑡 · 𝑓)))⟩)
179	121, 175, 177, 178	syl12anc 837	. . . 4 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑠 ∈ 𝐸 ∧ 𝑡 ∈ 𝐸 ∧ 𝑓 ∈ (𝑇 × 𝐸))) → ((𝑠 · 𝑓) + (𝑡 · 𝑓)) = ⟨((1st ‘(𝑠 · 𝑓)) ∘ (1st ‘(𝑡 · 𝑓))), ((2nd ‘(𝑠 · 𝑓)) ⨣ (2nd ‘(𝑡 · 𝑓)))⟩)
180	172, 174, 179	3eqtr4d 2782	. . 3 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑠 ∈ 𝐸 ∧ 𝑡 ∈ 𝐸 ∧ 𝑓 ∈ (𝑇 × 𝐸))) → ((𝑠 ⨣ 𝑡) · 𝑓) = ((𝑠 · 𝑓) + (𝑡 · 𝑓)))
181	1, 2, 3	tendocoval 41094	. . . . . . 7 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑠 ∈ 𝐸 ∧ 𝑡 ∈ 𝐸) ∧ (1st ‘𝑓) ∈ 𝑇) → ((𝑠 ∘ 𝑡)‘(1st ‘𝑓)) = (𝑠‘(𝑡‘(1st ‘𝑓))))
182	121, 122, 123, 125, 181	syl121anc 1378	. . . . . 6 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑠 ∈ 𝐸 ∧ 𝑡 ∈ 𝐸 ∧ 𝑓 ∈ (𝑇 × 𝐸))) → ((𝑠 ∘ 𝑡)‘(1st ‘𝑓)) = (𝑠‘(𝑡‘(1st ‘𝑓))))
183		coass 6225	. . . . . . 7 ⊢ ((𝑠 ∘ 𝑡) ∘ (2nd ‘𝑓)) = (𝑠 ∘ (𝑡 ∘ (2nd ‘𝑓)))
184	183	a1i 11	. . . . . 6 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑠 ∈ 𝐸 ∧ 𝑡 ∈ 𝐸 ∧ 𝑓 ∈ (𝑇 × 𝐸))) → ((𝑠 ∘ 𝑡) ∘ (2nd ‘𝑓)) = (𝑠 ∘ (𝑡 ∘ (2nd ‘𝑓))))
185	182, 184	opeq12d 4838	. . . . 5 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑠 ∈ 𝐸 ∧ 𝑡 ∈ 𝐸 ∧ 𝑓 ∈ (𝑇 × 𝐸))) → ⟨((𝑠 ∘ 𝑡)‘(1st ‘𝑓)), ((𝑠 ∘ 𝑡) ∘ (2nd ‘𝑓))⟩ = ⟨(𝑠‘(𝑡‘(1st ‘𝑓))), (𝑠 ∘ (𝑡 ∘ (2nd ‘𝑓)))⟩)
186	1, 3	tendococl 41100	. . . . . . 7 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝑠 ∈ 𝐸 ∧ 𝑡 ∈ 𝐸) → (𝑠 ∘ 𝑡) ∈ 𝐸)
187	121, 122, 123, 186	syl3anc 1374	. . . . . 6 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑠 ∈ 𝐸 ∧ 𝑡 ∈ 𝐸 ∧ 𝑓 ∈ (𝑇 × 𝐸))) → (𝑠 ∘ 𝑡) ∈ 𝐸)
188	1, 2, 3, 4, 12	dvhvsca 41429	. . . . . 6 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ ((𝑠 ∘ 𝑡) ∈ 𝐸 ∧ 𝑓 ∈ (𝑇 × 𝐸))) → ((𝑠 ∘ 𝑡) · 𝑓) = ⟨((𝑠 ∘ 𝑡)‘(1st ‘𝑓)), ((𝑠 ∘ 𝑡) ∘ (2nd ‘𝑓))⟩)
189	121, 187, 124, 188	syl12anc 837	. . . . 5 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑠 ∈ 𝐸 ∧ 𝑡 ∈ 𝐸 ∧ 𝑓 ∈ (𝑇 × 𝐸))) → ((𝑠 ∘ 𝑡) · 𝑓) = ⟨((𝑠 ∘ 𝑡)‘(1st ‘𝑓)), ((𝑠 ∘ 𝑡) ∘ (2nd ‘𝑓))⟩)
190	1, 2, 3	tendocl 41095	. . . . . . 7 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝑡 ∈ 𝐸 ∧ (1st ‘𝑓) ∈ 𝑇) → (𝑡‘(1st ‘𝑓)) ∈ 𝑇)
191	121, 123, 125, 190	syl3anc 1374	. . . . . 6 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑠 ∈ 𝐸 ∧ 𝑡 ∈ 𝐸 ∧ 𝑓 ∈ (𝑇 × 𝐸))) → (𝑡‘(1st ‘𝑓)) ∈ 𝑇)
192	1, 3	tendococl 41100	. . . . . . 7 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝑡 ∈ 𝐸 ∧ (2nd ‘𝑓) ∈ 𝐸) → (𝑡 ∘ (2nd ‘𝑓)) ∈ 𝐸)
193	121, 123, 151, 192	syl3anc 1374	. . . . . 6 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑠 ∈ 𝐸 ∧ 𝑡 ∈ 𝐸 ∧ 𝑓 ∈ (𝑇 × 𝐸))) → (𝑡 ∘ (2nd ‘𝑓)) ∈ 𝐸)
194	1, 2, 3, 4, 12	dvhopvsca 41430	. . . . . 6 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑠 ∈ 𝐸 ∧ (𝑡‘(1st ‘𝑓)) ∈ 𝑇 ∧ (𝑡 ∘ (2nd ‘𝑓)) ∈ 𝐸)) → (𝑠 · ⟨(𝑡‘(1st ‘𝑓)), (𝑡 ∘ (2nd ‘𝑓))⟩) = ⟨(𝑠‘(𝑡‘(1st ‘𝑓))), (𝑠 ∘ (𝑡 ∘ (2nd ‘𝑓)))⟩)
195	121, 122, 191, 193, 194	syl13anc 1375	. . . . 5 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑠 ∈ 𝐸 ∧ 𝑡 ∈ 𝐸 ∧ 𝑓 ∈ (𝑇 × 𝐸))) → (𝑠 · ⟨(𝑡‘(1st ‘𝑓)), (𝑡 ∘ (2nd ‘𝑓))⟩) = ⟨(𝑠‘(𝑡‘(1st ‘𝑓))), (𝑠 ∘ (𝑡 ∘ (2nd ‘𝑓)))⟩)
196	185, 189, 195	3eqtr4d 2782	. . . 4 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑠 ∈ 𝐸 ∧ 𝑡 ∈ 𝐸 ∧ 𝑓 ∈ (𝑇 × 𝐸))) → ((𝑠 ∘ 𝑡) · 𝑓) = (𝑠 · ⟨(𝑡‘(1st ‘𝑓)), (𝑡 ∘ (2nd ‘𝑓))⟩))
197	1, 2, 3, 4, 10, 19	dvhmulr 41414	. . . . . 6 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑠 ∈ 𝐸 ∧ 𝑡 ∈ 𝐸)) → (𝑠 × 𝑡) = (𝑠 ∘ 𝑡))
198	197	3adantr3 1173	. . . . 5 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑠 ∈ 𝐸 ∧ 𝑡 ∈ 𝐸 ∧ 𝑓 ∈ (𝑇 × 𝐸))) → (𝑠 × 𝑡) = (𝑠 ∘ 𝑡))
199	198	oveq1d 7375	. . . 4 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑠 ∈ 𝐸 ∧ 𝑡 ∈ 𝐸 ∧ 𝑓 ∈ (𝑇 × 𝐸))) → ((𝑠 × 𝑡) · 𝑓) = ((𝑠 ∘ 𝑡) · 𝑓))
200	138	oveq2d 7376	. . . 4 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑠 ∈ 𝐸 ∧ 𝑡 ∈ 𝐸 ∧ 𝑓 ∈ (𝑇 × 𝐸))) → (𝑠 · (𝑡 · 𝑓)) = (𝑠 · ⟨(𝑡‘(1st ‘𝑓)), (𝑡 ∘ (2nd ‘𝑓))⟩))
201	196, 199, 200	3eqtr4d 2782	. . 3 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑠 ∈ 𝐸 ∧ 𝑡 ∈ 𝐸 ∧ 𝑓 ∈ (𝑇 × 𝐸))) → ((𝑠 × 𝑡) · 𝑓) = (𝑠 · (𝑡 · 𝑓)))
202		xp1st 7967	. . . . . . 7 ⊢ (𝑠 ∈ (𝑇 × 𝐸) → (1st ‘𝑠) ∈ 𝑇)
203	202	adantl 481	. . . . . 6 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝑠 ∈ (𝑇 × 𝐸)) → (1st ‘𝑠) ∈ 𝑇)
204		fvresi 7121	. . . . . 6 ⊢ ((1st ‘𝑠) ∈ 𝑇 → (( I ↾ 𝑇)‘(1st ‘𝑠)) = (1st ‘𝑠))
205	203, 204	syl 17	. . . . 5 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝑠 ∈ (𝑇 × 𝐸)) → (( I ↾ 𝑇)‘(1st ‘𝑠)) = (1st ‘𝑠))
206		xp2nd 7968	. . . . . . 7 ⊢ (𝑠 ∈ (𝑇 × 𝐸) → (2nd ‘𝑠) ∈ 𝐸)
207	1, 2, 3	tendof 41091	. . . . . . 7 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (2nd ‘𝑠) ∈ 𝐸) → (2nd ‘𝑠):𝑇⟶𝑇)
208	206, 207	sylan2 594	. . . . . 6 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝑠 ∈ (𝑇 × 𝐸)) → (2nd ‘𝑠):𝑇⟶𝑇)
209		fcoi2 6710	. . . . . 6 ⊢ ((2nd ‘𝑠):𝑇⟶𝑇 → (( I ↾ 𝑇) ∘ (2nd ‘𝑠)) = (2nd ‘𝑠))
210	208, 209	syl 17	. . . . 5 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝑠 ∈ (𝑇 × 𝐸)) → (( I ↾ 𝑇) ∘ (2nd ‘𝑠)) = (2nd ‘𝑠))
211	205, 210	opeq12d 4838	. . . 4 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝑠 ∈ (𝑇 × 𝐸)) → ⟨(( I ↾ 𝑇)‘(1st ‘𝑠)), (( I ↾ 𝑇) ∘ (2nd ‘𝑠))⟩ = ⟨(1st ‘𝑠), (2nd ‘𝑠)⟩)
212	1, 2, 3	tendoidcl 41097	. . . . . 6 ⊢ ((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) → ( I ↾ 𝑇) ∈ 𝐸)
213	212	anim1i 616	. . . . 5 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝑠 ∈ (𝑇 × 𝐸)) → (( I ↾ 𝑇) ∈ 𝐸 ∧ 𝑠 ∈ (𝑇 × 𝐸)))
214	1, 2, 3, 4, 12	dvhvsca 41429	. . . . 5 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (( I ↾ 𝑇) ∈ 𝐸 ∧ 𝑠 ∈ (𝑇 × 𝐸))) → (( I ↾ 𝑇) · 𝑠) = ⟨(( I ↾ 𝑇)‘(1st ‘𝑠)), (( I ↾ 𝑇) ∘ (2nd ‘𝑠))⟩)
215	213, 214	syldan 592	. . . 4 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝑠 ∈ (𝑇 × 𝐸)) → (( I ↾ 𝑇) · 𝑠) = ⟨(( I ↾ 𝑇)‘(1st ‘𝑠)), (( I ↾ 𝑇) ∘ (2nd ‘𝑠))⟩)
216		1st2nd2 7974	. . . . 5 ⊢ (𝑠 ∈ (𝑇 × 𝐸) → 𝑠 = ⟨(1st ‘𝑠), (2nd ‘𝑠)⟩)
217	216	adantl 481	. . . 4 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝑠 ∈ (𝑇 × 𝐸)) → 𝑠 = ⟨(1st ‘𝑠), (2nd ‘𝑠)⟩)
218	211, 215, 217	3eqtr4d 2782	. . 3 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝑠 ∈ (𝑇 × 𝐸)) → (( I ↾ 𝑇) · 𝑠) = 𝑠)
219	7, 9, 11, 13, 16, 18, 20, 26, 30, 34, 36, 120, 180, 201, 218	islmodd 20821	. 2 ⊢ ((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) → 𝑈 ∈ LMod)
220	10	islvec 21060	. 2 ⊢ (𝑈 ∈ LVec ↔ (𝑈 ∈ LMod ∧ 𝐷 ∈ DivRing))
221	219, 28, 220	sylanbrc 584	1 ⊢ ((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) → 𝑈 ∈ LVec)

Syntax hints:   → wi 4   ∧ wa 395   ∧ w3a 1087   = wceq 1542   ∈ wcel 2114  ⟨cop 4587   I cid 5519   × cxp 5623   ↾ cres 5627   ∘ ccom 5629  ⟶wf 6489  ‘cfv 6493  (class class class)co 7360  1^st c1st 7933  2^nd c2nd 7934  Basecbs 17140  +_gcplusg 17181  ._rcmulr 17182  Scalarcsca 17184   ·_𝑠 cvsca 17185  0_gc0g 17363  inv_gcminusg 18868  1_rcur 20120  Ringcrg 20172  DivRingcdr 20666  LModclmod 20815  LVecclvec 21058  HLchlt 39678  LHypclh 40312  LTrncltrn 40429  TEndoctendo 41080  EDRingcedring 41081  DVecHcdvh 41406

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 1912  ax-6 1969  ax-7 2010  ax-8 2116  ax-9 2124  ax-10 2147  ax-11 2163  ax-12 2185  ax-ext 2709  ax-rep 5225  ax-sep 5242  ax-nul 5252  ax-pow 5311  ax-pr 5378  ax-un 7682  ax-cnex 11086  ax-resscn 11087  ax-1cn 11088  ax-icn 11089  ax-addcl 11090  ax-addrcl 11091  ax-mulcl 11092  ax-mulrcl 11093  ax-mulcom 11094  ax-addass 11095  ax-mulass 11096  ax-distr 11097  ax-i2m1 11098  ax-1ne0 11099  ax-1rid 11100  ax-rnegex 11101  ax-rrecex 11102  ax-cnre 11103  ax-pre-lttri 11104  ax-pre-lttrn 11105  ax-pre-ltadd 11106  ax-pre-mulgt0 11107  ax-riotaBAD 39281

This theorem depends on definitions:  df-bi 207  df-an 396  df-or 849  df-3or 1088  df-3an 1089  df-tru 1545  df-fal 1555  df-ex 1782  df-nf 1786  df-sb 2069  df-mo 2540  df-eu 2570  df-clab 2716  df-cleq 2729  df-clel 2812  df-nfc 2886  df-ne 2934  df-nel 3038  df-ral 3053  df-rex 3062  df-rmo 3351  df-reu 3352  df-rab 3401  df-v 3443  df-sbc 3742  df-csb 3851  df-dif 3905  df-un 3907  df-in 3909  df-ss 3919  df-pss 3922  df-nul 4287  df-if 4481  df-pw 4557  df-sn 4582  df-pr 4584  df-tp 4586  df-op 4588  df-uni 4865  df-iun 4949  df-iin 4950  df-br 5100  df-opab 5162  df-mpt 5181  df-tr 5207  df-id 5520  df-eprel 5525  df-po 5533  df-so 5534  df-fr 5578  df-we 5580  df-xp 5631  df-rel 5632  df-cnv 5633  df-co 5634  df-dm 5635  df-rn 5636  df-res 5637  df-ima 5638  df-pred 6260  df-ord 6321  df-on 6322  df-lim 6323  df-suc 6324  df-iota 6449  df-fun 6495  df-fn 6496  df-f 6497  df-f1 6498  df-fo 6499  df-f1o 6500  df-fv 6501  df-riota 7317  df-ov 7363  df-oprab 7364  df-mpo 7365  df-om 7811  df-1st 7935  df-2nd 7936  df-tpos 8170  df-undef 8217  df-frecs 8225  df-wrecs 8256  df-recs 8305  df-rdg 8343  df-1o 8399  df-er 8637  df-map 8769  df-en 8888  df-dom 8889  df-sdom 8890  df-fin 8891  df-pnf 11172  df-mnf 11173  df-xr 11174  df-ltxr 11175  df-le 11176  df-sub 11370  df-neg 11371  df-nn 12150  df-2 12212  df-3 12213  df-4 12214  df-5 12215  df-6 12216  df-n0 12406  df-z 12493  df-uz 12756  df-fz 13428  df-struct 17078  df-sets 17095  df-slot 17113  df-ndx 17125  df-base 17141  df-ress 17162  df-plusg 17194  df-mulr 17195  df-sca 17197  df-vsca 17198  df-0g 17365  df-proset 18221  df-poset 18240  df-plt 18255  df-lub 18271  df-glb 18272  df-join 18273  df-meet 18274  df-p0 18350  df-p1 18351  df-lat 18359  df-clat 18426  df-mgm 18569  df-sgrp 18648  df-mnd 18664  df-grp 18870  df-minusg 18871  df-cmn 19715  df-abl 19716  df-mgp 20080  df-rng 20092  df-ur 20121  df-ring 20174  df-oppr 20277  df-dvdsr 20297  df-unit 20298  df-invr 20328  df-dvr 20341  df-drng 20668  df-lmod 20817  df-lvec 21059  df-oposet 39504  df-ol 39506  df-oml 39507  df-covers 39594  df-ats 39595  df-atl 39626  df-cvlat 39650  df-hlat 39679  df-llines 39826  df-lplanes 39827  df-lvols 39828  df-lines 39829  df-psubsp 39831  df-pmap 39832  df-padd 40124  df-lhyp 40316  df-laut 40317  df-ldil 40432  df-ltrn 40433  df-trl 40487  df-tendo 41083  df-edring 41085  df-dvech 41407

This theorem is referenced by:  dvhlvec  41437