| Mathbox for Norm Megill |
< Previous
Next >
Nearby theorems |
||
| Mirrors > Home > MPE Home > Th. List > Mathboxes > hdmap1eulemOLDN | Structured version Visualization version GIF version | ||
| Description: Lemma for hdmap1euOLDN 42975. TODO: combine with hdmap1euOLDN 42975 or at least share some hypotheses. (Contributed by NM, 15-May-2015.) (New usage is discouraged.) |
| Ref | Expression |
|---|---|
| hdmap1eulem.h | ⊢ 𝐻 = (LHyp‘𝐾) |
| hdmap1eulem.u | ⊢ 𝑈 = ((DVecH‘𝐾)‘𝑊) |
| hdmap1eulem.v | ⊢ 𝑉 = (Base‘𝑈) |
| hdmap1eulem.s | ⊢ − = (-g‘𝑈) |
| hdmap1eulem.o | ⊢ 0 = (0g‘𝑈) |
| hdmap1eulem.n | ⊢ 𝑁 = (LSpan‘𝑈) |
| hdmap1eulem.c | ⊢ 𝐶 = ((LCDual‘𝐾)‘𝑊) |
| hdmap1eulem.d | ⊢ 𝐷 = (Base‘𝐶) |
| hdmap1eulem.r | ⊢ 𝑅 = (-g‘𝐶) |
| hdmap1eulem.q | ⊢ 𝑄 = (0g‘𝐶) |
| hdmap1eulem.j | ⊢ 𝐽 = (LSpan‘𝐶) |
| hdmap1eulem.m | ⊢ 𝑀 = ((mapd‘𝐾)‘𝑊) |
| hdmap1eulem.i | ⊢ 𝐼 = ((HDMap1‘𝐾)‘𝑊) |
| hdmap1eulem.k | ⊢ (𝜑 → (𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻)) |
| hdmap1eulem.mn | ⊢ (𝜑 → (𝑀‘(𝑁‘{𝑋})) = (𝐽‘{𝐹})) |
| hdmap1eulem.x | ⊢ (𝜑 → 𝑋 ∈ (𝑉 ∖ { 0 })) |
| hdmap1eulem.f | ⊢ (𝜑 → 𝐹 ∈ 𝐷) |
| hdmap1eulem.y | ⊢ (𝜑 → 𝑇 ∈ 𝑉) |
| hdmap1eulem.l | ⊢ 𝐿 = (𝑥 ∈ V ↦ if((2nd ‘𝑥) = 0 , 𝑄, (℩ℎ ∈ 𝐷 ((𝑀‘(𝑁‘{(2nd ‘𝑥)})) = (𝐽‘{ℎ}) ∧ (𝑀‘(𝑁‘{((1st ‘(1st ‘𝑥)) − (2nd ‘𝑥))})) = (𝐽‘{((2nd ‘(1st ‘𝑥))𝑅ℎ)}))))) |
| Ref | Expression |
|---|---|
| hdmap1eulemOLDN | ⊢ (𝜑 → ∃!𝑦 ∈ 𝐷 ∀𝑧 ∈ 𝑉 (¬ 𝑧 ∈ (𝑁‘{𝑋, 𝑇}) → 𝑦 = (𝐼‘〈𝑧, (𝐼‘〈𝑋, 𝐹, 𝑧〉), 𝑇〉))) |
| Step | Hyp | Ref | Expression |
|---|---|---|---|
| 1 | hdmap1eulem.h | . . 3 ⊢ 𝐻 = (LHyp‘𝐾) | |
| 2 | hdmap1eulem.u | . . 3 ⊢ 𝑈 = ((DVecH‘𝐾)‘𝑊) | |
| 3 | hdmap1eulem.v | . . 3 ⊢ 𝑉 = (Base‘𝑈) | |
| 4 | hdmap1eulem.s | . . 3 ⊢ − = (-g‘𝑈) | |
| 5 | hdmap1eulem.o | . . 3 ⊢ 0 = (0g‘𝑈) | |
| 6 | hdmap1eulem.n | . . 3 ⊢ 𝑁 = (LSpan‘𝑈) | |
| 7 | hdmap1eulem.c | . . 3 ⊢ 𝐶 = ((LCDual‘𝐾)‘𝑊) | |
| 8 | hdmap1eulem.d | . . 3 ⊢ 𝐷 = (Base‘𝐶) | |
| 9 | hdmap1eulem.r | . . 3 ⊢ 𝑅 = (-g‘𝐶) | |
| 10 | hdmap1eulem.q | . . 3 ⊢ 𝑄 = (0g‘𝐶) | |
| 11 | hdmap1eulem.j | . . 3 ⊢ 𝐽 = (LSpan‘𝐶) | |
| 12 | hdmap1eulem.m | . . 3 ⊢ 𝑀 = ((mapd‘𝐾)‘𝑊) | |
| 13 | hdmap1eulem.l | . . 3 ⊢ 𝐿 = (𝑥 ∈ V ↦ if((2nd ‘𝑥) = 0 , 𝑄, (℩ℎ ∈ 𝐷 ((𝑀‘(𝑁‘{(2nd ‘𝑥)})) = (𝐽‘{ℎ}) ∧ (𝑀‘(𝑁‘{((1st ‘(1st ‘𝑥)) − (2nd ‘𝑥))})) = (𝐽‘{((2nd ‘(1st ‘𝑥))𝑅ℎ)}))))) | |
| 14 | hdmap1eulem.k | . . 3 ⊢ (𝜑 → (𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻)) | |
| 15 | hdmap1eulem.f | . . 3 ⊢ (𝜑 → 𝐹 ∈ 𝐷) | |
| 16 | hdmap1eulem.mn | . . 3 ⊢ (𝜑 → (𝑀‘(𝑁‘{𝑋})) = (𝐽‘{𝐹})) | |
| 17 | hdmap1eulem.x | . . 3 ⊢ (𝜑 → 𝑋 ∈ (𝑉 ∖ { 0 })) | |
| 18 | hdmap1eulem.y | . . 3 ⊢ (𝜑 → 𝑇 ∈ 𝑉) | |
| 19 | 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18 | mapdh9aOLDN 42940 | . 2 ⊢ (𝜑 → ∃!𝑦 ∈ 𝐷 ∀𝑧 ∈ 𝑉 (¬ 𝑧 ∈ (𝑁‘{𝑋, 𝑇}) → 𝑦 = (𝐿‘〈𝑧, (𝐿‘〈𝑋, 𝐹, 𝑧〉), 𝑇〉))) |
| 20 | hdmap1eulem.i | . . . . . . . . . 10 ⊢ 𝐼 = ((HDMap1‘𝐾)‘𝑊) | |
| 21 | 14 | ad2antrr 739 | . . . . . . . . . 10 ⊢ (((𝜑 ∧ 𝑧 ∈ 𝑉) ∧ ¬ 𝑧 ∈ (𝑁‘{𝑋, 𝑇})) → (𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻)) |
| 22 | 17 | ad2antrr 739 | . . . . . . . . . 10 ⊢ (((𝜑 ∧ 𝑧 ∈ 𝑉) ∧ ¬ 𝑧 ∈ (𝑁‘{𝑋, 𝑇})) → 𝑋 ∈ (𝑉 ∖ { 0 })) |
| 23 | 15 | ad2antrr 739 | . . . . . . . . . 10 ⊢ (((𝜑 ∧ 𝑧 ∈ 𝑉) ∧ ¬ 𝑧 ∈ (𝑁‘{𝑋, 𝑇})) → 𝐹 ∈ 𝐷) |
| 24 | simplr 781 | . . . . . . . . . 10 ⊢ (((𝜑 ∧ 𝑧 ∈ 𝑉) ∧ ¬ 𝑧 ∈ (𝑁‘{𝑋, 𝑇})) → 𝑧 ∈ 𝑉) | |
| 25 | 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 20, 21, 22, 23, 24, 13 | hdmap1valc 42953 | . . . . . . . . 9 ⊢ (((𝜑 ∧ 𝑧 ∈ 𝑉) ∧ ¬ 𝑧 ∈ (𝑁‘{𝑋, 𝑇})) → (𝐼‘〈𝑋, 𝐹, 𝑧〉) = (𝐿‘〈𝑋, 𝐹, 𝑧〉)) |
| 26 | 25 | oteq2d 4863 | . . . . . . . 8 ⊢ (((𝜑 ∧ 𝑧 ∈ 𝑉) ∧ ¬ 𝑧 ∈ (𝑁‘{𝑋, 𝑇})) → 〈𝑧, (𝐼‘〈𝑋, 𝐹, 𝑧〉), 𝑇〉 = 〈𝑧, (𝐿‘〈𝑋, 𝐹, 𝑧〉), 𝑇〉) |
| 27 | 26 | fveq2d 6889 | . . . . . . 7 ⊢ (((𝜑 ∧ 𝑧 ∈ 𝑉) ∧ ¬ 𝑧 ∈ (𝑁‘{𝑋, 𝑇})) → (𝐼‘〈𝑧, (𝐼‘〈𝑋, 𝐹, 𝑧〉), 𝑇〉) = (𝐼‘〈𝑧, (𝐿‘〈𝑋, 𝐹, 𝑧〉), 𝑇〉)) |
| 28 | eqid 2760 | . . . . . . . . 9 ⊢ (LSubSp‘𝑈) = (LSubSp‘𝑈) | |
| 29 | 1, 2, 14 | dvhlmod 42260 | . . . . . . . . . 10 ⊢ (𝜑 → 𝑈 ∈ LMod) |
| 30 | 29 | ad2antrr 739 | . . . . . . . . 9 ⊢ (((𝜑 ∧ 𝑧 ∈ 𝑉) ∧ ¬ 𝑧 ∈ (𝑁‘{𝑋, 𝑇})) → 𝑈 ∈ LMod) |
| 31 | 17 | eldifad 4051 | . . . . . . . . . . 11 ⊢ (𝜑 → 𝑋 ∈ 𝑉) |
| 32 | 3, 28, 6, 29, 31, 18 | lspprcl 21258 | . . . . . . . . . 10 ⊢ (𝜑 → (𝑁‘{𝑋, 𝑇}) ∈ (LSubSp‘𝑈)) |
| 33 | 32 | ad2antrr 739 | . . . . . . . . 9 ⊢ (((𝜑 ∧ 𝑧 ∈ 𝑉) ∧ ¬ 𝑧 ∈ (𝑁‘{𝑋, 𝑇})) → (𝑁‘{𝑋, 𝑇}) ∈ (LSubSp‘𝑈)) |
| 34 | simpr 490 | . . . . . . . . 9 ⊢ (((𝜑 ∧ 𝑧 ∈ 𝑉) ∧ ¬ 𝑧 ∈ (𝑁‘{𝑋, 𝑇})) → ¬ 𝑧 ∈ (𝑁‘{𝑋, 𝑇})) | |
| 35 | 5, 28, 30, 33, 24, 34 | lssneln0 21233 | . . . . . . . 8 ⊢ (((𝜑 ∧ 𝑧 ∈ 𝑉) ∧ ¬ 𝑧 ∈ (𝑁‘{𝑋, 𝑇})) → 𝑧 ∈ (𝑉 ∖ { 0 })) |
| 36 | 16 | ad2antrr 739 | . . . . . . . . 9 ⊢ (((𝜑 ∧ 𝑧 ∈ 𝑉) ∧ ¬ 𝑧 ∈ (𝑁‘{𝑋, 𝑇})) → (𝑀‘(𝑁‘{𝑋})) = (𝐽‘{𝐹})) |
| 37 | 1, 2, 14 | dvhlvec 42259 | . . . . . . . . . . . . 13 ⊢ (𝜑 → 𝑈 ∈ LVec) |
| 38 | 37 | ad2antrr 739 | . . . . . . . . . . . 12 ⊢ (((𝜑 ∧ 𝑧 ∈ 𝑉) ∧ ¬ 𝑧 ∈ (𝑁‘{𝑋, 𝑇})) → 𝑈 ∈ LVec) |
| 39 | 31 | ad2antrr 739 | . . . . . . . . . . . 12 ⊢ (((𝜑 ∧ 𝑧 ∈ 𝑉) ∧ ¬ 𝑧 ∈ (𝑁‘{𝑋, 𝑇})) → 𝑋 ∈ 𝑉) |
| 40 | 18 | ad2antrr 739 | . . . . . . . . . . . 12 ⊢ (((𝜑 ∧ 𝑧 ∈ 𝑉) ∧ ¬ 𝑧 ∈ (𝑁‘{𝑋, 𝑇})) → 𝑇 ∈ 𝑉) |
| 41 | 3, 6, 38, 24, 39, 40, 34 | lspindpi 21415 | . . . . . . . . . . 11 ⊢ (((𝜑 ∧ 𝑧 ∈ 𝑉) ∧ ¬ 𝑧 ∈ (𝑁‘{𝑋, 𝑇})) → ((𝑁‘{𝑧}) ≠ (𝑁‘{𝑋}) ∧ (𝑁‘{𝑧}) ≠ (𝑁‘{𝑇}))) |
| 42 | 41 | simpld 500 | . . . . . . . . . 10 ⊢ (((𝜑 ∧ 𝑧 ∈ 𝑉) ∧ ¬ 𝑧 ∈ (𝑁‘{𝑋, 𝑇})) → (𝑁‘{𝑧}) ≠ (𝑁‘{𝑋})) |
| 43 | 42 | necomd 3010 | . . . . . . . . 9 ⊢ (((𝜑 ∧ 𝑧 ∈ 𝑉) ∧ ¬ 𝑧 ∈ (𝑁‘{𝑋, 𝑇})) → (𝑁‘{𝑋}) ≠ (𝑁‘{𝑧})) |
| 44 | 10, 13, 1, 12, 2, 3, 4, 5, 6, 7, 8, 9, 11, 21, 23, 36, 22, 24, 43 | mapdhcl 42877 | . . . . . . . 8 ⊢ (((𝜑 ∧ 𝑧 ∈ 𝑉) ∧ ¬ 𝑧 ∈ (𝑁‘{𝑋, 𝑇})) → (𝐿‘〈𝑋, 𝐹, 𝑧〉) ∈ 𝐷) |
| 45 | 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 20, 21, 35, 44, 40, 13 | hdmap1valc 42953 | . . . . . . 7 ⊢ (((𝜑 ∧ 𝑧 ∈ 𝑉) ∧ ¬ 𝑧 ∈ (𝑁‘{𝑋, 𝑇})) → (𝐼‘〈𝑧, (𝐿‘〈𝑋, 𝐹, 𝑧〉), 𝑇〉) = (𝐿‘〈𝑧, (𝐿‘〈𝑋, 𝐹, 𝑧〉), 𝑇〉)) |
| 46 | 27, 45 | eqtrd 2795 | . . . . . 6 ⊢ (((𝜑 ∧ 𝑧 ∈ 𝑉) ∧ ¬ 𝑧 ∈ (𝑁‘{𝑋, 𝑇})) → (𝐼‘〈𝑧, (𝐼‘〈𝑋, 𝐹, 𝑧〉), 𝑇〉) = (𝐿‘〈𝑧, (𝐿‘〈𝑋, 𝐹, 𝑧〉), 𝑇〉)) |
| 47 | 46 | eqeq2d 2771 | . . . . 5 ⊢ (((𝜑 ∧ 𝑧 ∈ 𝑉) ∧ ¬ 𝑧 ∈ (𝑁‘{𝑋, 𝑇})) → (𝑦 = (𝐼‘〈𝑧, (𝐼‘〈𝑋, 𝐹, 𝑧〉), 𝑇〉) ↔ 𝑦 = (𝐿‘〈𝑧, (𝐿‘〈𝑋, 𝐹, 𝑧〉), 𝑇〉))) |
| 48 | 47 | pm5.74da 816 | . . . 4 ⊢ ((𝜑 ∧ 𝑧 ∈ 𝑉) → ((¬ 𝑧 ∈ (𝑁‘{𝑋, 𝑇}) → 𝑦 = (𝐼‘〈𝑧, (𝐼‘〈𝑋, 𝐹, 𝑧〉), 𝑇〉)) ↔ (¬ 𝑧 ∈ (𝑁‘{𝑋, 𝑇}) → 𝑦 = (𝐿‘〈𝑧, (𝐿‘〈𝑋, 𝐹, 𝑧〉), 𝑇〉)))) |
| 49 | 48 | ralbidva 3183 | . . 3 ⊢ (𝜑 → (∀𝑧 ∈ 𝑉 (¬ 𝑧 ∈ (𝑁‘{𝑋, 𝑇}) → 𝑦 = (𝐼‘〈𝑧, (𝐼‘〈𝑋, 𝐹, 𝑧〉), 𝑇〉)) ↔ ∀𝑧 ∈ 𝑉 (¬ 𝑧 ∈ (𝑁‘{𝑋, 𝑇}) → 𝑦 = (𝐿‘〈𝑧, (𝐿‘〈𝑋, 𝐹, 𝑧〉), 𝑇〉)))) |
| 50 | 49 | reubidv 3381 | . 2 ⊢ (𝜑 → (∃!𝑦 ∈ 𝐷 ∀𝑧 ∈ 𝑉 (¬ 𝑧 ∈ (𝑁‘{𝑋, 𝑇}) → 𝑦 = (𝐼‘〈𝑧, (𝐼‘〈𝑋, 𝐹, 𝑧〉), 𝑇〉)) ↔ ∃!𝑦 ∈ 𝐷 ∀𝑧 ∈ 𝑉 (¬ 𝑧 ∈ (𝑁‘{𝑋, 𝑇}) → 𝑦 = (𝐿‘〈𝑧, (𝐿‘〈𝑋, 𝐹, 𝑧〉), 𝑇〉)))) |
| 51 | 19, 50 | mpbird 260 | 1 ⊢ (𝜑 → ∃!𝑦 ∈ 𝐷 ∀𝑧 ∈ 𝑉 (¬ 𝑧 ∈ (𝑁‘{𝑋, 𝑇}) → 𝑦 = (𝐼‘〈𝑧, (𝐼‘〈𝑋, 𝐹, 𝑧〉), 𝑇〉))) |
| Colors of variables: wff setvar class |
| This proof depends on syntax axioms: ¬ wn 3 → wi 4 ∧ wa 401 = wceq 1569 ∈ wcel 2144 ≠ wne 2955 ∀wral 3076 ∃!wreu 3363 Vcvv 3450 ∖ cdif 4045 ifcif 4481 {csn 4584 {cpr 4586 〈cotp 4857 ↦ cmpt 5185 ‘cfv 6538 ℩crio 7376 (class class class)co 7420 1st c1st 7999 2nd c2nd 8000 Basecbs 17392 0gc0g 17615 -gcsg 19151 LModclmod 21140 LSubSpclss 21211 LSpanclspn 21251 LVecclvec 21382 HLchlt 40500 LHypclh 41134 DVecHcdvh 42228 LCDualclcd 42736 mapdcmpd 42774 HDMap1chdma1 42941 |
| This proof depends on axioms: ax-mp 5 ax-1 6 ax-2 7 ax-3 8 ax-gen 1827 ax-4 1841 ax-5 1942 ax-6 1999 ax-7 2040 ax-8 2146 ax-9 2154 ax-10 2177 ax-11 2193 ax-12 2212 ax-ext 2732 ax-rep 5231 ax-sep 5248 ax-nul 5259 ax-pow 5326 ax-pr 5390 ax-un 7751 ax-cnex 11259 ax-resscn 11260 ax-1cn 11261 ax-icn 11262 ax-addcl 11263 ax-addrcl 11264 ax-mulcl 11265 ax-mulrcl 11266 ax-mulcom 11267 ax-addass 11268 ax-mulass 11269 ax-distr 11270 ax-i2m1 11271 ax-1ne0 11272 ax-1rid 11273 ax-rnegex 11274 ax-rrecex 11275 ax-cnre 11276 ax-pre-lttri 11277 ax-pre-lttrn 11278 ax-pre-ltadd 11279 ax-pre-mulgt0 11280 ax-riotaBAD 40103 |
| This proof depends on definitions: df-bi 210 df-an 402 df-or 862 df-3or 1104 df-3an 1105 df-tru 1572 df-fal 1582 df-ex 1812 df-nf 1816 df-sb 2099 df-mo 2564 df-eu 2594 df-clab 2739 df-cleq 2752 df-clel 2835 df-nfc 2909 df-ne 2956 df-nel 3062 df-ral 3077 df-rex 3087 df-rmo 3365 df-reu 3366 df-rab 3413 df-v 3452 df-sbc 3739 df-csb 3847 df-ss 3896 df-pss 4014 df-dif 4047 df-in 4091 df-un 4151 df-nul 4279 df-if 4482 df-pw 4558 df-sn 4585 df-pr 4587 df-tp 4589 df-op 4835 df-ot 4858 df-uni 4867 df-int 4907 df-iun 4952 df-iin 4953 df-br 5103 df-opab 5167 df-mpt 5186 df-tr 5212 df-id 5545 df-eprel 5550 df-po 5558 df-so 5559 df-fr 5603 df-we 5605 df-xp 5656 df-rel 5657 df-cnv 5658 df-co 5659 df-dm 5660 df-rn 5661 df-res 5662 df-ima 5663 df-pred 6304 df-ord 6365 df-on 6366 df-lim 6367 df-suc 6368 df-iota 6494 df-fun 6540 df-fn 6541 df-f 6542 df-f1 6543 df-fo 6544 df-f1o 6545 df-fv 6546 df-riota 7377 df-ov 7423 df-oprab 7424 df-mpo 7425 df-of 7693 df-om 7878 df-1st 8001 df-2nd 8002 df-tpos 8246 df-undef 8293 df-frecs 8302 df-wrecs 8333 df-recs 8382 df-rdg 8421 df-1o 8479 df-2o 8480 df-er 8720 df-map 8852 df-en 8977 df-dom 8978 df-sdom 8979 df-fin 8980 df-pnf 11348 df-mnf 11349 df-xr 11350 df-ltxr 11351 df-le 11352 df-sub 11546 df-neg 11547 df-nn 12339 df-2 12408 df-3 12409 df-4 12410 df-5 12411 df-6 12412 df-n0 12610 df-z 12697 df-uz 12969 df-fz 13643 df-struct 17330 df-sets 17347 df-slot 17365 df-ndx 17377 df-base 17393 df-ress 17414 df-plusg 17446 df-mulr 17447 df-sca 17449 df-vsca 17450 df-0g 17617 df-mre 17761 df-mrc 17762 df-acs 17764 df-proset 18473 df-poset 18492 df-plt 18507 df-lub 18523 df-glb 18524 df-join 18525 df-meet 18526 df-p0 18602 df-p1 18603 df-lat 18611 df-clat 18678 df-mgm 18821 df-sgrp 18913 df-mnd 18929 df-submnd 18984 df-grp 19152 df-minusg 19153 df-sbg 19154 df-subg 19338 df-cntz 19536 df-oppg 19565 df-lsm 19855 df-cmn 20001 df-abl 20002 df-mgp 20366 df-rng 20380 df-ur 20413 df-ring 20466 df-oppr 20572 df-dvdsr 20592 df-unit 20593 df-invr 20623 df-dvr 20636 df-nzr 20768 df-rlreg 20951 df-domn 20952 df-drng 20987 df-lmod 21142 df-lss 21212 df-lsp 21252 df-lvec 21383 df-lsatoms 40126 df-lshyp 40127 df-lcv 40169 df-lfl 40208 df-lkr 40236 df-ldual 40274 df-oposet 40326 df-ol 40328 df-oml 40329 df-covers 40416 df-ats 40417 df-atl 40448 df-cvlat 40472 df-hlat 40501 df-llines 40648 df-lplanes 40649 df-lvols 40650 df-lines 40651 df-psubsp 40653 df-pmap 40654 df-padd 40946 df-lhyp 41138 df-laut 41139 df-ldil 41254 df-ltrn 41255 df-trl 41309 df-tgrp 41893 df-tendo 41905 df-edring 41907 df-dveca 42153 df-disoa 42179 df-dvech 42229 df-dib 42289 df-dic 42323 df-dih 42379 df-doch 42498 df-djh 42545 df-lcdual 42737 df-mapd 42775 df-hdmap1 42943 |
| This theorem is used by: hdmap1euOLDN 42975 |
| Copyright terms: Public domain | W3C validator |