Theorem mapdhcl 41194

Description: Lemmma for ~? mapdh . (Contributed by NM, 3-Apr-2015.)

Hypotheses

Ref	Expression
mapdh.q	⊢ 𝑄 = (0g‘𝐶)
mapdh.i	⊢ 𝐼 = (𝑥 ∈ V ↦ if((2nd ‘𝑥) = 0 , 𝑄, (℩ℎ ∈ 𝐷 ((𝑀‘(𝑁‘{(2nd ‘𝑥)})) = (𝐽‘{ℎ}) ∧ (𝑀‘(𝑁‘{((1st ‘(1st ‘𝑥)) − (2nd ‘𝑥))})) = (𝐽‘{((2nd ‘(1st ‘𝑥))𝑅ℎ)})))))
mapdh.h	⊢ 𝐻 = (LHyp‘𝐾)
mapdh.m	⊢ 𝑀 = ((mapd‘𝐾)‘𝑊)
mapdh.u	⊢ 𝑈 = ((DVecH‘𝐾)‘𝑊)
mapdh.v	⊢ 𝑉 = (Base‘𝑈)
mapdh.s	⊢ − = (-g‘𝑈)
mapdhc.o	⊢ 0 = (0g‘𝑈)
mapdh.n	⊢ 𝑁 = (LSpan‘𝑈)
mapdh.c	⊢ 𝐶 = ((LCDual‘𝐾)‘𝑊)
mapdh.d	⊢ 𝐷 = (Base‘𝐶)
mapdh.r	⊢ 𝑅 = (-g‘𝐶)
mapdh.j	⊢ 𝐽 = (LSpan‘𝐶)
mapdh.k	⊢ (𝜑 → (𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻))
mapdhc.f	⊢ (𝜑 → 𝐹 ∈ 𝐷)
mapdh.mn	⊢ (𝜑 → (𝑀‘(𝑁‘{𝑋})) = (𝐽‘{𝐹}))
mapdhcl.x	⊢ (𝜑 → 𝑋 ∈ (𝑉 ∖ { 0 }))
mapdhc.y	⊢ (𝜑 → 𝑌 ∈ 𝑉)
mapdh.ne	⊢ (𝜑 → (𝑁‘{𝑋}) ≠ (𝑁‘{𝑌}))

Assertion

Ref	Expression
mapdhcl	⊢ (𝜑 → (𝐼‘⟨𝑋, 𝐹, 𝑌⟩) ∈ 𝐷)

Distinct variable groups:   𝑥,𝐷,ℎ   ℎ,𝐹,𝑥   𝑥,𝐽   𝑥,𝑀   𝑥,𝑁   𝑥, 0   𝑥,𝑄   𝑥,𝑅   𝑥, −   ℎ,𝑋,𝑥   ℎ,𝑌,𝑥   𝜑,ℎ   0 ,ℎ   𝐶,ℎ   𝐷,ℎ   ℎ,𝐽   ℎ,𝑀   ℎ,𝑁   𝑅,ℎ   𝑈,ℎ   − ,ℎ

Allowed substitution hints:   𝜑(𝑥)   𝐶(𝑥)   𝑄(ℎ)   𝑈(𝑥)   𝐻(𝑥,ℎ)   𝐼(𝑥,ℎ)   𝐾(𝑥,ℎ)   𝑉(𝑥,ℎ)   𝑊(𝑥,ℎ)

Proof of Theorem mapdhcl

