Users' Mathboxes Mathbox for Norm Megill < Previous   Next >
Nearby theorems
Mirrors  >  Home  >  MPE Home  >  Th. List  >   Mathboxes  >  dvalveclem Structured version   Visualization version   GIF version

Theorem dvalveclem 38651
Description: Lemma for dvalvec 38652. (Contributed by NM, 11-Oct-2013.) (Proof shortened by Mario Carneiro, 22-Jun-2014.)
Hypotheses
Ref Expression
dvalvec.h 𝐻 = (LHyp‘𝐾)
dvalvec.v 𝑈 = ((DVecA‘𝐾)‘𝑊)
dvalveclem.t 𝑇 = ((LTrn‘𝐾)‘𝑊)
dvalveclem.a + = (+g𝑈)
dvalveclem.e 𝐸 = ((TEndo‘𝐾)‘𝑊)
dvalveclem.d 𝐷 = (Scalar‘𝑈)
dvalveclem.b 𝐵 = (Base‘𝐾)
dvalveclem.p = (+g𝐷)
dvalveclem.m × = (.r𝐷)
dvalveclem.s · = ( ·𝑠𝑈)
Assertion
Ref Expression
dvalveclem ((𝐾 ∈ HL ∧ 𝑊𝐻) → 𝑈 ∈ LVec)

