Theorem 4atexlemtlw 36645

Description: Lemma for 4atexlem7 36653. (Contributed by NM, 24-Nov-2012.)

Hypotheses

Ref	Expression
4thatlem.ph	⊢ (𝜑 ↔ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑃 ∈ 𝐴 ∧ ¬ 𝑃 ≤ 𝑊) ∧ (𝑄 ∈ 𝐴 ∧ ¬ 𝑄 ≤ 𝑊)) ∧ (𝑆 ∈ 𝐴 ∧ (𝑅 ∈ 𝐴 ∧ ¬ 𝑅 ≤ 𝑊 ∧ (𝑃 ∨ 𝑅) = (𝑄 ∨ 𝑅)) ∧ (𝑇 ∈ 𝐴 ∧ (𝑈 ∨ 𝑇) = (𝑉 ∨ 𝑇))) ∧ (𝑃 ≠ 𝑄 ∧ ¬ 𝑆 ≤ (𝑃 ∨ 𝑄))))
4thatlem0.l	⊢ ≤ = (le‘𝐾)
4thatlem0.j	⊢ ∨ = (join‘𝐾)
4thatlem0.m	⊢ ∧ = (meet‘𝐾)
4thatlem0.a	⊢ 𝐴 = (Atoms‘𝐾)
4thatlem0.h	⊢ 𝐻 = (LHyp‘𝐾)
4thatlem0.u	⊢ 𝑈 = ((𝑃 ∨ 𝑄) ∧ 𝑊)
4thatlem0.v	⊢ 𝑉 = ((𝑃 ∨ 𝑆) ∧ 𝑊)

Assertion

Ref	Expression
4atexlemtlw	⊢ (𝜑 → 𝑇 ≤ 𝑊)

Proof of Theorem 4atexlemtlw