Step	Hyp	Ref	Expression
1		oteq3 4880	. . . 4 ⊢ (𝑌 = 0 → ⟨𝑋, 𝐹, 𝑌⟩ = ⟨𝑋, 𝐹, 0 ⟩)
2	1	fveq2d 6895	. . 3 ⊢ (𝑌 = 0 → (𝐼‘⟨𝑋, 𝐹, 𝑌⟩) = (𝐼‘⟨𝑋, 𝐹, 0 ⟩))
3	2	eleq1d 2814	. 2 ⊢ (𝑌 = 0 → ((𝐼‘⟨𝑋, 𝐹, 𝑌⟩) ∈ 𝐷 ↔ (𝐼‘⟨𝑋, 𝐹, 0 ⟩) ∈ 𝐷))
4		mapdh.q	. . . 4 ⊢ 𝑄 = (0g‘𝐶)
5		mapdh.i	. . . 4 ⊢ 𝐼 = (𝑥 ∈ V ↦ if((2nd ‘𝑥) = 0 , 𝑄, (℩ℎ ∈ 𝐷 ((𝑀‘(𝑁‘{(2nd ‘𝑥)})) = (𝐽‘{ℎ}) ∧ (𝑀‘(𝑁‘{((1st ‘(1st ‘𝑥)) − (2nd ‘𝑥))})) = (𝐽‘{((2nd ‘(1st ‘𝑥))𝑅ℎ)})))))
6		mapdhcl.x	. . . . 5 ⊢ (𝜑 → 𝑋 ∈ (𝑉 ∖ { 0 }))
7	6	adantr 480	. . . 4 ⊢ ((𝜑 ∧ 𝑌 ≠ 0 ) → 𝑋 ∈ (𝑉 ∖ { 0 }))
8		mapdhc.f	. . . . 5 ⊢ (𝜑 → 𝐹 ∈ 𝐷)
9	8	adantr 480	. . . 4 ⊢ ((𝜑 ∧ 𝑌 ≠ 0 ) → 𝐹 ∈ 𝐷)
10		mapdhc.y	. . . . . 6 ⊢ (𝜑 → 𝑌 ∈ 𝑉)
11	10	anim1i 614	. . . . 5 ⊢ ((𝜑 ∧ 𝑌 ≠ 0 ) → (𝑌 ∈ 𝑉 ∧ 𝑌 ≠ 0 ))
12		eldifsn 4786	. . . . 5 ⊢ (𝑌 ∈ (𝑉 ∖ { 0 }) ↔ (𝑌 ∈ 𝑉 ∧ 𝑌 ≠ 0 ))
13	11, 12	sylibr 233	. . . 4 ⊢ ((𝜑 ∧ 𝑌 ≠ 0 ) → 𝑌 ∈ (𝑉 ∖ { 0 }))
14	4, 5, 7, 9, 13	mapdhval2 41193	. . 3 ⊢ ((𝜑 ∧ 𝑌 ≠ 0 ) → (𝐼‘⟨𝑋, 𝐹, 𝑌⟩) = (℩ℎ ∈ 𝐷 ((𝑀‘(𝑁‘{𝑌})) = (𝐽‘{ℎ}) ∧ (𝑀‘(𝑁‘{(𝑋 − 𝑌)})) = (𝐽‘{(𝐹𝑅ℎ)}))))
15		mapdh.h	. . . . 5 ⊢ 𝐻 = (LHyp‘𝐾)
16		mapdh.m	. . . . 5 ⊢ 𝑀 = ((mapd‘𝐾)‘𝑊)
17		mapdh.u	. . . . 5 ⊢ 𝑈 = ((DVecH‘𝐾)‘𝑊)
18		mapdh.v	. . . . 5 ⊢ 𝑉 = (Base‘𝑈)
19		mapdh.s	. . . . 5 ⊢ − = (-g‘𝑈)
20		mapdhc.o	. . . . 5 ⊢ 0 = (0g‘𝑈)
21		mapdh.n	. . . . 5 ⊢ 𝑁 = (LSpan‘𝑈)
22		mapdh.c	. . . . 5 ⊢ 𝐶 = ((LCDual‘𝐾)‘𝑊)
23		mapdh.d	. . . . 5 ⊢ 𝐷 = (Base‘𝐶)
24		mapdh.r	. . . . 5 ⊢ 𝑅 = (-g‘𝐶)
25		mapdh.j	. . . . 5 ⊢ 𝐽 = (LSpan‘𝐶)
26		mapdh.k	. . . . . 6 ⊢ (𝜑 → (𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻))
27	26	adantr 480	. . . . 5 ⊢ ((𝜑 ∧ 𝑌 ≠ 0 ) → (𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻))
28		mapdh.ne	. . . . . 6 ⊢ (𝜑 → (𝑁‘{𝑋}) ≠ (𝑁‘{𝑌}))
29	28	adantr 480	. . . . 5 ⊢ ((𝜑 ∧ 𝑌 ≠ 0 ) → (𝑁‘{𝑋}) ≠ (𝑁‘{𝑌}))
30		mapdh.mn	. . . . . 6 ⊢ (𝜑 → (𝑀‘(𝑁‘{𝑋})) = (𝐽‘{𝐹}))
31	30	adantr 480	. . . . 5 ⊢ ((𝜑 ∧ 𝑌 ≠ 0 ) → (𝑀‘(𝑁‘{𝑋})) = (𝐽‘{𝐹}))
32	15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 27, 7, 13, 9, 29, 31	mapdpg 41173	. . . 4 ⊢ ((𝜑 ∧ 𝑌 ≠ 0 ) → ∃!ℎ ∈ 𝐷 ((𝑀‘(𝑁‘{𝑌})) = (𝐽‘{ℎ}) ∧ (𝑀‘(𝑁‘{(𝑋 − 𝑌)})) = (𝐽‘{(𝐹𝑅ℎ)})))
33		riotacl 7388	. . . 4 ⊢ (∃!ℎ ∈ 𝐷 ((𝑀‘(𝑁‘{𝑌})) = (𝐽‘{ℎ}) ∧ (𝑀‘(𝑁‘{(𝑋 − 𝑌)})) = (𝐽‘{(𝐹𝑅ℎ)})) → (℩ℎ ∈ 𝐷 ((𝑀‘(𝑁‘{𝑌})) = (𝐽‘{ℎ}) ∧ (𝑀‘(𝑁‘{(𝑋 − 𝑌)})) = (𝐽‘{(𝐹𝑅ℎ)}))) ∈ 𝐷)
34	32, 33	syl 17	. . 3 ⊢ ((𝜑 ∧ 𝑌 ≠ 0 ) → (℩ℎ ∈ 𝐷 ((𝑀‘(𝑁‘{𝑌})) = (𝐽‘{ℎ}) ∧ (𝑀‘(𝑁‘{(𝑋 − 𝑌)})) = (𝐽‘{(𝐹𝑅ℎ)}))) ∈ 𝐷)
35	14, 34	eqeltrd 2829	. 2 ⊢ ((𝜑 ∧ 𝑌 ≠ 0 ) → (𝐼‘⟨𝑋, 𝐹, 𝑌⟩) ∈ 𝐷)
36	4, 5, 20, 6, 8	mapdhval0 41192	. . 3 ⊢ (𝜑 → (𝐼‘⟨𝑋, 𝐹, 0 ⟩) = 𝑄)
37	15, 22, 23, 4, 26	lcd0vcl 41081	. . 3 ⊢ (𝜑 → 𝑄 ∈ 𝐷)
38	36, 37	eqeltrd 2829	. 2 ⊢ (𝜑 → (𝐼‘⟨𝑋, 𝐹, 0 ⟩) ∈ 𝐷)
39	3, 35, 38	pm2.61ne 3023	1 ⊢ (𝜑 → (𝐼‘⟨𝑋, 𝐹, 𝑌⟩) ∈ 𝐷)

