dihpN - Mathbox for Norm Megill

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

Theorem dihpN 40809

Description: The value of isomorphism H at the fiducial atom 𝑃 is determined by the vector ⟨0, 𝑆⟩ (the zero translation ltrnid 39608 and a nonzero member of the endomorphism ring). In particular, 𝑆 can be replaced with the ring unity ( I ↾ 𝑇). (Contributed by NM, 26-Aug-2014.) (New usage is discouraged.)

**Hypotheses**
Ref	Expression
dihp.b	⊢ 𝐵 = (Base‘𝐾)
dihp.h	⊢ 𝐻 = (LHyp‘𝐾)
dihp.p	⊢ 𝑃 = ((oc‘𝐾)‘𝑊)
dihp.t	⊢ 𝑇 = ((LTrn‘𝐾)‘𝑊)
dihp.e	⊢ 𝐸 = ((TEndo‘𝐾)‘𝑊)
dihp.o	⊢ 𝑂 = (𝑓 ∈ 𝑇 ↦ ( I ↾ 𝐵))
dihp.i	⊢ 𝐼 = ((DIsoH‘𝐾)‘𝑊)
dihp.u	⊢ 𝑈 = ((DVecH‘𝐾)‘𝑊)
dihp.n	⊢ 𝑁 = (LSpan‘𝑈)
dihp.k	⊢ (𝜑 → (𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻))
dihp.s	⊢ (𝜑 → (𝑆 ∈ 𝐸 ∧ 𝑆 ≠ 𝑂))

**Assertion**
Ref	Expression
dihpN	⊢ (𝜑 → (𝐼‘𝑃) = (𝑁‘{⟨( I ↾ 𝐵), 𝑆⟩}))

Distinct variable groups: 𝐵,𝑓 𝑓,𝐻 𝑓,𝐾 𝑃,𝑓 𝑇,𝑓 𝑓,𝑊 Allowed substitution hints: 𝜑(𝑓) 𝑆(𝑓) 𝑈(𝑓) 𝐸(𝑓) 𝐼(𝑓) 𝑁(𝑓) 𝑂(𝑓)

Proof of Theorem dihpN Dummy variables 𝑔 𝑠 are mutually distinct and distinct from all other variables.

