dihjat - Mathbox for Norm Megill

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

Theorem dihjat 42480

Description: Isomorphism H of lattice join of two atoms. (Contributed by NM, 29-Sep-2014.)

**Hypotheses**
Ref	Expression
dihjat.h	⊢ 𝐻 = (LHyp‘𝐾)
dihjat.j	⊢ ∨ = (join‘𝐾)
dihjat.a	⊢ 𝐴 = (Atoms‘𝐾)
dihjat.u	⊢ 𝑈 = ((DVecH‘𝐾)‘𝑊)
dihjat.s	⊢ ⊕ = (LSSum‘𝑈)
dihjat.i	⊢ 𝐼 = ((DIsoH‘𝐾)‘𝑊)
dihjat.k	⊢ (𝜑 → (𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻))
dihjat.p	⊢ (𝜑 → 𝑃 ∈ 𝐴)
dihjat.q	⊢ (𝜑 → 𝑄 ∈ 𝐴)

**Assertion**
Ref	Expression
dihjat	⊢ (𝜑 → (𝐼‘(𝑃 ∨ 𝑄)) = ((𝐼‘𝑃) ⊕ (𝐼‘𝑄)))

**Proof of Theorem dihjat**
Step	Hyp	Ref	Expression
1		eqid 2761	. . 3 ⊢ (le‘𝐾) = (le‘𝐾)
2		dihjat.h	. . 3 ⊢ 𝐻 = (LHyp‘𝐾)
3		dihjat.j	. . 3 ⊢ ∨ = (join‘𝐾)
4		dihjat.a	. . 3 ⊢ 𝐴 = (Atoms‘𝐾)
5		dihjat.u	. . 3 ⊢ 𝑈 = ((DVecH‘𝐾)‘𝑊)
6		dihjat.s	. . 3 ⊢ ⊕ = (LSSum‘𝑈)
7		dihjat.i	. . 3 ⊢ 𝐼 = ((DIsoH‘𝐾)‘𝑊)
8		dihjat.k	. . . 4 ⊢ (𝜑 → (𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻))
9	8	adantr 486	. . 3 ⊢ ((𝜑 ∧ (𝑃(le‘𝐾)𝑊 ∧ 𝑄(le‘𝐾)𝑊)) → (𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻))
10		dihjat.p	. . . . 5 ⊢ (𝜑 → 𝑃 ∈ 𝐴)
11	10	adantr 486	. . . 4 ⊢ ((𝜑 ∧ (𝑃(le‘𝐾)𝑊 ∧ 𝑄(le‘𝐾)𝑊)) → 𝑃 ∈ 𝐴)
12		simprl 783	. . . 4 ⊢ ((𝜑 ∧ (𝑃(le‘𝐾)𝑊 ∧ 𝑄(le‘𝐾)𝑊)) → 𝑃(le‘𝐾)𝑊)
13	11, 12	jca 521	. . 3 ⊢ ((𝜑 ∧ (𝑃(le‘𝐾)𝑊 ∧ 𝑄(le‘𝐾)𝑊)) → (𝑃 ∈ 𝐴 ∧ 𝑃(le‘𝐾)𝑊))
14		dihjat.q	. . . . 5 ⊢ (𝜑 → 𝑄 ∈ 𝐴)
15	14	adantr 486	. . . 4 ⊢ ((𝜑 ∧ (𝑃(le‘𝐾)𝑊 ∧ 𝑄(le‘𝐾)𝑊)) → 𝑄 ∈ 𝐴)
16		simprr 785	. . . 4 ⊢ ((𝜑 ∧ (𝑃(le‘𝐾)𝑊 ∧ 𝑄(le‘𝐾)𝑊)) → 𝑄(le‘𝐾)𝑊)
17	15, 16	jca 521	. . 3 ⊢ ((𝜑 ∧ (𝑃(le‘𝐾)𝑊 ∧ 𝑄(le‘𝐾)𝑊)) → (𝑄 ∈ 𝐴 ∧ 𝑄(le‘𝐾)𝑊))
18	1, 2, 3, 4, 5, 6, 7, 9, 13, 17	dihjatb 42473	. 2 ⊢ ((𝜑 ∧ (𝑃(le‘𝐾)𝑊 ∧ 𝑄(le‘𝐾)𝑊)) → (𝐼‘(𝑃 ∨ 𝑄)) = ((𝐼‘𝑃) ⊕ (𝐼‘𝑄)))
19		eqid 2761	. . 3 ⊢ (Base‘𝐾) = (Base‘𝐾)
20	8	adantr 486	. . 3 ⊢ ((𝜑 ∧ (𝑃(le‘𝐾)𝑊 ∧ ¬ 𝑄(le‘𝐾)𝑊)) → (𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻))
21	19, 4	atbase 40346	. . . . . 6 ⊢ (𝑃 ∈ 𝐴 → 𝑃 ∈ (Base‘𝐾))
22	10, 21	syl 18	. . . . 5 ⊢ (𝜑 → 𝑃 ∈ (Base‘𝐾))
23	22	adantr 486	. . . 4 ⊢ ((𝜑 ∧ (𝑃(le‘𝐾)𝑊 ∧ ¬ 𝑄(le‘𝐾)𝑊)) → 𝑃 ∈ (Base‘𝐾))
24		simprl 783	. . . 4 ⊢ ((𝜑 ∧ (𝑃(le‘𝐾)𝑊 ∧ ¬ 𝑄(le‘𝐾)𝑊)) → 𝑃(le‘𝐾)𝑊)
25	23, 24	jca 521	. . 3 ⊢ ((𝜑 ∧ (𝑃(le‘𝐾)𝑊 ∧ ¬ 𝑄(le‘𝐾)𝑊)) → (𝑃 ∈ (Base‘𝐾) ∧ 𝑃(le‘𝐾)𝑊))
26	14	adantr 486	. . . 4 ⊢ ((𝜑 ∧ (𝑃(le‘𝐾)𝑊 ∧ ¬ 𝑄(le‘𝐾)𝑊)) → 𝑄 ∈ 𝐴)
27		simprr 785	. . . 4 ⊢ ((𝜑 ∧ (𝑃(le‘𝐾)𝑊 ∧ ¬ 𝑄(le‘𝐾)𝑊)) → ¬ 𝑄(le‘𝐾)𝑊)
28	26, 27	jca 521	. . 3 ⊢ ((𝜑 ∧ (𝑃(le‘𝐾)𝑊 ∧ ¬ 𝑄(le‘𝐾)𝑊)) → (𝑄 ∈ 𝐴 ∧ ¬ 𝑄(le‘𝐾)𝑊))
29	19, 1, 2, 3, 4, 5, 6, 7, 20, 25, 28	dihjatc 42474	. 2 ⊢ ((𝜑 ∧ (𝑃(le‘𝐾)𝑊 ∧ ¬ 𝑄(le‘𝐾)𝑊)) → (𝐼‘(𝑃 ∨ 𝑄)) = ((𝐼‘𝑃) ⊕ (𝐼‘𝑄)))
30	8	adantr 486	. . . 4 ⊢ ((𝜑 ∧ (¬ 𝑃(le‘𝐾)𝑊 ∧ 𝑄(le‘𝐾)𝑊)) → (𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻))
31	19, 4	atbase 40346	. . . . . . 7 ⊢ (𝑄 ∈ 𝐴 → 𝑄 ∈ (Base‘𝐾))
32	14, 31	syl 18	. . . . . 6 ⊢ (𝜑 → 𝑄 ∈ (Base‘𝐾))
33	32	adantr 486	. . . . 5 ⊢ ((𝜑 ∧ (¬ 𝑃(le‘𝐾)𝑊 ∧ 𝑄(le‘𝐾)𝑊)) → 𝑄 ∈ (Base‘𝐾))
34		simprr 785	. . . . 5 ⊢ ((𝜑 ∧ (¬ 𝑃(le‘𝐾)𝑊 ∧ 𝑄(le‘𝐾)𝑊)) → 𝑄(le‘𝐾)𝑊)
35	33, 34	jca 521	. . . 4 ⊢ ((𝜑 ∧ (¬ 𝑃(le‘𝐾)𝑊 ∧ 𝑄(le‘𝐾)𝑊)) → (𝑄 ∈ (Base‘𝐾) ∧ 𝑄(le‘𝐾)𝑊))
36	10	adantr 486	. . . . 5 ⊢ ((𝜑 ∧ (¬ 𝑃(le‘𝐾)𝑊 ∧ 𝑄(le‘𝐾)𝑊)) → 𝑃 ∈ 𝐴)
37		simprl 783	. . . . 5 ⊢ ((𝜑 ∧ (¬ 𝑃(le‘𝐾)𝑊 ∧ 𝑄(le‘𝐾)𝑊)) → ¬ 𝑃(le‘𝐾)𝑊)
38	36, 37	jca 521	. . . 4 ⊢ ((𝜑 ∧ (¬ 𝑃(le‘𝐾)𝑊 ∧ 𝑄(le‘𝐾)𝑊)) → (𝑃 ∈ 𝐴 ∧ ¬ 𝑃(le‘𝐾)𝑊))
39	19, 1, 2, 3, 4, 5, 6, 7, 30, 35, 38	dihjatc 42474	. . 3 ⊢ ((𝜑 ∧ (¬ 𝑃(le‘𝐾)𝑊 ∧ 𝑄(le‘𝐾)𝑊)) → (𝐼‘(𝑄 ∨ 𝑃)) = ((𝐼‘𝑄) ⊕ (𝐼‘𝑃)))
40	8	simpld 500	. . . . . 6 ⊢ (𝜑 → 𝐾 ∈ HL)
41	3, 4	hlatjcom 40425	. . . . . 6 ⊢ ((𝐾 ∈ HL ∧ 𝑃 ∈ 𝐴 ∧ 𝑄 ∈ 𝐴) → (𝑃 ∨ 𝑄) = (𝑄 ∨ 𝑃))
42	40, 10, 14, 41	syl3anc 1398	. . . . 5 ⊢ (𝜑 → (𝑃 ∨ 𝑄) = (𝑄 ∨ 𝑃))
43	42	fveq2d 6889	. . . 4 ⊢ (𝜑 → (𝐼‘(𝑃 ∨ 𝑄)) = (𝐼‘(𝑄 ∨ 𝑃)))
44	43	adantr 486	. . 3 ⊢ ((𝜑 ∧ (¬ 𝑃(le‘𝐾)𝑊 ∧ 𝑄(le‘𝐾)𝑊)) → (𝐼‘(𝑃 ∨ 𝑄)) = (𝐼‘(𝑄 ∨ 𝑃)))
45	2, 5, 8	dvhlmod 42167	. . . . . 6 ⊢ (𝜑 → 𝑈 ∈ LMod)
46		lmodabl 21184	. . . . . 6 ⊢ (𝑈 ∈ LMod → 𝑈 ∈ Abel)
47	45, 46	syl 18	. . . . 5 ⊢ (𝜑 → 𝑈 ∈ Abel)
48		eqid 2761	. . . . . . . 8 ⊢ (LSubSp‘𝑈) = (LSubSp‘𝑈)
49	48	lsssssubg 21233	. . . . . . 7 ⊢ (𝑈 ∈ LMod → (LSubSp‘𝑈) ⊆ (SubGrp‘𝑈))
50	45, 49	syl 18	. . . . . 6 ⊢ (𝜑 → (LSubSp‘𝑈) ⊆ (SubGrp‘𝑈))
51	19, 2, 7, 5, 48	dihlss 42307	. . . . . . 7 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝑃 ∈ (Base‘𝐾)) → (𝐼‘𝑃) ∈ (LSubSp‘𝑈))
52	8, 22, 51	syl2anc 596	. . . . . 6 ⊢ (𝜑 → (𝐼‘𝑃) ∈ (LSubSp‘𝑈))
53	50, 52	sseldd 3932	. . . . 5 ⊢ (𝜑 → (𝐼‘𝑃) ∈ (SubGrp‘𝑈))
54	19, 2, 7, 5, 48	dihlss 42307	. . . . . . 7 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝑄 ∈ (Base‘𝐾)) → (𝐼‘𝑄) ∈ (LSubSp‘𝑈))
55	8, 32, 54	syl2anc 596	. . . . . 6 ⊢ (𝜑 → (𝐼‘𝑄) ∈ (LSubSp‘𝑈))
56	50, 55	sseldd 3932	. . . . 5 ⊢ (𝜑 → (𝐼‘𝑄) ∈ (SubGrp‘𝑈))
57	6	lsmcom 20072	. . . . 5 ⊢ ((𝑈 ∈ Abel ∧ (𝐼‘𝑃) ∈ (SubGrp‘𝑈) ∧ (𝐼‘𝑄) ∈ (SubGrp‘𝑈)) → ((𝐼‘𝑃) ⊕ (𝐼‘𝑄)) = ((𝐼‘𝑄) ⊕ (𝐼‘𝑃)))
58	47, 53, 56, 57	syl3anc 1398	. . . 4 ⊢ (𝜑 → ((𝐼‘𝑃) ⊕ (𝐼‘𝑄)) = ((𝐼‘𝑄) ⊕ (𝐼‘𝑃)))
59	58	adantr 486	. . 3 ⊢ ((𝜑 ∧ (¬ 𝑃(le‘𝐾)𝑊 ∧ 𝑄(le‘𝐾)𝑊)) → ((𝐼‘𝑃) ⊕ (𝐼‘𝑄)) = ((𝐼‘𝑄) ⊕ (𝐼‘𝑃)))
60	39, 44, 59	3eqtr4d 2806	. 2 ⊢ ((𝜑 ∧ (¬ 𝑃(le‘𝐾)𝑊 ∧ 𝑄(le‘𝐾)𝑊)) → (𝐼‘(𝑃 ∨ 𝑄)) = ((𝐼‘𝑃) ⊕ (𝐼‘𝑄)))
61	8	adantr 486	. . 3 ⊢ ((𝜑 ∧ (¬ 𝑃(le‘𝐾)𝑊 ∧ ¬ 𝑄(le‘𝐾)𝑊)) → (𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻))
62	10	adantr 486	. . . 4 ⊢ ((𝜑 ∧ (¬ 𝑃(le‘𝐾)𝑊 ∧ ¬ 𝑄(le‘𝐾)𝑊)) → 𝑃 ∈ 𝐴)
63		simprl 783	. . . 4 ⊢ ((𝜑 ∧ (¬ 𝑃(le‘𝐾)𝑊 ∧ ¬ 𝑄(le‘𝐾)𝑊)) → ¬ 𝑃(le‘𝐾)𝑊)
64	62, 63	jca 521	. . 3 ⊢ ((𝜑 ∧ (¬ 𝑃(le‘𝐾)𝑊 ∧ ¬ 𝑄(le‘𝐾)𝑊)) → (𝑃 ∈ 𝐴 ∧ ¬ 𝑃(le‘𝐾)𝑊))
65	14	adantr 486	. . . 4 ⊢ ((𝜑 ∧ (¬ 𝑃(le‘𝐾)𝑊 ∧ ¬ 𝑄(le‘𝐾)𝑊)) → 𝑄 ∈ 𝐴)
66		simprr 785	. . . 4 ⊢ ((𝜑 ∧ (¬ 𝑃(le‘𝐾)𝑊 ∧ ¬ 𝑄(le‘𝐾)𝑊)) → ¬ 𝑄(le‘𝐾)𝑊)
67	65, 66	jca 521	. . 3 ⊢ ((𝜑 ∧ (¬ 𝑃(le‘𝐾)𝑊 ∧ ¬ 𝑄(le‘𝐾)𝑊)) → (𝑄 ∈ 𝐴 ∧ ¬ 𝑄(le‘𝐾)𝑊))
68	1, 2, 3, 4, 5, 6, 7, 61, 64, 67	dihjatcc 42479	. 2 ⊢ ((𝜑 ∧ (¬ 𝑃(le‘𝐾)𝑊 ∧ ¬ 𝑄(le‘𝐾)𝑊)) → (𝐼‘(𝑃 ∨ 𝑄)) = ((𝐼‘𝑃) ⊕ (𝐼‘𝑄)))
69	18, 29, 60, 68	4casesdan 1057	1 ⊢ (𝜑 → (𝐼‘(𝑃 ∨ 𝑄)) = ((𝐼‘𝑃) ⊕ (𝐼‘𝑄)))