Step	Hyp	Ref	Expression
1		eqid 2779	. 2 ⊢ (Base‘𝐾) = (Base‘𝐾)
2		4thatlem0.l	. 2 ⊢ ≤ = (le‘𝐾)
3		4thatlem.ph	. . 3 ⊢ (𝜑 ↔ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑃 ∈ 𝐴 ∧ ¬ 𝑃 ≤ 𝑊) ∧ (𝑄 ∈ 𝐴 ∧ ¬ 𝑄 ≤ 𝑊)) ∧ (𝑆 ∈ 𝐴 ∧ (𝑅 ∈ 𝐴 ∧ ¬ 𝑅 ≤ 𝑊 ∧ (𝑃 ∨ 𝑅) = (𝑄 ∨ 𝑅)) ∧ (𝑇 ∈ 𝐴 ∧ (𝑈 ∨ 𝑇) = (𝑉 ∨ 𝑇))) ∧ (𝑃 ≠ 𝑄 ∧ ¬ 𝑆 ≤ (𝑃 ∨ 𝑄))))
4	3	4atexlemkl 36635	. 2 ⊢ (𝜑 → 𝐾 ∈ Lat)
5	3	4atexlemt 36631	. . 3 ⊢ (𝜑 → 𝑇 ∈ 𝐴)
6		4thatlem0.a	. . . 4 ⊢ 𝐴 = (Atoms‘𝐾)
7	1, 6	atbase 35867	. . 3 ⊢ (𝑇 ∈ 𝐴 → 𝑇 ∈ (Base‘𝐾))
8	5, 7	syl 17	. 2 ⊢ (𝜑 → 𝑇 ∈ (Base‘𝐾))
9	3	4atexlemk 36625	. . 3 ⊢ (𝜑 → 𝐾 ∈ HL)
10		4thatlem0.j	. . . 4 ⊢ ∨ = (join‘𝐾)
11		4thatlem0.m	. . . 4 ⊢ ∧ = (meet‘𝐾)
12		4thatlem0.h	. . . 4 ⊢ 𝐻 = (LHyp‘𝐾)
13		4thatlem0.u	. . . 4 ⊢ 𝑈 = ((𝑃 ∨ 𝑄) ∧ 𝑊)
14	3, 2, 10, 11, 6, 12, 13	4atexlemu 36642	. . 3 ⊢ (𝜑 → 𝑈 ∈ 𝐴)
15		4thatlem0.v	. . . 4 ⊢ 𝑉 = ((𝑃 ∨ 𝑆) ∧ 𝑊)
16	3, 2, 10, 11, 6, 12, 13, 15	4atexlemv 36643	. . 3 ⊢ (𝜑 → 𝑉 ∈ 𝐴)
17	1, 10, 6	hlatjcl 35945	. . 3 ⊢ ((𝐾 ∈ HL ∧ 𝑈 ∈ 𝐴 ∧ 𝑉 ∈ 𝐴) → (𝑈 ∨ 𝑉) ∈ (Base‘𝐾))
18	9, 14, 16, 17	syl3anc 1351	. 2 ⊢ (𝜑 → (𝑈 ∨ 𝑉) ∈ (Base‘𝐾))
19	3, 12	4atexlemwb 36637	. 2 ⊢ (𝜑 → 𝑊 ∈ (Base‘𝐾))
20	3	4atexlemkc 36636	. . 3 ⊢ (𝜑 → 𝐾 ∈ CvLat)
21	3, 2, 10, 11, 6, 12, 13, 15	4atexlemunv 36644	. . 3 ⊢ (𝜑 → 𝑈 ≠ 𝑉)
22	3	4atexlemutvt 36632	. . 3 ⊢ (𝜑 → (𝑈 ∨ 𝑇) = (𝑉 ∨ 𝑇))
23	6, 2, 10	cvlsupr4 35923	. . 3 ⊢ ((𝐾 ∈ CvLat ∧ (𝑈 ∈ 𝐴 ∧ 𝑉 ∈ 𝐴 ∧ 𝑇 ∈ 𝐴) ∧ (𝑈 ≠ 𝑉 ∧ (𝑈 ∨ 𝑇) = (𝑉 ∨ 𝑇))) → 𝑇 ≤ (𝑈 ∨ 𝑉))
24	20, 14, 16, 5, 21, 22, 23	syl132anc 1368	. 2 ⊢ (𝜑 → 𝑇 ≤ (𝑈 ∨ 𝑉))
25	3	4atexlemp 36628	. . . . . 6 ⊢ (𝜑 → 𝑃 ∈ 𝐴)
26	3	4atexlemq 36629	. . . . . 6 ⊢ (𝜑 → 𝑄 ∈ 𝐴)
27	1, 10, 6	hlatjcl 35945	. . . . . 6 ⊢ ((𝐾 ∈ HL ∧ 𝑃 ∈ 𝐴 ∧ 𝑄 ∈ 𝐴) → (𝑃 ∨ 𝑄) ∈ (Base‘𝐾))
28	9, 25, 26, 27	syl3anc 1351	. . . . 5 ⊢ (𝜑 → (𝑃 ∨ 𝑄) ∈ (Base‘𝐾))
29	1, 2, 11	latmle2 17545	. . . . 5 ⊢ ((𝐾 ∈ Lat ∧ (𝑃 ∨ 𝑄) ∈ (Base‘𝐾) ∧ 𝑊 ∈ (Base‘𝐾)) → ((𝑃 ∨ 𝑄) ∧ 𝑊) ≤ 𝑊)
30	4, 28, 19, 29	syl3anc 1351	. . . 4 ⊢ (𝜑 → ((𝑃 ∨ 𝑄) ∧ 𝑊) ≤ 𝑊)
31	13, 30	syl5eqbr 4964	. . 3 ⊢ (𝜑 → 𝑈 ≤ 𝑊)
32	3, 10, 6	4atexlempsb 36638	. . . . 5 ⊢ (𝜑 → (𝑃 ∨ 𝑆) ∈ (Base‘𝐾))
33	1, 2, 11	latmle2 17545	. . . . 5 ⊢ ((𝐾 ∈ Lat ∧ (𝑃 ∨ 𝑆) ∈ (Base‘𝐾) ∧ 𝑊 ∈ (Base‘𝐾)) → ((𝑃 ∨ 𝑆) ∧ 𝑊) ≤ 𝑊)
34	4, 32, 19, 33	syl3anc 1351	. . . 4 ⊢ (𝜑 → ((𝑃 ∨ 𝑆) ∧ 𝑊) ≤ 𝑊)
35	15, 34	syl5eqbr 4964	. . 3 ⊢ (𝜑 → 𝑉 ≤ 𝑊)
36	1, 6	atbase 35867	. . . . 5 ⊢ (𝑈 ∈ 𝐴 → 𝑈 ∈ (Base‘𝐾))
37	14, 36	syl 17	. . . 4 ⊢ (𝜑 → 𝑈 ∈ (Base‘𝐾))
38	1, 6	atbase 35867	. . . . 5 ⊢ (𝑉 ∈ 𝐴 → 𝑉 ∈ (Base‘𝐾))
39	16, 38	syl 17	. . . 4 ⊢ (𝜑 → 𝑉 ∈ (Base‘𝐾))
40	1, 2, 10	latjle12 17530	. . . 4 ⊢ ((𝐾 ∈ Lat ∧ (𝑈 ∈ (Base‘𝐾) ∧ 𝑉 ∈ (Base‘𝐾) ∧ 𝑊 ∈ (Base‘𝐾))) → ((𝑈 ≤ 𝑊 ∧ 𝑉 ≤ 𝑊) ↔ (𝑈 ∨ 𝑉) ≤ 𝑊))
41	4, 37, 39, 19, 40	syl13anc 1352	. . 3 ⊢ (𝜑 → ((𝑈 ≤ 𝑊 ∧ 𝑉 ≤ 𝑊) ↔ (𝑈 ∨ 𝑉) ≤ 𝑊))
42	31, 35, 41	mpbi2and 699	. 2 ⊢ (𝜑 → (𝑈 ∨ 𝑉) ≤ 𝑊)
43	1, 2, 4, 8, 18, 19, 24, 42	lattrd 17526	1 ⊢ (𝜑 → 𝑇 ≤ 𝑊)