Step	Hyp	Ref	Expression
1		eqid 2728	. 2 ⊢ (0_g‘𝑈) = (0_g‘𝑈)
2		dihp.n	. 2 ⊢ 𝑁 = (LSpan‘𝑈)
3		eqid 2728	. 2 ⊢ (LSAtoms‘𝑈) = (LSAtoms‘𝑈)
4		dihp.h	. . 3 ⊢ 𝐻 = (LHyp‘𝐾)
5		dihp.u	. . 3 ⊢ 𝑈 = ((DVecH‘𝐾)‘𝑊)
6		dihp.k	. . 3 ⊢ (𝜑 → (𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻))
7	4, 5, 6	dvhlvec 40582	. 2 ⊢ (𝜑 → 𝑈 ∈ LVec)
8		dihp.p	. . 3 ⊢ 𝑃 = ((oc‘𝐾)‘𝑊)
9		dihp.i	. . 3 ⊢ 𝐼 = ((DIsoH‘𝐾)‘𝑊)
10	4, 8, 9, 5, 3, 6	dihat 40808	. 2 ⊢ (𝜑 → (𝐼‘𝑃) ∈ (LSAtoms‘𝑈))
11		eqid 2728	. . . . . . . 8 ⊢ (le‘𝐾) = (le‘𝐾)
12		eqid 2728	. . . . . . . 8 ⊢ (Atoms‘𝐾) = (Atoms‘𝐾)
13	11, 12, 4, 8	lhpocnel2 39492	. . . . . . 7 ⊢ ((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) → (𝑃 ∈ (Atoms‘𝐾) ∧ ¬ 𝑃(le‘𝐾)𝑊))
14		dihp.b	. . . . . . . 8 ⊢ 𝐵 = (Base‘𝐾)
15		dihp.t	. . . . . . . 8 ⊢ 𝑇 = ((LTrn‘𝐾)‘𝑊)
16		eqid 2728	. . . . . . . 8 ⊢ (℩𝑓 ∈ 𝑇 (𝑓‘𝑃) = 𝑃) = (℩𝑓 ∈ 𝑇 (𝑓‘𝑃) = 𝑃)
17	14, 11, 12, 4, 15, 16	ltrniotaidvalN 40056	. . . . . . 7 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑃 ∈ (Atoms‘𝐾) ∧ ¬ 𝑃(le‘𝐾)𝑊)) → (℩𝑓 ∈ 𝑇 (𝑓‘𝑃) = 𝑃) = ( I ↾ 𝐵))
18	6, 13, 17	syl2anc2 584	. . . . . 6 ⊢ (𝜑 → (℩𝑓 ∈ 𝑇 (𝑓‘𝑃) = 𝑃) = ( I ↾ 𝐵))
19	18	fveq2d 6901	. . . . 5 ⊢ (𝜑 → (𝑆‘(℩𝑓 ∈ 𝑇 (𝑓‘𝑃) = 𝑃)) = (𝑆‘( I ↾ 𝐵)))
20		dihp.s	. . . . . . 7 ⊢ (𝜑 → (𝑆 ∈ 𝐸 ∧ 𝑆 ≠ 𝑂))
21	20	simpld 494	. . . . . 6 ⊢ (𝜑 → 𝑆 ∈ 𝐸)
22		dihp.e	. . . . . . 7 ⊢ 𝐸 = ((TEndo‘𝐾)‘𝑊)
23	14, 4, 22	tendoid 40246	. . . . . 6 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝑆 ∈ 𝐸) → (𝑆‘( I ↾ 𝐵)) = ( I ↾ 𝐵))
24	6, 21, 23	syl2anc 583	. . . . 5 ⊢ (𝜑 → (𝑆‘( I ↾ 𝐵)) = ( I ↾ 𝐵))
25	19, 24	eqtr2d 2769	. . . 4 ⊢ (𝜑 → ( I ↾ 𝐵) = (𝑆‘(℩𝑓 ∈ 𝑇 (𝑓‘𝑃) = 𝑃)))
26	14	fvexi 6911	. . . . . 6 ⊢ 𝐵 ∈ V
27		resiexg 7920	. . . . . 6 ⊢ (𝐵 ∈ V → ( I ↾ 𝐵) ∈ V)
28	26, 27	mp1i 13	. . . . 5 ⊢ (𝜑 → ( I ↾ 𝐵) ∈ V)
29		eqeq1 2732	. . . . . . 7 ⊢ (𝑔 = ( I ↾ 𝐵) → (𝑔 = (𝑠‘(℩𝑓 ∈ 𝑇 (𝑓‘𝑃) = 𝑃)) ↔ ( I ↾ 𝐵) = (𝑠‘(℩𝑓 ∈ 𝑇 (𝑓‘𝑃) = 𝑃))))
30	29	anbi1d 630	. . . . . 6 ⊢ (𝑔 = ( I ↾ 𝐵) → ((𝑔 = (𝑠‘(℩𝑓 ∈ 𝑇 (𝑓‘𝑃) = 𝑃)) ∧ 𝑠 ∈ 𝐸) ↔ (( I ↾ 𝐵) = (𝑠‘(℩𝑓 ∈ 𝑇 (𝑓‘𝑃) = 𝑃)) ∧ 𝑠 ∈ 𝐸)))
31		fveq1 6896	. . . . . . . 8 ⊢ (𝑠 = 𝑆 → (𝑠‘(℩𝑓 ∈ 𝑇 (𝑓‘𝑃) = 𝑃)) = (𝑆‘(℩𝑓 ∈ 𝑇 (𝑓‘𝑃) = 𝑃)))
32	31	eqeq2d 2739	. . . . . . 7 ⊢ (𝑠 = 𝑆 → (( I ↾ 𝐵) = (𝑠‘(℩𝑓 ∈ 𝑇 (𝑓‘𝑃) = 𝑃)) ↔ ( I ↾ 𝐵) = (𝑆‘(℩𝑓 ∈ 𝑇 (𝑓‘𝑃) = 𝑃))))
33		eleq1 2817	. . . . . . 7 ⊢ (𝑠 = 𝑆 → (𝑠 ∈ 𝐸 ↔ 𝑆 ∈ 𝐸))
34	32, 33	anbi12d 631	. . . . . 6 ⊢ (𝑠 = 𝑆 → ((( I ↾ 𝐵) = (𝑠‘(℩𝑓 ∈ 𝑇 (𝑓‘𝑃) = 𝑃)) ∧ 𝑠 ∈ 𝐸) ↔ (( I ↾ 𝐵) = (𝑆‘(℩𝑓 ∈ 𝑇 (𝑓‘𝑃) = 𝑃)) ∧ 𝑆 ∈ 𝐸)))
35	30, 34	opelopabg 5540	. . . . 5 ⊢ ((( I ↾ 𝐵) ∈ V ∧ 𝑆 ∈ 𝐸) → (⟨( I ↾ 𝐵), 𝑆⟩ ∈ {⟨𝑔, 𝑠⟩ ∣ (𝑔 = (𝑠‘(℩𝑓 ∈ 𝑇 (𝑓‘𝑃) = 𝑃)) ∧ 𝑠 ∈ 𝐸)} ↔ (( I ↾ 𝐵) = (𝑆‘(℩𝑓 ∈ 𝑇 (𝑓‘𝑃) = 𝑃)) ∧ 𝑆 ∈ 𝐸)))
36	28, 21, 35	syl2anc 583	. . . 4 ⊢ (𝜑 → (⟨( I ↾ 𝐵), 𝑆⟩ ∈ {⟨𝑔, 𝑠⟩ ∣ (𝑔 = (𝑠‘(℩𝑓 ∈ 𝑇 (𝑓‘𝑃) = 𝑃)) ∧ 𝑠 ∈ 𝐸)} ↔ (( I ↾ 𝐵) = (𝑆‘(℩𝑓 ∈ 𝑇 (𝑓‘𝑃) = 𝑃)) ∧ 𝑆 ∈ 𝐸)))
37	25, 21, 36	mpbir2and 712	. . 3 ⊢ (𝜑 → ⟨( I ↾ 𝐵), 𝑆⟩ ∈ {⟨𝑔, 𝑠⟩ ∣ (𝑔 = (𝑠‘(℩𝑓 ∈ 𝑇 (𝑓‘𝑃) = 𝑃)) ∧ 𝑠 ∈ 𝐸)})
38		eqid 2728	. . . . . 6 ⊢ ((DIsoC‘𝐾)‘𝑊) = ((DIsoC‘𝐾)‘𝑊)
39	11, 12, 4, 38, 9	dihvalcqat 40712	. . . . 5 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑃 ∈ (Atoms‘𝐾) ∧ ¬ 𝑃(le‘𝐾)𝑊)) → (𝐼‘𝑃) = (((DIsoC‘𝐾)‘𝑊)‘𝑃))
40	6, 13, 39	syl2anc2 584	. . . 4 ⊢ (𝜑 → (𝐼‘𝑃) = (((DIsoC‘𝐾)‘𝑊)‘𝑃))
41	11, 12, 4, 8, 15, 22, 38	dicval 40649	. . . . 5 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑃 ∈ (Atoms‘𝐾) ∧ ¬ 𝑃(le‘𝐾)𝑊)) → (((DIsoC‘𝐾)‘𝑊)‘𝑃) = {⟨𝑔, 𝑠⟩ ∣ (𝑔 = (𝑠‘(℩𝑓 ∈ 𝑇 (𝑓‘𝑃) = 𝑃)) ∧ 𝑠 ∈ 𝐸)})
42	6, 13, 41	syl2anc2 584	. . . 4 ⊢ (𝜑 → (((DIsoC‘𝐾)‘𝑊)‘𝑃) = {⟨𝑔, 𝑠⟩ ∣ (𝑔 = (𝑠‘(℩𝑓 ∈ 𝑇 (𝑓‘𝑃) = 𝑃)) ∧ 𝑠 ∈ 𝐸)})
43	40, 42	eqtr2d 2769	. . 3 ⊢ (𝜑 → {⟨𝑔, 𝑠⟩ ∣ (𝑔 = (𝑠‘(℩𝑓 ∈ 𝑇 (𝑓‘𝑃) = 𝑃)) ∧ 𝑠 ∈ 𝐸)} = (𝐼‘𝑃))
44	37, 43	eleqtrd 2831	. 2 ⊢ (𝜑 → ⟨( I ↾ 𝐵), 𝑆⟩ ∈ (𝐼‘𝑃))
45	20	simprd 495	. . 3 ⊢ (𝜑 → 𝑆 ≠ 𝑂)
46		dihp.o	. . . . . . . 8 ⊢ 𝑂 = (𝑓 ∈ 𝑇 ↦ ( I ↾ 𝐵))
47	14, 4, 15, 5, 1, 46	dvh0g 40584	. . . . . . 7 ⊢ ((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) → (0_g‘𝑈) = ⟨( I ↾ 𝐵), 𝑂⟩)
48	6, 47	syl 17	. . . . . 6 ⊢ (𝜑 → (0_g‘𝑈) = ⟨( I ↾ 𝐵), 𝑂⟩)
49	48	eqeq2d 2739	. . . . 5 ⊢ (𝜑 → (⟨( I ↾ 𝐵), 𝑆⟩ = (0_g‘𝑈) ↔ ⟨( I ↾ 𝐵), 𝑆⟩ = ⟨( I ↾ 𝐵), 𝑂⟩))
50	26, 27	ax-mp 5	. . . . . . 7 ⊢ ( I ↾ 𝐵) ∈ V
51	15	fvexi 6911	. . . . . . . . 9 ⊢ 𝑇 ∈ V
52	51	mptex 7235	. . . . . . . 8 ⊢ (𝑓 ∈ 𝑇 ↦ ( I ↾ 𝐵)) ∈ V
53	46, 52	eqeltri 2825	. . . . . . 7 ⊢ 𝑂 ∈ V
54	50, 53	opth2 5482	. . . . . 6 ⊢ (⟨( I ↾ 𝐵), 𝑆⟩ = ⟨( I ↾ 𝐵), 𝑂⟩ ↔ (( I ↾ 𝐵) = ( I ↾ 𝐵) ∧ 𝑆 = 𝑂))
55	54	simprbi 496	. . . . 5 ⊢ (⟨( I ↾ 𝐵), 𝑆⟩ = ⟨( I ↾ 𝐵), 𝑂⟩ → 𝑆 = 𝑂)
56	49, 55	biimtrdi 252	. . . 4 ⊢ (𝜑 → (⟨( I ↾ 𝐵), 𝑆⟩ = (0_g‘𝑈) → 𝑆 = 𝑂))
57	56	necon3d 2958	. . 3 ⊢ (𝜑 → (𝑆 ≠ 𝑂 → ⟨( I ↾ 𝐵), 𝑆⟩ ≠ (0_g‘𝑈)))
58	45, 57	mpd 15	. 2 ⊢ (𝜑 → ⟨( I ↾ 𝐵), 𝑆⟩ ≠ (0_g‘𝑈))
59	1, 2, 3, 7, 10, 44, 58	lsatel 38477	1 ⊢ (𝜑 → (𝐼‘𝑃) = (𝑁‘{⟨( I ↾ 𝐵), 𝑆⟩}))