Colors of variables: wff setvar class

This proof depends on syntax axioms: ¬ wn 3 → wi 4 ∧ wa 401 = wceq 1570 ∈ wcel 2145 ⊆ wss 3899 class class class wbr 5103 ‘cfv 6538 (class class class)co 7420 Basecbs 17387 lecple 17435 joincjn 18485 SubGrpcsubg 19330 LSSumclsm 19848 Abelcabl 19995 LModclmod 21135 LSubSpclss 21206 Atomscatm 40320 HLchlt 40407 LHypclh 41041 DVecHcdvh 42135 DIsoHcdih 42285

This proof depends on axioms: ax-mp 5 ax-1 6 ax-2 7 ax-3 8 ax-gen 1828 ax-4 1842 ax-5 1943 ax-6 2000 ax-7 2041 ax-8 2147 ax-9 2155 ax-10 2178 ax-11 2194 ax-12 2213 ax-ext 2733 ax-rep 5232 ax-sep 5249 ax-nul 5260 ax-pow 5327 ax-pr 5391 ax-un 7751 ax-cnex 11256 ax-resscn 11257 ax-1cn 11258 ax-icn 11259 ax-addcl 11260 ax-addrcl 11261 ax-mulcl 11262 ax-mulrcl 11263 ax-mulcom 11264 ax-addass 11265 ax-mulass 11266 ax-distr 11267 ax-i2m1 11268 ax-1ne0 11269 ax-1rid 11270 ax-rnegex 11271 ax-rrecex 11272 ax-cnre 11273 ax-pre-lttri 11274 ax-pre-lttrn 11275 ax-pre-ltadd 11276 ax-pre-mulgt0 11277 ax-riotaBAD 40010