Syntax hints:  ¬ wn 3   → wi 4   ↔ wb 198   ∧ wa 387   ∧ w3a 1068   = wceq 1507   ∈ wcel 2050   ≠ wne 2968   class class class wbr 4929  ‘cfv 6188  (class class class)co 6976  Basecbs 16339  lecple 16428  joincjn 17412  meetcmee 17413  Latclat 17513  Atomscatm 35841  CvLatclc 35843  HLchlt 35928  LHypclh 36562

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1758  ax-4 1772  ax-5 1869  ax-6 1928  ax-7 1965  ax-8 2052  ax-9 2059  ax-10 2079  ax-11 2093  ax-12 2106  ax-13 2301  ax-ext 2751  ax-rep 5049  ax-sep 5060  ax-nul 5067  ax-pow 5119  ax-pr 5186  ax-un 7279

This theorem depends on definitions:  df-bi 199  df-an 388  df-or 834  df-3an 1070  df-tru 1510  df-ex 1743  df-nf 1747  df-sb 2016  df-mo 2547  df-eu 2584  df-clab 2760  df-cleq 2772  df-clel 2847  df-nfc 2919  df-ne 2969  df-ral 3094  df-rex 3095  df-reu 3096  df-rab 3098  df-v 3418  df-sbc 3683  df-csb 3788  df-dif 3833  df-un 3835  df-in 3837  df-ss 3844  df-nul 4180  df-if 4351  df-pw 4424  df-sn 4442  df-pr 4444  df-op 4448  df-uni 4713  df-iun 4794  df-br 4930  df-opab 4992  df-mpt 5009  df-id 5312  df-xp 5413  df-rel 5414  df-cnv 5415  df-co 5416  df-dm 5417  df-rn 5418  df-res 5419  df-ima 5420  df-iota 6152  df-fun 6190  df-fn 6191  df-f 6192  df-f1 6193  df-fo 6194  df-f1o 6195  df-fv 6196  df-riota 6937  df-ov 6979  df-oprab 6980  df-proset 17396  df-poset 17414  df-plt 17426  df-lub 17442  df-glb 17443  df-join 17444  df-meet 17445  df-p0 17507  df-p1 17508  df-lat 17514  df-clat 17576  df-oposet 35754  df-ol 35756  df-oml 35757  df-covers 35844  df-ats 35845  df-atl 35876  df-cvlat 35900  df-hlat 35929  df-lhyp 36566

This theorem is referenced by:  4atexlemntlpq  36646  4atexlemnclw  36648  4atexlemcnd  36650