Theorem dvhlveclem 41065

Description: Lemma for dvhlvec 41066. 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 2740	. . . . 5 ⊢ (Base‘𝑈) = (Base‘𝑈)
6	1, 2, 3, 4, 5	dvhvbase 41044	. . . 4 ⊢ ((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) → (Base‘𝑈) = (𝑇 × 𝐸))
7	6	eqcomd 2746	. . 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 2740	. . . . 5 ⊢ (Base‘𝐷) = (Base‘𝐷)
15	1, 3, 4, 10, 14	dvhbase 41040	. . . 4 ⊢ ((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) → (Base‘𝐷) = 𝐸)
16	15	eqcomd 2746	. . 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 2740	. . . . . 6 ⊢ ((EDRing‘𝐾)‘𝑊) = ((EDRing‘𝐾)‘𝑊)
22	1, 21, 4, 10	dvhsca 41039	. . . . 5 ⊢ ((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) → 𝐷 = ((EDRing‘𝐾)‘𝑊))
23	22	fveq2d 6924	. . . 4 ⊢ ((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) → (1r‘𝐷) = (1r‘((EDRing‘𝐾)‘𝑊)))
24		eqid 2740	. . . . 5 ⊢ (1r‘((EDRing‘𝐾)‘𝑊)) = (1r‘((EDRing‘𝐾)‘𝑊))
25	1, 2, 21, 24	erng1r 40952	. . . 4 ⊢ ((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) → (1r‘((EDRing‘𝐾)‘𝑊)) = ( I ↾ 𝑇))
26	23, 25	eqtr2d 2781	. . 3 ⊢ ((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) → ( I ↾ 𝑇) = (1r‘𝐷))
27	1, 21	erngdv 40950	. . . . 5 ⊢ ((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) → ((EDRing‘𝐾)‘𝑊) ∈ DivRing)
28	22, 27	eqeltrd 2844	. . . 4 ⊢ ((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) → 𝐷 ∈ DivRing)
29		drngring 20758	. . . 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 41064	. . 3 ⊢ ((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) → 𝑈 ∈ Grp)
35	1, 2, 3, 4, 12	dvhvscacl 41060	. . . 4 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑠 ∈ 𝐸 ∧ 𝑡 ∈ (𝑇 × 𝐸))) → (𝑠 · 𝑡) ∈ (𝑇 × 𝐸))
36	35	3impb 1115	. . 3 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝑠 ∈ 𝐸 ∧ 𝑡 ∈ (𝑇 × 𝐸)) → (𝑠 · 𝑡) ∈ (𝑇 × 𝐸))
37		simpl 482	. . . . . . 7 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑠 ∈ 𝐸 ∧ 𝑡 ∈ (𝑇 × 𝐸) ∧ 𝑓 ∈ (𝑇 × 𝐸))) → (𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻))
38		simpr1 1194	. . . . . . 7 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑠 ∈ 𝐸 ∧ 𝑡 ∈ (𝑇 × 𝐸) ∧ 𝑓 ∈ (𝑇 × 𝐸))) → 𝑠 ∈ 𝐸)
39		simpr2 1195	. . . . . . . 8 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑠 ∈ 𝐸 ∧ 𝑡 ∈ (𝑇 × 𝐸) ∧ 𝑓 ∈ (𝑇 × 𝐸))) → 𝑡 ∈ (𝑇 × 𝐸))
40		xp1st 8062	. . . . . . . 8 ⊢ (𝑡 ∈ (𝑇 × 𝐸) → (1st ‘𝑡) ∈ 𝑇)
41	39, 40	syl 17	. . . . . . 7 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑠 ∈ 𝐸 ∧ 𝑡 ∈ (𝑇 × 𝐸) ∧ 𝑓 ∈ (𝑇 × 𝐸))) → (1st ‘𝑡) ∈ 𝑇)
42		simpr3 1196	. . . . . . . 8 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑠 ∈ 𝐸 ∧ 𝑡 ∈ (𝑇 × 𝐸) ∧ 𝑓 ∈ (𝑇 × 𝐸))) → 𝑓 ∈ (𝑇 × 𝐸))
43		xp1st 8062	. . . . . . . 8 ⊢ (𝑓 ∈ (𝑇 × 𝐸) → (1st ‘𝑓) ∈ 𝑇)
44	42, 43	syl 17	. . . . . . 7 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑠 ∈ 𝐸 ∧ 𝑡 ∈ (𝑇 × 𝐸) ∧ 𝑓 ∈ (𝑇 × 𝐸))) → (1st ‘𝑓) ∈ 𝑇)
45	1, 2, 3	tendospdi1 40977	. . . . . . 7 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑠 ∈ 𝐸 ∧ (1st ‘𝑡) ∈ 𝑇 ∧ (1st ‘𝑓) ∈ 𝑇)) → (𝑠‘((1st ‘𝑡) ∘ (1st ‘𝑓))) = ((𝑠‘(1st ‘𝑡)) ∘ (𝑠‘(1st ‘𝑓))))
46	37, 38, 41, 44, 45	syl13anc 1372	. . . . . 6 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑠 ∈ 𝐸 ∧ 𝑡 ∈ (𝑇 × 𝐸) ∧ 𝑓 ∈ (𝑇 × 𝐸))) → (𝑠‘((1st ‘𝑡) ∘ (1st ‘𝑓))) = ((𝑠‘(1st ‘𝑡)) ∘ (𝑠‘(1st ‘𝑓))))
47	1, 2, 3, 4, 10, 8, 17	dvhvadd 41049	. . . . . . . . . 10 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑡 ∈ (𝑇 × 𝐸) ∧ 𝑓 ∈ (𝑇 × 𝐸))) → (𝑡 + 𝑓) = ⟨((1st ‘𝑡) ∘ (1st ‘𝑓)), ((2nd ‘𝑡) ⨣ (2nd ‘𝑓))⟩)
48	47	3adantr1 1169	. . . . . . . . 9 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑠 ∈ 𝐸 ∧ 𝑡 ∈ (𝑇 × 𝐸) ∧ 𝑓 ∈ (𝑇 × 𝐸))) → (𝑡 + 𝑓) = ⟨((1st ‘𝑡) ∘ (1st ‘𝑓)), ((2nd ‘𝑡) ⨣ (2nd ‘𝑓))⟩)
49	48	fveq2d 6924	. . . . . . . 8 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑠 ∈ 𝐸 ∧ 𝑡 ∈ (𝑇 × 𝐸) ∧ 𝑓 ∈ (𝑇 × 𝐸))) → (1st ‘(𝑡 + 𝑓)) = (1st ‘⟨((1st ‘𝑡) ∘ (1st ‘𝑓)), ((2nd ‘𝑡) ⨣ (2nd ‘𝑓))⟩))
50		fvex 6933	. . . . . . . . . 10 ⊢ (1st ‘𝑡) ∈ V
51		fvex 6933	. . . . . . . . . 10 ⊢ (1st ‘𝑓) ∈ V
52	50, 51	coex 7970	. . . . . . . . 9 ⊢ ((1st ‘𝑡) ∘ (1st ‘𝑓)) ∈ V
53		ovex 7481	. . . . . . . . 9 ⊢ ((2nd ‘𝑡) ⨣ (2nd ‘𝑓)) ∈ V
54	52, 53	op1st 8038	. . . . . . . 8 ⊢ (1st ‘⟨((1st ‘𝑡) ∘ (1st ‘𝑓)), ((2nd ‘𝑡) ⨣ (2nd ‘𝑓))⟩) = ((1st ‘𝑡) ∘ (1st ‘𝑓))
55	49, 54	eqtrdi 2796	. . . . . . 7 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑠 ∈ 𝐸 ∧ 𝑡 ∈ (𝑇 × 𝐸) ∧ 𝑓 ∈ (𝑇 × 𝐸))) → (1st ‘(𝑡 + 𝑓)) = ((1st ‘𝑡) ∘ (1st ‘𝑓)))
56	55	fveq2d 6924	. . . . . 6 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑠 ∈ 𝐸 ∧ 𝑡 ∈ (𝑇 × 𝐸) ∧ 𝑓 ∈ (𝑇 × 𝐸))) → (𝑠‘(1st ‘(𝑡 + 𝑓))) = (𝑠‘((1st ‘𝑡) ∘ (1st ‘𝑓))))
57	1, 2, 3, 4, 12	dvhvsca 41058	. . . . . . . . . 10 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑠 ∈ 𝐸 ∧ 𝑡 ∈ (𝑇 × 𝐸))) → (𝑠 · 𝑡) = ⟨(𝑠‘(1st ‘𝑡)), (𝑠 ∘ (2nd ‘𝑡))⟩)
58	57	3adantr3 1171	. . . . . . . . 9 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑠 ∈ 𝐸 ∧ 𝑡 ∈ (𝑇 × 𝐸) ∧ 𝑓 ∈ (𝑇 × 𝐸))) → (𝑠 · 𝑡) = ⟨(𝑠‘(1st ‘𝑡)), (𝑠 ∘ (2nd ‘𝑡))⟩)
59	58	fveq2d 6924	. . . . . . . 8 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑠 ∈ 𝐸 ∧ 𝑡 ∈ (𝑇 × 𝐸) ∧ 𝑓 ∈ (𝑇 × 𝐸))) → (1st ‘(𝑠 · 𝑡)) = (1st ‘⟨(𝑠‘(1st ‘𝑡)), (𝑠 ∘ (2nd ‘𝑡))⟩))
60		fvex 6933	. . . . . . . . 9 ⊢ (𝑠‘(1st ‘𝑡)) ∈ V
61		vex 3492	. . . . . . . . . 10 ⊢ 𝑠 ∈ V
62		fvex 6933	. . . . . . . . . 10 ⊢ (2nd ‘𝑡) ∈ V
63	61, 62	coex 7970	. . . . . . . . 9 ⊢ (𝑠 ∘ (2nd ‘𝑡)) ∈ V
64	60, 63	op1st 8038	. . . . . . . 8 ⊢ (1st ‘⟨(𝑠‘(1st ‘𝑡)), (𝑠 ∘ (2nd ‘𝑡))⟩) = (𝑠‘(1st ‘𝑡))
65	59, 64	eqtrdi 2796	. . . . . . 7 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑠 ∈ 𝐸 ∧ 𝑡 ∈ (𝑇 × 𝐸) ∧ 𝑓 ∈ (𝑇 × 𝐸))) → (1st ‘(𝑠 · 𝑡)) = (𝑠‘(1st ‘𝑡)))
66	1, 2, 3, 4, 12	dvhvsca 41058	. . . . . . . . . 10 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑠 ∈ 𝐸 ∧ 𝑓 ∈ (𝑇 × 𝐸))) → (𝑠 · 𝑓) = ⟨(𝑠‘(1st ‘𝑓)), (𝑠 ∘ (2nd ‘𝑓))⟩)
67	66	3adantr2 1170	. . . . . . . . 9 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑠 ∈ 𝐸 ∧ 𝑡 ∈ (𝑇 × 𝐸) ∧ 𝑓 ∈ (𝑇 × 𝐸))) → (𝑠 · 𝑓) = ⟨(𝑠‘(1st ‘𝑓)), (𝑠 ∘ (2nd ‘𝑓))⟩)
68	67	fveq2d 6924	. . . . . . . 8 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑠 ∈ 𝐸 ∧ 𝑡 ∈ (𝑇 × 𝐸) ∧ 𝑓 ∈ (𝑇 × 𝐸))) → (1st ‘(𝑠 · 𝑓)) = (1st ‘⟨(𝑠‘(1st ‘𝑓)), (𝑠 ∘ (2nd ‘𝑓))⟩))
69		fvex 6933	. . . . . . . . 9 ⊢ (𝑠‘(1st ‘𝑓)) ∈ V
70		fvex 6933	. . . . . . . . . 10 ⊢ (2nd ‘𝑓) ∈ V
71	61, 70	coex 7970	. . . . . . . . 9 ⊢ (𝑠 ∘ (2nd ‘𝑓)) ∈ V
72	69, 71	op1st 8038	. . . . . . . 8 ⊢ (1st ‘⟨(𝑠‘(1st ‘𝑓)), (𝑠 ∘ (2nd ‘𝑓))⟩) = (𝑠‘(1st ‘𝑓))
73	68, 72	eqtrdi 2796	. . . . . . 7 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑠 ∈ 𝐸 ∧ 𝑡 ∈ (𝑇 × 𝐸) ∧ 𝑓 ∈ (𝑇 × 𝐸))) → (1st ‘(𝑠 · 𝑓)) = (𝑠‘(1st ‘𝑓)))
74	65, 73	coeq12d 5889	. . . . . 6 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑠 ∈ 𝐸 ∧ 𝑡 ∈ (𝑇 × 𝐸) ∧ 𝑓 ∈ (𝑇 × 𝐸))) → ((1st ‘(𝑠 · 𝑡)) ∘ (1st ‘(𝑠 · 𝑓))) = ((𝑠‘(1st ‘𝑡)) ∘ (𝑠‘(1st ‘𝑓))))
75	46, 56, 74	3eqtr4d 2790	. . . . 5 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑠 ∈ 𝐸 ∧ 𝑡 ∈ (𝑇 × 𝐸) ∧ 𝑓 ∈ (𝑇 × 𝐸))) → (𝑠‘(1st ‘(𝑡 + 𝑓))) = ((1st ‘(𝑠 · 𝑡)) ∘ (1st ‘(𝑠 · 𝑓))))
76	30	adantr 480	. . . . . . . 8 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑠 ∈ 𝐸 ∧ 𝑡 ∈ (𝑇 × 𝐸) ∧ 𝑓 ∈ (𝑇 × 𝐸))) → 𝐷 ∈ Ring)
77	16	adantr 480	. . . . . . . . 9 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑠 ∈ 𝐸 ∧ 𝑡 ∈ (𝑇 × 𝐸) ∧ 𝑓 ∈ (𝑇 × 𝐸))) → 𝐸 = (Base‘𝐷))
78	38, 77	eleqtrd 2846	. . . . . . . 8 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑠 ∈ 𝐸 ∧ 𝑡 ∈ (𝑇 × 𝐸) ∧ 𝑓 ∈ (𝑇 × 𝐸))) → 𝑠 ∈ (Base‘𝐷))
79		xp2nd 8063	. . . . . . . . . 10 ⊢ (𝑡 ∈ (𝑇 × 𝐸) → (2nd ‘𝑡) ∈ 𝐸)
80	39, 79	syl 17	. . . . . . . . 9 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑠 ∈ 𝐸 ∧ 𝑡 ∈ (𝑇 × 𝐸) ∧ 𝑓 ∈ (𝑇 × 𝐸))) → (2nd ‘𝑡) ∈ 𝐸)
81	80, 77	eleqtrd 2846	. . . . . . . 8 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑠 ∈ 𝐸 ∧ 𝑡 ∈ (𝑇 × 𝐸) ∧ 𝑓 ∈ (𝑇 × 𝐸))) → (2nd ‘𝑡) ∈ (Base‘𝐷))
82		xp2nd 8063	. . . . . . . . . 10 ⊢ (𝑓 ∈ (𝑇 × 𝐸) → (2nd ‘𝑓) ∈ 𝐸)
83	42, 82	syl 17	. . . . . . . . 9 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑠 ∈ 𝐸 ∧ 𝑡 ∈ (𝑇 × 𝐸) ∧ 𝑓 ∈ (𝑇 × 𝐸))) → (2nd ‘𝑓) ∈ 𝐸)
84	83, 77	eleqtrd 2846	. . . . . . . 8 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑠 ∈ 𝐸 ∧ 𝑡 ∈ (𝑇 × 𝐸) ∧ 𝑓 ∈ (𝑇 × 𝐸))) → (2nd ‘𝑓) ∈ (Base‘𝐷))
85	14, 17, 19	ringdi 20287	. . . . . . . 8 ⊢ ((𝐷 ∈ Ring ∧ (𝑠 ∈ (Base‘𝐷) ∧ (2nd ‘𝑡) ∈ (Base‘𝐷) ∧ (2nd ‘𝑓) ∈ (Base‘𝐷))) → (𝑠 × ((2nd ‘𝑡) ⨣ (2nd ‘𝑓))) = ((𝑠 × (2nd ‘𝑡)) ⨣ (𝑠 × (2nd ‘𝑓))))
86	76, 78, 81, 84, 85	syl13anc 1372	. . . . . . 7 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑠 ∈ 𝐸 ∧ 𝑡 ∈ (𝑇 × 𝐸) ∧ 𝑓 ∈ (𝑇 × 𝐸))) → (𝑠 × ((2nd ‘𝑡) ⨣ (2nd ‘𝑓))) = ((𝑠 × (2nd ‘𝑡)) ⨣ (𝑠 × (2nd ‘𝑓))))
87	14, 17	ringacl 20301	. . . . . . . . . 10 ⊢ ((𝐷 ∈ Ring ∧ (2nd ‘𝑡) ∈ (Base‘𝐷) ∧ (2nd ‘𝑓) ∈ (Base‘𝐷)) → ((2nd ‘𝑡) ⨣ (2nd ‘𝑓)) ∈ (Base‘𝐷))
88	76, 81, 84, 87	syl3anc 1371	. . . . . . . . 9 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑠 ∈ 𝐸 ∧ 𝑡 ∈ (𝑇 × 𝐸) ∧ 𝑓 ∈ (𝑇 × 𝐸))) → ((2nd ‘𝑡) ⨣ (2nd ‘𝑓)) ∈ (Base‘𝐷))
89	88, 77	eleqtrrd 2847	. . . . . . . 8 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑠 ∈ 𝐸 ∧ 𝑡 ∈ (𝑇 × 𝐸) ∧ 𝑓 ∈ (𝑇 × 𝐸))) → ((2nd ‘𝑡) ⨣ (2nd ‘𝑓)) ∈ 𝐸)
90	1, 2, 3, 4, 10, 19	dvhmulr 41043	. . . . . . . 8 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑠 ∈ 𝐸 ∧ ((2nd ‘𝑡) ⨣ (2nd ‘𝑓)) ∈ 𝐸)) → (𝑠 × ((2nd ‘𝑡) ⨣ (2nd ‘𝑓))) = (𝑠 ∘ ((2nd ‘𝑡) ⨣ (2nd ‘𝑓))))
91	37, 38, 89, 90	syl12anc 836	. . . . . . 7 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑠 ∈ 𝐸 ∧ 𝑡 ∈ (𝑇 × 𝐸) ∧ 𝑓 ∈ (𝑇 × 𝐸))) → (𝑠 × ((2nd ‘𝑡) ⨣ (2nd ‘𝑓))) = (𝑠 ∘ ((2nd ‘𝑡) ⨣ (2nd ‘𝑓))))
92	1, 2, 3, 4, 10, 19	dvhmulr 41043	. . . . . . . . 9 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑠 ∈ 𝐸 ∧ (2nd ‘𝑡) ∈ 𝐸)) → (𝑠 × (2nd ‘𝑡)) = (𝑠 ∘ (2nd ‘𝑡)))
93	37, 38, 80, 92	syl12anc 836	. . . . . . . 8 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑠 ∈ 𝐸 ∧ 𝑡 ∈ (𝑇 × 𝐸) ∧ 𝑓 ∈ (𝑇 × 𝐸))) → (𝑠 × (2nd ‘𝑡)) = (𝑠 ∘ (2nd ‘𝑡)))
94	1, 2, 3, 4, 10, 19	dvhmulr 41043	. . . . . . . . 9 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑠 ∈ 𝐸 ∧ (2nd ‘𝑓) ∈ 𝐸)) → (𝑠 × (2nd ‘𝑓)) = (𝑠 ∘ (2nd ‘𝑓)))
95	37, 38, 83, 94	syl12anc 836	. . . . . . . 8 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑠 ∈ 𝐸 ∧ 𝑡 ∈ (𝑇 × 𝐸) ∧ 𝑓 ∈ (𝑇 × 𝐸))) → (𝑠 × (2nd ‘𝑓)) = (𝑠 ∘ (2nd ‘𝑓)))
96	93, 95	oveq12d 7466	. . . . . . 7 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑠 ∈ 𝐸 ∧ 𝑡 ∈ (𝑇 × 𝐸) ∧ 𝑓 ∈ (𝑇 × 𝐸))) → ((𝑠 × (2nd ‘𝑡)) ⨣ (𝑠 × (2nd ‘𝑓))) = ((𝑠 ∘ (2nd ‘𝑡)) ⨣ (𝑠 ∘ (2nd ‘𝑓))))
97	86, 91, 96	3eqtr3d 2788	. . . . . 6 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑠 ∈ 𝐸 ∧ 𝑡 ∈ (𝑇 × 𝐸) ∧ 𝑓 ∈ (𝑇 × 𝐸))) → (𝑠 ∘ ((2nd ‘𝑡) ⨣ (2nd ‘𝑓))) = ((𝑠 ∘ (2nd ‘𝑡)) ⨣ (𝑠 ∘ (2nd ‘𝑓))))
98	48	fveq2d 6924	. . . . . . . 8 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑠 ∈ 𝐸 ∧ 𝑡 ∈ (𝑇 × 𝐸) ∧ 𝑓 ∈ (𝑇 × 𝐸))) → (2nd ‘(𝑡 + 𝑓)) = (2nd ‘⟨((1st ‘𝑡) ∘ (1st ‘𝑓)), ((2nd ‘𝑡) ⨣ (2nd ‘𝑓))⟩))
99	52, 53	op2nd 8039	. . . . . . . 8 ⊢ (2nd ‘⟨((1st ‘𝑡) ∘ (1st ‘𝑓)), ((2nd ‘𝑡) ⨣ (2nd ‘𝑓))⟩) = ((2nd ‘𝑡) ⨣ (2nd ‘𝑓))
100	98, 99	eqtrdi 2796	. . . . . . 7 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑠 ∈ 𝐸 ∧ 𝑡 ∈ (𝑇 × 𝐸) ∧ 𝑓 ∈ (𝑇 × 𝐸))) → (2nd ‘(𝑡 + 𝑓)) = ((2nd ‘𝑡) ⨣ (2nd ‘𝑓)))
101	100	coeq2d 5887	. . . . . 6 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑠 ∈ 𝐸 ∧ 𝑡 ∈ (𝑇 × 𝐸) ∧ 𝑓 ∈ (𝑇 × 𝐸))) → (𝑠 ∘ (2nd ‘(𝑡 + 𝑓))) = (𝑠 ∘ ((2nd ‘𝑡) ⨣ (2nd ‘𝑓))))
102	58	fveq2d 6924	. . . . . . . 8 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑠 ∈ 𝐸 ∧ 𝑡 ∈ (𝑇 × 𝐸) ∧ 𝑓 ∈ (𝑇 × 𝐸))) → (2nd ‘(𝑠 · 𝑡)) = (2nd ‘⟨(𝑠‘(1st ‘𝑡)), (𝑠 ∘ (2nd ‘𝑡))⟩))
103	60, 63	op2nd 8039	. . . . . . . 8 ⊢ (2nd ‘⟨(𝑠‘(1st ‘𝑡)), (𝑠 ∘ (2nd ‘𝑡))⟩) = (𝑠 ∘ (2nd ‘𝑡))
104	102, 103	eqtrdi 2796	. . . . . . 7 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑠 ∈ 𝐸 ∧ 𝑡 ∈ (𝑇 × 𝐸) ∧ 𝑓 ∈ (𝑇 × 𝐸))) → (2nd ‘(𝑠 · 𝑡)) = (𝑠 ∘ (2nd ‘𝑡)))
105	67	fveq2d 6924	. . . . . . . 8 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑠 ∈ 𝐸 ∧ 𝑡 ∈ (𝑇 × 𝐸) ∧ 𝑓 ∈ (𝑇 × 𝐸))) → (2nd ‘(𝑠 · 𝑓)) = (2nd ‘⟨(𝑠‘(1st ‘𝑓)), (𝑠 ∘ (2nd ‘𝑓))⟩))
106	69, 71	op2nd 8039	. . . . . . . 8 ⊢ (2nd ‘⟨(𝑠‘(1st ‘𝑓)), (𝑠 ∘ (2nd ‘𝑓))⟩) = (𝑠 ∘ (2nd ‘𝑓))
107	105, 106	eqtrdi 2796	. . . . . . 7 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑠 ∈ 𝐸 ∧ 𝑡 ∈ (𝑇 × 𝐸) ∧ 𝑓 ∈ (𝑇 × 𝐸))) → (2nd ‘(𝑠 · 𝑓)) = (𝑠 ∘ (2nd ‘𝑓)))
108	104, 107	oveq12d 7466	. . . . . 6 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑠 ∈ 𝐸 ∧ 𝑡 ∈ (𝑇 × 𝐸) ∧ 𝑓 ∈ (𝑇 × 𝐸))) → ((2nd ‘(𝑠 · 𝑡)) ⨣ (2nd ‘(𝑠 · 𝑓))) = ((𝑠 ∘ (2nd ‘𝑡)) ⨣ (𝑠 ∘ (2nd ‘𝑓))))
109	97, 101, 108	3eqtr4d 2790	. . . . 5 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑠 ∈ 𝐸 ∧ 𝑡 ∈ (𝑇 × 𝐸) ∧ 𝑓 ∈ (𝑇 × 𝐸))) → (𝑠 ∘ (2nd ‘(𝑡 + 𝑓))) = ((2nd ‘(𝑠 · 𝑡)) ⨣ (2nd ‘(𝑠 · 𝑓))))
110	75, 109	opeq12d 4905	. . . 4 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑠 ∈ 𝐸 ∧ 𝑡 ∈ (𝑇 × 𝐸) ∧ 𝑓 ∈ (𝑇 × 𝐸))) → ⟨(𝑠‘(1st ‘(𝑡 + 𝑓))), (𝑠 ∘ (2nd ‘(𝑡 + 𝑓)))⟩ = ⟨((1st ‘(𝑠 · 𝑡)) ∘ (1st ‘(𝑠 · 𝑓))), ((2nd ‘(𝑠 · 𝑡)) ⨣ (2nd ‘(𝑠 · 𝑓)))⟩)
111	1, 2, 3, 4, 10, 17, 8	dvhvaddcl 41052	. . . . . 6 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑡 ∈ (𝑇 × 𝐸) ∧ 𝑓 ∈ (𝑇 × 𝐸))) → (𝑡 + 𝑓) ∈ (𝑇 × 𝐸))
112	111	3adantr1 1169	. . . . 5 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑠 ∈ 𝐸 ∧ 𝑡 ∈ (𝑇 × 𝐸) ∧ 𝑓 ∈ (𝑇 × 𝐸))) → (𝑡 + 𝑓) ∈ (𝑇 × 𝐸))
113	1, 2, 3, 4, 12	dvhvsca 41058	. . . . 5 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑠 ∈ 𝐸 ∧ (𝑡 + 𝑓) ∈ (𝑇 × 𝐸))) → (𝑠 · (𝑡 + 𝑓)) = ⟨(𝑠‘(1st ‘(𝑡 + 𝑓))), (𝑠 ∘ (2nd ‘(𝑡 + 𝑓)))⟩)
114	37, 38, 112, 113	syl12anc 836	. . . 4 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑠 ∈ 𝐸 ∧ 𝑡 ∈ (𝑇 × 𝐸) ∧ 𝑓 ∈ (𝑇 × 𝐸))) → (𝑠 · (𝑡 + 𝑓)) = ⟨(𝑠‘(1st ‘(𝑡 + 𝑓))), (𝑠 ∘ (2nd ‘(𝑡 + 𝑓)))⟩)
115	35	3adantr3 1171	. . . . 5 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑠 ∈ 𝐸 ∧ 𝑡 ∈ (𝑇 × 𝐸) ∧ 𝑓 ∈ (𝑇 × 𝐸))) → (𝑠 · 𝑡) ∈ (𝑇 × 𝐸))
116	1, 2, 3, 4, 12	dvhvscacl 41060	. . . . . 6 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑠 ∈ 𝐸 ∧ 𝑓 ∈ (𝑇 × 𝐸))) → (𝑠 · 𝑓) ∈ (𝑇 × 𝐸))
117	116	3adantr2 1170	. . . . 5 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑠 ∈ 𝐸 ∧ 𝑡 ∈ (𝑇 × 𝐸) ∧ 𝑓 ∈ (𝑇 × 𝐸))) → (𝑠 · 𝑓) ∈ (𝑇 × 𝐸))
118	1, 2, 3, 4, 10, 8, 17	dvhvadd 41049	. . . . 5 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ ((𝑠 · 𝑡) ∈ (𝑇 × 𝐸) ∧ (𝑠 · 𝑓) ∈ (𝑇 × 𝐸))) → ((𝑠 · 𝑡) + (𝑠 · 𝑓)) = ⟨((1st ‘(𝑠 · 𝑡)) ∘ (1st ‘(𝑠 · 𝑓))), ((2nd ‘(𝑠 · 𝑡)) ⨣ (2nd ‘(𝑠 · 𝑓)))⟩)
119	37, 115, 117, 118	syl12anc 836	. . . 4 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑠 ∈ 𝐸 ∧ 𝑡 ∈ (𝑇 × 𝐸) ∧ 𝑓 ∈ (𝑇 × 𝐸))) → ((𝑠 · 𝑡) + (𝑠 · 𝑓)) = ⟨((1st ‘(𝑠 · 𝑡)) ∘ (1st ‘(𝑠 · 𝑓))), ((2nd ‘(𝑠 · 𝑡)) ⨣ (2nd ‘(𝑠 · 𝑓)))⟩)
120	110, 114, 119	3eqtr4d 2790	. . 3 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑠 ∈ 𝐸 ∧ 𝑡 ∈ (𝑇 × 𝐸) ∧ 𝑓 ∈ (𝑇 × 𝐸))) → (𝑠 · (𝑡 + 𝑓)) = ((𝑠 · 𝑡) + (𝑠 · 𝑓)))
121		simpl 482	. . . . . . 7 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑠 ∈ 𝐸 ∧ 𝑡 ∈ 𝐸 ∧ 𝑓 ∈ (𝑇 × 𝐸))) → (𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻))
122		simpr1 1194	. . . . . . 7 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑠 ∈ 𝐸 ∧ 𝑡 ∈ 𝐸 ∧ 𝑓 ∈ (𝑇 × 𝐸))) → 𝑠 ∈ 𝐸)
123		simpr2 1195	. . . . . . 7 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑠 ∈ 𝐸 ∧ 𝑡 ∈ 𝐸 ∧ 𝑓 ∈ (𝑇 × 𝐸))) → 𝑡 ∈ 𝐸)
124		simpr3 1196	. . . . . . . 8 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑠 ∈ 𝐸 ∧ 𝑡 ∈ 𝐸 ∧ 𝑓 ∈ (𝑇 × 𝐸))) → 𝑓 ∈ (𝑇 × 𝐸))
125	124, 43	syl 17	. . . . . . 7 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑠 ∈ 𝐸 ∧ 𝑡 ∈ 𝐸 ∧ 𝑓 ∈ (𝑇 × 𝐸))) → (1st ‘𝑓) ∈ 𝑇)
126		eqid 2740	. . . . . . . 8 ⊢ (+g‘((EDRing‘𝐾)‘𝑊)) = (+g‘((EDRing‘𝐾)‘𝑊))
127	1, 2, 3, 21, 126	erngplus2 40761	. . . . . . 7 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑠 ∈ 𝐸 ∧ 𝑡 ∈ 𝐸 ∧ (1st ‘𝑓) ∈ 𝑇)) → ((𝑠(+g‘((EDRing‘𝐾)‘𝑊))𝑡)‘(1st ‘𝑓)) = ((𝑠‘(1st ‘𝑓)) ∘ (𝑡‘(1st ‘𝑓))))
128	121, 122, 123, 125, 127	syl13anc 1372	. . . . . 6 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑠 ∈ 𝐸 ∧ 𝑡 ∈ 𝐸 ∧ 𝑓 ∈ (𝑇 × 𝐸))) → ((𝑠(+g‘((EDRing‘𝐾)‘𝑊))𝑡)‘(1st ‘𝑓)) = ((𝑠‘(1st ‘𝑓)) ∘ (𝑡‘(1st ‘𝑓))))
129	22	fveq2d 6924	. . . . . . . . . 10 ⊢ ((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) → (+g‘𝐷) = (+g‘((EDRing‘𝐾)‘𝑊)))
130	17, 129	eqtrid 2792	. . . . . . . . 9 ⊢ ((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) → ⨣ = (+g‘((EDRing‘𝐾)‘𝑊)))
131	130	oveqd 7465	. . . . . . . 8 ⊢ ((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) → (𝑠 ⨣ 𝑡) = (𝑠(+g‘((EDRing‘𝐾)‘𝑊))𝑡))
132	131	fveq1d 6922	. . . . . . 7 ⊢ ((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) → ((𝑠 ⨣ 𝑡)‘(1st ‘𝑓)) = ((𝑠(+g‘((EDRing‘𝐾)‘𝑊))𝑡)‘(1st ‘𝑓)))
133	132	adantr 480	. . . . . 6 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑠 ∈ 𝐸 ∧ 𝑡 ∈ 𝐸 ∧ 𝑓 ∈ (𝑇 × 𝐸))) → ((𝑠 ⨣ 𝑡)‘(1st ‘𝑓)) = ((𝑠(+g‘((EDRing‘𝐾)‘𝑊))𝑡)‘(1st ‘𝑓)))
134	66	3adantr2 1170	. . . . . . . . 9 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑠 ∈ 𝐸 ∧ 𝑡 ∈ 𝐸 ∧ 𝑓 ∈ (𝑇 × 𝐸))) → (𝑠 · 𝑓) = ⟨(𝑠‘(1st ‘𝑓)), (𝑠 ∘ (2nd ‘𝑓))⟩)
135	134	fveq2d 6924	. . . . . . . 8 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑠 ∈ 𝐸 ∧ 𝑡 ∈ 𝐸 ∧ 𝑓 ∈ (𝑇 × 𝐸))) → (1st ‘(𝑠 · 𝑓)) = (1st ‘⟨(𝑠‘(1st ‘𝑓)), (𝑠 ∘ (2nd ‘𝑓))⟩))
136	135, 72	eqtrdi 2796	. . . . . . 7 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑠 ∈ 𝐸 ∧ 𝑡 ∈ 𝐸 ∧ 𝑓 ∈ (𝑇 × 𝐸))) → (1st ‘(𝑠 · 𝑓)) = (𝑠‘(1st ‘𝑓)))
137	1, 2, 3, 4, 12	dvhvsca 41058	. . . . . . . . . 10 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑡 ∈ 𝐸 ∧ 𝑓 ∈ (𝑇 × 𝐸))) → (𝑡 · 𝑓) = ⟨(𝑡‘(1st ‘𝑓)), (𝑡 ∘ (2nd ‘𝑓))⟩)
138	137	3adantr1 1169	. . . . . . . . 9 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑠 ∈ 𝐸 ∧ 𝑡 ∈ 𝐸 ∧ 𝑓 ∈ (𝑇 × 𝐸))) → (𝑡 · 𝑓) = ⟨(𝑡‘(1st ‘𝑓)), (𝑡 ∘ (2nd ‘𝑓))⟩)
139	138	fveq2d 6924	. . . . . . . 8 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑠 ∈ 𝐸 ∧ 𝑡 ∈ 𝐸 ∧ 𝑓 ∈ (𝑇 × 𝐸))) → (1st ‘(𝑡 · 𝑓)) = (1st ‘⟨(𝑡‘(1st ‘𝑓)), (𝑡 ∘ (2nd ‘𝑓))⟩))
140		fvex 6933	. . . . . . . . 9 ⊢ (𝑡‘(1st ‘𝑓)) ∈ V
141		vex 3492	. . . . . . . . . 10 ⊢ 𝑡 ∈ V
142	141, 70	coex 7970	. . . . . . . . 9 ⊢ (𝑡 ∘ (2nd ‘𝑓)) ∈ V
143	140, 142	op1st 8038	. . . . . . . 8 ⊢ (1st ‘⟨(𝑡‘(1st ‘𝑓)), (𝑡 ∘ (2nd ‘𝑓))⟩) = (𝑡‘(1st ‘𝑓))
144	139, 143	eqtrdi 2796	. . . . . . 7 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑠 ∈ 𝐸 ∧ 𝑡 ∈ 𝐸 ∧ 𝑓 ∈ (𝑇 × 𝐸))) → (1st ‘(𝑡 · 𝑓)) = (𝑡‘(1st ‘𝑓)))
145	136, 144	coeq12d 5889	. . . . . 6 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑠 ∈ 𝐸 ∧ 𝑡 ∈ 𝐸 ∧ 𝑓 ∈ (𝑇 × 𝐸))) → ((1st ‘(𝑠 · 𝑓)) ∘ (1st ‘(𝑡 · 𝑓))) = ((𝑠‘(1st ‘𝑓)) ∘ (𝑡‘(1st ‘𝑓))))
146	128, 133, 145	3eqtr4d 2790	. . . . 5 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑠 ∈ 𝐸 ∧ 𝑡 ∈ 𝐸 ∧ 𝑓 ∈ (𝑇 × 𝐸))) → ((𝑠 ⨣ 𝑡)‘(1st ‘𝑓)) = ((1st ‘(𝑠 · 𝑓)) ∘ (1st ‘(𝑡 · 𝑓))))
147	30	adantr 480	. . . . . . . 8 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑠 ∈ 𝐸 ∧ 𝑡 ∈ 𝐸 ∧ 𝑓 ∈ (𝑇 × 𝐸))) → 𝐷 ∈ Ring)
148	16	adantr 480	. . . . . . . . 9 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑠 ∈ 𝐸 ∧ 𝑡 ∈ 𝐸 ∧ 𝑓 ∈ (𝑇 × 𝐸))) → 𝐸 = (Base‘𝐷))
149	122, 148	eleqtrd 2846	. . . . . . . 8 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑠 ∈ 𝐸 ∧ 𝑡 ∈ 𝐸 ∧ 𝑓 ∈ (𝑇 × 𝐸))) → 𝑠 ∈ (Base‘𝐷))
150	123, 148	eleqtrd 2846	. . . . . . . 8 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑠 ∈ 𝐸 ∧ 𝑡 ∈ 𝐸 ∧ 𝑓 ∈ (𝑇 × 𝐸))) → 𝑡 ∈ (Base‘𝐷))
151	124, 82	syl 17	. . . . . . . . 9 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑠 ∈ 𝐸 ∧ 𝑡 ∈ 𝐸 ∧ 𝑓 ∈ (𝑇 × 𝐸))) → (2nd ‘𝑓) ∈ 𝐸)
152	151, 148	eleqtrd 2846	. . . . . . . 8 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑠 ∈ 𝐸 ∧ 𝑡 ∈ 𝐸 ∧ 𝑓 ∈ (𝑇 × 𝐸))) → (2nd ‘𝑓) ∈ (Base‘𝐷))
153	14, 17, 19	ringdir 20288	. . . . . . . 8 ⊢ ((𝐷 ∈ Ring ∧ (𝑠 ∈ (Base‘𝐷) ∧ 𝑡 ∈ (Base‘𝐷) ∧ (2nd ‘𝑓) ∈ (Base‘𝐷))) → ((𝑠 ⨣ 𝑡) × (2nd ‘𝑓)) = ((𝑠 × (2nd ‘𝑓)) ⨣ (𝑡 × (2nd ‘𝑓))))
154	147, 149, 150, 152, 153	syl13anc 1372	. . . . . . 7 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑠 ∈ 𝐸 ∧ 𝑡 ∈ 𝐸 ∧ 𝑓 ∈ (𝑇 × 𝐸))) → ((𝑠 ⨣ 𝑡) × (2nd ‘𝑓)) = ((𝑠 × (2nd ‘𝑓)) ⨣ (𝑡 × (2nd ‘𝑓))))
155	14, 17	ringacl 20301	. . . . . . . . . 10 ⊢ ((𝐷 ∈ Ring ∧ 𝑠 ∈ (Base‘𝐷) ∧ 𝑡 ∈ (Base‘𝐷)) → (𝑠 ⨣ 𝑡) ∈ (Base‘𝐷))
156	147, 149, 150, 155	syl3anc 1371	. . . . . . . . 9 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑠 ∈ 𝐸 ∧ 𝑡 ∈ 𝐸 ∧ 𝑓 ∈ (𝑇 × 𝐸))) → (𝑠 ⨣ 𝑡) ∈ (Base‘𝐷))
157	156, 148	eleqtrrd 2847	. . . . . . . 8 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑠 ∈ 𝐸 ∧ 𝑡 ∈ 𝐸 ∧ 𝑓 ∈ (𝑇 × 𝐸))) → (𝑠 ⨣ 𝑡) ∈ 𝐸)
158	1, 2, 3, 4, 10, 19	dvhmulr 41043	. . . . . . . 8 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ ((𝑠 ⨣ 𝑡) ∈ 𝐸 ∧ (2nd ‘𝑓) ∈ 𝐸)) → ((𝑠 ⨣ 𝑡) × (2nd ‘𝑓)) = ((𝑠 ⨣ 𝑡) ∘ (2nd ‘𝑓)))
159	121, 157, 151, 158	syl12anc 836	. . . . . . 7 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑠 ∈ 𝐸 ∧ 𝑡 ∈ 𝐸 ∧ 𝑓 ∈ (𝑇 × 𝐸))) → ((𝑠 ⨣ 𝑡) × (2nd ‘𝑓)) = ((𝑠 ⨣ 𝑡) ∘ (2nd ‘𝑓)))
160	121, 122, 151, 94	syl12anc 836	. . . . . . . 8 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑠 ∈ 𝐸 ∧ 𝑡 ∈ 𝐸 ∧ 𝑓 ∈ (𝑇 × 𝐸))) → (𝑠 × (2nd ‘𝑓)) = (𝑠 ∘ (2nd ‘𝑓)))
161	1, 2, 3, 4, 10, 19	dvhmulr 41043	. . . . . . . . 9 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑡 ∈ 𝐸 ∧ (2nd ‘𝑓) ∈ 𝐸)) → (𝑡 × (2nd ‘𝑓)) = (𝑡 ∘ (2nd ‘𝑓)))
162	121, 123, 151, 161	syl12anc 836	. . . . . . . 8 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑠 ∈ 𝐸 ∧ 𝑡 ∈ 𝐸 ∧ 𝑓 ∈ (𝑇 × 𝐸))) → (𝑡 × (2nd ‘𝑓)) = (𝑡 ∘ (2nd ‘𝑓)))
163	160, 162	oveq12d 7466	. . . . . . 7 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑠 ∈ 𝐸 ∧ 𝑡 ∈ 𝐸 ∧ 𝑓 ∈ (𝑇 × 𝐸))) → ((𝑠 × (2nd ‘𝑓)) ⨣ (𝑡 × (2nd ‘𝑓))) = ((𝑠 ∘ (2nd ‘𝑓)) ⨣ (𝑡 ∘ (2nd ‘𝑓))))
164	154, 159, 163	3eqtr3d 2788	. . . . . 6 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑠 ∈ 𝐸 ∧ 𝑡 ∈ 𝐸 ∧ 𝑓 ∈ (𝑇 × 𝐸))) → ((𝑠 ⨣ 𝑡) ∘ (2nd ‘𝑓)) = ((𝑠 ∘ (2nd ‘𝑓)) ⨣ (𝑡 ∘ (2nd ‘𝑓))))
165	134	fveq2d 6924	. . . . . . . 8 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑠 ∈ 𝐸 ∧ 𝑡 ∈ 𝐸 ∧ 𝑓 ∈ (𝑇 × 𝐸))) → (2nd ‘(𝑠 · 𝑓)) = (2nd ‘⟨(𝑠‘(1st ‘𝑓)), (𝑠 ∘ (2nd ‘𝑓))⟩))
166	165, 106	eqtrdi 2796	. . . . . . 7 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑠 ∈ 𝐸 ∧ 𝑡 ∈ 𝐸 ∧ 𝑓 ∈ (𝑇 × 𝐸))) → (2nd ‘(𝑠 · 𝑓)) = (𝑠 ∘ (2nd ‘𝑓)))
167	138	fveq2d 6924	. . . . . . . 8 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑠 ∈ 𝐸 ∧ 𝑡 ∈ 𝐸 ∧ 𝑓 ∈ (𝑇 × 𝐸))) → (2nd ‘(𝑡 · 𝑓)) = (2nd ‘⟨(𝑡‘(1st ‘𝑓)), (𝑡 ∘ (2nd ‘𝑓))⟩))
168	140, 142	op2nd 8039	. . . . . . . 8 ⊢ (2nd ‘⟨(𝑡‘(1st ‘𝑓)), (𝑡 ∘ (2nd ‘𝑓))⟩) = (𝑡 ∘ (2nd ‘𝑓))
169	167, 168	eqtrdi 2796	. . . . . . 7 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑠 ∈ 𝐸 ∧ 𝑡 ∈ 𝐸 ∧ 𝑓 ∈ (𝑇 × 𝐸))) → (2nd ‘(𝑡 · 𝑓)) = (𝑡 ∘ (2nd ‘𝑓)))
170	166, 169	oveq12d 7466	. . . . . 6 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑠 ∈ 𝐸 ∧ 𝑡 ∈ 𝐸 ∧ 𝑓 ∈ (𝑇 × 𝐸))) → ((2nd ‘(𝑠 · 𝑓)) ⨣ (2nd ‘(𝑡 · 𝑓))) = ((𝑠 ∘ (2nd ‘𝑓)) ⨣ (𝑡 ∘ (2nd ‘𝑓))))
171	164, 170	eqtr4d 2783	. . . . 5 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑠 ∈ 𝐸 ∧ 𝑡 ∈ 𝐸 ∧ 𝑓 ∈ (𝑇 × 𝐸))) → ((𝑠 ⨣ 𝑡) ∘ (2nd ‘𝑓)) = ((2nd ‘(𝑠 · 𝑓)) ⨣ (2nd ‘(𝑡 · 𝑓))))
172	146, 171	opeq12d 4905	. . . 4 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑠 ∈ 𝐸 ∧ 𝑡 ∈ 𝐸 ∧ 𝑓 ∈ (𝑇 × 𝐸))) → ⟨((𝑠 ⨣ 𝑡)‘(1st ‘𝑓)), ((𝑠 ⨣ 𝑡) ∘ (2nd ‘𝑓))⟩ = ⟨((1st ‘(𝑠 · 𝑓)) ∘ (1st ‘(𝑡 · 𝑓))), ((2nd ‘(𝑠 · 𝑓)) ⨣ (2nd ‘(𝑡 · 𝑓)))⟩)
173	1, 2, 3, 4, 12	dvhvsca 41058	. . . . 5 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ ((𝑠 ⨣ 𝑡) ∈ 𝐸 ∧ 𝑓 ∈ (𝑇 × 𝐸))) → ((𝑠 ⨣ 𝑡) · 𝑓) = ⟨((𝑠 ⨣ 𝑡)‘(1st ‘𝑓)), ((𝑠 ⨣ 𝑡) ∘ (2nd ‘𝑓))⟩)
174	121, 157, 124, 173	syl12anc 836	. . . 4 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑠 ∈ 𝐸 ∧ 𝑡 ∈ 𝐸 ∧ 𝑓 ∈ (𝑇 × 𝐸))) → ((𝑠 ⨣ 𝑡) · 𝑓) = ⟨((𝑠 ⨣ 𝑡)‘(1st ‘𝑓)), ((𝑠 ⨣ 𝑡) ∘ (2nd ‘𝑓))⟩)
175	116	3adantr2 1170	. . . . 5 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑠 ∈ 𝐸 ∧ 𝑡 ∈ 𝐸 ∧ 𝑓 ∈ (𝑇 × 𝐸))) → (𝑠 · 𝑓) ∈ (𝑇 × 𝐸))
176	1, 2, 3, 4, 12	dvhvscacl 41060	. . . . . 6 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑡 ∈ 𝐸 ∧ 𝑓 ∈ (𝑇 × 𝐸))) → (𝑡 · 𝑓) ∈ (𝑇 × 𝐸))
177	176	3adantr1 1169	. . . . 5 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑠 ∈ 𝐸 ∧ 𝑡 ∈ 𝐸 ∧ 𝑓 ∈ (𝑇 × 𝐸))) → (𝑡 · 𝑓) ∈ (𝑇 × 𝐸))
178	1, 2, 3, 4, 10, 8, 17	dvhvadd 41049	. . . . 5 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ ((𝑠 · 𝑓) ∈ (𝑇 × 𝐸) ∧ (𝑡 · 𝑓) ∈ (𝑇 × 𝐸))) → ((𝑠 · 𝑓) + (𝑡 · 𝑓)) = ⟨((1st ‘(𝑠 · 𝑓)) ∘ (1st ‘(𝑡 · 𝑓))), ((2nd ‘(𝑠 · 𝑓)) ⨣ (2nd ‘(𝑡 · 𝑓)))⟩)
179	121, 175, 177, 178	syl12anc 836	. . . 4 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑠 ∈ 𝐸 ∧ 𝑡 ∈ 𝐸 ∧ 𝑓 ∈ (𝑇 × 𝐸))) → ((𝑠 · 𝑓) + (𝑡 · 𝑓)) = ⟨((1st ‘(𝑠 · 𝑓)) ∘ (1st ‘(𝑡 · 𝑓))), ((2nd ‘(𝑠 · 𝑓)) ⨣ (2nd ‘(𝑡 · 𝑓)))⟩)
180	172, 174, 179	3eqtr4d 2790	. . 3 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑠 ∈ 𝐸 ∧ 𝑡 ∈ 𝐸 ∧ 𝑓 ∈ (𝑇 × 𝐸))) → ((𝑠 ⨣ 𝑡) · 𝑓) = ((𝑠 · 𝑓) + (𝑡 · 𝑓)))
181	1, 2, 3	tendocoval 40723	. . . . . . 7 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑠 ∈ 𝐸 ∧ 𝑡 ∈ 𝐸) ∧ (1st ‘𝑓) ∈ 𝑇) → ((𝑠 ∘ 𝑡)‘(1st ‘𝑓)) = (𝑠‘(𝑡‘(1st ‘𝑓))))
182	121, 122, 123, 125, 181	syl121anc 1375	. . . . . 6 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑠 ∈ 𝐸 ∧ 𝑡 ∈ 𝐸 ∧ 𝑓 ∈ (𝑇 × 𝐸))) → ((𝑠 ∘ 𝑡)‘(1st ‘𝑓)) = (𝑠‘(𝑡‘(1st ‘𝑓))))
183		coass 6296	. . . . . . 7 ⊢ ((𝑠 ∘ 𝑡) ∘ (2nd ‘𝑓)) = (𝑠 ∘ (𝑡 ∘ (2nd ‘𝑓)))
184	183	a1i 11	. . . . . 6 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑠 ∈ 𝐸 ∧ 𝑡 ∈ 𝐸 ∧ 𝑓 ∈ (𝑇 × 𝐸))) → ((𝑠 ∘ 𝑡) ∘ (2nd ‘𝑓)) = (𝑠 ∘ (𝑡 ∘ (2nd ‘𝑓))))
185	182, 184	opeq12d 4905	. . . . 5 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑠 ∈ 𝐸 ∧ 𝑡 ∈ 𝐸 ∧ 𝑓 ∈ (𝑇 × 𝐸))) → ⟨((𝑠 ∘ 𝑡)‘(1st ‘𝑓)), ((𝑠 ∘ 𝑡) ∘ (2nd ‘𝑓))⟩ = ⟨(𝑠‘(𝑡‘(1st ‘𝑓))), (𝑠 ∘ (𝑡 ∘ (2nd ‘𝑓)))⟩)
186	1, 3	tendococl 40729	. . . . . . 7 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝑠 ∈ 𝐸 ∧ 𝑡 ∈ 𝐸) → (𝑠 ∘ 𝑡) ∈ 𝐸)
187	121, 122, 123, 186	syl3anc 1371	. . . . . 6 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑠 ∈ 𝐸 ∧ 𝑡 ∈ 𝐸 ∧ 𝑓 ∈ (𝑇 × 𝐸))) → (𝑠 ∘ 𝑡) ∈ 𝐸)
188	1, 2, 3, 4, 12	dvhvsca 41058	. . . . . 6 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ ((𝑠 ∘ 𝑡) ∈ 𝐸 ∧ 𝑓 ∈ (𝑇 × 𝐸))) → ((𝑠 ∘ 𝑡) · 𝑓) = ⟨((𝑠 ∘ 𝑡)‘(1st ‘𝑓)), ((𝑠 ∘ 𝑡) ∘ (2nd ‘𝑓))⟩)
189	121, 187, 124, 188	syl12anc 836	. . . . 5 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑠 ∈ 𝐸 ∧ 𝑡 ∈ 𝐸 ∧ 𝑓 ∈ (𝑇 × 𝐸))) → ((𝑠 ∘ 𝑡) · 𝑓) = ⟨((𝑠 ∘ 𝑡)‘(1st ‘𝑓)), ((𝑠 ∘ 𝑡) ∘ (2nd ‘𝑓))⟩)
190	1, 2, 3	tendocl 40724	. . . . . . 7 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝑡 ∈ 𝐸 ∧ (1st ‘𝑓) ∈ 𝑇) → (𝑡‘(1st ‘𝑓)) ∈ 𝑇)
191	121, 123, 125, 190	syl3anc 1371	. . . . . 6 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑠 ∈ 𝐸 ∧ 𝑡 ∈ 𝐸 ∧ 𝑓 ∈ (𝑇 × 𝐸))) → (𝑡‘(1st ‘𝑓)) ∈ 𝑇)
192	1, 3	tendococl 40729	. . . . . . 7 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝑡 ∈ 𝐸 ∧ (2nd ‘𝑓) ∈ 𝐸) → (𝑡 ∘ (2nd ‘𝑓)) ∈ 𝐸)
193	121, 123, 151, 192	syl3anc 1371	. . . . . 6 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑠 ∈ 𝐸 ∧ 𝑡 ∈ 𝐸 ∧ 𝑓 ∈ (𝑇 × 𝐸))) → (𝑡 ∘ (2nd ‘𝑓)) ∈ 𝐸)
194	1, 2, 3, 4, 12	dvhopvsca 41059	. . . . . 6 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑠 ∈ 𝐸 ∧ (𝑡‘(1st ‘𝑓)) ∈ 𝑇 ∧ (𝑡 ∘ (2nd ‘𝑓)) ∈ 𝐸)) → (𝑠 · ⟨(𝑡‘(1st ‘𝑓)), (𝑡 ∘ (2nd ‘𝑓))⟩) = ⟨(𝑠‘(𝑡‘(1st ‘𝑓))), (𝑠 ∘ (𝑡 ∘ (2nd ‘𝑓)))⟩)
195	121, 122, 191, 193, 194	syl13anc 1372	. . . . 5 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑠 ∈ 𝐸 ∧ 𝑡 ∈ 𝐸 ∧ 𝑓 ∈ (𝑇 × 𝐸))) → (𝑠 · ⟨(𝑡‘(1st ‘𝑓)), (𝑡 ∘ (2nd ‘𝑓))⟩) = ⟨(𝑠‘(𝑡‘(1st ‘𝑓))), (𝑠 ∘ (𝑡 ∘ (2nd ‘𝑓)))⟩)
196	185, 189, 195	3eqtr4d 2790	. . . 4 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑠 ∈ 𝐸 ∧ 𝑡 ∈ 𝐸 ∧ 𝑓 ∈ (𝑇 × 𝐸))) → ((𝑠 ∘ 𝑡) · 𝑓) = (𝑠 · ⟨(𝑡‘(1st ‘𝑓)), (𝑡 ∘ (2nd ‘𝑓))⟩))
197	1, 2, 3, 4, 10, 19	dvhmulr 41043	. . . . . 6 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑠 ∈ 𝐸 ∧ 𝑡 ∈ 𝐸)) → (𝑠 × 𝑡) = (𝑠 ∘ 𝑡))
198	197	3adantr3 1171	. . . . 5 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑠 ∈ 𝐸 ∧ 𝑡 ∈ 𝐸 ∧ 𝑓 ∈ (𝑇 × 𝐸))) → (𝑠 × 𝑡) = (𝑠 ∘ 𝑡))
199	198	oveq1d 7463	. . . 4 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑠 ∈ 𝐸 ∧ 𝑡 ∈ 𝐸 ∧ 𝑓 ∈ (𝑇 × 𝐸))) → ((𝑠 × 𝑡) · 𝑓) = ((𝑠 ∘ 𝑡) · 𝑓))
200	138	oveq2d 7464	. . . 4 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑠 ∈ 𝐸 ∧ 𝑡 ∈ 𝐸 ∧ 𝑓 ∈ (𝑇 × 𝐸))) → (𝑠 · (𝑡 · 𝑓)) = (𝑠 · ⟨(𝑡‘(1st ‘𝑓)), (𝑡 ∘ (2nd ‘𝑓))⟩))
201	196, 199, 200	3eqtr4d 2790	. . 3 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑠 ∈ 𝐸 ∧ 𝑡 ∈ 𝐸 ∧ 𝑓 ∈ (𝑇 × 𝐸))) → ((𝑠 × 𝑡) · 𝑓) = (𝑠 · (𝑡 · 𝑓)))
202		xp1st 8062	. . . . . . 7 ⊢ (𝑠 ∈ (𝑇 × 𝐸) → (1st ‘𝑠) ∈ 𝑇)
203	202	adantl 481	. . . . . 6 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝑠 ∈ (𝑇 × 𝐸)) → (1st ‘𝑠) ∈ 𝑇)
204		fvresi 7207	. . . . . 6 ⊢ ((1st ‘𝑠) ∈ 𝑇 → (( I ↾ 𝑇)‘(1st ‘𝑠)) = (1st ‘𝑠))
205	203, 204	syl 17	. . . . 5 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝑠 ∈ (𝑇 × 𝐸)) → (( I ↾ 𝑇)‘(1st ‘𝑠)) = (1st ‘𝑠))
206		xp2nd 8063	. . . . . . 7 ⊢ (𝑠 ∈ (𝑇 × 𝐸) → (2nd ‘𝑠) ∈ 𝐸)
207	1, 2, 3	tendof 40720	. . . . . . 7 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (2nd ‘𝑠) ∈ 𝐸) → (2nd ‘𝑠):𝑇⟶𝑇)
208	206, 207	sylan2 592	. . . . . 6 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝑠 ∈ (𝑇 × 𝐸)) → (2nd ‘𝑠):𝑇⟶𝑇)
209		fcoi2 6796	. . . . . 6 ⊢ ((2nd ‘𝑠):𝑇⟶𝑇 → (( I ↾ 𝑇) ∘ (2nd ‘𝑠)) = (2nd ‘𝑠))
210	208, 209	syl 17	. . . . 5 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝑠 ∈ (𝑇 × 𝐸)) → (( I ↾ 𝑇) ∘ (2nd ‘𝑠)) = (2nd ‘𝑠))
211	205, 210	opeq12d 4905	. . . 4 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝑠 ∈ (𝑇 × 𝐸)) → ⟨(( I ↾ 𝑇)‘(1st ‘𝑠)), (( I ↾ 𝑇) ∘ (2nd ‘𝑠))⟩ = ⟨(1st ‘𝑠), (2nd ‘𝑠)⟩)
212	1, 2, 3	tendoidcl 40726	. . . . . 6 ⊢ ((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) → ( I ↾ 𝑇) ∈ 𝐸)
213	212	anim1i 614	. . . . 5 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝑠 ∈ (𝑇 × 𝐸)) → (( I ↾ 𝑇) ∈ 𝐸 ∧ 𝑠 ∈ (𝑇 × 𝐸)))
214	1, 2, 3, 4, 12	dvhvsca 41058	. . . . 5 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (( I ↾ 𝑇) ∈ 𝐸 ∧ 𝑠 ∈ (𝑇 × 𝐸))) → (( I ↾ 𝑇) · 𝑠) = ⟨(( I ↾ 𝑇)‘(1st ‘𝑠)), (( I ↾ 𝑇) ∘ (2nd ‘𝑠))⟩)
215	213, 214	syldan 590	. . . 4 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝑠 ∈ (𝑇 × 𝐸)) → (( I ↾ 𝑇) · 𝑠) = ⟨(( I ↾ 𝑇)‘(1st ‘𝑠)), (( I ↾ 𝑇) ∘ (2nd ‘𝑠))⟩)
216		1st2nd2 8069	. . . . 5 ⊢ (𝑠 ∈ (𝑇 × 𝐸) → 𝑠 = ⟨(1st ‘𝑠), (2nd ‘𝑠)⟩)
217	216	adantl 481	. . . 4 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝑠 ∈ (𝑇 × 𝐸)) → 𝑠 = ⟨(1st ‘𝑠), (2nd ‘𝑠)⟩)
218	211, 215, 217	3eqtr4d 2790	. . 3 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝑠 ∈ (𝑇 × 𝐸)) → (( I ↾ 𝑇) · 𝑠) = 𝑠)
219	7, 9, 11, 13, 16, 18, 20, 26, 30, 34, 36, 120, 180, 201, 218	islmodd 20886	. 2 ⊢ ((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) → 𝑈 ∈ LMod)
220	10	islvec 21126	. 2 ⊢ (𝑈 ∈ LVec ↔ (𝑈 ∈ LMod ∧ 𝐷 ∈ DivRing))
221	219, 28, 220	sylanbrc 582	1 ⊢ ((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) → 𝑈 ∈ LVec)

