MPE Home Metamath Proof Explorer < Previous   Next >
Nearby theorems
Mirrors  >  Home  >  MPE Home  >  Th. List  >  lsspropd Structured version   Visualization version   GIF version

Theorem lsspropd 20054
Description: If two structures have the same components (properties), they have the same subspace structure. (Contributed by Mario Carneiro, 9-Feb-2015.) (Revised by Mario Carneiro, 14-Jun-2015.)
Hypotheses
Ref Expression
lsspropd.b1 (𝜑𝐵 = (Base‘𝐾))
lsspropd.b2 (𝜑𝐵 = (Base‘𝐿))
lsspropd.w (𝜑𝐵𝑊)
lsspropd.p ((𝜑 ∧ (𝑥𝑊𝑦𝑊)) → (𝑥(+g𝐾)𝑦) = (𝑥(+g𝐿)𝑦))
lsspropd.s1 ((𝜑 ∧ (𝑥𝑃𝑦𝐵)) → (𝑥( ·𝑠𝐾)𝑦) ∈ 𝑊)
lsspropd.s2 ((𝜑 ∧ (𝑥𝑃𝑦𝐵)) → (𝑥( ·𝑠𝐾)𝑦) = (𝑥( ·𝑠𝐿)𝑦))
lsspropd.p1 (𝜑𝑃 = (Base‘(Scalar‘𝐾)))
lsspropd.p2 (𝜑𝑃 = (Base‘(Scalar‘𝐿)))
Assertion
Ref Expression
lsspropd (𝜑 → (LSubSp‘𝐾) = (LSubSp‘𝐿))
Distinct variable groups:   𝑥,𝑦,𝐵   𝑥,𝐾,𝑦   𝜑,𝑥,𝑦   𝑥,𝑊,𝑦   𝑥,𝐿,𝑦   𝑥,𝑃,𝑦

