Theorem hdmapneg 37652

Description: Part of proof of part 12 in [Baer] p. 49 line 4. The sigma map of a negative is the negative of the sigma map. (Contributed by NM, 24-May-2015.)

Hypotheses

Ref	Expression
hdmap12b.h	⊢ 𝐻 = (LHyp‘𝐾)
hdmap12b.u	⊢ 𝑈 = ((DVecH‘𝐾)‘𝑊)
hdmap12b.v	⊢ 𝑉 = (Base‘𝑈)
hdmap12b.m	⊢ 𝑀 = (invg‘𝑈)
hdmap12b.c	⊢ 𝐶 = ((LCDual‘𝐾)‘𝑊)
hdmap12b.i	⊢ 𝐼 = (invg‘𝐶)
hdmap12b.s	⊢ 𝑆 = ((HDMap‘𝐾)‘𝑊)
hdmap12b.k	⊢ (𝜑 → (𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻))
hdmap12b.x	⊢ (𝜑 → 𝑇 ∈ 𝑉)

Assertion

Ref	Expression
hdmapneg	⊢ (𝜑 → (𝑆‘(𝑀‘𝑇)) = (𝐼‘(𝑆‘𝑇)))

Proof of Theorem hdmapneg

Step	Hyp	Ref	Expression
1		hdmap12b.h	. . . . 5 ⊢ 𝐻 = (LHyp‘𝐾)
2		hdmap12b.c	. . . . 5 ⊢ 𝐶 = ((LCDual‘𝐾)‘𝑊)
3		hdmap12b.k	. . . . 5 ⊢ (𝜑 → (𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻))
4	1, 2, 3	lcdlmod 37398	. . . 4 ⊢ (𝜑 → 𝐶 ∈ LMod)
5		hdmap12b.u	. . . . 5 ⊢ 𝑈 = ((DVecH‘𝐾)‘𝑊)
6		hdmap12b.v	. . . . 5 ⊢ 𝑉 = (Base‘𝑈)
7		eqid 2771	. . . . 5 ⊢ (Base‘𝐶) = (Base‘𝐶)
8		hdmap12b.s	. . . . 5 ⊢ 𝑆 = ((HDMap‘𝐾)‘𝑊)
9		hdmap12b.x	. . . . 5 ⊢ (𝜑 → 𝑇 ∈ 𝑉)
10	1, 5, 6, 2, 7, 8, 3, 9	hdmapcl 37636	. . . 4 ⊢ (𝜑 → (𝑆‘𝑇) ∈ (Base‘𝐶))
11		eqid 2771	. . . . 5 ⊢ (+g‘𝐶) = (+g‘𝐶)
12		eqid 2771	. . . . 5 ⊢ (0g‘𝐶) = (0g‘𝐶)
13		hdmap12b.i	. . . . 5 ⊢ 𝐼 = (invg‘𝐶)
14	7, 11, 12, 13	lmodvnegid 19114	. . . 4 ⊢ ((𝐶 ∈ LMod ∧ (𝑆‘𝑇) ∈ (Base‘𝐶)) → ((𝑆‘𝑇)(+g‘𝐶)(𝐼‘(𝑆‘𝑇))) = (0g‘𝐶))
15	4, 10, 14	syl2anc 565	. . 3 ⊢ (𝜑 → ((𝑆‘𝑇)(+g‘𝐶)(𝐼‘(𝑆‘𝑇))) = (0g‘𝐶))
16	1, 5, 3	dvhlmod 36916	. . . . 5 ⊢ (𝜑 → 𝑈 ∈ LMod)
17		eqid 2771	. . . . . 6 ⊢ (+g‘𝑈) = (+g‘𝑈)
18		eqid 2771	. . . . . 6 ⊢ (0g‘𝑈) = (0g‘𝑈)
19		hdmap12b.m	. . . . . 6 ⊢ 𝑀 = (invg‘𝑈)
20	6, 17, 18, 19	lmodvnegid 19114	. . . . 5 ⊢ ((𝑈 ∈ LMod ∧ 𝑇 ∈ 𝑉) → (𝑇(+g‘𝑈)(𝑀‘𝑇)) = (0g‘𝑈))
21	16, 9, 20	syl2anc 565	. . . 4 ⊢ (𝜑 → (𝑇(+g‘𝑈)(𝑀‘𝑇)) = (0g‘𝑈))
22	6, 19	lmodvnegcl 19113	. . . . . . 7 ⊢ ((𝑈 ∈ LMod ∧ 𝑇 ∈ 𝑉) → (𝑀‘𝑇) ∈ 𝑉)
23	16, 9, 22	syl2anc 565	. . . . . 6 ⊢ (𝜑 → (𝑀‘𝑇) ∈ 𝑉)
24	6, 17	lmodvacl 19086	. . . . . 6 ⊢ ((𝑈 ∈ LMod ∧ 𝑇 ∈ 𝑉 ∧ (𝑀‘𝑇) ∈ 𝑉) → (𝑇(+g‘𝑈)(𝑀‘𝑇)) ∈ 𝑉)
25	16, 9, 23, 24	syl3anc 1476	. . . . 5 ⊢ (𝜑 → (𝑇(+g‘𝑈)(𝑀‘𝑇)) ∈ 𝑉)
26	1, 5, 6, 18, 2, 12, 8, 3, 25	hdmapeq0 37650	. . . 4 ⊢ (𝜑 → ((𝑆‘(𝑇(+g‘𝑈)(𝑀‘𝑇))) = (0g‘𝐶) ↔ (𝑇(+g‘𝑈)(𝑀‘𝑇)) = (0g‘𝑈)))
27	21, 26	mpbird 247	. . 3 ⊢ (𝜑 → (𝑆‘(𝑇(+g‘𝑈)(𝑀‘𝑇))) = (0g‘𝐶))
28	1, 5, 6, 17, 2, 11, 8, 3, 9, 23	hdmapadd 37649	. . 3 ⊢ (𝜑 → (𝑆‘(𝑇(+g‘𝑈)(𝑀‘𝑇))) = ((𝑆‘𝑇)(+g‘𝐶)(𝑆‘(𝑀‘𝑇))))
29	15, 27, 28	3eqtr2rd 2812	. 2 ⊢ (𝜑 → ((𝑆‘𝑇)(+g‘𝐶)(𝑆‘(𝑀‘𝑇))) = ((𝑆‘𝑇)(+g‘𝐶)(𝐼‘(𝑆‘𝑇))))
30	1, 5, 6, 2, 7, 8, 3, 23	hdmapcl 37636	. . 3 ⊢ (𝜑 → (𝑆‘(𝑀‘𝑇)) ∈ (Base‘𝐶))
31	7, 13	lmodvnegcl 19113	. . . 4 ⊢ ((𝐶 ∈ LMod ∧ (𝑆‘𝑇) ∈ (Base‘𝐶)) → (𝐼‘(𝑆‘𝑇)) ∈ (Base‘𝐶))
32	4, 10, 31	syl2anc 565	. . 3 ⊢ (𝜑 → (𝐼‘(𝑆‘𝑇)) ∈ (Base‘𝐶))
33	7, 11	lmodlcan 19088	. . 3 ⊢ ((𝐶 ∈ LMod ∧ ((𝑆‘(𝑀‘𝑇)) ∈ (Base‘𝐶) ∧ (𝐼‘(𝑆‘𝑇)) ∈ (Base‘𝐶) ∧ (𝑆‘𝑇) ∈ (Base‘𝐶))) → (((𝑆‘𝑇)(+g‘𝐶)(𝑆‘(𝑀‘𝑇))) = ((𝑆‘𝑇)(+g‘𝐶)(𝐼‘(𝑆‘𝑇))) ↔ (𝑆‘(𝑀‘𝑇)) = (𝐼‘(𝑆‘𝑇))))
34	4, 30, 32, 10, 33	syl13anc 1478	. 2 ⊢ (𝜑 → (((𝑆‘𝑇)(+g‘𝐶)(𝑆‘(𝑀‘𝑇))) = ((𝑆‘𝑇)(+g‘𝐶)(𝐼‘(𝑆‘𝑇))) ↔ (𝑆‘(𝑀‘𝑇)) = (𝐼‘(𝑆‘𝑇))))
35	29, 34	mpbid 222	1 ⊢ (𝜑 → (𝑆‘(𝑀‘𝑇)) = (𝐼‘(𝑆‘𝑇)))

