Theorem dvhlveclem 41513

Description: Lemma for dvhlvec 41514. 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 41492	. . . 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 41488	. . . 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 41487	. . . . 5 ⊢ ((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) → 𝐷 = ((EDRing‘𝐾)‘𝑊))
23	22	fveq2d 6848	. . . 4 ⊢ ((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) → (1r‘𝐷) = (1r‘((EDRing‘𝐾)‘𝑊)))
24		eqid 2737	. . . . 5 ⊢ (1r‘((EDRing‘𝐾)‘𝑊)) = (1r‘((EDRing‘𝐾)‘𝑊))
25	1, 2, 21, 24	erng1r 41400	. . . 4 ⊢ ((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) → (1r‘((EDRing‘𝐾)‘𝑊)) = ( I ↾ 𝑇))
26	23, 25	eqtr2d 2773	. . 3 ⊢ ((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) → ( I ↾ 𝑇) = (1r‘𝐷))
27	1, 21	erngdv 41398	. . . . 5 ⊢ ((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) → ((EDRing‘𝐾)‘𝑊) ∈ DivRing)
28	22, 27	eqeltrd 2837	. . . 4 ⊢ ((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) → 𝐷 ∈ DivRing)
29		drngring 20686	. . . 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 41512	. . 3 ⊢ ((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) → 𝑈 ∈ Grp)
35	1, 2, 3, 4, 12	dvhvscacl 41508	. . . 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 7977	. . . . . . . 8 ⊢ (𝑡 ∈ (𝑇 × 𝐸) → (1st ‘𝑡) ∈ 𝑇)
41	39, 40	syl 17	. . . . . . 7 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑠 ∈ 𝐸 ∧ 𝑡 ∈ (𝑇 × 𝐸) ∧ 𝑓 ∈ (𝑇 × 𝐸))) → (1st ‘𝑡) ∈ 𝑇)
42		simpr3 1198	. . . . . . . 8 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑠 ∈ 𝐸 ∧ 𝑡 ∈ (𝑇 × 𝐸) ∧ 𝑓 ∈ (𝑇 × 𝐸))) → 𝑓 ∈ (𝑇 × 𝐸))
43		xp1st 7977	. . . . . . . 8 ⊢ (𝑓 ∈ (𝑇 × 𝐸) → (1st ‘𝑓) ∈ 𝑇)
44	42, 43	syl 17	. . . . . . 7 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑠 ∈ 𝐸 ∧ 𝑡 ∈ (𝑇 × 𝐸) ∧ 𝑓 ∈ (𝑇 × 𝐸))) → (1st ‘𝑓) ∈ 𝑇)
45	1, 2, 3	tendospdi1 41425	. . . . . . 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 41497	. . . . . . . . . 10 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑡 ∈ (𝑇 × 𝐸) ∧ 𝑓 ∈ (𝑇 × 𝐸))) → (𝑡 + 𝑓) = ⟨((1st ‘𝑡) ∘ (1st ‘𝑓)), ((2nd ‘𝑡) ⨣ (2nd ‘𝑓))⟩)
48	47	3adantr1 1171	. . . . . . . . 9 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑠 ∈ 𝐸 ∧ 𝑡 ∈ (𝑇 × 𝐸) ∧ 𝑓 ∈ (𝑇 × 𝐸))) → (𝑡 + 𝑓) = ⟨((1st ‘𝑡) ∘ (1st ‘𝑓)), ((2nd ‘𝑡) ⨣ (2nd ‘𝑓))⟩)
49	48	fveq2d 6848	. . . . . . . 8 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑠 ∈ 𝐸 ∧ 𝑡 ∈ (𝑇 × 𝐸) ∧ 𝑓 ∈ (𝑇 × 𝐸))) → (1st ‘(𝑡 + 𝑓)) = (1st ‘⟨((1st ‘𝑡) ∘ (1st ‘𝑓)), ((2nd ‘𝑡) ⨣ (2nd ‘𝑓))⟩))
50		fvex 6857	. . . . . . . . . 10 ⊢ (1st ‘𝑡) ∈ V
51		fvex 6857	. . . . . . . . . 10 ⊢ (1st ‘𝑓) ∈ V
52	50, 51	coex 7884	. . . . . . . . 9 ⊢ ((1st ‘𝑡) ∘ (1st ‘𝑓)) ∈ V
53		ovex 7403	. . . . . . . . 9 ⊢ ((2nd ‘𝑡) ⨣ (2nd ‘𝑓)) ∈ V
54	52, 53	op1st 7953	. . . . . . . 8 ⊢ (1st ‘⟨((1st ‘𝑡) ∘ (1st ‘𝑓)), ((2nd ‘𝑡) ⨣ (2nd ‘𝑓))⟩) = ((1st ‘𝑡) ∘ (1st ‘𝑓))
55	49, 54	eqtrdi 2788	. . . . . . 7 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑠 ∈ 𝐸 ∧ 𝑡 ∈ (𝑇 × 𝐸) ∧ 𝑓 ∈ (𝑇 × 𝐸))) → (1st ‘(𝑡 + 𝑓)) = ((1st ‘𝑡) ∘ (1st ‘𝑓)))
56	55	fveq2d 6848	. . . . . 6 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑠 ∈ 𝐸 ∧ 𝑡 ∈ (𝑇 × 𝐸) ∧ 𝑓 ∈ (𝑇 × 𝐸))) → (𝑠‘(1st ‘(𝑡 + 𝑓))) = (𝑠‘((1st ‘𝑡) ∘ (1st ‘𝑓))))
57	1, 2, 3, 4, 12	dvhvsca 41506	. . . . . . . . . 10 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑠 ∈ 𝐸 ∧ 𝑡 ∈ (𝑇 × 𝐸))) → (𝑠 · 𝑡) = ⟨(𝑠‘(1st ‘𝑡)), (𝑠 ∘ (2nd ‘𝑡))⟩)
58	57	3adantr3 1173	. . . . . . . . 9 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑠 ∈ 𝐸 ∧ 𝑡 ∈ (𝑇 × 𝐸) ∧ 𝑓 ∈ (𝑇 × 𝐸))) → (𝑠 · 𝑡) = ⟨(𝑠‘(1st ‘𝑡)), (𝑠 ∘ (2nd ‘𝑡))⟩)
59	58	fveq2d 6848	. . . . . . . 8 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑠 ∈ 𝐸 ∧ 𝑡 ∈ (𝑇 × 𝐸) ∧ 𝑓 ∈ (𝑇 × 𝐸))) → (1st ‘(𝑠 · 𝑡)) = (1st ‘⟨(𝑠‘(1st ‘𝑡)), (𝑠 ∘ (2nd ‘𝑡))⟩))
60		fvex 6857	. . . . . . . . 9 ⊢ (𝑠‘(1st ‘𝑡)) ∈ V
61		vex 3446	. . . . . . . . . 10 ⊢ 𝑠 ∈ V
62		fvex 6857	. . . . . . . . . 10 ⊢ (2nd ‘𝑡) ∈ V
63	61, 62	coex 7884	. . . . . . . . 9 ⊢ (𝑠 ∘ (2nd ‘𝑡)) ∈ V
64	60, 63	op1st 7953	. . . . . . . 8 ⊢ (1st ‘⟨(𝑠‘(1st ‘𝑡)), (𝑠 ∘ (2nd ‘𝑡))⟩) = (𝑠‘(1st ‘𝑡))
65	59, 64	eqtrdi 2788	. . . . . . 7 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑠 ∈ 𝐸 ∧ 𝑡 ∈ (𝑇 × 𝐸) ∧ 𝑓 ∈ (𝑇 × 𝐸))) → (1st ‘(𝑠 · 𝑡)) = (𝑠‘(1st ‘𝑡)))
66	1, 2, 3, 4, 12	dvhvsca 41506	. . . . . . . . . 10 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑠 ∈ 𝐸 ∧ 𝑓 ∈ (𝑇 × 𝐸))) → (𝑠 · 𝑓) = ⟨(𝑠‘(1st ‘𝑓)), (𝑠 ∘ (2nd ‘𝑓))⟩)
67	66	3adantr2 1172	. . . . . . . . 9 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑠 ∈ 𝐸 ∧ 𝑡 ∈ (𝑇 × 𝐸) ∧ 𝑓 ∈ (𝑇 × 𝐸))) → (𝑠 · 𝑓) = ⟨(𝑠‘(1st ‘𝑓)), (𝑠 ∘ (2nd ‘𝑓))⟩)
68	67	fveq2d 6848	. . . . . . . 8 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑠 ∈ 𝐸 ∧ 𝑡 ∈ (𝑇 × 𝐸) ∧ 𝑓 ∈ (𝑇 × 𝐸))) → (1st ‘(𝑠 · 𝑓)) = (1st ‘⟨(𝑠‘(1st ‘𝑓)), (𝑠 ∘ (2nd ‘𝑓))⟩))
69		fvex 6857	. . . . . . . . 9 ⊢ (𝑠‘(1st ‘𝑓)) ∈ V
70		fvex 6857	. . . . . . . . . 10 ⊢ (2nd ‘𝑓) ∈ V
71	61, 70	coex 7884	. . . . . . . . 9 ⊢ (𝑠 ∘ (2nd ‘𝑓)) ∈ V
72	69, 71	op1st 7953	. . . . . . . 8 ⊢ (1st ‘⟨(𝑠‘(1st ‘𝑓)), (𝑠 ∘ (2nd ‘𝑓))⟩) = (𝑠‘(1st ‘𝑓))
73	68, 72	eqtrdi 2788	. . . . . . 7 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑠 ∈ 𝐸 ∧ 𝑡 ∈ (𝑇 × 𝐸) ∧ 𝑓 ∈ (𝑇 × 𝐸))) → (1st ‘(𝑠 · 𝑓)) = (𝑠‘(1st ‘𝑓)))
74	65, 73	coeq12d 5823	. . . . . 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 7978	. . . . . . . . . 10 ⊢ (𝑡 ∈ (𝑇 × 𝐸) → (2nd ‘𝑡) ∈ 𝐸)
80	39, 79	syl 17	. . . . . . . . 9 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑠 ∈ 𝐸 ∧ 𝑡 ∈ (𝑇 × 𝐸) ∧ 𝑓 ∈ (𝑇 × 𝐸))) → (2nd ‘𝑡) ∈ 𝐸)
81	80, 77	eleqtrd 2839	. . . . . . . 8 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑠 ∈ 𝐸 ∧ 𝑡 ∈ (𝑇 × 𝐸) ∧ 𝑓 ∈ (𝑇 × 𝐸))) → (2nd ‘𝑡) ∈ (Base‘𝐷))
82		xp2nd 7978	. . . . . . . . . 10 ⊢ (𝑓 ∈ (𝑇 × 𝐸) → (2nd ‘𝑓) ∈ 𝐸)
83	42, 82	syl 17	. . . . . . . . 9 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑠 ∈ 𝐸 ∧ 𝑡 ∈ (𝑇 × 𝐸) ∧ 𝑓 ∈ (𝑇 × 𝐸))) → (2nd ‘𝑓) ∈ 𝐸)
84	83, 77	eleqtrd 2839	. . . . . . . 8 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑠 ∈ 𝐸 ∧ 𝑡 ∈ (𝑇 × 𝐸) ∧ 𝑓 ∈ (𝑇 × 𝐸))) → (2nd ‘𝑓) ∈ (Base‘𝐷))
85	14, 17, 19	ringdi 20213	. . . . . . . 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 20230	. . . . . . . . . 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 41491	. . . . . . . 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 41491	. . . . . . . . 9 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑠 ∈ 𝐸 ∧ (2nd ‘𝑡) ∈ 𝐸)) → (𝑠 × (2nd ‘𝑡)) = (𝑠 ∘ (2nd ‘𝑡)))
93	37, 38, 80, 92	syl12anc 837	. . . . . . . 8 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑠 ∈ 𝐸 ∧ 𝑡 ∈ (𝑇 × 𝐸) ∧ 𝑓 ∈ (𝑇 × 𝐸))) → (𝑠 × (2nd ‘𝑡)) = (𝑠 ∘ (2nd ‘𝑡)))
94	1, 2, 3, 4, 10, 19	dvhmulr 41491	. . . . . . . . 9 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑠 ∈ 𝐸 ∧ (2nd ‘𝑓) ∈ 𝐸)) → (𝑠 × (2nd ‘𝑓)) = (𝑠 ∘ (2nd ‘𝑓)))
95	37, 38, 83, 94	syl12anc 837	. . . . . . . 8 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑠 ∈ 𝐸 ∧ 𝑡 ∈ (𝑇 × 𝐸) ∧ 𝑓 ∈ (𝑇 × 𝐸))) → (𝑠 × (2nd ‘𝑓)) = (𝑠 ∘ (2nd ‘𝑓)))
96	93, 95	oveq12d 7388	. . . . . . 7 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑠 ∈ 𝐸 ∧ 𝑡 ∈ (𝑇 × 𝐸) ∧ 𝑓 ∈ (𝑇 × 𝐸))) → ((𝑠 × (2nd ‘𝑡)) ⨣ (𝑠 × (2nd ‘𝑓))) = ((𝑠 ∘ (2nd ‘𝑡)) ⨣ (𝑠 ∘ (2nd ‘𝑓))))
97	86, 91, 96	3eqtr3d 2780	. . . . . 6 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑠 ∈ 𝐸 ∧ 𝑡 ∈ (𝑇 × 𝐸) ∧ 𝑓 ∈ (𝑇 × 𝐸))) → (𝑠 ∘ ((2nd ‘𝑡) ⨣ (2nd ‘𝑓))) = ((𝑠 ∘ (2nd ‘𝑡)) ⨣ (𝑠 ∘ (2nd ‘𝑓))))
98	48	fveq2d 6848	. . . . . . . 8 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑠 ∈ 𝐸 ∧ 𝑡 ∈ (𝑇 × 𝐸) ∧ 𝑓 ∈ (𝑇 × 𝐸))) → (2nd ‘(𝑡 + 𝑓)) = (2nd ‘⟨((1st ‘𝑡) ∘ (1st ‘𝑓)), ((2nd ‘𝑡) ⨣ (2nd ‘𝑓))⟩))
99	52, 53	op2nd 7954	. . . . . . . 8 ⊢ (2nd ‘⟨((1st ‘𝑡) ∘ (1st ‘𝑓)), ((2nd ‘𝑡) ⨣ (2nd ‘𝑓))⟩) = ((2nd ‘𝑡) ⨣ (2nd ‘𝑓))
100	98, 99	eqtrdi 2788	. . . . . . 7 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑠 ∈ 𝐸 ∧ 𝑡 ∈ (𝑇 × 𝐸) ∧ 𝑓 ∈ (𝑇 × 𝐸))) → (2nd ‘(𝑡 + 𝑓)) = ((2nd ‘𝑡) ⨣ (2nd ‘𝑓)))
101	100	coeq2d 5821	. . . . . 6 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑠 ∈ 𝐸 ∧ 𝑡 ∈ (𝑇 × 𝐸) ∧ 𝑓 ∈ (𝑇 × 𝐸))) → (𝑠 ∘ (2nd ‘(𝑡 + 𝑓))) = (𝑠 ∘ ((2nd ‘𝑡) ⨣ (2nd ‘𝑓))))
102	58	fveq2d 6848	. . . . . . . 8 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑠 ∈ 𝐸 ∧ 𝑡 ∈ (𝑇 × 𝐸) ∧ 𝑓 ∈ (𝑇 × 𝐸))) → (2nd ‘(𝑠 · 𝑡)) = (2nd ‘⟨(𝑠‘(1st ‘𝑡)), (𝑠 ∘ (2nd ‘𝑡))⟩))
103	60, 63	op2nd 7954	. . . . . . . 8 ⊢ (2nd ‘⟨(𝑠‘(1st ‘𝑡)), (𝑠 ∘ (2nd ‘𝑡))⟩) = (𝑠 ∘ (2nd ‘𝑡))
104	102, 103	eqtrdi 2788	. . . . . . 7 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑠 ∈ 𝐸 ∧ 𝑡 ∈ (𝑇 × 𝐸) ∧ 𝑓 ∈ (𝑇 × 𝐸))) → (2nd ‘(𝑠 · 𝑡)) = (𝑠 ∘ (2nd ‘𝑡)))
105	67	fveq2d 6848	. . . . . . . 8 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑠 ∈ 𝐸 ∧ 𝑡 ∈ (𝑇 × 𝐸) ∧ 𝑓 ∈ (𝑇 × 𝐸))) → (2nd ‘(𝑠 · 𝑓)) = (2nd ‘⟨(𝑠‘(1st ‘𝑓)), (𝑠 ∘ (2nd ‘𝑓))⟩))
106	69, 71	op2nd 7954	. . . . . . . 8 ⊢ (2nd ‘⟨(𝑠‘(1st ‘𝑓)), (𝑠 ∘ (2nd ‘𝑓))⟩) = (𝑠 ∘ (2nd ‘𝑓))
107	105, 106	eqtrdi 2788	. . . . . . 7 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑠 ∈ 𝐸 ∧ 𝑡 ∈ (𝑇 × 𝐸) ∧ 𝑓 ∈ (𝑇 × 𝐸))) → (2nd ‘(𝑠 · 𝑓)) = (𝑠 ∘ (2nd ‘𝑓)))
108	104, 107	oveq12d 7388	. . . . . 6 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑠 ∈ 𝐸 ∧ 𝑡 ∈ (𝑇 × 𝐸) ∧ 𝑓 ∈ (𝑇 × 𝐸))) → ((2nd ‘(𝑠 · 𝑡)) ⨣ (2nd ‘(𝑠 · 𝑓))) = ((𝑠 ∘ (2nd ‘𝑡)) ⨣ (𝑠 ∘ (2nd ‘𝑓))))
109	97, 101, 108	3eqtr4d 2782	. . . . 5 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑠 ∈ 𝐸 ∧ 𝑡 ∈ (𝑇 × 𝐸) ∧ 𝑓 ∈ (𝑇 × 𝐸))) → (𝑠 ∘ (2nd ‘(𝑡 + 𝑓))) = ((2nd ‘(𝑠 · 𝑡)) ⨣ (2nd ‘(𝑠 · 𝑓))))
110	75, 109	opeq12d 4839	. . . 4 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑠 ∈ 𝐸 ∧ 𝑡 ∈ (𝑇 × 𝐸) ∧ 𝑓 ∈ (𝑇 × 𝐸))) → ⟨(𝑠‘(1st ‘(𝑡 + 𝑓))), (𝑠 ∘ (2nd ‘(𝑡 + 𝑓)))⟩ = ⟨((1st ‘(𝑠 · 𝑡)) ∘ (1st ‘(𝑠 · 𝑓))), ((2nd ‘(𝑠 · 𝑡)) ⨣ (2nd ‘(𝑠 · 𝑓)))⟩)
111	1, 2, 3, 4, 10, 17, 8	dvhvaddcl 41500	. . . . . 6 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑡 ∈ (𝑇 × 𝐸) ∧ 𝑓 ∈ (𝑇 × 𝐸))) → (𝑡 + 𝑓) ∈ (𝑇 × 𝐸))
112	111	3adantr1 1171	. . . . 5 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑠 ∈ 𝐸 ∧ 𝑡 ∈ (𝑇 × 𝐸) ∧ 𝑓 ∈ (𝑇 × 𝐸))) → (𝑡 + 𝑓) ∈ (𝑇 × 𝐸))
113	1, 2, 3, 4, 12	dvhvsca 41506	. . . . 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 41508	. . . . . 6 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑠 ∈ 𝐸 ∧ 𝑓 ∈ (𝑇 × 𝐸))) → (𝑠 · 𝑓) ∈ (𝑇 × 𝐸))
117	116	3adantr2 1172	. . . . 5 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑠 ∈ 𝐸 ∧ 𝑡 ∈ (𝑇 × 𝐸) ∧ 𝑓 ∈ (𝑇 × 𝐸))) → (𝑠 · 𝑓) ∈ (𝑇 × 𝐸))
118	1, 2, 3, 4, 10, 8, 17	dvhvadd 41497	. . . . 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 41209	. . . . . . 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 6848	. . . . . . . . . 10 ⊢ ((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) → (+g‘𝐷) = (+g‘((EDRing‘𝐾)‘𝑊)))
130	17, 129	eqtrid 2784	. . . . . . . . 9 ⊢ ((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) → ⨣ = (+g‘((EDRing‘𝐾)‘𝑊)))
131	130	oveqd 7387	. . . . . . . 8 ⊢ ((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) → (𝑠 ⨣ 𝑡) = (𝑠(+g‘((EDRing‘𝐾)‘𝑊))𝑡))
132	131	fveq1d 6846	. . . . . . 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 6848	. . . . . . . 8 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑠 ∈ 𝐸 ∧ 𝑡 ∈ 𝐸 ∧ 𝑓 ∈ (𝑇 × 𝐸))) → (1st ‘(𝑠 · 𝑓)) = (1st ‘⟨(𝑠‘(1st ‘𝑓)), (𝑠 ∘ (2nd ‘𝑓))⟩))
136	135, 72	eqtrdi 2788	. . . . . . 7 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑠 ∈ 𝐸 ∧ 𝑡 ∈ 𝐸 ∧ 𝑓 ∈ (𝑇 × 𝐸))) → (1st ‘(𝑠 · 𝑓)) = (𝑠‘(1st ‘𝑓)))
137	1, 2, 3, 4, 12	dvhvsca 41506	. . . . . . . . . 10 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑡 ∈ 𝐸 ∧ 𝑓 ∈ (𝑇 × 𝐸))) → (𝑡 · 𝑓) = ⟨(𝑡‘(1st ‘𝑓)), (𝑡 ∘ (2nd ‘𝑓))⟩)
138	137	3adantr1 1171	. . . . . . . . 9 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑠 ∈ 𝐸 ∧ 𝑡 ∈ 𝐸 ∧ 𝑓 ∈ (𝑇 × 𝐸))) → (𝑡 · 𝑓) = ⟨(𝑡‘(1st ‘𝑓)), (𝑡 ∘ (2nd ‘𝑓))⟩)
139	138	fveq2d 6848	. . . . . . . 8 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑠 ∈ 𝐸 ∧ 𝑡 ∈ 𝐸 ∧ 𝑓 ∈ (𝑇 × 𝐸))) → (1st ‘(𝑡 · 𝑓)) = (1st ‘⟨(𝑡‘(1st ‘𝑓)), (𝑡 ∘ (2nd ‘𝑓))⟩))
140		fvex 6857	. . . . . . . . 9 ⊢ (𝑡‘(1st ‘𝑓)) ∈ V
141		vex 3446	. . . . . . . . . 10 ⊢ 𝑡 ∈ V
142	141, 70	coex 7884	. . . . . . . . 9 ⊢ (𝑡 ∘ (2nd ‘𝑓)) ∈ V
143	140, 142	op1st 7953	. . . . . . . 8 ⊢ (1st ‘⟨(𝑡‘(1st ‘𝑓)), (𝑡 ∘ (2nd ‘𝑓))⟩) = (𝑡‘(1st ‘𝑓))
144	139, 143	eqtrdi 2788	. . . . . . 7 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑠 ∈ 𝐸 ∧ 𝑡 ∈ 𝐸 ∧ 𝑓 ∈ (𝑇 × 𝐸))) → (1st ‘(𝑡 · 𝑓)) = (𝑡‘(1st ‘𝑓)))
145	136, 144	coeq12d 5823	. . . . . 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 20214	. . . . . . . 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 20230	. . . . . . . . . 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 41491	. . . . . . . 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 41491	. . . . . . . . 9 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑡 ∈ 𝐸 ∧ (2nd ‘𝑓) ∈ 𝐸)) → (𝑡 × (2nd ‘𝑓)) = (𝑡 ∘ (2nd ‘𝑓)))
162	121, 123, 151, 161	syl12anc 837	. . . . . . . 8 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑠 ∈ 𝐸 ∧ 𝑡 ∈ 𝐸 ∧ 𝑓 ∈ (𝑇 × 𝐸))) → (𝑡 × (2nd ‘𝑓)) = (𝑡 ∘ (2nd ‘𝑓)))
163	160, 162	oveq12d 7388	. . . . . . 7 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑠 ∈ 𝐸 ∧ 𝑡 ∈ 𝐸 ∧ 𝑓 ∈ (𝑇 × 𝐸))) → ((𝑠 × (2nd ‘𝑓)) ⨣ (𝑡 × (2nd ‘𝑓))) = ((𝑠 ∘ (2nd ‘𝑓)) ⨣ (𝑡 ∘ (2nd ‘𝑓))))
164	154, 159, 163	3eqtr3d 2780	. . . . . 6 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑠 ∈ 𝐸 ∧ 𝑡 ∈ 𝐸 ∧ 𝑓 ∈ (𝑇 × 𝐸))) → ((𝑠 ⨣ 𝑡) ∘ (2nd ‘𝑓)) = ((𝑠 ∘ (2nd ‘𝑓)) ⨣ (𝑡 ∘ (2nd ‘𝑓))))
165	134	fveq2d 6848	. . . . . . . 8 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑠 ∈ 𝐸 ∧ 𝑡 ∈ 𝐸 ∧ 𝑓 ∈ (𝑇 × 𝐸))) → (2nd ‘(𝑠 · 𝑓)) = (2nd ‘⟨(𝑠‘(1st ‘𝑓)), (𝑠 ∘ (2nd ‘𝑓))⟩))
166	165, 106	eqtrdi 2788	. . . . . . 7 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑠 ∈ 𝐸 ∧ 𝑡 ∈ 𝐸 ∧ 𝑓 ∈ (𝑇 × 𝐸))) → (2nd ‘(𝑠 · 𝑓)) = (𝑠 ∘ (2nd ‘𝑓)))
167	138	fveq2d 6848	. . . . . . . 8 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑠 ∈ 𝐸 ∧ 𝑡 ∈ 𝐸 ∧ 𝑓 ∈ (𝑇 × 𝐸))) → (2nd ‘(𝑡 · 𝑓)) = (2nd ‘⟨(𝑡‘(1st ‘𝑓)), (𝑡 ∘ (2nd ‘𝑓))⟩))
168	140, 142	op2nd 7954	. . . . . . . 8 ⊢ (2nd ‘⟨(𝑡‘(1st ‘𝑓)), (𝑡 ∘ (2nd ‘𝑓))⟩) = (𝑡 ∘ (2nd ‘𝑓))
169	167, 168	eqtrdi 2788	. . . . . . 7 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑠 ∈ 𝐸 ∧ 𝑡 ∈ 𝐸 ∧ 𝑓 ∈ (𝑇 × 𝐸))) → (2nd ‘(𝑡 · 𝑓)) = (𝑡 ∘ (2nd ‘𝑓)))
170	166, 169	oveq12d 7388	. . . . . 6 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑠 ∈ 𝐸 ∧ 𝑡 ∈ 𝐸 ∧ 𝑓 ∈ (𝑇 × 𝐸))) → ((2nd ‘(𝑠 · 𝑓)) ⨣ (2nd ‘(𝑡 · 𝑓))) = ((𝑠 ∘ (2nd ‘𝑓)) ⨣ (𝑡 ∘ (2nd ‘𝑓))))
171	164, 170	eqtr4d 2775	. . . . 5 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑠 ∈ 𝐸 ∧ 𝑡 ∈ 𝐸 ∧ 𝑓 ∈ (𝑇 × 𝐸))) → ((𝑠 ⨣ 𝑡) ∘ (2nd ‘𝑓)) = ((2nd ‘(𝑠 · 𝑓)) ⨣ (2nd ‘(𝑡 · 𝑓))))
172	146, 171	opeq12d 4839	. . . 4 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑠 ∈ 𝐸 ∧ 𝑡 ∈ 𝐸 ∧ 𝑓 ∈ (𝑇 × 𝐸))) → ⟨((𝑠 ⨣ 𝑡)‘(1st ‘𝑓)), ((𝑠 ⨣ 𝑡) ∘ (2nd ‘𝑓))⟩ = ⟨((1st ‘(𝑠 · 𝑓)) ∘ (1st ‘(𝑡 · 𝑓))), ((2nd ‘(𝑠 · 𝑓)) ⨣ (2nd ‘(𝑡 · 𝑓)))⟩)
173	1, 2, 3, 4, 12	dvhvsca 41506	. . . . 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 41508	. . . . . 6 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑡 ∈ 𝐸 ∧ 𝑓 ∈ (𝑇 × 𝐸))) → (𝑡 · 𝑓) ∈ (𝑇 × 𝐸))
177	176	3adantr1 1171	. . . . 5 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑠 ∈ 𝐸 ∧ 𝑡 ∈ 𝐸 ∧ 𝑓 ∈ (𝑇 × 𝐸))) → (𝑡 · 𝑓) ∈ (𝑇 × 𝐸))
178	1, 2, 3, 4, 10, 8, 17	dvhvadd 41497	. . . . 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 41171	. . . . . . 7 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑠 ∈ 𝐸 ∧ 𝑡 ∈ 𝐸) ∧ (1st ‘𝑓) ∈ 𝑇) → ((𝑠 ∘ 𝑡)‘(1st ‘𝑓)) = (𝑠‘(𝑡‘(1st ‘𝑓))))
182	121, 122, 123, 125, 181	syl121anc 1378	. . . . . 6 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑠 ∈ 𝐸 ∧ 𝑡 ∈ 𝐸 ∧ 𝑓 ∈ (𝑇 × 𝐸))) → ((𝑠 ∘ 𝑡)‘(1st ‘𝑓)) = (𝑠‘(𝑡‘(1st ‘𝑓))))
183		coass 6234	. . . . . . 7 ⊢ ((𝑠 ∘ 𝑡) ∘ (2nd ‘𝑓)) = (𝑠 ∘ (𝑡 ∘ (2nd ‘𝑓)))
184	183	a1i 11	. . . . . 6 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑠 ∈ 𝐸 ∧ 𝑡 ∈ 𝐸 ∧ 𝑓 ∈ (𝑇 × 𝐸))) → ((𝑠 ∘ 𝑡) ∘ (2nd ‘𝑓)) = (𝑠 ∘ (𝑡 ∘ (2nd ‘𝑓))))
185	182, 184	opeq12d 4839	. . . . 5 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑠 ∈ 𝐸 ∧ 𝑡 ∈ 𝐸 ∧ 𝑓 ∈ (𝑇 × 𝐸))) → ⟨((𝑠 ∘ 𝑡)‘(1st ‘𝑓)), ((𝑠 ∘ 𝑡) ∘ (2nd ‘𝑓))⟩ = ⟨(𝑠‘(𝑡‘(1st ‘𝑓))), (𝑠 ∘ (𝑡 ∘ (2nd ‘𝑓)))⟩)
186	1, 3	tendococl 41177	. . . . . . 7 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝑠 ∈ 𝐸 ∧ 𝑡 ∈ 𝐸) → (𝑠 ∘ 𝑡) ∈ 𝐸)
187	121, 122, 123, 186	syl3anc 1374	. . . . . 6 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑠 ∈ 𝐸 ∧ 𝑡 ∈ 𝐸 ∧ 𝑓 ∈ (𝑇 × 𝐸))) → (𝑠 ∘ 𝑡) ∈ 𝐸)
188	1, 2, 3, 4, 12	dvhvsca 41506	. . . . . 6 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ ((𝑠 ∘ 𝑡) ∈ 𝐸 ∧ 𝑓 ∈ (𝑇 × 𝐸))) → ((𝑠 ∘ 𝑡) · 𝑓) = ⟨((𝑠 ∘ 𝑡)‘(1st ‘𝑓)), ((𝑠 ∘ 𝑡) ∘ (2nd ‘𝑓))⟩)
189	121, 187, 124, 188	syl12anc 837	. . . . 5 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑠 ∈ 𝐸 ∧ 𝑡 ∈ 𝐸 ∧ 𝑓 ∈ (𝑇 × 𝐸))) → ((𝑠 ∘ 𝑡) · 𝑓) = ⟨((𝑠 ∘ 𝑡)‘(1st ‘𝑓)), ((𝑠 ∘ 𝑡) ∘ (2nd ‘𝑓))⟩)
190	1, 2, 3	tendocl 41172	. . . . . . 7 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝑡 ∈ 𝐸 ∧ (1st ‘𝑓) ∈ 𝑇) → (𝑡‘(1st ‘𝑓)) ∈ 𝑇)
191	121, 123, 125, 190	syl3anc 1374	. . . . . 6 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑠 ∈ 𝐸 ∧ 𝑡 ∈ 𝐸 ∧ 𝑓 ∈ (𝑇 × 𝐸))) → (𝑡‘(1st ‘𝑓)) ∈ 𝑇)
192	1, 3	tendococl 41177	. . . . . . 7 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝑡 ∈ 𝐸 ∧ (2nd ‘𝑓) ∈ 𝐸) → (𝑡 ∘ (2nd ‘𝑓)) ∈ 𝐸)
193	121, 123, 151, 192	syl3anc 1374	. . . . . 6 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑠 ∈ 𝐸 ∧ 𝑡 ∈ 𝐸 ∧ 𝑓 ∈ (𝑇 × 𝐸))) → (𝑡 ∘ (2nd ‘𝑓)) ∈ 𝐸)
194	1, 2, 3, 4, 12	dvhopvsca 41507	. . . . . 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 41491	. . . . . 6 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑠 ∈ 𝐸 ∧ 𝑡 ∈ 𝐸)) → (𝑠 × 𝑡) = (𝑠 ∘ 𝑡))
198	197	3adantr3 1173	. . . . 5 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑠 ∈ 𝐸 ∧ 𝑡 ∈ 𝐸 ∧ 𝑓 ∈ (𝑇 × 𝐸))) → (𝑠 × 𝑡) = (𝑠 ∘ 𝑡))
199	198	oveq1d 7385	. . . 4 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑠 ∈ 𝐸 ∧ 𝑡 ∈ 𝐸 ∧ 𝑓 ∈ (𝑇 × 𝐸))) → ((𝑠 × 𝑡) · 𝑓) = ((𝑠 ∘ 𝑡) · 𝑓))
200	138	oveq2d 7386	. . . 4 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑠 ∈ 𝐸 ∧ 𝑡 ∈ 𝐸 ∧ 𝑓 ∈ (𝑇 × 𝐸))) → (𝑠 · (𝑡 · 𝑓)) = (𝑠 · ⟨(𝑡‘(1st ‘𝑓)), (𝑡 ∘ (2nd ‘𝑓))⟩))
201	196, 199, 200	3eqtr4d 2782	. . 3 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑠 ∈ 𝐸 ∧ 𝑡 ∈ 𝐸 ∧ 𝑓 ∈ (𝑇 × 𝐸))) → ((𝑠 × 𝑡) · 𝑓) = (𝑠 · (𝑡 · 𝑓)))
202		xp1st 7977	. . . . . . 7 ⊢ (𝑠 ∈ (𝑇 × 𝐸) → (1st ‘𝑠) ∈ 𝑇)
203	202	adantl 481	. . . . . 6 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝑠 ∈ (𝑇 × 𝐸)) → (1st ‘𝑠) ∈ 𝑇)
204		fvresi 7131	. . . . . 6 ⊢ ((1st ‘𝑠) ∈ 𝑇 → (( I ↾ 𝑇)‘(1st ‘𝑠)) = (1st ‘𝑠))
205	203, 204	syl 17	. . . . 5 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝑠 ∈ (𝑇 × 𝐸)) → (( I ↾ 𝑇)‘(1st ‘𝑠)) = (1st ‘𝑠))
206		xp2nd 7978	. . . . . . 7 ⊢ (𝑠 ∈ (𝑇 × 𝐸) → (2nd ‘𝑠) ∈ 𝐸)
207	1, 2, 3	tendof 41168	. . . . . . 7 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (2nd ‘𝑠) ∈ 𝐸) → (2nd ‘𝑠):𝑇⟶𝑇)
208	206, 207	sylan2 594	. . . . . 6 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝑠 ∈ (𝑇 × 𝐸)) → (2nd ‘𝑠):𝑇⟶𝑇)
209		fcoi2 6719	. . . . . 6 ⊢ ((2nd ‘𝑠):𝑇⟶𝑇 → (( I ↾ 𝑇) ∘ (2nd ‘𝑠)) = (2nd ‘𝑠))
210	208, 209	syl 17	. . . . 5 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝑠 ∈ (𝑇 × 𝐸)) → (( I ↾ 𝑇) ∘ (2nd ‘𝑠)) = (2nd ‘𝑠))
211	205, 210	opeq12d 4839	. . . 4 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝑠 ∈ (𝑇 × 𝐸)) → ⟨(( I ↾ 𝑇)‘(1st ‘𝑠)), (( I ↾ 𝑇) ∘ (2nd ‘𝑠))⟩ = ⟨(1st ‘𝑠), (2nd ‘𝑠)⟩)
212	1, 2, 3	tendoidcl 41174	. . . . . 6 ⊢ ((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) → ( I ↾ 𝑇) ∈ 𝐸)
213	212	anim1i 616	. . . . 5 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝑠 ∈ (𝑇 × 𝐸)) → (( I ↾ 𝑇) ∈ 𝐸 ∧ 𝑠 ∈ (𝑇 × 𝐸)))
214	1, 2, 3, 4, 12	dvhvsca 41506	. . . . 5 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (( I ↾ 𝑇) ∈ 𝐸 ∧ 𝑠 ∈ (𝑇 × 𝐸))) → (( I ↾ 𝑇) · 𝑠) = ⟨(( I ↾ 𝑇)‘(1st ‘𝑠)), (( I ↾ 𝑇) ∘ (2nd ‘𝑠))⟩)
215	213, 214	syldan 592	. . . 4 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝑠 ∈ (𝑇 × 𝐸)) → (( I ↾ 𝑇) · 𝑠) = ⟨(( I ↾ 𝑇)‘(1st ‘𝑠)), (( I ↾ 𝑇) ∘ (2nd ‘𝑠))⟩)
216		1st2nd2 7984	. . . . 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 20834	. 2 ⊢ ((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) → 𝑈 ∈ LMod)
220	10	islvec 21073	. 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 4588   I cid 5528   × cxp 5632   ↾ cres 5636   ∘ ccom 5638  ⟶wf 6498  ‘cfv 6502  (class class class)co 7370  1^st c1st 7943  2^nd c2nd 7944  Basecbs 17150  +_gcplusg 17191  ._rcmulr 17192  Scalarcsca 17194   ·_𝑠 cvsca 17195  0_gc0g 17373  inv_gcminusg 18881  1_rcur 20133  Ringcrg 20185  DivRingcdr 20679  LModclmod 20828  LVecclvec 21071  HLchlt 39755  LHypclh 40389  LTrncltrn 40506  TEndoctendo 41157  EDRingcedring 41158  DVecHcdvh 41483

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 5226  ax-sep 5245  ax-nul 5255  ax-pow 5314  ax-pr 5381  ax-un 7692  ax-cnex 11096  ax-resscn 11097  ax-1cn 11098  ax-icn 11099  ax-addcl 11100  ax-addrcl 11101  ax-mulcl 11102  ax-mulrcl 11103  ax-mulcom 11104  ax-addass 11105  ax-mulass 11106  ax-distr 11107  ax-i2m1 11108  ax-1ne0 11109  ax-1rid 11110  ax-rnegex 11111  ax-rrecex 11112  ax-cnre 11113  ax-pre-lttri 11114  ax-pre-lttrn 11115  ax-pre-ltadd 11116  ax-pre-mulgt0 11117  ax-riotaBAD 39358

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 3063  df-rmo 3352  df-reu 3353  df-rab 3402  df-v 3444  df-sbc 3743  df-csb 3852  df-dif 3906  df-un 3908  df-in 3910  df-ss 3920  df-pss 3923  df-nul 4288  df-if 4482  df-pw 4558  df-sn 4583  df-pr 4585  df-tp 4587  df-op 4589  df-uni 4866  df-iun 4950  df-iin 4951  df-br 5101  df-opab 5163  df-mpt 5182  df-tr 5208  df-id 5529  df-eprel 5534  df-po 5542  df-so 5543  df-fr 5587  df-we 5589  df-xp 5640  df-rel 5641  df-cnv 5642  df-co 5643  df-dm 5644  df-rn 5645  df-res 5646  df-ima 5647  df-pred 6269  df-ord 6330  df-on 6331  df-lim 6332  df-suc 6333  df-iota 6458  df-fun 6504  df-fn 6505  df-f 6506  df-f1 6507  df-fo 6508  df-f1o 6509  df-fv 6510  df-riota 7327  df-ov 7373  df-oprab 7374  df-mpo 7375  df-om 7821  df-1st 7945  df-2nd 7946  df-tpos 8180  df-undef 8227  df-frecs 8235  df-wrecs 8266  df-recs 8315  df-rdg 8353  df-1o 8409  df-er 8647  df-map 8779  df-en 8898  df-dom 8899  df-sdom 8900  df-fin 8901  df-pnf 11182  df-mnf 11183  df-xr 11184  df-ltxr 11185  df-le 11186  df-sub 11380  df-neg 11381  df-nn 12160  df-2 12222  df-3 12223  df-4 12224  df-5 12225  df-6 12226  df-n0 12416  df-z 12503  df-uz 12766  df-fz 13438  df-struct 17088  df-sets 17105  df-slot 17123  df-ndx 17135  df-base 17151  df-ress 17172  df-plusg 17204  df-mulr 17205  df-sca 17207  df-vsca 17208  df-0g 17375  df-proset 18231  df-poset 18250  df-plt 18265  df-lub 18281  df-glb 18282  df-join 18283  df-meet 18284  df-p0 18360  df-p1 18361  df-lat 18369  df-clat 18436  df-mgm 18579  df-sgrp 18658  df-mnd 18674  df-grp 18883  df-minusg 18884  df-cmn 19728  df-abl 19729  df-mgp 20093  df-rng 20105  df-ur 20134  df-ring 20187  df-oppr 20290  df-dvdsr 20310  df-unit 20311  df-invr 20341  df-dvr 20354  df-drng 20681  df-lmod 20830  df-lvec 21072  df-oposet 39581  df-ol 39583  df-oml 39584  df-covers 39671  df-ats 39672  df-atl 39703  df-cvlat 39727  df-hlat 39756  df-llines 39903  df-lplanes 39904  df-lvols 39905  df-lines 39906  df-psubsp 39908  df-pmap 39909  df-padd 40201  df-lhyp 40393  df-laut 40394  df-ldil 40509  df-ltrn 40510  df-trl 40564  df-tendo 41160  df-edring 41162  df-dvech 41484

This theorem is referenced by:  dvhlvec  41514