Users' Mathboxes Mathbox for Steven Nguyen < Previous   Next >
Nearby theorems
Mirrors  >  Home  >  MPE Home  >  Th. List  >   Mathboxes  >  0prjspnrel Structured version   Visualization version   GIF version

Theorem 0prjspnrel 43071
Description: In the zero-dimensional projective space, all vectors are equivalent to the unit vector. (Contributed by Steven Nguyen, 7-Jun-2023.)
Hypotheses
Ref Expression
0prjspnrel.e = {⟨𝑥, 𝑦⟩ ∣ ((𝑥𝐵𝑦𝐵) ∧ ∃𝑙𝑆 𝑥 = (𝑙 · 𝑦))}
0prjspnrel.b 𝐵 = ((Base‘𝑊) ∖ {(0g𝑊)})
0prjspnrel.x · = ( ·𝑠𝑊)
0prjspnrel.s 𝑆 = (Base‘𝐾)
0prjspnrel.w 𝑊 = (𝐾 freeLMod (0...0))
0prjspnrel.1 1 = ((𝐾 unitVec (0...0))‘0)
Assertion
Ref Expression
0prjspnrel ((𝐾 ∈ DivRing ∧ 𝑋𝐵) → 𝑋 1 )
Distinct variable groups:   𝑥,𝐵,𝑦   𝑥,𝑋,𝑦,𝑙   𝑥,𝐾,𝑦,𝑙   𝑥, · ,𝑦,𝑙   𝑥, 1 ,𝑦,𝑙   𝑥,𝑆,𝑦,𝑙
Allowed substitution hints:   𝐵(𝑙)   (𝑥,𝑦,𝑙)   𝑊(𝑥,𝑦,𝑙)