Syntax hints:   → wi 4   ↔ wb 196   ∧ wa 382   = wceq 1631   ∈ wcel 2145  ‘cfv 6031  (class class class)co 6792  Basecbs 16063  +_gcplusg 16148  0_gc0g 16307  inv_gcminusg 17630  LModclmod 19072  HLchlt 35155  LHypclh 35788  DVecHcdvh 36884  LCDualclcd 37392  HDMapchdma 37598

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1870  ax-4 1885  ax-5 1991  ax-6 2057  ax-7 2093  ax-8 2147  ax-9 2154  ax-10 2174  ax-11 2190  ax-12 2203  ax-13 2408  ax-ext 2751  ax-rep 4904  ax-sep 4915  ax-nul 4923  ax-pow 4974  ax-pr 5034  ax-un 7095  ax-cnex 10193  ax-resscn 10194  ax-1cn 10195  ax-icn 10196  ax-addcl 10197  ax-addrcl 10198  ax-mulcl 10199  ax-mulrcl 10200  ax-mulcom 10201  ax-addass 10202  ax-mulass 10203  ax-distr 10204  ax-i2m1 10205  ax-1ne0 10206  ax-1rid 10207  ax-rnegex 10208  ax-rrecex 10209  ax-cnre 10210  ax-pre-lttri 10211  ax-pre-lttrn 10212  ax-pre-ltadd 10213  ax-pre-mulgt0 10214  ax-riotaBAD 34757

