Mathbox for Norm Megill |
< Previous
Next >
Nearby theorems |
||
Mirrors > Home > MPE Home > Th. List > Mathboxes > hgmapvvlem1 | Structured version Visualization version GIF version |
Description: Involution property of scalar sigma map. Line 10 in [Baer] p. 111, t sigma squared = t. Our 𝐸, 𝐶, 𝐷, 𝑌, 𝑋 correspond to Baer's w, h, k, s, t. (Contributed by NM, 13-Jun-2015.) |
Ref | Expression |
---|---|
hdmapglem6.h | ⊢ 𝐻 = (LHyp‘𝐾) |
hdmapglem6.e | ⊢ 𝐸 = 〈( I ↾ (Base‘𝐾)), ( I ↾ ((LTrn‘𝐾)‘𝑊))〉 |
hdmapglem6.o | ⊢ 𝑂 = ((ocH‘𝐾)‘𝑊) |
hdmapglem6.u | ⊢ 𝑈 = ((DVecH‘𝐾)‘𝑊) |
hdmapglem6.v | ⊢ 𝑉 = (Base‘𝑈) |
hdmapglem6.q | ⊢ · = ( ·𝑠 ‘𝑈) |
hdmapglem6.r | ⊢ 𝑅 = (Scalar‘𝑈) |
hdmapglem6.b | ⊢ 𝐵 = (Base‘𝑅) |
hdmapglem6.t | ⊢ × = (.r‘𝑅) |
hdmapglem6.z | ⊢ 0 = (0g‘𝑅) |
hdmapglem6.i | ⊢ 1 = (1r‘𝑅) |
hdmapglem6.n | ⊢ 𝑁 = (invr‘𝑅) |
hdmapglem6.s | ⊢ 𝑆 = ((HDMap‘𝐾)‘𝑊) |
hdmapglem6.g | ⊢ 𝐺 = ((HGMap‘𝐾)‘𝑊) |
hdmapglem6.k | ⊢ (𝜑 → (𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻)) |
hdmapglem6.x | ⊢ (𝜑 → 𝑋 ∈ (𝐵 ∖ { 0 })) |
hdmapglem6.c | ⊢ (𝜑 → 𝐶 ∈ (𝑂‘{𝐸})) |
hdmapglem6.d | ⊢ (𝜑 → 𝐷 ∈ (𝑂‘{𝐸})) |
hdmapglem6.cd | ⊢ (𝜑 → ((𝑆‘𝐷)‘𝐶) = 1 ) |
hdmapglem6.y | ⊢ (𝜑 → 𝑌 ∈ (𝐵 ∖ { 0 })) |
hdmapglem6.yx | ⊢ (𝜑 → (𝑌 × (𝐺‘𝑋)) = 1 ) |
Ref | Expression |
---|---|
hgmapvvlem1 | ⊢ (𝜑 → (𝐺‘(𝐺‘𝑋)) = 𝑋) |
Step | Hyp | Ref | Expression |
---|---|---|---|
1 | hdmapglem6.h | . . . . . 6 ⊢ 𝐻 = (LHyp‘𝐾) | |
2 | hdmapglem6.u | . . . . . 6 ⊢ 𝑈 = ((DVecH‘𝐾)‘𝑊) | |
3 | hdmapglem6.k | . . . . . 6 ⊢ (𝜑 → (𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻)) | |
4 | 1, 2, 3 | dvhlmod 38240 | . . . . 5 ⊢ (𝜑 → 𝑈 ∈ LMod) |
5 | hdmapglem6.r | . . . . . 6 ⊢ 𝑅 = (Scalar‘𝑈) | |
6 | 5 | lmodring 19636 | . . . . 5 ⊢ (𝑈 ∈ LMod → 𝑅 ∈ Ring) |
7 | 4, 6 | syl 17 | . . . 4 ⊢ (𝜑 → 𝑅 ∈ Ring) |
8 | hdmapglem6.b | . . . . 5 ⊢ 𝐵 = (Base‘𝑅) | |
9 | hdmapglem6.g | . . . . 5 ⊢ 𝐺 = ((HGMap‘𝐾)‘𝑊) | |
10 | hdmapglem6.x | . . . . . . 7 ⊢ (𝜑 → 𝑋 ∈ (𝐵 ∖ { 0 })) | |
11 | 10 | eldifad 3948 | . . . . . 6 ⊢ (𝜑 → 𝑋 ∈ 𝐵) |
12 | 1, 2, 5, 8, 9, 3, 11 | hgmapcl 39019 | . . . . 5 ⊢ (𝜑 → (𝐺‘𝑋) ∈ 𝐵) |
13 | 1, 2, 5, 8, 9, 3, 12 | hgmapcl 39019 | . . . 4 ⊢ (𝜑 → (𝐺‘(𝐺‘𝑋)) ∈ 𝐵) |
14 | hdmapglem6.y | . . . . . 6 ⊢ (𝜑 → 𝑌 ∈ (𝐵 ∖ { 0 })) | |
15 | 14 | eldifad 3948 | . . . . 5 ⊢ (𝜑 → 𝑌 ∈ 𝐵) |
16 | 1, 2, 5, 8, 9, 3, 15 | hgmapcl 39019 | . . . 4 ⊢ (𝜑 → (𝐺‘𝑌) ∈ 𝐵) |
17 | 1, 2, 3 | dvhlvec 38239 | . . . . . 6 ⊢ (𝜑 → 𝑈 ∈ LVec) |
18 | 5 | lvecdrng 19871 | . . . . . 6 ⊢ (𝑈 ∈ LVec → 𝑅 ∈ DivRing) |
19 | 17, 18 | syl 17 | . . . . 5 ⊢ (𝜑 → 𝑅 ∈ DivRing) |
20 | eldifsni 4716 | . . . . . . 7 ⊢ (𝑌 ∈ (𝐵 ∖ { 0 }) → 𝑌 ≠ 0 ) | |
21 | 14, 20 | syl 17 | . . . . . 6 ⊢ (𝜑 → 𝑌 ≠ 0 ) |
22 | hdmapglem6.z | . . . . . . . 8 ⊢ 0 = (0g‘𝑅) | |
23 | 1, 2, 5, 8, 22, 9, 3, 15 | hgmapeq0 39034 | . . . . . . 7 ⊢ (𝜑 → ((𝐺‘𝑌) = 0 ↔ 𝑌 = 0 )) |
24 | 23 | necon3bid 3060 | . . . . . 6 ⊢ (𝜑 → ((𝐺‘𝑌) ≠ 0 ↔ 𝑌 ≠ 0 )) |
25 | 21, 24 | mpbird 259 | . . . . 5 ⊢ (𝜑 → (𝐺‘𝑌) ≠ 0 ) |
26 | hdmapglem6.n | . . . . . 6 ⊢ 𝑁 = (invr‘𝑅) | |
27 | 8, 22, 26 | drnginvrcl 19513 | . . . . 5 ⊢ ((𝑅 ∈ DivRing ∧ (𝐺‘𝑌) ∈ 𝐵 ∧ (𝐺‘𝑌) ≠ 0 ) → (𝑁‘(𝐺‘𝑌)) ∈ 𝐵) |
28 | 19, 16, 25, 27 | syl3anc 1367 | . . . 4 ⊢ (𝜑 → (𝑁‘(𝐺‘𝑌)) ∈ 𝐵) |
29 | hdmapglem6.t | . . . . 5 ⊢ × = (.r‘𝑅) | |
30 | 8, 29 | ringass 19308 | . . . 4 ⊢ ((𝑅 ∈ Ring ∧ ((𝐺‘(𝐺‘𝑋)) ∈ 𝐵 ∧ (𝐺‘𝑌) ∈ 𝐵 ∧ (𝑁‘(𝐺‘𝑌)) ∈ 𝐵)) → (((𝐺‘(𝐺‘𝑋)) × (𝐺‘𝑌)) × (𝑁‘(𝐺‘𝑌))) = ((𝐺‘(𝐺‘𝑋)) × ((𝐺‘𝑌) × (𝑁‘(𝐺‘𝑌))))) |
31 | 7, 13, 16, 28, 30 | syl13anc 1368 | . . 3 ⊢ (𝜑 → (((𝐺‘(𝐺‘𝑋)) × (𝐺‘𝑌)) × (𝑁‘(𝐺‘𝑌))) = ((𝐺‘(𝐺‘𝑋)) × ((𝐺‘𝑌) × (𝑁‘(𝐺‘𝑌))))) |
32 | hdmapglem6.i | . . . . . 6 ⊢ 1 = (1r‘𝑅) | |
33 | 8, 22, 29, 32, 26 | drnginvrr 19516 | . . . . 5 ⊢ ((𝑅 ∈ DivRing ∧ (𝐺‘𝑌) ∈ 𝐵 ∧ (𝐺‘𝑌) ≠ 0 ) → ((𝐺‘𝑌) × (𝑁‘(𝐺‘𝑌))) = 1 ) |
34 | 19, 16, 25, 33 | syl3anc 1367 | . . . 4 ⊢ (𝜑 → ((𝐺‘𝑌) × (𝑁‘(𝐺‘𝑌))) = 1 ) |
35 | 34 | oveq2d 7166 | . . 3 ⊢ (𝜑 → ((𝐺‘(𝐺‘𝑋)) × ((𝐺‘𝑌) × (𝑁‘(𝐺‘𝑌)))) = ((𝐺‘(𝐺‘𝑋)) × 1 )) |
36 | 8, 29, 32 | ringridm 19316 | . . . 4 ⊢ ((𝑅 ∈ Ring ∧ (𝐺‘(𝐺‘𝑋)) ∈ 𝐵) → ((𝐺‘(𝐺‘𝑋)) × 1 ) = (𝐺‘(𝐺‘𝑋))) |
37 | 7, 13, 36 | syl2anc 586 | . . 3 ⊢ (𝜑 → ((𝐺‘(𝐺‘𝑋)) × 1 ) = (𝐺‘(𝐺‘𝑋))) |
38 | 31, 35, 37 | 3eqtrrd 2861 | . 2 ⊢ (𝜑 → (𝐺‘(𝐺‘𝑋)) = (((𝐺‘(𝐺‘𝑋)) × (𝐺‘𝑌)) × (𝑁‘(𝐺‘𝑌)))) |
39 | hdmapglem6.yx | . . . . . . 7 ⊢ (𝜑 → (𝑌 × (𝐺‘𝑋)) = 1 ) | |
40 | 39 | fveq2d 6669 | . . . . . 6 ⊢ (𝜑 → (𝐺‘(𝑌 × (𝐺‘𝑋))) = (𝐺‘ 1 )) |
41 | 1, 2, 5, 8, 29, 9, 3, 15, 12 | hgmapmul 39025 | . . . . . 6 ⊢ (𝜑 → (𝐺‘(𝑌 × (𝐺‘𝑋))) = ((𝐺‘(𝐺‘𝑋)) × (𝐺‘𝑌))) |
42 | 40, 41 | eqtr3d 2858 | . . . . 5 ⊢ (𝜑 → (𝐺‘ 1 ) = ((𝐺‘(𝐺‘𝑋)) × (𝐺‘𝑌))) |
43 | hdmapglem6.cd | . . . . . . 7 ⊢ (𝜑 → ((𝑆‘𝐷)‘𝐶) = 1 ) | |
44 | 43 | fveq2d 6669 | . . . . . 6 ⊢ (𝜑 → (𝐺‘((𝑆‘𝐷)‘𝐶)) = (𝐺‘ 1 )) |
45 | hdmapglem6.e | . . . . . . 7 ⊢ 𝐸 = 〈( I ↾ (Base‘𝐾)), ( I ↾ ((LTrn‘𝐾)‘𝑊))〉 | |
46 | hdmapglem6.o | . . . . . . 7 ⊢ 𝑂 = ((ocH‘𝐾)‘𝑊) | |
47 | hdmapglem6.v | . . . . . . 7 ⊢ 𝑉 = (Base‘𝑈) | |
48 | eqid 2821 | . . . . . . 7 ⊢ (+g‘𝑈) = (+g‘𝑈) | |
49 | eqid 2821 | . . . . . . 7 ⊢ (-g‘𝑈) = (-g‘𝑈) | |
50 | hdmapglem6.q | . . . . . . 7 ⊢ · = ( ·𝑠 ‘𝑈) | |
51 | hdmapglem6.s | . . . . . . 7 ⊢ 𝑆 = ((HDMap‘𝐾)‘𝑊) | |
52 | hdmapglem6.c | . . . . . . 7 ⊢ (𝜑 → 𝐶 ∈ (𝑂‘{𝐸})) | |
53 | hdmapglem6.d | . . . . . . 7 ⊢ (𝜑 → 𝐷 ∈ (𝑂‘{𝐸})) | |
54 | 1, 45, 46, 2, 47, 48, 49, 50, 5, 8, 29, 22, 51, 9, 3, 52, 53, 15, 11 | hdmapglem5 39052 | . . . . . 6 ⊢ (𝜑 → (𝐺‘((𝑆‘𝐷)‘𝐶)) = ((𝑆‘𝐶)‘𝐷)) |
55 | 44, 54 | eqtr3d 2858 | . . . . 5 ⊢ (𝜑 → (𝐺‘ 1 ) = ((𝑆‘𝐶)‘𝐷)) |
56 | 42, 55 | eqtr3d 2858 | . . . 4 ⊢ (𝜑 → ((𝐺‘(𝐺‘𝑋)) × (𝐺‘𝑌)) = ((𝑆‘𝐶)‘𝐷)) |
57 | 39, 43 | eqtr4d 2859 | . . . . 5 ⊢ (𝜑 → (𝑌 × (𝐺‘𝑋)) = ((𝑆‘𝐷)‘𝐶)) |
58 | 1, 45, 46, 2, 47, 48, 49, 50, 5, 8, 29, 22, 51, 9, 3, 52, 53, 15, 11, 57 | hdmapinvlem4 39051 | . . . 4 ⊢ (𝜑 → (𝑋 × (𝐺‘𝑌)) = ((𝑆‘𝐶)‘𝐷)) |
59 | 56, 58 | eqtr4d 2859 | . . 3 ⊢ (𝜑 → ((𝐺‘(𝐺‘𝑋)) × (𝐺‘𝑌)) = (𝑋 × (𝐺‘𝑌))) |
60 | 59 | oveq1d 7165 | . 2 ⊢ (𝜑 → (((𝐺‘(𝐺‘𝑋)) × (𝐺‘𝑌)) × (𝑁‘(𝐺‘𝑌))) = ((𝑋 × (𝐺‘𝑌)) × (𝑁‘(𝐺‘𝑌)))) |
61 | 8, 29 | ringass 19308 | . . . 4 ⊢ ((𝑅 ∈ Ring ∧ (𝑋 ∈ 𝐵 ∧ (𝐺‘𝑌) ∈ 𝐵 ∧ (𝑁‘(𝐺‘𝑌)) ∈ 𝐵)) → ((𝑋 × (𝐺‘𝑌)) × (𝑁‘(𝐺‘𝑌))) = (𝑋 × ((𝐺‘𝑌) × (𝑁‘(𝐺‘𝑌))))) |
62 | 7, 11, 16, 28, 61 | syl13anc 1368 | . . 3 ⊢ (𝜑 → ((𝑋 × (𝐺‘𝑌)) × (𝑁‘(𝐺‘𝑌))) = (𝑋 × ((𝐺‘𝑌) × (𝑁‘(𝐺‘𝑌))))) |
63 | 34 | oveq2d 7166 | . . 3 ⊢ (𝜑 → (𝑋 × ((𝐺‘𝑌) × (𝑁‘(𝐺‘𝑌)))) = (𝑋 × 1 )) |
64 | 8, 29, 32 | ringridm 19316 | . . . 4 ⊢ ((𝑅 ∈ Ring ∧ 𝑋 ∈ 𝐵) → (𝑋 × 1 ) = 𝑋) |
65 | 7, 11, 64 | syl2anc 586 | . . 3 ⊢ (𝜑 → (𝑋 × 1 ) = 𝑋) |
66 | 62, 63, 65 | 3eqtrd 2860 | . 2 ⊢ (𝜑 → ((𝑋 × (𝐺‘𝑌)) × (𝑁‘(𝐺‘𝑌))) = 𝑋) |
67 | 38, 60, 66 | 3eqtrd 2860 | 1 ⊢ (𝜑 → (𝐺‘(𝐺‘𝑋)) = 𝑋) |
Colors of variables: wff setvar class |
Syntax hints: → wi 4 ∧ wa 398 = wceq 1533 ∈ wcel 2110 ≠ wne 3016 ∖ cdif 3933 {csn 4561 〈cop 4567 I cid 5454 ↾ cres 5552 ‘cfv 6350 (class class class)co 7150 Basecbs 16477 +gcplusg 16559 .rcmulr 16560 Scalarcsca 16562 ·𝑠 cvsca 16563 0gc0g 16707 -gcsg 18099 1rcur 19245 Ringcrg 19291 invrcinvr 19415 DivRingcdr 19496 LModclmod 19628 LVecclvec 19868 HLchlt 36480 LHypclh 37114 LTrncltrn 37231 DVecHcdvh 38208 ocHcoch 38477 HDMapchdma 38922 HGMapchg 39013 |
This theorem was proved from axioms: ax-mp 5 ax-1 6 ax-2 7 ax-3 8 ax-gen 1792 ax-4 1806 ax-5 1907 ax-6 1966 ax-7 2011 ax-8 2112 ax-9 2120 ax-10 2141 ax-11 2156 ax-12 2172 ax-ext 2793 ax-rep 5183 ax-sep 5196 ax-nul 5203 ax-pow 5259 ax-pr 5322 ax-un 7455 ax-cnex 10587 ax-resscn 10588 ax-1cn 10589 ax-icn 10590 ax-addcl 10591 ax-addrcl 10592 ax-mulcl 10593 ax-mulrcl 10594 ax-mulcom 10595 ax-addass 10596 ax-mulass 10597 ax-distr 10598 ax-i2m1 10599 ax-1ne0 10600 ax-1rid 10601 ax-rnegex 10602 ax-rrecex 10603 ax-cnre 10604 ax-pre-lttri 10605 ax-pre-lttrn 10606 ax-pre-ltadd 10607 ax-pre-mulgt0 10608 ax-riotaBAD 36083 |
This theorem depends on definitions: df-bi 209 df-an 399 df-or 844 df-3or 1084 df-3an 1085 df-tru 1536 df-fal 1546 df-ex 1777 df-nf 1781 df-sb 2066 df-mo 2618 df-eu 2650 df-clab 2800 df-cleq 2814 df-clel 2893 df-nfc 2963 df-ne 3017 df-nel 3124 df-ral 3143 df-rex 3144 df-reu 3145 df-rmo 3146 df-rab 3147 df-v 3497 df-sbc 3773 df-csb 3884 df-dif 3939 df-un 3941 df-in 3943 df-ss 3952 df-pss 3954 df-nul 4292 df-if 4468 df-pw 4541 df-sn 4562 df-pr 4564 df-tp 4566 df-op 4568 df-ot 4570 df-uni 4833 df-int 4870 df-iun 4914 df-iin 4915 df-br 5060 df-opab 5122 df-mpt 5140 df-tr 5166 df-id 5455 df-eprel 5460 df-po 5469 df-so 5470 df-fr 5509 df-we 5511 df-xp 5556 df-rel 5557 df-cnv 5558 df-co 5559 df-dm 5560 df-rn 5561 df-res 5562 df-ima 5563 df-pred 6143 df-ord 6189 df-on 6190 df-lim 6191 df-suc 6192 df-iota 6309 df-fun 6352 df-fn 6353 df-f 6354 df-f1 6355 df-fo 6356 df-f1o 6357 df-fv 6358 df-riota 7108 df-ov 7153 df-oprab 7154 df-mpo 7155 df-of 7403 df-om 7575 df-1st 7683 df-2nd 7684 df-tpos 7886 df-undef 7933 df-wrecs 7941 df-recs 8002 df-rdg 8040 df-1o 8096 df-oadd 8100 df-er 8283 df-map 8402 df-en 8504 df-dom 8505 df-sdom 8506 df-fin 8507 df-pnf 10671 df-mnf 10672 df-xr 10673 df-ltxr 10674 df-le 10675 df-sub 10866 df-neg 10867 df-nn 11633 df-2 11694 df-3 11695 df-4 11696 df-5 11697 df-6 11698 df-n0 11892 df-z 11976 df-uz 12238 df-fz 12887 df-struct 16479 df-ndx 16480 df-slot 16481 df-base 16483 df-sets 16484 df-ress 16485 df-plusg 16572 df-mulr 16573 df-sca 16575 df-vsca 16576 df-0g 16709 df-mre 16851 df-mrc 16852 df-acs 16854 df-proset 17532 df-poset 17550 df-plt 17562 df-lub 17578 df-glb 17579 df-join 17580 df-meet 17581 df-p0 17643 df-p1 17644 df-lat 17650 df-clat 17712 df-mgm 17846 df-sgrp 17895 df-mnd 17906 df-submnd 17951 df-grp 18100 df-minusg 18101 df-sbg 18102 df-subg 18270 df-cntz 18441 df-oppg 18468 df-lsm 18755 df-cmn 18902 df-abl 18903 df-mgp 19234 df-ur 19246 df-ring 19293 df-oppr 19367 df-dvdsr 19385 df-unit 19386 df-invr 19416 df-dvr 19427 df-drng 19498 df-lmod 19630 df-lss 19698 df-lsp 19738 df-lvec 19869 df-lsatoms 36106 df-lshyp 36107 df-lcv 36149 df-lfl 36188 df-lkr 36216 df-ldual 36254 df-oposet 36306 df-ol 36308 df-oml 36309 df-covers 36396 df-ats 36397 df-atl 36428 df-cvlat 36452 df-hlat 36481 df-llines 36628 df-lplanes 36629 df-lvols 36630 df-lines 36631 df-psubsp 36633 df-pmap 36634 df-padd 36926 df-lhyp 37118 df-laut 37119 df-ldil 37234 df-ltrn 37235 df-trl 37289 df-tgrp 37873 df-tendo 37885 df-edring 37887 df-dveca 38133 df-disoa 38159 df-dvech 38209 df-dib 38269 df-dic 38303 df-dih 38359 df-doch 38478 df-djh 38525 df-lcdual 38717 df-mapd 38755 df-hvmap 38887 df-hdmap1 38923 df-hdmap 38924 df-hgmap 39014 |
This theorem is referenced by: hgmapvvlem2 39054 |
Copyright terms: Public domain | W3C validator |