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

Theorem dvhgrp 36713
Description: The full vector space 𝑈 constructed from a Hilbert lattice 𝐾 (given a fiducial hyperplane 𝑊) is a group. (Contributed by NM, 19-Oct-2013.) (Revised 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𝐷)
Assertion
Ref Expression
dvhgrp ((𝐾 ∈ HL ∧ 𝑊𝐻) → 𝑈 ∈ Grp)

Proof of Theorem dvhgrp
Dummy variables 𝑓 𝑔 are mutually distinct and distinct from all other variables.
StepHypRef Expression
1 dvhgrp.h . . . 4 𝐻 = (LHyp‘𝐾)
2 dvhgrp.t . . . 4 𝑇 = ((LTrn‘𝐾)‘𝑊)
3 dvhgrp.e . . . 4 𝐸 = ((TEndo‘𝐾)‘𝑊)
4 dvhgrp.u . . . 4 𝑈 = ((DVecH‘𝐾)‘𝑊)
5 eqid 2651 . . . 4 (Base‘𝑈) = (Base‘𝑈)
61, 2, 3, 4, 5dvhvbase 36693 . . 3 ((𝐾 ∈ HL ∧ 𝑊𝐻) → (Base‘𝑈) = (𝑇 × 𝐸))
76eqcomd 2657 . 2 ((𝐾 ∈ HL ∧ 𝑊𝐻) → (𝑇 × 𝐸) = (Base‘𝑈))
8 dvhgrp.a . . 3 + = (+g𝑈)
98a1i 11 . 2 ((𝐾 ∈ HL ∧ 𝑊𝐻) → + = (+g𝑈))
10 dvhgrp.d . . . 4 𝐷 = (Scalar‘𝑈)
11 dvhgrp.p . . . 4 = (+g𝐷)
121, 2, 3, 4, 10, 11, 8dvhvaddcl 36701 . . 3 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑓 ∈ (𝑇 × 𝐸) ∧ 𝑔 ∈ (𝑇 × 𝐸))) → (𝑓 + 𝑔) ∈ (𝑇 × 𝐸))
13123impb 1279 . 2 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ 𝑓 ∈ (𝑇 × 𝐸) ∧ 𝑔 ∈ (𝑇 × 𝐸)) → (𝑓 + 𝑔) ∈ (𝑇 × 𝐸))
141, 2, 3, 4, 10, 11, 8dvhvaddass 36703 . 2 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑓 ∈ (𝑇 × 𝐸) ∧ 𝑔 ∈ (𝑇 × 𝐸) ∧ ∈ (𝑇 × 𝐸))) → ((𝑓 + 𝑔) + ) = (𝑓 + (𝑔 + )))
15 dvhgrp.b . . . 4 𝐵 = (Base‘𝐾)
1615, 1, 2idltrn 35754 . . 3 ((𝐾 ∈ HL ∧ 𝑊𝐻) → ( I ↾ 𝐵) ∈ 𝑇)
17 eqid 2651 . . . . . . . 8 ((EDRing‘𝐾)‘𝑊) = ((EDRing‘𝐾)‘𝑊)
181, 17, 4, 10dvhsca 36688 . . . . . . 7 ((𝐾 ∈ HL ∧ 𝑊𝐻) → 𝐷 = ((EDRing‘𝐾)‘𝑊))
191, 17erngdv 36598 . . . . . . 7 ((𝐾 ∈ HL ∧ 𝑊𝐻) → ((EDRing‘𝐾)‘𝑊) ∈ DivRing)
2018, 19eqeltrd 2730 . . . . . 6 ((𝐾 ∈ HL ∧ 𝑊𝐻) → 𝐷 ∈ DivRing)
21 drnggrp 18803 . . . . . 6 (𝐷 ∈ DivRing → 𝐷 ∈ Grp)
2220, 21syl 17 . . . . 5 ((𝐾 ∈ HL ∧ 𝑊𝐻) → 𝐷 ∈ Grp)
23 eqid 2651 . . . . . 6 (Base‘𝐷) = (Base‘𝐷)
24 dvhgrp.o . . . . . 6 0 = (0g𝐷)
2523, 24grpidcl 17497 . . . . 5 (𝐷 ∈ Grp → 0 ∈ (Base‘𝐷))
2622, 25syl 17 . . . 4 ((𝐾 ∈ HL ∧ 𝑊𝐻) → 0 ∈ (Base‘𝐷))
271, 3, 4, 10, 23dvhbase 36689 . . . 4 ((𝐾 ∈ HL ∧ 𝑊𝐻) → (Base‘𝐷) = 𝐸)
2826, 27eleqtrd 2732 . . 3 ((𝐾 ∈ HL ∧ 𝑊𝐻) → 0𝐸)
29 opelxpi 5182 . . 3 ((( I ↾ 𝐵) ∈ 𝑇0𝐸) → ⟨( I ↾ 𝐵), 0 ⟩ ∈ (𝑇 × 𝐸))
3016, 28, 29syl2anc 694 . 2 ((𝐾 ∈ HL ∧ 𝑊𝐻) → ⟨( I ↾ 𝐵), 0 ⟩ ∈ (𝑇 × 𝐸))
31 simpl 472 . . . . 5 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ 𝑓 ∈ (𝑇 × 𝐸)) → (𝐾 ∈ HL ∧ 𝑊𝐻))
3216adantr 480 . . . . 5 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ 𝑓 ∈ (𝑇 × 𝐸)) → ( I ↾ 𝐵) ∈ 𝑇)
3328adantr 480 . . . . 5 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ 𝑓 ∈ (𝑇 × 𝐸)) → 0𝐸)
34 xp1st 7242 . . . . . 6 (𝑓 ∈ (𝑇 × 𝐸) → (1st𝑓) ∈ 𝑇)
3534adantl 481 . . . . 5 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ 𝑓 ∈ (𝑇 × 𝐸)) → (1st𝑓) ∈ 𝑇)
36 xp2nd 7243 . . . . . 6 (𝑓 ∈ (𝑇 × 𝐸) → (2nd𝑓) ∈ 𝐸)
3736adantl 481 . . . . 5 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ 𝑓 ∈ (𝑇 × 𝐸)) → (2nd𝑓) ∈ 𝐸)
381, 2, 3, 4, 10, 8, 11dvhopvadd 36699 . . . . 5 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (( I ↾ 𝐵) ∈ 𝑇0𝐸) ∧ ((1st𝑓) ∈ 𝑇 ∧ (2nd𝑓) ∈ 𝐸)) → (⟨( I ↾ 𝐵), 0+ ⟨(1st𝑓), (2nd𝑓)⟩) = ⟨(( I ↾ 𝐵) ∘ (1st𝑓)), ( 0 (2nd𝑓))⟩)
3931, 32, 33, 35, 37, 38syl122anc 1375 . . . 4 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ 𝑓 ∈ (𝑇 × 𝐸)) → (⟨( I ↾ 𝐵), 0+ ⟨(1st𝑓), (2nd𝑓)⟩) = ⟨(( I ↾ 𝐵) ∘ (1st𝑓)), ( 0 (2nd𝑓))⟩)
4015, 1, 2ltrn1o 35728 . . . . . . 7 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (1st𝑓) ∈ 𝑇) → (1st𝑓):𝐵1-1-onto𝐵)
4135, 40syldan 486 . . . . . 6 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ 𝑓 ∈ (𝑇 × 𝐸)) → (1st𝑓):𝐵1-1-onto𝐵)
42 f1of 6175 . . . . . 6 ((1st𝑓):𝐵1-1-onto𝐵 → (1st𝑓):𝐵𝐵)
43 fcoi2 6117 . . . . . 6 ((1st𝑓):𝐵𝐵 → (( I ↾ 𝐵) ∘ (1st𝑓)) = (1st𝑓))
4441, 42, 433syl 18 . . . . 5 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ 𝑓 ∈ (𝑇 × 𝐸)) → (( I ↾ 𝐵) ∘ (1st𝑓)) = (1st𝑓))
4522adantr 480 . . . . . 6 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ 𝑓 ∈ (𝑇 × 𝐸)) → 𝐷 ∈ Grp)
4627adantr 480 . . . . . . 7 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ 𝑓 ∈ (𝑇 × 𝐸)) → (Base‘𝐷) = 𝐸)
4737, 46eleqtrrd 2733 . . . . . 6 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ 𝑓 ∈ (𝑇 × 𝐸)) → (2nd𝑓) ∈ (Base‘𝐷))
4823, 11, 24grplid 17499 . . . . . 6 ((𝐷 ∈ Grp ∧ (2nd𝑓) ∈ (Base‘𝐷)) → ( 0 (2nd𝑓)) = (2nd𝑓))
4945, 47, 48syl2anc 694 . . . . 5 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ 𝑓 ∈ (𝑇 × 𝐸)) → ( 0 (2nd𝑓)) = (2nd𝑓))
5044, 49opeq12d 4441 . . . 4 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ 𝑓 ∈ (𝑇 × 𝐸)) → ⟨(( I ↾ 𝐵) ∘ (1st𝑓)), ( 0 (2nd𝑓))⟩ = ⟨(1st𝑓), (2nd𝑓)⟩)
5139, 50eqtrd 2685 . . 3 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ 𝑓 ∈ (𝑇 × 𝐸)) → (⟨( I ↾ 𝐵), 0+ ⟨(1st𝑓), (2nd𝑓)⟩) = ⟨(1st𝑓), (2nd𝑓)⟩)
52 1st2nd2 7249 . . . . 5 (𝑓 ∈ (𝑇 × 𝐸) → 𝑓 = ⟨(1st𝑓), (2nd𝑓)⟩)
5352adantl 481 . . . 4 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ 𝑓 ∈ (𝑇 × 𝐸)) → 𝑓 = ⟨(1st𝑓), (2nd𝑓)⟩)
5453oveq2d 6706 . . 3 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ 𝑓 ∈ (𝑇 × 𝐸)) → (⟨( I ↾ 𝐵), 0+ 𝑓) = (⟨( I ↾ 𝐵), 0+ ⟨(1st𝑓), (2nd𝑓)⟩))
5551, 54, 533eqtr4d 2695 . 2 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ 𝑓 ∈ (𝑇 × 𝐸)) → (⟨( I ↾ 𝐵), 0+ 𝑓) = 𝑓)
561, 2ltrncnv 35750 . . . 4 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (1st𝑓) ∈ 𝑇) → (1st𝑓) ∈ 𝑇)
5735, 56syldan 486 . . 3 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ 𝑓 ∈ (𝑇 × 𝐸)) → (1st𝑓) ∈ 𝑇)
58 dvhgrp.i . . . . . 6 𝐼 = (invg𝐷)
5923, 58grpinvcl 17514 . . . . 5 ((𝐷 ∈ Grp ∧ (2nd𝑓) ∈ (Base‘𝐷)) → (𝐼‘(2nd𝑓)) ∈ (Base‘𝐷))
6045, 47, 59syl2anc 694 . . . 4 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ 𝑓 ∈ (𝑇 × 𝐸)) → (𝐼‘(2nd𝑓)) ∈ (Base‘𝐷))
6160, 46eleqtrd 2732 . . 3 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ 𝑓 ∈ (𝑇 × 𝐸)) → (𝐼‘(2nd𝑓)) ∈ 𝐸)
62 opelxpi 5182 . . 3 (((1st𝑓) ∈ 𝑇 ∧ (𝐼‘(2nd𝑓)) ∈ 𝐸) → ⟨(1st𝑓), (𝐼‘(2nd𝑓))⟩ ∈ (𝑇 × 𝐸))
6357, 61, 62syl2anc 694 . 2 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ 𝑓 ∈ (𝑇 × 𝐸)) → ⟨(1st𝑓), (𝐼‘(2nd𝑓))⟩ ∈ (𝑇 × 𝐸))
6453oveq2d 6706 . . 3 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ 𝑓 ∈ (𝑇 × 𝐸)) → (⟨(1st𝑓), (𝐼‘(2nd𝑓))⟩ + 𝑓) = (⟨(1st𝑓), (𝐼‘(2nd𝑓))⟩ + ⟨(1st𝑓), (2nd𝑓)⟩))
651, 2, 3, 4, 10, 8, 11dvhopvadd 36699 . . . . 5 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ ((1st𝑓) ∈ 𝑇 ∧ (𝐼‘(2nd𝑓)) ∈ 𝐸) ∧ ((1st𝑓) ∈ 𝑇 ∧ (2nd𝑓) ∈ 𝐸)) → (⟨(1st𝑓), (𝐼‘(2nd𝑓))⟩ + ⟨(1st𝑓), (2nd𝑓)⟩) = ⟨((1st𝑓) ∘ (1st𝑓)), ((𝐼‘(2nd𝑓)) (2nd𝑓))⟩)
6631, 57, 61, 35, 37, 65syl122anc 1375 . . . 4 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ 𝑓 ∈ (𝑇 × 𝐸)) → (⟨(1st𝑓), (𝐼‘(2nd𝑓))⟩ + ⟨(1st𝑓), (2nd𝑓)⟩) = ⟨((1st𝑓) ∘ (1st𝑓)), ((𝐼‘(2nd𝑓)) (2nd𝑓))⟩)
67 f1ococnv1 6203 . . . . . 6 ((1st𝑓):𝐵1-1-onto𝐵 → ((1st𝑓) ∘ (1st𝑓)) = ( I ↾ 𝐵))
6841, 67syl 17 . . . . 5 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ 𝑓 ∈ (𝑇 × 𝐸)) → ((1st𝑓) ∘ (1st𝑓)) = ( I ↾ 𝐵))
6923, 11, 24, 58grplinv 17515 . . . . . 6 ((𝐷 ∈ Grp ∧ (2nd𝑓) ∈ (Base‘𝐷)) → ((𝐼‘(2nd𝑓)) (2nd𝑓)) = 0 )
7045, 47, 69syl2anc 694 . . . . 5 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ 𝑓 ∈ (𝑇 × 𝐸)) → ((𝐼‘(2nd𝑓)) (2nd𝑓)) = 0 )
7168, 70opeq12d 4441 . . . 4 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ 𝑓 ∈ (𝑇 × 𝐸)) → ⟨((1st𝑓) ∘ (1st𝑓)), ((𝐼‘(2nd𝑓)) (2nd𝑓))⟩ = ⟨( I ↾ 𝐵), 0 ⟩)
7266, 71eqtrd 2685 . . 3 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ 𝑓 ∈ (𝑇 × 𝐸)) → (⟨(1st𝑓), (𝐼‘(2nd𝑓))⟩ + ⟨(1st𝑓), (2nd𝑓)⟩) = ⟨( I ↾ 𝐵), 0 ⟩)
7364, 72eqtrd 2685 . 2 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ 𝑓 ∈ (𝑇 × 𝐸)) → (⟨(1st𝑓), (𝐼‘(2nd𝑓))⟩ + 𝑓) = ⟨( I ↾ 𝐵), 0 ⟩)
747, 9, 13, 14, 30, 55, 63, 73isgrpd 17491 1 ((𝐾 ∈ HL ∧ 𝑊𝐻) → 𝑈 ∈ Grp)
Colors of variables: wff setvar class
Syntax hints:  wi 4  wa 383   = wceq 1523  wcel 2030  cop 4216   I cid 5052   × cxp 5141  ccnv 5142  cres 5145  ccom 5147  wf 5922  1-1-ontowf1o 5925  cfv 5926  (class class class)co 6690  1st c1st 7208  2nd c2nd 7209  Basecbs 15904  +gcplusg 15988  Scalarcsca 15991  0gc0g 16147  Grpcgrp 17469  invgcminusg 17470  DivRingcdr 18795  HLchlt 34955  LHypclh 35588  LTrncltrn 35705  TEndoctendo 36357  EDRingcedring 36358  DVecHcdvh 36684
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1762  ax-4 1777  ax-5 1879  ax-6 1945  ax-7 1981  ax-8 2032  ax-9 2039  ax-10 2059  ax-11 2074  ax-12 2087  ax-13 2282  ax-ext 2631  ax-rep 4804  ax-sep 4814  ax-nul 4822  ax-pow 4873  ax-pr 4936  ax-un 6991  ax-cnex 10030  ax-resscn 10031  ax-1cn 10032  ax-icn 10033  ax-addcl 10034  ax-addrcl 10035  ax-mulcl 10036  ax-mulrcl 10037  ax-mulcom 10038  ax-addass 10039  ax-mulass 10040  ax-distr 10041  ax-i2m1 10042  ax-1ne0 10043  ax-1rid 10044  ax-rnegex 10045  ax-rrecex 10046  ax-cnre 10047  ax-pre-lttri 10048  ax-pre-lttrn 10049  ax-pre-ltadd 10050  ax-pre-mulgt0 10051  ax-riotaBAD 34557
This theorem depends on definitions:  df-bi 197  df-or 384  df-an 385  df-3or 1055  df-3an 1056  df-tru 1526  df-fal 1529  df-ex 1745  df-nf 1750  df-sb 1938  df-eu 2502  df-mo 2503  df-clab 2638  df-cleq 2644  df-clel 2647  df-nfc 2782  df-ne 2824  df-nel 2927  df-ral 2946  df-rex 2947  df-reu 2948  df-rmo 2949  df-rab 2950  df-v 3233  df-sbc 3469  df-csb 3567  df-dif 3610  df-un 3612  df-in 3614  df-ss 3621  df-pss 3623  df-nul 3949  df-if 4120  df-pw 4193  df-sn 4211  df-pr 4213  df-tp 4215  df-op 4217  df-uni 4469  df-int 4508  df-iun 4554  df-iin 4555  df-br 4686  df-opab 4746  df-mpt 4763  df-tr 4786  df-id 5053  df-eprel 5058  df-po 5064  df-so 5065  df-fr 5102  df-we 5104  df-xp 5149  df-rel 5150  df-cnv 5151  df-co 5152  df-dm 5153  df-rn 5154  df-res 5155  df-ima 5156  df-pred 5718  df-ord 5764  df-on 5765  df-lim 5766  df-suc 5767  df-iota 5889  df-fun 5928  df-fn 5929  df-f 5930  df-f1 5931  df-fo 5932  df-f1o 5933  df-fv 5934  df-riota 6651  df-ov 6693  df-oprab 6694  df-mpt2 6695  df-om 7108  df-1st 7210  df-2nd 7211  df-tpos 7397  df-undef 7444  df-wrecs 7452  df-recs 7513  df-rdg 7551  df-1o 7605  df-oadd 7609  df-er 7787  df-map 7901  df-en 7998  df-dom 7999  df-sdom 8000  df-fin 8001  df-pnf 10114  df-mnf 10115  df-xr 10116  df-ltxr 10117  df-le 10118  df-sub 10306  df-neg 10307  df-nn 11059  df-2 11117  df-3 11118  df-4 11119  df-5 11120  df-6 11121  df-n0 11331  df-z 11416  df-uz 11726  df-fz 12365  df-struct 15906  df-ndx 15907  df-slot 15908  df-base 15910  df-sets 15911  df-ress 15912  df-plusg 16001  df-mulr 16002  df-sca 16004  df-vsca 16005  df-0g 16149  df-preset 16975  df-poset 16993  df-plt 17005  df-lub 17021  df-glb 17022  df-join 17023  df-meet 17024  df-p0 17086  df-p1 17087  df-lat 17093  df-clat 17155  df-mgm 17289  df-sgrp 17331  df-mnd 17342  df-grp 17472  df-minusg 17473  df-mgp 18536  df-ur 18548  df-ring 18595  df-oppr 18669  df-dvdsr 18687  df-unit 18688  df-invr 18718  df-dvr 18729  df-drng 18797  df-oposet 34781  df-ol 34783  df-oml 34784  df-covers 34871  df-ats 34872  df-atl 34903  df-cvlat 34927  df-hlat 34956  df-llines 35102  df-lplanes 35103  df-lvols 35104  df-lines 35105  df-psubsp 35107  df-pmap 35108  df-padd 35400  df-lhyp 35592  df-laut 35593  df-ldil 35708  df-ltrn 35709  df-trl 35764  df-tendo 36360  df-edring 36362  df-dvech 36685
This theorem is referenced by:  dvhlveclem  36714
  Copyright terms: Public domain W3C validator