This theorem depends on definitions:  df-bi 197  df-an 383  df-or 827  df-3or 1072  df-3an 1073  df-tru 1634  df-fal 1637  df-ex 1853  df-nf 1858  df-sb 2050  df-eu 2622  df-mo 2623  df-clab 2758  df-cleq 2764  df-clel 2767  df-nfc 2902  df-ne 2944  df-nel 3047  df-ral 3066  df-rex 3067  df-reu 3068  df-rmo 3069  df-rab 3070  df-v 3353  df-sbc 3588  df-csb 3683  df-dif 3726  df-un 3728  df-in 3730  df-ss 3737  df-pss 3739  df-nul 4064  df-if 4226  df-pw 4299  df-sn 4317  df-pr 4319  df-tp 4321  df-op 4323  df-ot 4325  df-uni 4575  df-int 4612  df-iun 4656  df-iin 4657  df-br 4787  df-opab 4847  df-mpt 4864  df-tr 4887  df-id 5157  df-eprel 5162  df-po 5170  df-so 5171  df-fr 5208  df-we 5210  df-xp 5255  df-rel 5256  df-cnv 5257  df-co 5258  df-dm 5259  df-rn 5260  df-res 5261  df-ima 5262  df-pred 5823  df-ord 5869  df-on 5870  df-lim 5871  df-suc 5872  df-iota 5994  df-fun 6033  df-fn 6034  df-f 6035  df-f1 6036  df-fo 6037  df-f1o 6038  df-fv 6039  df-riota 6753  df-ov 6795  df-oprab 6796  df-mpt2 6797  df-of 7043  df-om 7212  df-1st 7314  df-2nd 7315  df-tpos 7503  df-undef 7550  df-wrecs 7558  df-recs 7620  df-rdg 7658  df-1o 7712  df-oadd 7716  df-er 7895  df-map 8010  df-en 8109  df-dom 8110  df-sdom 8111  df-fin 8112  df-pnf 10277  df-mnf 10278  df-xr 10279  df-ltxr 10280  df-le 10281  df-sub 10469  df-neg 10470  df-nn 11222  df-2 11280  df-3 11281  df-4 11282  df-5 11283  df-6 11284  df-n0 11494  df-z 11579  df-uz 11888  df-fz 12533  df-struct 16065  df-ndx 16066  df-slot 16067  df-base 16069  df-sets 16070  df-ress 16071  df-plusg 16161  df-mulr 16162  df-sca 16164  df-vsca 16165  df-0g 16309  df-mre 16453  df-mrc 16454  df-acs 16456  df-preset 17135  df-poset 17153  df-plt 17165  df-lub 17181  df-glb 17182  df-join 17183  df-meet 17184  df-p0 17246  df-p1 17247  df-lat 17253  df-clat 17315  df-mgm 17449  df-sgrp 17491  df-mnd 17502  df-submnd 17543  df-grp 17632  df-minusg 17633  df-sbg 17634  df-subg 17798  df-cntz 17956  df-oppg 17982  df-lsm 18257  df-cmn 18401  df-abl 18402  df-mgp 18697  df-ur 18709  df-ring 18756  df-oppr 18830  df-dvdsr 18848  df-unit 18849  df-invr 18879  df-dvr 18890  df-drng 18958  df-lmod 19074  df-lss 19142  df-lsp 19184  df-lvec 19315  df-lsatoms 34781  df-lshyp 34782  df-lcv 34824  df-lfl 34863  df-lkr 34891  df-ldual 34929  df-oposet 34981  df-ol 34983  df-oml 34984  df-covers 35071  df-ats 35072  df-atl 35103  df-cvlat 35127  df-hlat 35156  df-llines 35302  df-lplanes 35303  df-lvols 35304  df-lines 35305  df-psubsp 35307  df-pmap 35308  df-padd 35600  df-lhyp 35792  df-laut 35793  df-ldil 35908  df-ltrn 35909  df-trl 35964  df-tgrp 36548  df-tendo 36560  df-edring 36562  df-dveca 36808  df-disoa 36835  df-dvech 36885  df-dib 36945  df-dic 36979  df-dih 37035  df-doch 37154  df-djh 37201  df-lcdual 37393  df-mapd 37431  df-hvmap 37563  df-hdmap1 37599  df-hdmap 37600

This theorem is referenced by:  hdmapsub  37653