Syntax hints:   → wi 4   ∧ wa 395   ∧ w3a 1087   = wceq 1537   ∈ wcel 2108  ⟨cop 4654   I cid 5592   × cxp 5698   ↾ cres 5702   ∘ ccom 5704  ⟶wf 6569  ‘cfv 6573  (class class class)co 7448  1^st c1st 8028  2^nd c2nd 8029  Basecbs 17258  +_gcplusg 17311  ._rcmulr 17312  Scalarcsca 17314   ·_𝑠 cvsca 17315  0_gc0g 17499  inv_gcminusg 18974  1_rcur 20208  Ringcrg 20260  DivRingcdr 20751  LModclmod 20880  LVecclvec 21124  HLchlt 39306  LHypclh 39941  LTrncltrn 40058  TEndoctendo 40709  EDRingcedring 40710  DVecHcdvh 41035

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1793  ax-4 1807  ax-5 1909  ax-6 1967  ax-7 2007  ax-8 2110  ax-9 2118  ax-10 2141  ax-11 2158  ax-12 2178  ax-ext 2711  ax-rep 5303  ax-sep 5317  ax-nul 5324  ax-pow 5383  ax-pr 5447  ax-un 7770  ax-cnex 11240  ax-resscn 11241  ax-1cn 11242  ax-icn 11243  ax-addcl 11244  ax-addrcl 11245  ax-mulcl 11246  ax-mulrcl 11247  ax-mulcom 11248  ax-addass 11249  ax-mulass 11250  ax-distr 11251  ax-i2m1 11252  ax-1ne0 11253  ax-1rid 11254  ax-rnegex 11255  ax-rrecex 11256  ax-cnre 11257  ax-pre-lttri 11258  ax-pre-lttrn 11259  ax-pre-ltadd 11260  ax-pre-mulgt0 11261  ax-riotaBAD 38909

