Theorem 4atexlemtlw 38077

Description: Lemma for 4atexlem7 38085. (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 2740	. 2 ⊢ (Base‘𝐾) = (Base‘𝐾)
2		4thatlem0.l	. 2 ⊢ ≤ = (le‘𝐾)
3		4thatlem.ph	. . 3 ⊢ (𝜑 ↔ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑃 ∈ 𝐴 ∧ ¬ 𝑃 ≤ 𝑊) ∧ (𝑄 ∈ 𝐴 ∧ ¬ 𝑄 ≤ 𝑊)) ∧ (𝑆 ∈ 𝐴 ∧ (𝑅 ∈ 𝐴 ∧ ¬ 𝑅 ≤ 𝑊 ∧ (𝑃 ∨ 𝑅) = (𝑄 ∨ 𝑅)) ∧ (𝑇 ∈ 𝐴 ∧ (𝑈 ∨ 𝑇) = (𝑉 ∨ 𝑇))) ∧ (𝑃 ≠ 𝑄 ∧ ¬ 𝑆 ≤ (𝑃 ∨ 𝑄))))
4	3	4atexlemkl 38067	. 2 ⊢ (𝜑 → 𝐾 ∈ Lat)
5	3	4atexlemt 38063	. . 3 ⊢ (𝜑 → 𝑇 ∈ 𝐴)
6		4thatlem0.a	. . . 4 ⊢ 𝐴 = (Atoms‘𝐾)
7	1, 6	atbase 37299	. . 3 ⊢ (𝑇 ∈ 𝐴 → 𝑇 ∈ (Base‘𝐾))
8	5, 7	syl 17	. 2 ⊢ (𝜑 → 𝑇 ∈ (Base‘𝐾))
9	3	4atexlemk 38057	. . 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 38074	. . 3 ⊢ (𝜑 → 𝑈 ∈ 𝐴)
15		4thatlem0.v	. . . 4 ⊢ 𝑉 = ((𝑃 ∨ 𝑆) ∧ 𝑊)
16	3, 2, 10, 11, 6, 12, 13, 15	4atexlemv 38075	. . 3 ⊢ (𝜑 → 𝑉 ∈ 𝐴)
17	1, 10, 6	hlatjcl 37377	. . 3 ⊢ ((𝐾 ∈ HL ∧ 𝑈 ∈ 𝐴 ∧ 𝑉 ∈ 𝐴) → (𝑈 ∨ 𝑉) ∈ (Base‘𝐾))
18	9, 14, 16, 17	syl3anc 1370	. 2 ⊢ (𝜑 → (𝑈 ∨ 𝑉) ∈ (Base‘𝐾))
19	3, 12	4atexlemwb 38069	. 2 ⊢ (𝜑 → 𝑊 ∈ (Base‘𝐾))
20	3	4atexlemkc 38068	. . 3 ⊢ (𝜑 → 𝐾 ∈ CvLat)
21	3, 2, 10, 11, 6, 12, 13, 15	4atexlemunv 38076	. . 3 ⊢ (𝜑 → 𝑈 ≠ 𝑉)
22	3	4atexlemutvt 38064	. . 3 ⊢ (𝜑 → (𝑈 ∨ 𝑇) = (𝑉 ∨ 𝑇))
23	6, 2, 10	cvlsupr4 37355	. . 3 ⊢ ((𝐾 ∈ CvLat ∧ (𝑈 ∈ 𝐴 ∧ 𝑉 ∈ 𝐴 ∧ 𝑇 ∈ 𝐴) ∧ (𝑈 ≠ 𝑉 ∧ (𝑈 ∨ 𝑇) = (𝑉 ∨ 𝑇))) → 𝑇 ≤ (𝑈 ∨ 𝑉))
24	20, 14, 16, 5, 21, 22, 23	syl132anc 1387	. 2 ⊢ (𝜑 → 𝑇 ≤ (𝑈 ∨ 𝑉))
25	3	4atexlemp 38060	. . . . . 6 ⊢ (𝜑 → 𝑃 ∈ 𝐴)
26	3	4atexlemq 38061	. . . . . 6 ⊢ (𝜑 → 𝑄 ∈ 𝐴)
27	1, 10, 6	hlatjcl 37377	. . . . . 6 ⊢ ((𝐾 ∈ HL ∧ 𝑃 ∈ 𝐴 ∧ 𝑄 ∈ 𝐴) → (𝑃 ∨ 𝑄) ∈ (Base‘𝐾))
28	9, 25, 26, 27	syl3anc 1370	. . . . 5 ⊢ (𝜑 → (𝑃 ∨ 𝑄) ∈ (Base‘𝐾))
29	1, 2, 11	latmle2 18181	. . . . 5 ⊢ ((𝐾 ∈ Lat ∧ (𝑃 ∨ 𝑄) ∈ (Base‘𝐾) ∧ 𝑊 ∈ (Base‘𝐾)) → ((𝑃 ∨ 𝑄) ∧ 𝑊) ≤ 𝑊)
30	4, 28, 19, 29	syl3anc 1370	. . . 4 ⊢ (𝜑 → ((𝑃 ∨ 𝑄) ∧ 𝑊) ≤ 𝑊)
31	13, 30	eqbrtrid 5114	. . 3 ⊢ (𝜑 → 𝑈 ≤ 𝑊)
32	3, 10, 6	4atexlempsb 38070	. . . . 5 ⊢ (𝜑 → (𝑃 ∨ 𝑆) ∈ (Base‘𝐾))
33	1, 2, 11	latmle2 18181	. . . . 5 ⊢ ((𝐾 ∈ Lat ∧ (𝑃 ∨ 𝑆) ∈ (Base‘𝐾) ∧ 𝑊 ∈ (Base‘𝐾)) → ((𝑃 ∨ 𝑆) ∧ 𝑊) ≤ 𝑊)
34	4, 32, 19, 33	syl3anc 1370	. . . 4 ⊢ (𝜑 → ((𝑃 ∨ 𝑆) ∧ 𝑊) ≤ 𝑊)
35	15, 34	eqbrtrid 5114	. . 3 ⊢ (𝜑 → 𝑉 ≤ 𝑊)
36	1, 6	atbase 37299	. . . . 5 ⊢ (𝑈 ∈ 𝐴 → 𝑈 ∈ (Base‘𝐾))
37	14, 36	syl 17	. . . 4 ⊢ (𝜑 → 𝑈 ∈ (Base‘𝐾))
38	1, 6	atbase 37299	. . . . 5 ⊢ (𝑉 ∈ 𝐴 → 𝑉 ∈ (Base‘𝐾))
39	16, 38	syl 17	. . . 4 ⊢ (𝜑 → 𝑉 ∈ (Base‘𝐾))
40	1, 2, 10	latjle12 18166	. . . 4 ⊢ ((𝐾 ∈ Lat ∧ (𝑈 ∈ (Base‘𝐾) ∧ 𝑉 ∈ (Base‘𝐾) ∧ 𝑊 ∈ (Base‘𝐾))) → ((𝑈 ≤ 𝑊 ∧ 𝑉 ≤ 𝑊) ↔ (𝑈 ∨ 𝑉) ≤ 𝑊))
41	4, 37, 39, 19, 40	syl13anc 1371	. . 3 ⊢ (𝜑 → ((𝑈 ≤ 𝑊 ∧ 𝑉 ≤ 𝑊) ↔ (𝑈 ∨ 𝑉) ≤ 𝑊))
42	31, 35, 41	mpbi2and 709	. 2 ⊢ (𝜑 → (𝑈 ∨ 𝑉) ≤ 𝑊)
43	1, 2, 4, 8, 18, 19, 24, 42	lattrd 18162	1 ⊢ (𝜑 → 𝑇 ≤ 𝑊)