Proof of Theorem lsspropd
Dummy variables 𝑎 𝑏 𝑧 𝑠 are mutually distinct and distinct from all other variables.
StepHypRef Expression
1 simpll 767 . . . . . . . . . . . . 13 (((𝜑𝑠𝐵) ∧ (𝑧𝑃 ∧ (𝑎𝑠𝑏𝑠))) → 𝜑)
2 simprl 771 . . . . . . . . . . . . . 14 (((𝜑𝑠𝐵) ∧ (𝑧𝑃 ∧ (𝑎𝑠𝑏𝑠))) → 𝑧𝑃)
3 simplr 769 . . . . . . . . . . . . . . 15 (((𝜑𝑠𝐵) ∧ (𝑧𝑃 ∧ (𝑎𝑠𝑏𝑠))) → 𝑠𝐵)
4 simprrl 781 . . . . . . . . . . . . . . 15 (((𝜑𝑠𝐵) ∧ (𝑧𝑃 ∧ (𝑎𝑠𝑏𝑠))) → 𝑎𝑠)
53, 4sseldd 3902 . . . . . . . . . . . . . 14 (((𝜑𝑠𝐵) ∧ (𝑧𝑃 ∧ (𝑎𝑠𝑏𝑠))) → 𝑎𝐵)
6 lsspropd.s1 . . . . . . . . . . . . . . . 16 ((𝜑 ∧ (𝑥𝑃𝑦𝐵)) → (𝑥( ·𝑠𝐾)𝑦) ∈ 𝑊)
76ralrimivva 3112 . . . . . . . . . . . . . . 15 (𝜑 → ∀𝑥𝑃𝑦𝐵 (𝑥( ·𝑠𝐾)𝑦) ∈ 𝑊)
87ad2antrr 726 . . . . . . . . . . . . . 14 (((𝜑𝑠𝐵) ∧ (𝑧𝑃 ∧ (𝑎𝑠𝑏𝑠))) → ∀𝑥𝑃𝑦𝐵 (𝑥( ·𝑠𝐾)𝑦) ∈ 𝑊)
9 ovrspc2v 7239 . . . . . . . . . . . . . 14 (((𝑧𝑃𝑎𝐵) ∧ ∀𝑥𝑃𝑦𝐵 (𝑥( ·𝑠𝐾)𝑦) ∈ 𝑊) → (𝑧( ·𝑠𝐾)𝑎) ∈ 𝑊)
102, 5, 8, 9syl21anc 838 . . . . . . . . . . . . 13 (((𝜑𝑠𝐵) ∧ (𝑧𝑃 ∧ (𝑎𝑠𝑏𝑠))) → (𝑧( ·𝑠𝐾)𝑎) ∈ 𝑊)
11 lsspropd.w . . . . . . . . . . . . . . 15 (𝜑𝐵𝑊)
1211ad2antrr 726 . . . . . . . . . . . . . 14 (((𝜑𝑠𝐵) ∧ (𝑧𝑃 ∧ (𝑎𝑠𝑏𝑠))) → 𝐵𝑊)
13 simprrr 782 . . . . . . . . . . . . . . 15 (((𝜑𝑠𝐵) ∧ (𝑧𝑃 ∧ (𝑎𝑠𝑏𝑠))) → 𝑏𝑠)
143, 13sseldd 3902 . . . . . . . . . . . . . 14 (((𝜑𝑠𝐵) ∧ (𝑧𝑃 ∧ (𝑎𝑠𝑏𝑠))) → 𝑏𝐵)
1512, 14sseldd 3902 . . . . . . . . . . . . 13 (((𝜑𝑠𝐵) ∧ (𝑧𝑃 ∧ (𝑎𝑠𝑏𝑠))) → 𝑏𝑊)
16 lsspropd.p . . . . . . . . . . . . . 14 ((𝜑 ∧ (𝑥𝑊𝑦𝑊)) → (𝑥(+g𝐾)𝑦) = (𝑥(+g𝐿)𝑦))
1716oveqrspc2v 7240 . . . . . . . . . . . . 13 ((𝜑 ∧ ((𝑧( ·𝑠𝐾)𝑎) ∈ 𝑊𝑏𝑊)) → ((𝑧( ·𝑠𝐾)𝑎)(+g𝐾)𝑏) = ((𝑧( ·𝑠𝐾)𝑎)(+g𝐿)𝑏))
181, 10, 15, 17syl12anc 837 . . . . . . . . . . . 12 (((𝜑𝑠𝐵) ∧ (𝑧𝑃 ∧ (𝑎𝑠𝑏𝑠))) → ((𝑧( ·𝑠𝐾)𝑎)(+g𝐾)𝑏) = ((𝑧( ·𝑠𝐾)𝑎)(+g𝐿)𝑏))
19 lsspropd.s2 . . . . . . . . . . . . . . 15 ((𝜑 ∧ (𝑥𝑃𝑦𝐵)) → (𝑥( ·𝑠𝐾)𝑦) = (𝑥( ·𝑠𝐿)𝑦))
2019oveqrspc2v 7240 . . . . . . . . . . . . . 14 ((𝜑 ∧ (𝑧𝑃𝑎𝐵)) → (𝑧( ·𝑠𝐾)𝑎) = (𝑧( ·𝑠𝐿)𝑎))
211, 2, 5, 20syl12anc 837 . . . . . . . . . . . . 13 (((𝜑𝑠𝐵) ∧ (𝑧𝑃 ∧ (𝑎𝑠𝑏𝑠))) → (𝑧( ·𝑠𝐾)𝑎) = (𝑧( ·𝑠𝐿)𝑎))
2221oveq1d 7228 . . . . . . . . . . . 12 (((𝜑𝑠𝐵) ∧ (𝑧𝑃 ∧ (𝑎𝑠𝑏𝑠))) → ((𝑧( ·𝑠𝐾)𝑎)(+g𝐿)𝑏) = ((𝑧( ·𝑠𝐿)𝑎)(+g𝐿)𝑏))
2318, 22eqtrd 2777 . . . . . . . . . . 11 (((𝜑𝑠𝐵) ∧ (𝑧𝑃 ∧ (𝑎𝑠𝑏𝑠))) → ((𝑧( ·𝑠𝐾)𝑎)(+g𝐾)𝑏) = ((𝑧( ·𝑠𝐿)𝑎)(+g𝐿)𝑏))
2423eleq1d 2822 . . . . . . . . . 10 (((𝜑𝑠𝐵) ∧ (𝑧𝑃 ∧ (𝑎𝑠𝑏𝑠))) → (((𝑧( ·𝑠𝐾)𝑎)(+g𝐾)𝑏) ∈ 𝑠 ↔ ((𝑧( ·𝑠𝐿)𝑎)(+g𝐿)𝑏) ∈ 𝑠))
2524anassrs 471 . . . . . . . . 9 ((((𝜑𝑠𝐵) ∧ 𝑧𝑃) ∧ (𝑎𝑠𝑏𝑠)) → (((𝑧( ·𝑠𝐾)𝑎)(+g𝐾)𝑏) ∈ 𝑠 ↔ ((𝑧( ·𝑠𝐿)𝑎)(+g𝐿)𝑏) ∈ 𝑠))
26252ralbidva 3119 . . . . . . . 8 (((𝜑𝑠𝐵) ∧ 𝑧𝑃) → (∀𝑎𝑠𝑏𝑠 ((𝑧( ·𝑠𝐾)𝑎)(+g𝐾)𝑏) ∈ 𝑠 ↔ ∀𝑎𝑠𝑏𝑠 ((𝑧( ·𝑠𝐿)𝑎)(+g𝐿)𝑏) ∈ 𝑠))
2726ralbidva 3117 . . . . . . 7 ((𝜑𝑠𝐵) → (∀𝑧𝑃𝑎𝑠𝑏𝑠 ((𝑧( ·𝑠𝐾)𝑎)(+g𝐾)𝑏) ∈ 𝑠 ↔ ∀𝑧𝑃𝑎𝑠𝑏𝑠 ((𝑧( ·𝑠𝐿)𝑎)(+g𝐿)𝑏) ∈ 𝑠))
2827anbi2d 632 . . . . . 6 ((𝜑𝑠𝐵) → ((𝑠 ≠ ∅ ∧ ∀𝑧𝑃𝑎𝑠𝑏𝑠 ((𝑧( ·𝑠𝐾)𝑎)(+g𝐾)𝑏) ∈ 𝑠) ↔ (𝑠 ≠ ∅ ∧ ∀𝑧𝑃𝑎𝑠𝑏𝑠 ((𝑧( ·𝑠𝐿)𝑎)(+g𝐿)𝑏) ∈ 𝑠)))
2928pm5.32da 582 . . . . 5 (𝜑 → ((𝑠𝐵 ∧ (𝑠 ≠ ∅ ∧ ∀𝑧𝑃𝑎𝑠𝑏𝑠 ((𝑧( ·𝑠𝐾)𝑎)(+g𝐾)𝑏) ∈ 𝑠)) ↔ (𝑠𝐵 ∧ (𝑠 ≠ ∅ ∧ ∀𝑧𝑃𝑎𝑠𝑏𝑠 ((𝑧( ·𝑠𝐿)𝑎)(+g𝐿)𝑏) ∈ 𝑠))))
30 3anass 1097 . . . . 5 ((𝑠𝐵𝑠 ≠ ∅ ∧ ∀𝑧𝑃𝑎𝑠𝑏𝑠 ((𝑧( ·𝑠𝐾)𝑎)(+g𝐾)𝑏) ∈ 𝑠) ↔ (𝑠𝐵 ∧ (𝑠 ≠ ∅ ∧ ∀𝑧𝑃𝑎𝑠𝑏𝑠 ((𝑧( ·𝑠𝐾)𝑎)(+g𝐾)𝑏) ∈ 𝑠)))
31 3anass 1097 . . . . 5 ((𝑠𝐵𝑠 ≠ ∅ ∧ ∀𝑧𝑃𝑎𝑠𝑏𝑠 ((𝑧( ·𝑠𝐿)𝑎)(+g𝐿)𝑏) ∈ 𝑠) ↔ (𝑠𝐵 ∧ (𝑠 ≠ ∅ ∧ ∀𝑧𝑃𝑎𝑠𝑏𝑠 ((𝑧( ·𝑠𝐿)𝑎)(+g𝐿)𝑏) ∈ 𝑠)))
3229, 30, 313bitr4g 317 . . . 4 (𝜑 → ((𝑠𝐵𝑠 ≠ ∅ ∧ ∀𝑧𝑃𝑎𝑠𝑏𝑠 ((𝑧( ·𝑠𝐾)𝑎)(+g𝐾)𝑏) ∈ 𝑠) ↔ (𝑠𝐵𝑠 ≠ ∅ ∧ ∀𝑧𝑃𝑎𝑠𝑏𝑠 ((𝑧( ·𝑠𝐿)𝑎)(+g𝐿)𝑏) ∈ 𝑠)))
33 lsspropd.b1 . . . . . 6 (𝜑𝐵 = (Base‘𝐾))
3433sseq2d 3933 . . . . 5 (𝜑 → (𝑠𝐵𝑠 ⊆ (Base‘𝐾)))
35 lsspropd.p1 . . . . . 6 (𝜑𝑃 = (Base‘(Scalar‘𝐾)))
3635raleqdv 3325 . . . . 5 (𝜑 → (∀𝑧𝑃𝑎𝑠𝑏𝑠 ((𝑧( ·𝑠𝐾)𝑎)(+g𝐾)𝑏) ∈ 𝑠 ↔ ∀𝑧 ∈ (Base‘(Scalar‘𝐾))∀𝑎𝑠𝑏𝑠 ((𝑧( ·𝑠𝐾)𝑎)(+g𝐾)𝑏) ∈ 𝑠))
3734, 363anbi13d 1440 . . . 4 (𝜑 → ((𝑠𝐵𝑠 ≠ ∅ ∧ ∀𝑧𝑃𝑎𝑠𝑏𝑠 ((𝑧( ·𝑠𝐾)𝑎)(+g𝐾)𝑏) ∈ 𝑠) ↔ (𝑠 ⊆ (Base‘𝐾) ∧ 𝑠 ≠ ∅ ∧ ∀𝑧 ∈ (Base‘(Scalar‘𝐾))∀𝑎𝑠𝑏𝑠 ((𝑧( ·𝑠𝐾)𝑎)(+g𝐾)𝑏) ∈ 𝑠)))
38 lsspropd.b2 . . . . . 6 (𝜑𝐵 = (Base‘𝐿))
3938sseq2d 3933 . . . . 5 (𝜑 → (𝑠𝐵𝑠 ⊆ (Base‘𝐿)))
40 lsspropd.p2 . . . . . 6 (𝜑𝑃 = (Base‘(Scalar‘𝐿)))
4140raleqdv 3325 . . . . 5 (𝜑 → (∀𝑧𝑃𝑎𝑠𝑏𝑠 ((𝑧( ·𝑠𝐿)𝑎)(+g𝐿)𝑏) ∈ 𝑠 ↔ ∀𝑧 ∈ (Base‘(Scalar‘𝐿))∀𝑎𝑠𝑏𝑠 ((𝑧( ·𝑠𝐿)𝑎)(+g𝐿)𝑏) ∈ 𝑠))
4239, 413anbi13d 1440 . . . 4 (𝜑 → ((𝑠𝐵𝑠 ≠ ∅ ∧ ∀𝑧𝑃𝑎𝑠𝑏𝑠 ((𝑧( ·𝑠𝐿)𝑎)(+g𝐿)𝑏) ∈ 𝑠) ↔ (𝑠 ⊆ (Base‘𝐿) ∧ 𝑠 ≠ ∅ ∧ ∀𝑧 ∈ (Base‘(Scalar‘𝐿))∀𝑎𝑠𝑏𝑠 ((𝑧( ·𝑠𝐿)𝑎)(+g𝐿)𝑏) ∈ 𝑠)))
4332, 37, 423bitr3d 312 . . 3 (𝜑 → ((𝑠 ⊆ (Base‘𝐾) ∧ 𝑠 ≠ ∅ ∧ ∀𝑧 ∈ (Base‘(Scalar‘𝐾))∀𝑎𝑠𝑏𝑠 ((𝑧( ·𝑠𝐾)𝑎)(+g𝐾)𝑏) ∈ 𝑠) ↔ (𝑠 ⊆ (Base‘𝐿) ∧ 𝑠 ≠ ∅ ∧ ∀𝑧 ∈ (Base‘(Scalar‘𝐿))∀𝑎𝑠𝑏𝑠 ((𝑧( ·𝑠𝐿)𝑎)(+g𝐿)𝑏) ∈ 𝑠)))
44 eqid 2737 . . . 4 (Scalar‘𝐾) = (Scalar‘𝐾)
45 eqid 2737 . . . 4 (Base‘(Scalar‘𝐾)) = (Base‘(Scalar‘𝐾))
46 eqid 2737 . . . 4 (Base‘𝐾) = (Base‘𝐾)
47 eqid 2737 . . . 4 (+g𝐾) = (+g𝐾)
48 eqid 2737 . . . 4 ( ·𝑠𝐾) = ( ·𝑠𝐾)
49 eqid 2737 . . . 4 (LSubSp‘𝐾) = (LSubSp‘𝐾)
5044, 45, 46, 47, 48, 49islss 19971 . . 3 (𝑠 ∈ (LSubSp‘𝐾) ↔ (𝑠 ⊆ (Base‘𝐾) ∧ 𝑠 ≠ ∅ ∧ ∀𝑧 ∈ (Base‘(Scalar‘𝐾))∀𝑎𝑠𝑏𝑠 ((𝑧( ·𝑠𝐾)𝑎)(+g𝐾)𝑏) ∈ 𝑠))
51 eqid 2737 . . . 4 (Scalar‘𝐿) = (Scalar‘𝐿)
52 eqid 2737 . . . 4 (Base‘(Scalar‘𝐿)) = (Base‘(Scalar‘𝐿))
53 eqid 2737 . . . 4 (Base‘𝐿) = (Base‘𝐿)
54 eqid 2737 . . . 4 (+g𝐿) = (+g𝐿)
55 eqid 2737 . . . 4 ( ·𝑠𝐿) = ( ·𝑠𝐿)
56 eqid 2737 . . . 4 (LSubSp‘𝐿) = (LSubSp‘𝐿)
5751, 52, 53, 54, 55, 56islss 19971 . . 3 (𝑠 ∈ (LSubSp‘𝐿) ↔ (𝑠 ⊆ (Base‘𝐿) ∧ 𝑠 ≠ ∅ ∧ ∀𝑧 ∈ (Base‘(Scalar‘𝐿))∀𝑎𝑠𝑏𝑠 ((𝑧( ·𝑠𝐿)𝑎)(+g𝐿)𝑏) ∈ 𝑠))
5843, 50, 573bitr4g 317 . 2 (𝜑 → (𝑠 ∈ (LSubSp‘𝐾) ↔ 𝑠 ∈ (LSubSp‘𝐿)))
5958eqrdv 2735 1 (𝜑 → (LSubSp‘𝐾) = (LSubSp‘𝐿))
Colors of variables: wff setvar class
Syntax hints:  wi 4  wb 209  wa 399  w3a 1089   = wceq 1543  wcel 2110  wne 2940  wral 3061  wss 3866  c0 4237  cfv 6380  (class class class)co 7213  Basecbs 16760  +gcplusg 16802  Scalarcsca 16805   ·𝑠 cvsca 16806  LSubSpclss 19968
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1803  ax-4 1817  ax-5 1918  ax-6 1976  ax-7 2016  ax-8 2112  ax-9 2120  ax-10 2141  ax-11 2158  ax-12 2175  ax-ext 2708  ax-sep 5192  ax-nul 5199  ax-pow 5258  ax-pr 5322
This theorem depends on definitions:  df-bi 210  df-an 400  df-or 848  df-3an 1091  df-tru 1546  df-fal 1556  df-ex 1788  df-nf 1792  df-sb 2071  df-mo 2539  df-eu 2568  df-clab 2715  df-cleq 2729  df-clel 2816  df-nfc 2886  df-ne 2941  df-ral 3066  df-rex 3067  df-rab 3070  df-v 3410  df-dif 3869  df-un 3871  df-in 3873  df-ss 3883  df-nul 4238  df-if 4440  df-pw 4515  df-sn 4542  df-pr 4544  df-op 4548  df-uni 4820  df-br 5054  df-opab 5116  df-mpt 5136  df-id 5455  df-xp 5557  df-rel 5558  df-cnv 5559  df-co 5560  df-dm 5561  df-iota 6338  df-fun 6382  df-fv 6388  df-ov 7216  df-lss 19969
This theorem is referenced by:  lsppropd  20055  lidlrsppropd  20268  ply1lss  21117
  Copyright terms: Public domain W3C validator