Proof of Theorem 0prjspnrel
Dummy variables 𝑚 𝑛 𝑐 𝑑 are mutually distinct and distinct from all other variables.
StepHypRef Expression
1 simpr 484 . 2 ((𝐾 ∈ DivRing ∧ 𝑋𝐵) → 𝑋𝐵)
2 0prjspnrel.b . . . 4 𝐵 = ((Base‘𝑊) ∖ {(0g𝑊)})
3 0prjspnrel.w . . . 4 𝑊 = (𝐾 freeLMod (0...0))
4 0prjspnrel.1 . . . 4 1 = ((𝐾 unitVec (0...0))‘0)
52, 3, 40prjspnlem 43067 . . 3 (𝐾 ∈ DivRing → 1𝐵)
65adantr 480 . 2 ((𝐾 ∈ DivRing ∧ 𝑋𝐵) → 1𝐵)
7 sneq 4578 . . . . . 6 (𝑛 = (𝑋‘0) → {𝑛} = {(𝑋‘0)})
87xpeq2d 5652 . . . . 5 (𝑛 = (𝑋‘0) → ((0...0) × {𝑛}) = ((0...0) × {(𝑋‘0)}))
98eqeq2d 2748 . . . 4 (𝑛 = (𝑋‘0) → (𝑋 = ((0...0) × {𝑛}) ↔ 𝑋 = ((0...0) × {(𝑋‘0)})))
10 ovexd 7393 . . . . . 6 ((𝐾 ∈ DivRing ∧ 𝑋𝐵) → (0...0) ∈ V)
11 difss 4077 . . . . . . . . 9 ((Base‘𝑊) ∖ {(0g𝑊)}) ⊆ (Base‘𝑊)
122, 11eqsstri 3969 . . . . . . . 8 𝐵 ⊆ (Base‘𝑊)
1312sseli 3918 . . . . . . 7 (𝑋𝐵𝑋 ∈ (Base‘𝑊))
1413adantl 481 . . . . . 6 ((𝐾 ∈ DivRing ∧ 𝑋𝐵) → 𝑋 ∈ (Base‘𝑊))
15 eqid 2737 . . . . . . 7 (Base‘𝐾) = (Base‘𝐾)
16 eqid 2737 . . . . . . 7 (Base‘𝑊) = (Base‘𝑊)
173, 15, 16frlmbasf 21748 . . . . . 6 (((0...0) ∈ V ∧ 𝑋 ∈ (Base‘𝑊)) → 𝑋:(0...0)⟶(Base‘𝐾))
1810, 14, 17syl2anc 585 . . . . 5 ((𝐾 ∈ DivRing ∧ 𝑋𝐵) → 𝑋:(0...0)⟶(Base‘𝐾))
19 c0ex 11127 . . . . . . . 8 0 ∈ V
2019snid 4607 . . . . . . 7 0 ∈ {0}
21 fz0sn 13570 . . . . . . 7 (0...0) = {0}
2220, 21eleqtrri 2836 . . . . . 6 0 ∈ (0...0)
2322a1i 11 . . . . 5 ((𝐾 ∈ DivRing ∧ 𝑋𝐵) → 0 ∈ (0...0))
2418, 23ffvelcdmd 7029 . . . 4 ((𝐾 ∈ DivRing ∧ 𝑋𝐵) → (𝑋‘0) ∈ (Base‘𝐾))
253, 15, 16frlmbasmap 21747 . . . . . 6 (((0...0) ∈ V ∧ 𝑋 ∈ (Base‘𝑊)) → 𝑋 ∈ ((Base‘𝐾) ↑m (0...0)))
2610, 14, 25syl2anc 585 . . . . 5 ((𝐾 ∈ DivRing ∧ 𝑋𝐵) → 𝑋 ∈ ((Base‘𝐾) ↑m (0...0)))
27 fvex 6845 . . . . . 6 (Base‘𝐾) ∈ V
2821, 27, 19mapsnconst 8831 . . . . 5 (𝑋 ∈ ((Base‘𝐾) ↑m (0...0)) → 𝑋 = ((0...0) × {(𝑋‘0)}))
2926, 28syl 17 . . . 4 ((𝐾 ∈ DivRing ∧ 𝑋𝐵) → 𝑋 = ((0...0) × {(𝑋‘0)}))
309, 24, 29rspcedvdw 3568 . . 3 ((𝐾 ∈ DivRing ∧ 𝑋𝐵) → ∃𝑛 ∈ (Base‘𝐾)𝑋 = ((0...0) × {𝑛}))
31 oveq1 7365 . . . . 5 (𝑚 = 𝑛 → (𝑚 · 1 ) = (𝑛 · 1 ))
3231eqeq2d 2748 . . . 4 (𝑚 = 𝑛 → (𝑋 = (𝑚 · 1 ) ↔ 𝑋 = (𝑛 · 1 )))
33 simprl 771 . . . . 5 (((𝐾 ∈ DivRing ∧ 𝑋𝐵) ∧ (𝑛 ∈ (Base‘𝐾) ∧ 𝑋 = ((0...0) × {𝑛}))) → 𝑛 ∈ (Base‘𝐾))
34 0prjspnrel.s . . . . 5 𝑆 = (Base‘𝐾)
3533, 34eleqtrrdi 2848 . . . 4 (((𝐾 ∈ DivRing ∧ 𝑋𝐵) ∧ (𝑛 ∈ (Base‘𝐾) ∧ 𝑋 = ((0...0) × {𝑛}))) → 𝑛𝑆)
36 ovexd 7393 . . . . . . . . 9 (((𝐾 ∈ DivRing ∧ 𝑋𝐵) ∧ 𝑛 ∈ (Base‘𝐾)) → (0...0) ∈ V)
37 simpr 484 . . . . . . . . 9 (((𝐾 ∈ DivRing ∧ 𝑋𝐵) ∧ 𝑛 ∈ (Base‘𝐾)) → 𝑛 ∈ (Base‘𝐾))
385ad2antrr 727 . . . . . . . . . 10 (((𝐾 ∈ DivRing ∧ 𝑋𝐵) ∧ 𝑛 ∈ (Base‘𝐾)) → 1𝐵)
3912, 38sselid 3920 . . . . . . . . 9 (((𝐾 ∈ DivRing ∧ 𝑋𝐵) ∧ 𝑛 ∈ (Base‘𝐾)) → 1 ∈ (Base‘𝑊))
40 0prjspnrel.x . . . . . . . . 9 · = ( ·𝑠𝑊)
41 eqid 2737 . . . . . . . . 9 (.r𝐾) = (.r𝐾)
423, 16, 15, 36, 37, 39, 40, 41frlmvscafval 21754 . . . . . . . 8 (((𝐾 ∈ DivRing ∧ 𝑋𝐵) ∧ 𝑛 ∈ (Base‘𝐾)) → (𝑛 · 1 ) = (((0...0) × {𝑛}) ∘f (.r𝐾) 1 ))
433, 15, 16frlmbasf 21748 . . . . . . . . . . 11 (((0...0) ∈ V ∧ 1 ∈ (Base‘𝑊)) → 1 :(0...0)⟶(Base‘𝐾))
4436, 39, 43syl2anc 585 . . . . . . . . . 10 (((𝐾 ∈ DivRing ∧ 𝑋𝐵) ∧ 𝑛 ∈ (Base‘𝐾)) → 1 :(0...0)⟶(Base‘𝐾))
45 drngring 20702 . . . . . . . . . . . . . 14 (𝐾 ∈ DivRing → 𝐾 ∈ Ring)
46 eqid 2737 . . . . . . . . . . . . . . 15 (1r𝐾) = (1r𝐾)
4715, 46ringidcl 20235 . . . . . . . . . . . . . 14 (𝐾 ∈ Ring → (1r𝐾) ∈ (Base‘𝐾))
4845, 47syl 17 . . . . . . . . . . . . 13 (𝐾 ∈ DivRing → (1r𝐾) ∈ (Base‘𝐾))
4948ad2antrr 727 . . . . . . . . . . . 12 (((𝐾 ∈ DivRing ∧ 𝑋𝐵) ∧ 𝑛 ∈ (Base‘𝐾)) → (1r𝐾) ∈ (Base‘𝐾))
5049snssd 4753 . . . . . . . . . . 11 (((𝐾 ∈ DivRing ∧ 𝑋𝐵) ∧ 𝑛 ∈ (Base‘𝐾)) → {(1r𝐾)} ⊆ (Base‘𝐾))
514a1i 11 . . . . . . . . . . . . . . 15 (𝑑 ∈ (0...0) → 1 = ((𝐾 unitVec (0...0))‘0))
52 elfz1eq 13478 . . . . . . . . . . . . . . 15 (𝑑 ∈ (0...0) → 𝑑 = 0)
5351, 52fveq12d 6839 . . . . . . . . . . . . . 14 (𝑑 ∈ (0...0) → ( 1𝑑) = (((𝐾 unitVec (0...0))‘0)‘0))
5453adantl 481 . . . . . . . . . . . . 13 ((((𝐾 ∈ DivRing ∧ 𝑋𝐵) ∧ 𝑛 ∈ (Base‘𝐾)) ∧ 𝑑 ∈ (0...0)) → ( 1𝑑) = (((𝐾 unitVec (0...0))‘0)‘0))
55 eqid 2737 . . . . . . . . . . . . . . 15 (𝐾 unitVec (0...0)) = (𝐾 unitVec (0...0))
56 simplll 775 . . . . . . . . . . . . . . 15 ((((𝐾 ∈ DivRing ∧ 𝑋𝐵) ∧ 𝑛 ∈ (Base‘𝐾)) ∧ 𝑑 ∈ (0...0)) → 𝐾 ∈ DivRing)
57 ovexd 7393 . . . . . . . . . . . . . . 15 ((((𝐾 ∈ DivRing ∧ 𝑋𝐵) ∧ 𝑛 ∈ (Base‘𝐾)) ∧ 𝑑 ∈ (0...0)) → (0...0) ∈ V)
5822a1i 11 . . . . . . . . . . . . . . 15 ((((𝐾 ∈ DivRing ∧ 𝑋𝐵) ∧ 𝑛 ∈ (Base‘𝐾)) ∧ 𝑑 ∈ (0...0)) → 0 ∈ (0...0))
5955, 56, 57, 58, 46uvcvv1 21777 . . . . . . . . . . . . . 14 ((((𝐾 ∈ DivRing ∧ 𝑋𝐵) ∧ 𝑛 ∈ (Base‘𝐾)) ∧ 𝑑 ∈ (0...0)) → (((𝐾 unitVec (0...0))‘0)‘0) = (1r𝐾))
60 fvex 6845 . . . . . . . . . . . . . . 15 (((𝐾 unitVec (0...0))‘0)‘0) ∈ V
6160elsn 4583 . . . . . . . . . . . . . 14 ((((𝐾 unitVec (0...0))‘0)‘0) ∈ {(1r𝐾)} ↔ (((𝐾 unitVec (0...0))‘0)‘0) = (1r𝐾))
6259, 61sylibr 234 . . . . . . . . . . . . 13 ((((𝐾 ∈ DivRing ∧ 𝑋𝐵) ∧ 𝑛 ∈ (Base‘𝐾)) ∧ 𝑑 ∈ (0...0)) → (((𝐾 unitVec (0...0))‘0)‘0) ∈ {(1r𝐾)})
6354, 62eqeltrd 2837 . . . . . . . . . . . 12 ((((𝐾 ∈ DivRing ∧ 𝑋𝐵) ∧ 𝑛 ∈ (Base‘𝐾)) ∧ 𝑑 ∈ (0...0)) → ( 1𝑑) ∈ {(1r𝐾)})
6463ralrimiva 3130 . . . . . . . . . . 11 (((𝐾 ∈ DivRing ∧ 𝑋𝐵) ∧ 𝑛 ∈ (Base‘𝐾)) → ∀𝑑 ∈ (0...0)( 1𝑑) ∈ {(1r𝐾)})
65 fcdmssb 7066 . . . . . . . . . . 11 (({(1r𝐾)} ⊆ (Base‘𝐾) ∧ ∀𝑑 ∈ (0...0)( 1𝑑) ∈ {(1r𝐾)}) → ( 1 :(0...0)⟶(Base‘𝐾) ↔ 1 :(0...0)⟶{(1r𝐾)}))
6650, 64, 65syl2anc 585 . . . . . . . . . 10 (((𝐾 ∈ DivRing ∧ 𝑋𝐵) ∧ 𝑛 ∈ (Base‘𝐾)) → ( 1 :(0...0)⟶(Base‘𝐾) ↔ 1 :(0...0)⟶{(1r𝐾)}))
6744, 66mpbid 232 . . . . . . . . 9 (((𝐾 ∈ DivRing ∧ 𝑋𝐵) ∧ 𝑛 ∈ (Base‘𝐾)) → 1 :(0...0)⟶{(1r𝐾)})
68 vex 3434 . . . . . . . . . 10 𝑛 ∈ V
6968a1i 11 . . . . . . . . 9 (((𝐾 ∈ DivRing ∧ 𝑋𝐵) ∧ 𝑛 ∈ (Base‘𝐾)) → 𝑛 ∈ V)
70 elsni 4585 . . . . . . . . . . 11 (𝑐 ∈ {(1r𝐾)} → 𝑐 = (1r𝐾))
7170oveq2d 7374 . . . . . . . . . 10 (𝑐 ∈ {(1r𝐾)} → (𝑛(.r𝐾)𝑐) = (𝑛(.r𝐾)(1r𝐾)))
7245ad2antrr 727 . . . . . . . . . . 11 (((𝐾 ∈ DivRing ∧ 𝑋𝐵) ∧ 𝑛 ∈ (Base‘𝐾)) → 𝐾 ∈ Ring)
7315, 41, 46, 72, 37ringridmd 20243 . . . . . . . . . 10 (((𝐾 ∈ DivRing ∧ 𝑋𝐵) ∧ 𝑛 ∈ (Base‘𝐾)) → (𝑛(.r𝐾)(1r𝐾)) = 𝑛)
7471, 73sylan9eqr 2794 . . . . . . . . 9 ((((𝐾 ∈ DivRing ∧ 𝑋𝐵) ∧ 𝑛 ∈ (Base‘𝐾)) ∧ 𝑐 ∈ {(1r𝐾)}) → (𝑛(.r𝐾)𝑐) = 𝑛)
7536, 67, 69, 69, 74caofid2 7658 . . . . . . . 8 (((𝐾 ∈ DivRing ∧ 𝑋𝐵) ∧ 𝑛 ∈ (Base‘𝐾)) → (((0...0) × {𝑛}) ∘f (.r𝐾) 1 ) = ((0...0) × {𝑛}))
7642, 75eqtrd 2772 . . . . . . 7 (((𝐾 ∈ DivRing ∧ 𝑋𝐵) ∧ 𝑛 ∈ (Base‘𝐾)) → (𝑛 · 1 ) = ((0...0) × {𝑛}))
7776eqeq2d 2748 . . . . . 6 (((𝐾 ∈ DivRing ∧ 𝑋𝐵) ∧ 𝑛 ∈ (Base‘𝐾)) → (𝑋 = (𝑛 · 1 ) ↔ 𝑋 = ((0...0) × {𝑛})))
7877biimprd 248 . . . . 5 (((𝐾 ∈ DivRing ∧ 𝑋𝐵) ∧ 𝑛 ∈ (Base‘𝐾)) → (𝑋 = ((0...0) × {𝑛}) → 𝑋 = (𝑛 · 1 )))
7978impr 454 . . . 4 (((𝐾 ∈ DivRing ∧ 𝑋𝐵) ∧ (𝑛 ∈ (Base‘𝐾) ∧ 𝑋 = ((0...0) × {𝑛}))) → 𝑋 = (𝑛 · 1 ))
8032, 35, 79rspcedvdw 3568 . . 3 (((𝐾 ∈ DivRing ∧ 𝑋𝐵) ∧ (𝑛 ∈ (Base‘𝐾) ∧ 𝑋 = ((0...0) × {𝑛}))) → ∃𝑚𝑆 𝑋 = (𝑚 · 1 ))
8130, 80rexlimddv 3145 . 2 ((𝐾 ∈ DivRing ∧ 𝑋𝐵) → ∃𝑚𝑆 𝑋 = (𝑚 · 1 ))
82 0prjspnrel.e . . 3 = {⟨𝑥, 𝑦⟩ ∣ ((𝑥𝐵𝑦𝐵) ∧ ∃𝑙𝑆 𝑥 = (𝑙 · 𝑦))}
8382prjsprel 43048 . 2 (𝑋 1 ↔ ((𝑋𝐵1𝐵) ∧ ∃𝑚𝑆 𝑋 = (𝑚 · 1 )))
841, 6, 81, 83syl21anbrc 1346 1 ((𝐾 ∈ DivRing ∧ 𝑋𝐵) → 𝑋 1 )
Colors of variables: wff setvar class
Syntax hints:  wi 4  wb 206  wa 395   = wceq 1542  wcel 2114  wral 3052  wrex 3062  Vcvv 3430  cdif 3887  wss 3890  {csn 4568   class class class wbr 5086  {copab 5148   × cxp 5620  wf 6486  cfv 6490  (class class class)co 7358  f cof 7620  m cmap 8764  0cc0 11027  ...cfz 13450  Basecbs 17168  .rcmulr 17210   ·𝑠 cvsca 17213  0gc0g 17391  1rcur 20151  Ringcrg 20203  DivRingcdr 20695   freeLMod cfrlm 21734   unitVec cuvc 21770
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1797  ax-4 1811  ax-5 1912  ax-6 1969  ax-7 2010  ax-8 2116  ax-9 2124  ax-10 2147  ax-11 2163  ax-12 2185  ax-ext 2709  ax-rep 5212  ax-sep 5231  ax-nul 5241  ax-pow 5300  ax-pr 5368  ax-un 7680  ax-cnex 11083  ax-resscn 11084  ax-1cn 11085  ax-icn 11086  ax-addcl 11087  ax-addrcl 11088  ax-mulcl 11089  ax-mulrcl 11090  ax-mulcom 11091  ax-addass 11092  ax-mulass 11093  ax-distr 11094  ax-i2m1 11095  ax-1ne0 11096  ax-1rid 11097  ax-rnegex 11098  ax-rrecex 11099  ax-cnre 11100  ax-pre-lttri 11101  ax-pre-lttrn 11102  ax-pre-ltadd 11103  ax-pre-mulgt0 11104
This theorem depends on definitions:  df-bi 207  df-an 396  df-or 849  df-3or 1088  df-3an 1089  df-tru 1545  df-fal 1555  df-ex 1782  df-nf 1786  df-sb 2069  df-mo 2540  df-eu 2570  df-clab 2716  df-cleq 2729  df-clel 2812  df-nfc 2886  df-ne 2934  df-nel 3038  df-ral 3053  df-rex 3063  df-rmo 3343  df-reu 3344  df-rab 3391  df-v 3432  df-sbc 3730  df-csb 3839  df-dif 3893  df-un 3895  df-in 3897  df-ss 3907  df-pss 3910  df-nul 4275  df-if 4468  df-pw 4544  df-sn 4569  df-pr 4571  df-tp 4573  df-op 4575  df-uni 4852  df-iun 4936  df-br 5087  df-opab 5149  df-mpt 5168  df-tr 5194  df-id 5517  df-eprel 5522  df-po 5530  df-so 5531  df-fr 5575  df-we 5577  df-xp 5628  df-rel 5629  df-cnv 5630  df-co 5631  df-dm 5632  df-rn 5633  df-res 5634  df-ima 5635  df-pred 6257  df-ord 6318  df-on 6319  df-lim 6320  df-suc 6321  df-iota 6446  df-fun 6492  df-fn 6493  df-f 6494  df-f1 6495  df-fo 6496  df-f1o 6497  df-fv 6498  df-riota 7315  df-ov 7361  df-oprab 7362  df-mpo 7363  df-of 7622  df-om 7809  df-1st 7933  df-2nd 7934  df-supp 8102  df-tpos 8167  df-frecs 8222  df-wrecs 8253  df-recs 8302  df-rdg 8340  df-1o 8396  df-er 8634  df-map 8766  df-ixp 8837  df-en 8885  df-dom 8886  df-sdom 8887  df-fin 8888  df-fsupp 9266  df-sup 9346  df-pnf 11170  df-mnf 11171  df-xr 11172  df-ltxr 11173  df-le 11174  df-sub 11368  df-neg 11369  df-nn 12164  df-2 12233  df-3 12234  df-4 12235  df-5 12236  df-6 12237  df-7 12238  df-8 12239  df-9 12240  df-n0 12427  df-z 12514  df-dec 12634  df-uz 12778  df-fz 13451  df-struct 17106  df-sets 17123  df-slot 17141  df-ndx 17153  df-base 17169  df-ress 17190  df-plusg 17222  df-mulr 17223  df-sca 17225  df-vsca 17226  df-ip 17227  df-tset 17228  df-ple 17229  df-ds 17231  df-hom 17233  df-cco 17234  df-0g 17393  df-prds 17399  df-pws 17401  df-mgm 18597  df-sgrp 18676  df-mnd 18692  df-grp 18901  df-minusg 18902  df-sbg 18903  df-subg 19088  df-cmn 19746  df-abl 19747  df-mgp 20111  df-rng 20123  df-ur 20152  df-ring 20205  df-oppr 20306  df-dvdsr 20326  df-unit 20327  df-nzr 20479  df-subrg 20536  df-drng 20697  df-lmod 20846  df-lss 20916  df-sra 21158  df-rgmod 21159  df-dsmm 21720  df-frlm 21735  df-uvc 21771
This theorem is referenced by:  0prjspn  43072
  Copyright terms: Public domain W3C validator