Colors of variables: wff setvar class

Syntax hints: ¬ wn 3 → wi 4 ↔ wb 205 ∧ wa 395 = wceq 1534 ∈ wcel 2099 ≠ wne 2937 Vcvv 3471 {csn 4629 ⟨cop 4635 class class class wbr 5148 {copab 5210 ↦ cmpt 5231 I cid 5575 ↾ cres 5680 ‘cfv 6548 ℩crio 7375 Basecbs 17180 lecple 17240 occoc 17241 0_gc0g 17421 LSpanclspn 20855 LSAtomsclsa 38446 Atomscatm 38735 HLchlt 38822 LHypclh 39457 LTrncltrn 39574 TEndoctendo 40225 DVecHcdvh 40551 DIsoCcdic 40645 DIsoHcdih 40701

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 5285 ax-sep 5299 ax-nul 5306 ax-pow 5365 ax-pr 5429 ax-un 7740 ax-cnex 11195 ax-resscn 11196 ax-1cn 11197 ax-icn 11198 ax-addcl 11199 ax-addrcl 11200 ax-mulcl 11201 ax-mulrcl 11202 ax-mulcom 11203 ax-addass 11204 ax-mulass 11205 ax-distr 11206 ax-i2m1 11207 ax-1ne0 11208 ax-1rid 11209 ax-rnegex 11210 ax-rrecex 11211 ax-cnre 11212 ax-pre-lttri 11213 ax-pre-lttrn 11214 ax-pre-ltadd 11215 ax-pre-mulgt0 11216 ax-riotaBAD 38425

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 2938 df-nel 3044 df-ral 3059 df-rex 3068 df-rmo 3373 df-reu 3374 df-rab 3430 df-v 3473 df-sbc 3777 df-csb 3893 df-dif 3950 df-un 3952 df-in 3954 df-ss 3964 df-pss 3966 df-nul 4324 df-if 4530 df-pw 4605 df-sn 4630 df-pr 4632 df-tp 4634 df-op 4636 df-uni 4909 df-int 4950 df-iun 4998 df-iin 4999 df-br 5149 df-opab 5211 df-mpt 5232 df-tr 5266 df-id 5576 df-eprel 5582 df-po 5590 df-so 5591 df-fr 5633 df-we 5635 df-xp 5684 df-rel 5685 df-cnv 5686 df-co 5687 df-dm 5688 df-rn 5689 df-res 5690 df-ima 5691 df-pred 6305 df-ord 6372 df-on 6373 df-lim 6374 df-suc 6375 df-iota 6500 df-fun 6550 df-fn 6551 df-f 6552 df-f1 6553 df-fo 6554 df-f1o 6555 df-fv 6556 df-riota 7376 df-ov 7423 df-oprab 7424 df-mpo 7425 df-om 7871 df-1st 7993 df-2nd 7994 df-tpos 8232 df-undef 8279 df-frecs 8287 df-wrecs 8318 df-recs 8392 df-rdg 8431 df-1o 8487 df-er 8725 df-map 8847 df-en 8965 df-dom 8966 df-sdom 8967 df-fin 8968 df-pnf 11281 df-mnf 11282 df-xr 11283 df-ltxr 11284 df-le 11285 df-sub 11477 df-neg 11478 df-nn 12244 df-2 12306 df-3 12307 df-4 12308 df-5 12309 df-6 12310 df-n0 12504 df-z 12590 df-uz 12854 df-fz 13518 df-struct 17116 df-sets 17133 df-slot 17151 df-ndx 17163 df-base 17181 df-ress 17210 df-plusg 17246 df-mulr 17247 df-sca 17249 df-vsca 17250 df-0g 17423 df-proset 18287 df-poset 18305 df-plt 18322 df-lub 18338 df-glb 18339 df-join 18340 df-meet 18341 df-p0 18417 df-p1 18418 df-lat 18424 df-clat 18491 df-mgm 18600 df-sgrp 18679 df-mnd 18695 df-submnd 18741 df-grp 18893 df-minusg 18894 df-sbg 18895 df-subg 19078 df-cntz 19268 df-lsm 19591 df-cmn 19737 df-abl 19738 df-mgp 20075 df-rng 20093 df-ur 20122 df-ring 20175 df-oppr 20273 df-dvdsr 20296 df-unit 20297 df-invr 20327 df-dvr 20340 df-drng 20626 df-lmod 20745 df-lss 20816 df-lsp 20856 df-lvec 20988 df-lsatoms 38448 df-oposet 38648 df-ol 38650 df-oml 38651 df-covers 38738 df-ats 38739 df-atl 38770 df-cvlat 38794 df-hlat 38823 df-llines 38971 df-lplanes 38972 df-lvols 38973 df-lines 38974 df-psubsp 38976 df-pmap 38977 df-padd 39269 df-lhyp 39461 df-laut 39462 df-ldil 39577 df-ltrn 39578 df-trl 39632 df-tendo 40228 df-edring 40230 df-disoa 40502 df-dvech 40552 df-dib 40612 df-dic 40646 df-dih 40702

This theorem is referenced by: (None)

W3C validator