This proof depends on definitions: df-bi 210 df-an 402 df-or 862 df-3or 1104 df-3an 1105 df-tru 1573 df-fal 1583 df-ex 1813 df-nf 1817 df-sb 2100 df-mo 2565 df-eu 2595 df-clab 2740 df-cleq 2753 df-clel 2836 df-nfc 2910 df-ne 2957 df-nel 3063 df-ral 3078 df-rex 3088 df-rmo 3366 df-reu 3367 df-rab 3414 df-v 3453 df-sbc 3740 df-csb 3848 df-dif 3902 df-un 3904 df-in 3906 df-ss 3916 df-pss 3919 df-nul 4280 df-if 4483 df-pw 4559 df-sn 4585 df-pr 4587 df-tp 4589 df-op 4591 df-uni 4868 df-int 4908 df-iun 4953 df-iin 4954 df-br 5104 df-opab 5168 df-mpt 5187 df-tr 5213 df-id 5546 df-eprel 5551 df-po 5559 df-so 5560 df-fr 5604 df-we 5606 df-xp 5657 df-rel 5658 df-cnv 5659 df-co 5660 df-dm 5661 df-rn 5662 df-res 5663 df-ima 5664 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-om 7878 df-1st 8001 df-2nd 8002 df-tpos 8243 df-undef 8290 df-frecs 8299 df-wrecs 8330 df-recs 8379 df-rdg 8418 df-1o 8476 df-er 8717 df-map 8849 df-en 8974 df-dom 8975 df-sdom 8976 df-fin 8977 df-pnf 11345 df-mnf 11346 df-xr 11347 df-ltxr 11348 df-le 11349 df-sub 11543 df-neg 11544 df-nn 12336 df-2 12405 df-3 12406 df-4 12407 df-5 12408 df-6 12409 df-n0 12607 df-z 12694 df-uz 12966 df-fz 13640 df-struct 17325 df-sets 17342 df-slot 17360 df-ndx 17372 df-base 17388 df-ress 17409 df-plusg 17441 df-mulr 17442 df-sca 17444 df-vsca 17445 df-0g 17612 df-proset 18468 df-poset 18487 df-plt 18502 df-lub 18518 df-glb 18519 df-join 18520 df-meet 18521 df-p0 18597 df-p1 18598 df-lat 18606 df-clat 18673 df-mgm 18816 df-sgrp 18908 df-mnd 18924 df-submnd 18979 df-grp 19147 df-minusg 19148 df-sbg 19149 df-subg 19333 df-cntz 19531 df-lsm 19850 df-cmn 19996 df-abl 19997 df-mgp 20361 df-rng 20375 df-ur 20408 df-ring 20461 df-oppr 20567 df-dvdsr 20587 df-unit 20588 df-invr 20618 df-dvr 20631 df-drng 20982 df-lmod 21137 df-lss 21207 df-lsp 21247 df-lvec 21378 df-lsatoms 40033 df-oposet 40233 df-ol 40235 df-oml 40236 df-covers 40323 df-ats 40324 df-atl 40355 df-cvlat 40379 df-hlat 40408 df-llines 40555 df-lplanes 40556 df-lvols 40557 df-lines 40558 df-psubsp 40560 df-pmap 40561 df-padd 40853 df-lhyp 41045 df-laut 41046 df-ldil 41161 df-ltrn 41162 df-trl 41216 df-tgrp 41800 df-tendo 41812 df-edring 41814 df-dveca 42060 df-disoa 42086 df-dvech 42136 df-dib 42196 df-dic 42230 df-dih 42286 df-doch 42405 df-djh 42452

This theorem is used by: dihprrnlem2 42482

W3C validator