Proof of Theorem dvalveclem
Dummy variables 𝑡 𝑓 𝑎 𝑏 𝑠 are mutually distinct and distinct from all other variables.
StepHypRef Expression
1 dvalvec.h . . . . 5 𝐻 = (LHyp‘𝐾)
2 dvalveclem.t . . . . 5 𝑇 = ((LTrn‘𝐾)‘𝑊)
3 dvalvec.v . . . . 5 𝑈 = ((DVecA‘𝐾)‘𝑊)
4 eqid 2738 . . . . 5 (Base‘𝑈) = (Base‘𝑈)
51, 2, 3, 4dvavbase 38639 . . . 4 ((𝐾 ∈ HL ∧ 𝑊𝐻) → (Base‘𝑈) = 𝑇)
65eqcomd 2744 . . 3 ((𝐾 ∈ HL ∧ 𝑊𝐻) → 𝑇 = (Base‘𝑈))
7 dvalveclem.a . . . 4 + = (+g𝑈)
87a1i 11 . . 3 ((𝐾 ∈ HL ∧ 𝑊𝐻) → + = (+g𝑈))
9 dvalveclem.d . . . 4 𝐷 = (Scalar‘𝑈)
109a1i 11 . . 3 ((𝐾 ∈ HL ∧ 𝑊𝐻) → 𝐷 = (Scalar‘𝑈))
11 dvalveclem.s . . . 4 · = ( ·𝑠𝑈)
1211a1i 11 . . 3 ((𝐾 ∈ HL ∧ 𝑊𝐻) → · = ( ·𝑠𝑈))
13 dvalveclem.e . . . . 5 𝐸 = ((TEndo‘𝐾)‘𝑊)
14 eqid 2738 . . . . 5 (Base‘𝐷) = (Base‘𝐷)
151, 13, 3, 9, 14dvabase 38633 . . . 4 ((𝐾 ∈ HL ∧ 𝑊𝐻) → (Base‘𝐷) = 𝐸)
1615eqcomd 2744 . . 3 ((𝐾 ∈ HL ∧ 𝑊𝐻) → 𝐸 = (Base‘𝐷))
17 dvalveclem.p . . . 4 = (+g𝐷)
1817a1i 11 . . 3 ((𝐾 ∈ HL ∧ 𝑊𝐻) → = (+g𝐷))
19 dvalveclem.m . . . 4 × = (.r𝐷)
2019a1i 11 . . 3 ((𝐾 ∈ HL ∧ 𝑊𝐻) → × = (.r𝐷))
211, 2, 13tendoidcl 38395 . . . . . . 7 ((𝐾 ∈ HL ∧ 𝑊𝐻) → ( I ↾ 𝑇) ∈ 𝐸)
2221, 16eleqtrd 2835 . . . . . 6 ((𝐾 ∈ HL ∧ 𝑊𝐻) → ( I ↾ 𝑇) ∈ (Base‘𝐷))
23 dvalveclem.b . . . . . . . 8 𝐵 = (Base‘𝐾)
24 eqid 2738 . . . . . . . 8 (𝑓𝑇 ↦ ( I ↾ 𝐵)) = (𝑓𝑇 ↦ ( I ↾ 𝐵))
2523, 1, 2, 13, 24tendo1ne0 38454 . . . . . . 7 ((𝐾 ∈ HL ∧ 𝑊𝐻) → ( I ↾ 𝑇) ≠ (𝑓𝑇 ↦ ( I ↾ 𝐵)))
26 eqid 2738 . . . . . . . . . 10 ((EDRing‘𝐾)‘𝑊) = ((EDRing‘𝐾)‘𝑊)
271, 26, 3, 9dvasca 38632 . . . . . . . . 9 ((𝐾 ∈ HL ∧ 𝑊𝐻) → 𝐷 = ((EDRing‘𝐾)‘𝑊))
2827fveq2d 6672 . . . . . . . 8 ((𝐾 ∈ HL ∧ 𝑊𝐻) → (0g𝐷) = (0g‘((EDRing‘𝐾)‘𝑊)))
29 eqid 2738 . . . . . . . . 9 (0g‘((EDRing‘𝐾)‘𝑊)) = (0g‘((EDRing‘𝐾)‘𝑊))
3023, 1, 2, 26, 24, 29erng0g 38620 . . . . . . . 8 ((𝐾 ∈ HL ∧ 𝑊𝐻) → (0g‘((EDRing‘𝐾)‘𝑊)) = (𝑓𝑇 ↦ ( I ↾ 𝐵)))
3128, 30eqtrd 2773 . . . . . . 7 ((𝐾 ∈ HL ∧ 𝑊𝐻) → (0g𝐷) = (𝑓𝑇 ↦ ( I ↾ 𝐵)))
3225, 31neeqtrrd 3008 . . . . . 6 ((𝐾 ∈ HL ∧ 𝑊𝐻) → ( I ↾ 𝑇) ≠ (0g𝐷))
3321, 21jca 515 . . . . . . . 8 ((𝐾 ∈ HL ∧ 𝑊𝐻) → (( I ↾ 𝑇) ∈ 𝐸 ∧ ( I ↾ 𝑇) ∈ 𝐸))
341, 2, 13, 3, 9, 19dvamulr 38638 . . . . . . . 8 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (( I ↾ 𝑇) ∈ 𝐸 ∧ ( I ↾ 𝑇) ∈ 𝐸)) → (( I ↾ 𝑇) × ( I ↾ 𝑇)) = (( I ↾ 𝑇) ∘ ( I ↾ 𝑇)))
3533, 34mpdan 687 . . . . . . 7 ((𝐾 ∈ HL ∧ 𝑊𝐻) → (( I ↾ 𝑇) × ( I ↾ 𝑇)) = (( I ↾ 𝑇) ∘ ( I ↾ 𝑇)))
36 f1oi 6649 . . . . . . . 8 ( I ↾ 𝑇):𝑇1-1-onto𝑇
37 f1of 6612 . . . . . . . 8 (( I ↾ 𝑇):𝑇1-1-onto𝑇 → ( I ↾ 𝑇):𝑇𝑇)
38 fcoi2 6547 . . . . . . . 8 (( I ↾ 𝑇):𝑇𝑇 → (( I ↾ 𝑇) ∘ ( I ↾ 𝑇)) = ( I ↾ 𝑇))
3936, 37, 38mp2b 10 . . . . . . 7 (( I ↾ 𝑇) ∘ ( I ↾ 𝑇)) = ( I ↾ 𝑇)
4035, 39eqtrdi 2789 . . . . . 6 ((𝐾 ∈ HL ∧ 𝑊𝐻) → (( I ↾ 𝑇) × ( I ↾ 𝑇)) = ( I ↾ 𝑇))
4122, 32, 403jca 1129 . . . . 5 ((𝐾 ∈ HL ∧ 𝑊𝐻) → (( I ↾ 𝑇) ∈ (Base‘𝐷) ∧ ( I ↾ 𝑇) ≠ (0g𝐷) ∧ (( I ↾ 𝑇) × ( I ↾ 𝑇)) = ( I ↾ 𝑇)))
421, 26erngdv 38619 . . . . . . 7 ((𝐾 ∈ HL ∧ 𝑊𝐻) → ((EDRing‘𝐾)‘𝑊) ∈ DivRing)
4327, 42eqeltrd 2833 . . . . . 6 ((𝐾 ∈ HL ∧ 𝑊𝐻) → 𝐷 ∈ DivRing)
44 eqid 2738 . . . . . . 7 (0g𝐷) = (0g𝐷)
45 eqid 2738 . . . . . . 7 (1r𝐷) = (1r𝐷)
4614, 19, 44, 45drngid2 19630 . . . . . 6 (𝐷 ∈ DivRing → ((( I ↾ 𝑇) ∈ (Base‘𝐷) ∧ ( I ↾ 𝑇) ≠ (0g𝐷) ∧ (( I ↾ 𝑇) × ( I ↾ 𝑇)) = ( I ↾ 𝑇)) ↔ (1r𝐷) = ( I ↾ 𝑇)))
4743, 46syl 17 . . . . 5 ((𝐾 ∈ HL ∧ 𝑊𝐻) → ((( I ↾ 𝑇) ∈ (Base‘𝐷) ∧ ( I ↾ 𝑇) ≠ (0g𝐷) ∧ (( I ↾ 𝑇) × ( I ↾ 𝑇)) = ( I ↾ 𝑇)) ↔ (1r𝐷) = ( I ↾ 𝑇)))
4841, 47mpbid 235 . . . 4 ((𝐾 ∈ HL ∧ 𝑊𝐻) → (1r𝐷) = ( I ↾ 𝑇))
4948eqcomd 2744 . . 3 ((𝐾 ∈ HL ∧ 𝑊𝐻) → ( I ↾ 𝑇) = (1r𝐷))
50 drngring 19621 . . . 4 (𝐷 ∈ DivRing → 𝐷 ∈ Ring)
5143, 50syl 17 . . 3 ((𝐾 ∈ HL ∧ 𝑊𝐻) → 𝐷 ∈ Ring)
521, 3dvaabl 38650 . . . 4 ((𝐾 ∈ HL ∧ 𝑊𝐻) → 𝑈 ∈ Abel)
53 ablgrp 19022 . . . 4 (𝑈 ∈ Abel → 𝑈 ∈ Grp)
5452, 53syl 17 . . 3 ((𝐾 ∈ HL ∧ 𝑊𝐻) → 𝑈 ∈ Grp)
551, 2, 13, 3, 11dvavsca 38643 . . . . 5 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑠𝐸𝑡𝑇)) → (𝑠 · 𝑡) = (𝑠𝑡))
56553impb 1116 . . . 4 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ 𝑠𝐸𝑡𝑇) → (𝑠 · 𝑡) = (𝑠𝑡))
571, 2, 13tendocl 38393 . . . 4 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ 𝑠𝐸𝑡𝑇) → (𝑠𝑡) ∈ 𝑇)
5856, 57eqeltrd 2833 . . 3 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ 𝑠𝐸𝑡𝑇) → (𝑠 · 𝑡) ∈ 𝑇)
591, 2, 13tendospdi1 38646 . . . . 5 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑠𝐸𝑡𝑇𝑓𝑇)) → (𝑠‘(𝑡𝑓)) = ((𝑠𝑡) ∘ (𝑠𝑓)))
60 simpr1 1195 . . . . . . 7 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑠𝐸𝑡𝑇𝑓𝑇)) → 𝑠𝐸)
611, 2ltrnco 38345 . . . . . . . 8 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ 𝑡𝑇𝑓𝑇) → (𝑡𝑓) ∈ 𝑇)
62613adant3r1 1183 . . . . . . 7 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑠𝐸𝑡𝑇𝑓𝑇)) → (𝑡𝑓) ∈ 𝑇)
6360, 62jca 515 . . . . . 6 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑠𝐸𝑡𝑇𝑓𝑇)) → (𝑠𝐸 ∧ (𝑡𝑓) ∈ 𝑇))
641, 2, 13, 3, 11dvavsca 38643 . . . . . 6 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑠𝐸 ∧ (𝑡𝑓) ∈ 𝑇)) → (𝑠 · (𝑡𝑓)) = (𝑠‘(𝑡𝑓)))
6563, 64syldan 594 . . . . 5 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑠𝐸𝑡𝑇𝑓𝑇)) → (𝑠 · (𝑡𝑓)) = (𝑠‘(𝑡𝑓)))
66573adant3r3 1185 . . . . . . 7 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑠𝐸𝑡𝑇𝑓𝑇)) → (𝑠𝑡) ∈ 𝑇)
671, 2, 13tendocl 38393 . . . . . . . 8 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ 𝑠𝐸𝑓𝑇) → (𝑠𝑓) ∈ 𝑇)
68673adant3r2 1184 . . . . . . 7 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑠𝐸𝑡𝑇𝑓𝑇)) → (𝑠𝑓) ∈ 𝑇)
6966, 68jca 515 . . . . . 6 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑠𝐸𝑡𝑇𝑓𝑇)) → ((𝑠𝑡) ∈ 𝑇 ∧ (𝑠𝑓) ∈ 𝑇))
701, 2, 3, 7dvavadd 38641 . . . . . 6 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ ((𝑠𝑡) ∈ 𝑇 ∧ (𝑠𝑓) ∈ 𝑇)) → ((𝑠𝑡) + (𝑠𝑓)) = ((𝑠𝑡) ∘ (𝑠𝑓)))
7169, 70syldan 594 . . . . 5 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑠𝐸𝑡𝑇𝑓𝑇)) → ((𝑠𝑡) + (𝑠𝑓)) = ((𝑠𝑡) ∘ (𝑠𝑓)))
7259, 65, 713eqtr4d 2783 . . . 4 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑠𝐸𝑡𝑇𝑓𝑇)) → (𝑠 · (𝑡𝑓)) = ((𝑠𝑡) + (𝑠𝑓)))
731, 2, 3, 7dvavadd 38641 . . . . . 6 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑡𝑇𝑓𝑇)) → (𝑡 + 𝑓) = (𝑡𝑓))
74733adantr1 1170 . . . . 5 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑠𝐸𝑡𝑇𝑓𝑇)) → (𝑡 + 𝑓) = (𝑡𝑓))
7574oveq2d 7180 . . . 4 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑠𝐸𝑡𝑇𝑓𝑇)) → (𝑠 · (𝑡 + 𝑓)) = (𝑠 · (𝑡𝑓)))
76553adantr3 1172 . . . . 5 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑠𝐸𝑡𝑇𝑓𝑇)) → (𝑠 · 𝑡) = (𝑠𝑡))
771, 2, 13, 3, 11dvavsca 38643 . . . . . 6 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑠𝐸𝑓𝑇)) → (𝑠 · 𝑓) = (𝑠𝑓))
78773adantr2 1171 . . . . 5 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑠𝐸𝑡𝑇𝑓𝑇)) → (𝑠 · 𝑓) = (𝑠𝑓))
7976, 78oveq12d 7182 . . . 4 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑠𝐸𝑡𝑇𝑓𝑇)) → ((𝑠 · 𝑡) + (𝑠 · 𝑓)) = ((𝑠𝑡) + (𝑠𝑓)))
8072, 75, 793eqtr4d 2783 . . 3 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑠𝐸𝑡𝑇𝑓𝑇)) → (𝑠 · (𝑡 + 𝑓)) = ((𝑠 · 𝑡) + (𝑠 · 𝑓)))
811, 2, 13, 3, 9, 17dvaplusgv 38636 . . . 4 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑠𝐸𝑡𝐸𝑓𝑇)) → ((𝑠 𝑡)‘𝑓) = ((𝑠𝑓) ∘ (𝑡𝑓)))
821, 2, 13, 3, 9, 17dvafplusg 38634 . . . . . . . . . 10 ((𝐾 ∈ HL ∧ 𝑊𝐻) → = (𝑎𝐸, 𝑏𝐸 ↦ (𝑓𝑇 ↦ ((𝑎𝑓) ∘ (𝑏𝑓)))))
83823ad2ant1 1134 . . . . . . . . 9 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ 𝑠𝐸𝑡𝐸) → = (𝑎𝐸, 𝑏𝐸 ↦ (𝑓𝑇 ↦ ((𝑎𝑓) ∘ (𝑏𝑓)))))
8483oveqd 7181 . . . . . . . 8 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ 𝑠𝐸𝑡𝐸) → (𝑠 𝑡) = (𝑠(𝑎𝐸, 𝑏𝐸 ↦ (𝑓𝑇 ↦ ((𝑎𝑓) ∘ (𝑏𝑓))))𝑡))
85 eqid 2738 . . . . . . . . 9 (𝑎𝐸, 𝑏𝐸 ↦ (𝑓𝑇 ↦ ((𝑎𝑓) ∘ (𝑏𝑓)))) = (𝑎𝐸, 𝑏𝐸 ↦ (𝑓𝑇 ↦ ((𝑎𝑓) ∘ (𝑏𝑓))))
861, 2, 13, 85tendoplcl 38407 . . . . . . . 8 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ 𝑠𝐸𝑡𝐸) → (𝑠(𝑎𝐸, 𝑏𝐸 ↦ (𝑓𝑇 ↦ ((𝑎𝑓) ∘ (𝑏𝑓))))𝑡) ∈ 𝐸)
8784, 86eqeltrd 2833 . . . . . . 7 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ 𝑠𝐸𝑡𝐸) → (𝑠 𝑡) ∈ 𝐸)
88873adant3r3 1185 . . . . . 6 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑠𝐸𝑡𝐸𝑓𝑇)) → (𝑠 𝑡) ∈ 𝐸)
89 simpr3 1197 . . . . . 6 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑠𝐸𝑡𝐸𝑓𝑇)) → 𝑓𝑇)
9088, 89jca 515 . . . . 5 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑠𝐸𝑡𝐸𝑓𝑇)) → ((𝑠 𝑡) ∈ 𝐸𝑓𝑇))
911, 2, 13, 3, 11dvavsca 38643 . . . . 5 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ ((𝑠 𝑡) ∈ 𝐸𝑓𝑇)) → ((𝑠 𝑡) · 𝑓) = ((𝑠 𝑡)‘𝑓))
9290, 91syldan 594 . . . 4 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑠𝐸𝑡𝐸𝑓𝑇)) → ((𝑠 𝑡) · 𝑓) = ((𝑠 𝑡)‘𝑓))
93773adantr2 1171 . . . . . 6 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑠𝐸𝑡𝐸𝑓𝑇)) → (𝑠 · 𝑓) = (𝑠𝑓))
941, 2, 13, 3, 11dvavsca 38643 . . . . . . 7 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑡𝐸𝑓𝑇)) → (𝑡 · 𝑓) = (𝑡𝑓))
95943adantr1 1170 . . . . . 6 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑠𝐸𝑡𝐸𝑓𝑇)) → (𝑡 · 𝑓) = (𝑡𝑓))
9693, 95oveq12d 7182 . . . . 5 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑠𝐸𝑡𝐸𝑓𝑇)) → ((𝑠 · 𝑓) + (𝑡 · 𝑓)) = ((𝑠𝑓) + (𝑡𝑓)))
97673adant3r2 1184 . . . . . . 7 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑠𝐸𝑡𝐸𝑓𝑇)) → (𝑠𝑓) ∈ 𝑇)
981, 2, 13tendospcl 38644 . . . . . . . 8 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ 𝑡𝐸𝑓𝑇) → (𝑡𝑓) ∈ 𝑇)
99983adant3r1 1183 . . . . . . 7 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑠𝐸𝑡𝐸𝑓𝑇)) → (𝑡𝑓) ∈ 𝑇)
10097, 99jca 515 . . . . . 6 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑠𝐸𝑡𝐸𝑓𝑇)) → ((𝑠𝑓) ∈ 𝑇 ∧ (𝑡𝑓) ∈ 𝑇))
1011, 2, 3, 7dvavadd 38641 . . . . . 6 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ ((𝑠𝑓) ∈ 𝑇 ∧ (𝑡𝑓) ∈ 𝑇)) → ((𝑠𝑓) + (𝑡𝑓)) = ((𝑠𝑓) ∘ (𝑡𝑓)))
102100, 101syldan 594 . . . . 5 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑠𝐸𝑡𝐸𝑓𝑇)) → ((𝑠𝑓) + (𝑡𝑓)) = ((𝑠𝑓) ∘ (𝑡𝑓)))
10396, 102eqtrd 2773 . . . 4 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑠𝐸𝑡𝐸𝑓𝑇)) → ((𝑠 · 𝑓) + (𝑡 · 𝑓)) = ((𝑠𝑓) ∘ (𝑡𝑓)))
10481, 92, 1033eqtr4d 2783 . . 3 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑠𝐸𝑡𝐸𝑓𝑇)) → ((𝑠 𝑡) · 𝑓) = ((𝑠 · 𝑓) + (𝑡 · 𝑓)))
1051, 2, 13tendospass 38645 . . . . 5 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑠𝐸𝑡𝐸𝑓𝑇)) → ((𝑠𝑡)‘𝑓) = (𝑠‘(𝑡𝑓)))
1061, 13tendococl 38398 . . . . . . . 8 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ 𝑠𝐸𝑡𝐸) → (𝑠𝑡) ∈ 𝐸)
1071063adant3r3 1185 . . . . . . 7 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑠𝐸𝑡𝐸𝑓𝑇)) → (𝑠𝑡) ∈ 𝐸)
108107, 89jca 515 . . . . . 6 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑠𝐸𝑡𝐸𝑓𝑇)) → ((𝑠𝑡) ∈ 𝐸𝑓𝑇))
1091, 2, 13, 3, 11dvavsca 38643 . . . . . 6 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ ((𝑠𝑡) ∈ 𝐸𝑓𝑇)) → ((𝑠𝑡) · 𝑓) = ((𝑠𝑡)‘𝑓))
110108, 109syldan 594 . . . . 5 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑠𝐸𝑡𝐸𝑓𝑇)) → ((𝑠𝑡) · 𝑓) = ((𝑠𝑡)‘𝑓))
111 simpr1 1195 . . . . . . 7 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑠𝐸𝑡𝐸𝑓𝑇)) → 𝑠𝐸)
112111, 99jca 515 . . . . . 6 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑠𝐸𝑡𝐸𝑓𝑇)) → (𝑠𝐸 ∧ (𝑡𝑓) ∈ 𝑇))
1131, 2, 13, 3, 11dvavsca 38643 . . . . . 6 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑠𝐸 ∧ (𝑡𝑓) ∈ 𝑇)) → (𝑠 · (𝑡𝑓)) = (𝑠‘(𝑡𝑓)))
114112, 113syldan 594 . . . . 5 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑠𝐸𝑡𝐸𝑓𝑇)) → (𝑠 · (𝑡𝑓)) = (𝑠‘(𝑡𝑓)))
115105, 110, 1143eqtr4d 2783 . . . 4 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑠𝐸𝑡𝐸𝑓𝑇)) → ((𝑠𝑡) · 𝑓) = (𝑠 · (𝑡𝑓)))
1161, 2, 13, 3, 9, 19dvamulr 38638 . . . . . 6 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑠𝐸𝑡𝐸)) → (𝑠 × 𝑡) = (𝑠𝑡))
1171163adantr3 1172 . . . . 5 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑠𝐸𝑡𝐸𝑓𝑇)) → (𝑠 × 𝑡) = (𝑠𝑡))
118117oveq1d 7179 . . . 4 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑠𝐸𝑡𝐸𝑓𝑇)) → ((𝑠 × 𝑡) · 𝑓) = ((𝑠𝑡) · 𝑓))
11995oveq2d 7180 . . . 4 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑠𝐸𝑡𝐸𝑓𝑇)) → (𝑠 · (𝑡 · 𝑓)) = (𝑠 · (𝑡𝑓)))
120115, 118, 1193eqtr4d 2783 . . 3 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑠𝐸𝑡𝐸𝑓𝑇)) → ((𝑠 × 𝑡) · 𝑓) = (𝑠 · (𝑡 · 𝑓)))
12121anim1i 618 . . . . 5 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ 𝑠𝑇) → (( I ↾ 𝑇) ∈ 𝐸𝑠𝑇))
1221, 2, 13, 3, 11dvavsca 38643 . . . . 5 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (( I ↾ 𝑇) ∈ 𝐸𝑠𝑇)) → (( I ↾ 𝑇) · 𝑠) = (( I ↾ 𝑇)‘𝑠))
123121, 122syldan 594 . . . 4 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ 𝑠𝑇) → (( I ↾ 𝑇) · 𝑠) = (( I ↾ 𝑇)‘𝑠))
124 fvresi 6939 . . . . 5 (𝑠𝑇 → (( I ↾ 𝑇)‘𝑠) = 𝑠)
125124adantl 485 . . . 4 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ 𝑠𝑇) → (( I ↾ 𝑇)‘𝑠) = 𝑠)
126123, 125eqtrd 2773 . . 3 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ 𝑠𝑇) → (( I ↾ 𝑇) · 𝑠) = 𝑠)
1276, 8, 10, 12, 16, 18, 20, 49, 51, 54, 58, 80, 104, 120, 126islmodd 19752 . 2 ((𝐾 ∈ HL ∧ 𝑊𝐻) → 𝑈 ∈ LMod)
1289islvec 19988 . 2 (𝑈 ∈ LVec ↔ (𝑈 ∈ LMod ∧ 𝐷 ∈ DivRing))
129127, 43, 128sylanbrc 586 1 ((𝐾 ∈ HL ∧ 𝑊𝐻) → 𝑈 ∈ LVec)
Colors of variables: wff setvar class
Syntax hints:  wi 4  wb 209  wa 399  w3a 1088   = wceq 1542  wcel 2113  wne 2934  cmpt 5107   I cid 5424  cres 5521  ccom 5523  wf 6329  1-1-ontowf1o 6332  cfv 6333  (class class class)co 7164  cmpo 7166  Basecbs 16579  +gcplusg 16661  .rcmulr 16662  Scalarcsca 16664   ·𝑠 cvsca 16665  0gc0g 16809  Grpcgrp 18212  Abelcabl 19018  1rcur 19363  Ringcrg 19409  DivRingcdr 19614  LModclmod 19746  LVecclvec 19986  HLchlt 36976  LHypclh 37610  LTrncltrn 37727  TEndoctendo 38378  EDRingcedring 38379  DVecAcdveca 38628
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1802  ax-4 1816  ax-5 1916  ax-6 1974  ax-7 2019  ax-8 2115  ax-9 2123  ax-10 2144  ax-11 2161  ax-12 2178  ax-ext 2710  ax-rep 5151  ax-sep 5164  ax-nul 5171  ax-pow 5229  ax-pr 5293  ax-un 7473  ax-cnex 10664  ax-resscn 10665  ax-1cn 10666  ax-icn 10667  ax-addcl 10668  ax-addrcl 10669  ax-mulcl 10670  ax-mulrcl 10671  ax-mulcom 10672  ax-addass 10673  ax-mulass 10674  ax-distr 10675  ax-i2m1 10676  ax-1ne0 10677  ax-1rid 10678  ax-rnegex 10679  ax-rrecex 10680  ax-cnre 10681  ax-pre-lttri 10682  ax-pre-lttrn 10683  ax-pre-ltadd 10684  ax-pre-mulgt0 10685  ax-riotaBAD 36579
This theorem depends on definitions:  df-bi 210  df-an 400  df-or 847  df-3or 1089  df-3an 1090  df-tru 1545  df-fal 1555  df-ex 1787  df-nf 1791  df-sb 2074  df-mo 2540  df-eu 2570  df-clab 2717  df-cleq 2730  df-clel 2811  df-nfc 2881  df-ne 2935  df-nel 3039  df-ral 3058  df-rex 3059  df-reu 3060  df-rmo 3061  df-rab 3062  df-v 3399  df-sbc 3680  df-csb 3789  df-dif 3844  df-un 3846  df-in 3848  df-ss 3858  df-pss 3860  df-nul 4210  df-if 4412  df-pw 4487  df-sn 4514  df-pr 4516  df-tp 4518  df-op 4520  df-uni 4794  df-iun 4880  df-iin 4881  df-br 5028  df-opab 5090  df-mpt 5108  df-tr 5134  df-id 5425  df-eprel 5430  df-po 5438  df-so 5439  df-fr 5478  df-we 5480  df-xp 5525  df-rel 5526  df-cnv 5527  df-co 5528  df-dm 5529  df-rn 5530  df-res 5531  df-ima 5532  df-pred 6123  df-ord 6169  df-on 6170  df-lim 6171  df-suc 6172  df-iota 6291  df-fun 6335  df-fn 6336  df-f 6337  df-f1 6338  df-fo 6339  df-f1o 6340  df-fv 6341  df-riota 7121  df-ov 7167  df-oprab 7168  df-mpo 7169  df-om 7594  df-1st 7707  df-2nd 7708  df-tpos 7914  df-undef 7961  df-wrecs 7969  df-recs 8030  df-rdg 8068  df-1o 8124  df-er 8313  df-map 8432  df-en 8549  df-dom 8550  df-sdom 8551  df-fin 8552  df-pnf 10748  df-mnf 10749  df-xr 10750  df-ltxr 10751  df-le 10752  df-sub 10943  df-neg 10944  df-nn 11710  df-2 11772  df-3 11773  df-4 11774  df-5 11775  df-6 11776  df-n0 11970  df-z 12056  df-uz 12318  df-fz 12975  df-struct 16581  df-ndx 16582  df-slot 16583  df-base 16585  df-sets 16586  df-ress 16587  df-plusg 16674  df-mulr 16675  df-sca 16677  df-vsca 16678  df-0g 16811  df-proset 17647  df-poset 17665  df-plt 17677  df-lub 17693  df-glb 17694  df-join 17695  df-meet 17696  df-p0 17758  df-p1 17759  df-lat 17765  df-clat 17827  df-mgm 17961  df-sgrp 18010  df-mnd 18021  df-grp 18215  df-minusg 18216  df-cmn 19019  df-abl 19020  df-mgp 19352  df-ur 19364  df-ring 19411  df-oppr 19488  df-dvdsr 19506  df-unit 19507  df-invr 19537  df-dvr 19548  df-drng 19616  df-lmod 19748  df-lvec 19987  df-oposet 36802  df-ol 36804  df-oml 36805  df-covers 36892  df-ats 36893  df-atl 36924  df-cvlat 36948  df-hlat 36977  df-llines 37124  df-lplanes 37125  df-lvols 37126  df-lines 37127  df-psubsp 37129  df-pmap 37130  df-padd 37422  df-lhyp 37614  df-laut 37615  df-ldil 37730  df-ltrn 37731  df-trl 37785  df-tgrp 38369  df-tendo 38381  df-edring 38383  df-dveca 38629
This theorem is referenced by:  dvalvec  38652
  Copyright terms: Public domain W3C validator