Syntax hints:   → wi 4   ∧ wa 395   = wceq 1534   ∈ wcel 2099   ≠ wne 2936  ∃!wreu 3370  Vcvv 3470   ∖ cdif 3942  ifcif 4524  {csn 4624  ⟨cotp 4632   ↦ cmpt 5225  ‘cfv 6542  ℩crio 7369  (class class class)co 7414  1^st c1st 7985  2^nd c2nd 7986  Basecbs 17173  0_gc0g 17414  -_gcsg 18885  LSpanclspn 20848  HLchlt 38816  LHypclh 39451  DVecHcdvh 40545  LCDualclcd 41053  mapdcmpd 41091

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1790  ax-4 1804  ax-5 1906  ax-6 1964  ax-7 2004  ax-8 2101  ax-9 2109  ax-10 2130  ax-11 2147  ax-12 2167  ax-ext 2699  ax-rep 5279  ax-sep 5293  ax-nul 5300  ax-pow 5359  ax-pr 5423  ax-un 7734  ax-cnex 11188  ax-resscn 11189  ax-1cn 11190  ax-icn 11191  ax-addcl 11192  ax-addrcl 11193  ax-mulcl 11194  ax-mulrcl 11195  ax-mulcom 11196  ax-addass 11197  ax-mulass 11198  ax-distr 11199  ax-i2m1 11200  ax-1ne0 11201  ax-1rid 11202  ax-rnegex 11203  ax-rrecex 11204  ax-cnre 11205  ax-pre-lttri 11206  ax-pre-lttrn 11207  ax-pre-ltadd 11208  ax-pre-mulgt0 11209  ax-riotaBAD 38419

This theorem depends on definitions:  df-bi 206  df-an 396  df-or 847  df-3or 1086  df-3an 1087  df-tru 1537  df-fal 1547  df-ex 1775  df-nf 1779  df-sb 2061  df-mo 2530  df-eu 2559  df-clab 2706  df-cleq 2720  df-clel 2806  df-nfc 2881  df-ne 2937  df-nel 3043  df-ral 3058  df-rex 3067  df-rmo 3372  df-reu 3373  df-rab 3429  df-v 3472  df-sbc 3776  df-csb 3891  df-dif 3948  df-un 3950  df-in 3952  df-ss 3962  df-pss 3964  df-nul 4319  df-if 4525  df-pw 4600  df-sn 4625  df-pr 4627  df-tp 4629  df-op 4631  df-ot 4633  df-uni 4904  df-int 4945  df-iun 4993  df-iin 4994  df-br 5143  df-opab 5205  df-mpt 5226  df-tr 5260  df-id 5570  df-eprel 5576  df-po 5584  df-so 5585  df-fr 5627  df-we 5629  df-xp 5678  df-rel 5679  df-cnv 5680  df-co 5681  df-dm 5682  df-rn 5683  df-res 5684  df-ima 5685  df-pred 6299  df-ord 6366  df-on 6367  df-lim 6368  df-suc 6369  df-iota 6494  df-fun 6544  df-fn 6545  df-f 6546  df-f1 6547  df-fo 6548  df-f1o 6549  df-fv 6550  df-riota 7370  df-ov 7417  df-oprab 7418  df-mpo 7419  df-of 7679  df-om 7865  df-1st 7987  df-2nd 7988  df-tpos 8225  df-undef 8272  df-frecs 8280  df-wrecs 8311  df-recs 8385  df-rdg 8424  df-1o 8480  df-er 8718  df-map 8840  df-en 8958  df-dom 8959  df-sdom 8960  df-fin 8961  df-pnf 11274  df-mnf 11275  df-xr 11276  df-ltxr 11277  df-le 11278  df-sub 11470  df-neg 11471  df-nn 12237  df-2 12299  df-3 12300  df-4 12301  df-5 12302  df-6 12303  df-n0 12497  df-z 12583  df-uz 12847  df-fz 13511  df-struct 17109  df-sets 17126  df-slot 17144  df-ndx 17156  df-base 17174  df-ress 17203  df-plusg 17239  df-mulr 17240  df-sca 17242  df-vsca 17243  df-0g 17416  df-mre 17559  df-mrc 17560  df-acs 17562  df-proset 18280  df-poset 18298  df-plt 18315  df-lub 18331  df-glb 18332  df-join 18333  df-meet 18334  df-p0 18410  df-p1 18411  df-lat 18417  df-clat 18484  df-mgm 18593  df-sgrp 18672  df-mnd 18688  df-submnd 18734  df-grp 18886  df-minusg 18887  df-sbg 18888  df-subg 19071  df-cntz 19261  df-oppg 19290  df-lsm 19584  df-cmn 19730  df-abl 19731  df-mgp 20068  df-rng 20086  df-ur 20115  df-ring 20168  df-oppr 20266  df-dvdsr 20289  df-unit 20290  df-invr 20320  df-dvr 20333  df-drng 20619  df-lmod 20738  df-lss 20809  df-lsp 20849  df-lvec 20981  df-lsatoms 38442  df-lshyp 38443  df-lcv 38485  df-lfl 38524  df-lkr 38552  df-ldual 38590  df-oposet 38642  df-ol 38644  df-oml 38645  df-covers 38732  df-ats 38733  df-atl 38764  df-cvlat 38788  df-hlat 38817  df-llines 38965  df-lplanes 38966  df-lvols 38967  df-lines 38968  df-psubsp 38970  df-pmap 38971  df-padd 39263  df-lhyp 39455  df-laut 39456  df-ldil 39571  df-ltrn 39572  df-trl 39626  df-tgrp 40210  df-tendo 40222  df-edring 40224  df-dveca 40470  df-disoa 40496  df-dvech 40546  df-dib 40606  df-dic 40640  df-dih 40696  df-doch 40815  df-djh 40862  df-lcdual 41054  df-mapd 41092

This theorem is referenced by:  mapdheq4lem  41198  mapdheq4  41199  mapdh6lem1N  41200  mapdh6lem2N  41201  mapdh6aN  41202  mapdh6bN  41204  mapdh6cN  41205  mapdh6dN  41206  mapdh6hN  41210  mapdh7eN  41215  mapdh7cN  41216  mapdh7fN  41218  mapdh75e  41219  mapdh75fN  41222  mapdh8aa  41243  mapdh8d0N  41249  mapdh8d  41250  mapdh9a  41256  mapdh9aOLDN  41257  hdmap1cl  41271  hdmap1eulem  41289  hdmap1eulemOLDN  41290