Syntax hints:  ¬ wn 3   → wi 4   ↔ wb 205   ∧ wa 396   ∧ w3a 1086   = wceq 1542   ∈ wcel 2110   ≠ wne 2945   class class class wbr 5079  ‘cfv 6432  (class class class)co 7271  Basecbs 16910  lecple 16967  joincjn 18027  meetcmee 18028  Latclat 18147  Atomscatm 37273  CvLatclc 37275  HLchlt 37360  LHypclh 37994

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1802  ax-4 1816  ax-5 1917  ax-6 1975  ax-7 2015  ax-8 2112  ax-9 2120  ax-10 2141  ax-11 2158  ax-12 2175  ax-ext 2711  ax-rep 5214  ax-sep 5227  ax-nul 5234  ax-pow 5292  ax-pr 5356  ax-un 7582

This theorem depends on definitions:  df-bi 206  df-an 397  df-or 845  df-3an 1088  df-tru 1545  df-fal 1555  df-ex 1787  df-nf 1791  df-sb 2072  df-mo 2542  df-eu 2571  df-clab 2718  df-cleq 2732  df-clel 2818  df-nfc 2891  df-ne 2946  df-ral 3071  df-rex 3072  df-reu 3073  df-rab 3075  df-v 3433  df-sbc 3721  df-csb 3838  df-dif 3895  df-un 3897  df-in 3899  df-ss 3909  df-nul 4263  df-if 4466  df-pw 4541  df-sn 4568  df-pr 4570  df-op 4574  df-uni 4846  df-iun 4932  df-br 5080  df-opab 5142  df-mpt 5163  df-id 5490  df-xp 5596  df-rel 5597  df-cnv 5598  df-co 5599  df-dm 5600  df-rn 5601  df-res 5602  df-ima 5603  df-iota 6390  df-fun 6434  df-fn 6435  df-f 6436  df-f1 6437  df-fo 6438  df-f1o 6439  df-fv 6440  df-riota 7228  df-ov 7274  df-oprab 7275  df-proset 18011  df-poset 18029  df-plt 18046  df-lub 18062  df-glb 18063  df-join 18064  df-meet 18065  df-p0 18141  df-p1 18142  df-lat 18148  df-clat 18215  df-oposet 37186  df-ol 37188  df-oml 37189  df-covers 37276  df-ats 37277  df-atl 37308  df-cvlat 37332  df-hlat 37361  df-lhyp 37998

This theorem is referenced by:  4atexlemntlpq  38078  4atexlemnclw  38080  4atexlemcnd  38082