This theorem depends on definitions:  df-bi 207  df-an 396  df-or 847  df-3or 1088  df-3an 1089  df-tru 1540  df-fal 1550  df-ex 1778  df-nf 1782  df-sb 2065  df-mo 2543  df-eu 2572  df-clab 2718  df-cleq 2732  df-clel 2819  df-nfc 2895  df-ne 2947  df-nel 3053  df-ral 3068  df-rex 3077  df-rmo 3388  df-reu 3389  df-rab 3444  df-v 3490  df-sbc 3805  df-csb 3922  df-dif 3979  df-un 3981  df-in 3983  df-ss 3993  df-pss 3996  df-nul 4353  df-if 4549  df-pw 4624  df-sn 4649  df-pr 4651  df-tp 4653  df-op 4655  df-uni 4932  df-iun 5017  df-iin 5018  df-br 5167  df-opab 5229  df-mpt 5250  df-tr 5284  df-id 5593  df-eprel 5599  df-po 5607  df-so 5608  df-fr 5652  df-we 5654  df-xp 5706  df-rel 5707  df-cnv 5708  df-co 5709  df-dm 5710  df-rn 5711  df-res 5712  df-ima 5713  df-pred 6332  df-ord 6398  df-on 6399  df-lim 6400  df-suc 6401  df-iota 6525  df-fun 6575  df-fn 6576  df-f 6577  df-f1 6578  df-fo 6579  df-f1o 6580  df-fv 6581  df-riota 7404  df-ov 7451  df-oprab 7452  df-mpo 7453  df-om 7904  df-1st 8030  df-2nd 8031  df-tpos 8267  df-undef 8314  df-frecs 8322  df-wrecs 8353  df-recs 8427  df-rdg 8466  df-1o 8522  df-er 8763  df-map 8886  df-en 9004  df-dom 9005  df-sdom 9006  df-fin 9007  df-pnf 11326  df-mnf 11327  df-xr 11328  df-ltxr 11329  df-le 11330  df-sub 11522  df-neg 11523  df-nn 12294  df-2 12356  df-3 12357  df-4 12358  df-5 12359  df-6 12360  df-n0 12554  df-z 12640  df-uz 12904  df-fz 13568  df-struct 17194  df-sets 17211  df-slot 17229  df-ndx 17241  df-base 17259  df-ress 17288  df-plusg 17324  df-mulr 17325  df-sca 17327  df-vsca 17328  df-0g 17501  df-proset 18365  df-poset 18383  df-plt 18400  df-lub 18416  df-glb 18417  df-join 18418  df-meet 18419  df-p0 18495  df-p1 18496  df-lat 18502  df-clat 18569  df-mgm 18678  df-sgrp 18757  df-mnd 18773  df-grp 18976  df-minusg 18977  df-cmn 19824  df-abl 19825  df-mgp 20162  df-rng 20180  df-ur 20209  df-ring 20262  df-oppr 20360  df-dvdsr 20383  df-unit 20384  df-invr 20414  df-dvr 20427  df-drng 20753  df-lmod 20882  df-lvec 21125  df-oposet 39132  df-ol 39134  df-oml 39135  df-covers 39222  df-ats 39223  df-atl 39254  df-cvlat 39278  df-hlat 39307  df-llines 39455  df-lplanes 39456  df-lvols 39457  df-lines 39458  df-psubsp 39460  df-pmap 39461  df-padd 39753  df-lhyp 39945  df-laut 39946  df-ldil 40061  df-ltrn 40062  df-trl 40116  df-tendo 40712  df-edring 40714  df-dvech 41036

This theorem is referenced by:  dvhlvec  41066