Theorem 4atlem12a 37179

Description: Lemma for 4at 37182. Substitute 𝑇 for 𝑃. (Contributed by NM, 9-Jul-2012.)

Hypotheses

Ref	Expression
4at.l	⊢ ≤ = (le‘𝐾)
4at.j	⊢ ∨ = (join‘𝐾)
4at.a	⊢ 𝐴 = (Atoms‘𝐾)

Assertion

Ref	Expression
4atlem12a	⊢ (((𝐾 ∈ HL ∧ 𝑃 ∈ 𝐴 ∧ 𝑇 ∈ 𝐴) ∧ (𝑈 ∈ 𝐴 ∧ 𝑉 ∈ 𝐴 ∧ 𝑊 ∈ 𝐴) ∧ ¬ 𝑃 ≤ ((𝑈 ∨ 𝑉) ∨ 𝑊)) → (𝑃 ≤ ((𝑇 ∨ 𝑈) ∨ (𝑉 ∨ 𝑊)) ↔ ((𝑃 ∨ 𝑈) ∨ (𝑉 ∨ 𝑊)) = ((𝑇 ∨ 𝑈) ∨ (𝑉 ∨ 𝑊))))

Proof of Theorem 4atlem12a

Step	Hyp	Ref	Expression
1		simp11 1201	. . 3 ⊢ (((𝐾 ∈ HL ∧ 𝑃 ∈ 𝐴 ∧ 𝑇 ∈ 𝐴) ∧ (𝑈 ∈ 𝐴 ∧ 𝑉 ∈ 𝐴 ∧ 𝑊 ∈ 𝐴) ∧ ¬ 𝑃 ≤ ((𝑈 ∨ 𝑉) ∨ 𝑊)) → 𝐾 ∈ HL)
2		simp12 1202	. . 3 ⊢ (((𝐾 ∈ HL ∧ 𝑃 ∈ 𝐴 ∧ 𝑇 ∈ 𝐴) ∧ (𝑈 ∈ 𝐴 ∧ 𝑉 ∈ 𝐴 ∧ 𝑊 ∈ 𝐴) ∧ ¬ 𝑃 ≤ ((𝑈 ∨ 𝑉) ∨ 𝑊)) → 𝑃 ∈ 𝐴)
3		simp13 1203	. . 3 ⊢ (((𝐾 ∈ HL ∧ 𝑃 ∈ 𝐴 ∧ 𝑇 ∈ 𝐴) ∧ (𝑈 ∈ 𝐴 ∧ 𝑉 ∈ 𝐴 ∧ 𝑊 ∈ 𝐴) ∧ ¬ 𝑃 ≤ ((𝑈 ∨ 𝑉) ∨ 𝑊)) → 𝑇 ∈ 𝐴)
4	1	hllatd 36933	. . . 4 ⊢ (((𝐾 ∈ HL ∧ 𝑃 ∈ 𝐴 ∧ 𝑇 ∈ 𝐴) ∧ (𝑈 ∈ 𝐴 ∧ 𝑉 ∈ 𝐴 ∧ 𝑊 ∈ 𝐴) ∧ ¬ 𝑃 ≤ ((𝑈 ∨ 𝑉) ∨ 𝑊)) → 𝐾 ∈ Lat)
5		simp21 1204	. . . . 5 ⊢ (((𝐾 ∈ HL ∧ 𝑃 ∈ 𝐴 ∧ 𝑇 ∈ 𝐴) ∧ (𝑈 ∈ 𝐴 ∧ 𝑉 ∈ 𝐴 ∧ 𝑊 ∈ 𝐴) ∧ ¬ 𝑃 ≤ ((𝑈 ∨ 𝑉) ∨ 𝑊)) → 𝑈 ∈ 𝐴)
6		simp22 1205	. . . . 5 ⊢ (((𝐾 ∈ HL ∧ 𝑃 ∈ 𝐴 ∧ 𝑇 ∈ 𝐴) ∧ (𝑈 ∈ 𝐴 ∧ 𝑉 ∈ 𝐴 ∧ 𝑊 ∈ 𝐴) ∧ ¬ 𝑃 ≤ ((𝑈 ∨ 𝑉) ∨ 𝑊)) → 𝑉 ∈ 𝐴)
7		eqid 2759	. . . . . 6 ⊢ (Base‘𝐾) = (Base‘𝐾)
8		4at.j	. . . . . 6 ⊢ ∨ = (join‘𝐾)
9		4at.a	. . . . . 6 ⊢ 𝐴 = (Atoms‘𝐾)
10	7, 8, 9	hlatjcl 36936	. . . . 5 ⊢ ((𝐾 ∈ HL ∧ 𝑈 ∈ 𝐴 ∧ 𝑉 ∈ 𝐴) → (𝑈 ∨ 𝑉) ∈ (Base‘𝐾))
11	1, 5, 6, 10	syl3anc 1369	. . . 4 ⊢ (((𝐾 ∈ HL ∧ 𝑃 ∈ 𝐴 ∧ 𝑇 ∈ 𝐴) ∧ (𝑈 ∈ 𝐴 ∧ 𝑉 ∈ 𝐴 ∧ 𝑊 ∈ 𝐴) ∧ ¬ 𝑃 ≤ ((𝑈 ∨ 𝑉) ∨ 𝑊)) → (𝑈 ∨ 𝑉) ∈ (Base‘𝐾))
12		simp23 1206	. . . . 5 ⊢ (((𝐾 ∈ HL ∧ 𝑃 ∈ 𝐴 ∧ 𝑇 ∈ 𝐴) ∧ (𝑈 ∈ 𝐴 ∧ 𝑉 ∈ 𝐴 ∧ 𝑊 ∈ 𝐴) ∧ ¬ 𝑃 ≤ ((𝑈 ∨ 𝑉) ∨ 𝑊)) → 𝑊 ∈ 𝐴)
13	7, 9	atbase 36858	. . . . 5 ⊢ (𝑊 ∈ 𝐴 → 𝑊 ∈ (Base‘𝐾))
14	12, 13	syl 17	. . . 4 ⊢ (((𝐾 ∈ HL ∧ 𝑃 ∈ 𝐴 ∧ 𝑇 ∈ 𝐴) ∧ (𝑈 ∈ 𝐴 ∧ 𝑉 ∈ 𝐴 ∧ 𝑊 ∈ 𝐴) ∧ ¬ 𝑃 ≤ ((𝑈 ∨ 𝑉) ∨ 𝑊)) → 𝑊 ∈ (Base‘𝐾))
15	7, 8	latjcl 17720	. . . 4 ⊢ ((𝐾 ∈ Lat ∧ (𝑈 ∨ 𝑉) ∈ (Base‘𝐾) ∧ 𝑊 ∈ (Base‘𝐾)) → ((𝑈 ∨ 𝑉) ∨ 𝑊) ∈ (Base‘𝐾))
16	4, 11, 14, 15	syl3anc 1369	. . 3 ⊢ (((𝐾 ∈ HL ∧ 𝑃 ∈ 𝐴 ∧ 𝑇 ∈ 𝐴) ∧ (𝑈 ∈ 𝐴 ∧ 𝑉 ∈ 𝐴 ∧ 𝑊 ∈ 𝐴) ∧ ¬ 𝑃 ≤ ((𝑈 ∨ 𝑉) ∨ 𝑊)) → ((𝑈 ∨ 𝑉) ∨ 𝑊) ∈ (Base‘𝐾))
17		simp3 1136	. . 3 ⊢ (((𝐾 ∈ HL ∧ 𝑃 ∈ 𝐴 ∧ 𝑇 ∈ 𝐴) ∧ (𝑈 ∈ 𝐴 ∧ 𝑉 ∈ 𝐴 ∧ 𝑊 ∈ 𝐴) ∧ ¬ 𝑃 ≤ ((𝑈 ∨ 𝑉) ∨ 𝑊)) → ¬ 𝑃 ≤ ((𝑈 ∨ 𝑉) ∨ 𝑊))
18		4at.l	. . . 4 ⊢ ≤ = (le‘𝐾)
19	7, 18, 8, 9	hlexchb2 36954	. . 3 ⊢ ((𝐾 ∈ HL ∧ (𝑃 ∈ 𝐴 ∧ 𝑇 ∈ 𝐴 ∧ ((𝑈 ∨ 𝑉) ∨ 𝑊) ∈ (Base‘𝐾)) ∧ ¬ 𝑃 ≤ ((𝑈 ∨ 𝑉) ∨ 𝑊)) → (𝑃 ≤ (𝑇 ∨ ((𝑈 ∨ 𝑉) ∨ 𝑊)) ↔ (𝑃 ∨ ((𝑈 ∨ 𝑉) ∨ 𝑊)) = (𝑇 ∨ ((𝑈 ∨ 𝑉) ∨ 𝑊))))
20	1, 2, 3, 16, 17, 19	syl131anc 1381	. 2 ⊢ (((𝐾 ∈ HL ∧ 𝑃 ∈ 𝐴 ∧ 𝑇 ∈ 𝐴) ∧ (𝑈 ∈ 𝐴 ∧ 𝑉 ∈ 𝐴 ∧ 𝑊 ∈ 𝐴) ∧ ¬ 𝑃 ≤ ((𝑈 ∨ 𝑉) ∨ 𝑊)) → (𝑃 ≤ (𝑇 ∨ ((𝑈 ∨ 𝑉) ∨ 𝑊)) ↔ (𝑃 ∨ ((𝑈 ∨ 𝑉) ∨ 𝑊)) = (𝑇 ∨ ((𝑈 ∨ 𝑉) ∨ 𝑊))))
21	18, 8, 9	4atlem4a 37168	. . . 4 ⊢ (((𝐾 ∈ HL ∧ 𝑇 ∈ 𝐴 ∧ 𝑈 ∈ 𝐴) ∧ (𝑉 ∈ 𝐴 ∧ 𝑊 ∈ 𝐴)) → ((𝑇 ∨ 𝑈) ∨ (𝑉 ∨ 𝑊)) = (𝑇 ∨ ((𝑈 ∨ 𝑉) ∨ 𝑊)))
22	1, 3, 5, 6, 12, 21	syl32anc 1376	. . 3 ⊢ (((𝐾 ∈ HL ∧ 𝑃 ∈ 𝐴 ∧ 𝑇 ∈ 𝐴) ∧ (𝑈 ∈ 𝐴 ∧ 𝑉 ∈ 𝐴 ∧ 𝑊 ∈ 𝐴) ∧ ¬ 𝑃 ≤ ((𝑈 ∨ 𝑉) ∨ 𝑊)) → ((𝑇 ∨ 𝑈) ∨ (𝑉 ∨ 𝑊)) = (𝑇 ∨ ((𝑈 ∨ 𝑉) ∨ 𝑊)))
23	22	breq2d 5045	. 2 ⊢ (((𝐾 ∈ HL ∧ 𝑃 ∈ 𝐴 ∧ 𝑇 ∈ 𝐴) ∧ (𝑈 ∈ 𝐴 ∧ 𝑉 ∈ 𝐴 ∧ 𝑊 ∈ 𝐴) ∧ ¬ 𝑃 ≤ ((𝑈 ∨ 𝑉) ∨ 𝑊)) → (𝑃 ≤ ((𝑇 ∨ 𝑈) ∨ (𝑉 ∨ 𝑊)) ↔ 𝑃 ≤ (𝑇 ∨ ((𝑈 ∨ 𝑉) ∨ 𝑊))))
24	18, 8, 9	4atlem4a 37168	. . . 4 ⊢ (((𝐾 ∈ HL ∧ 𝑃 ∈ 𝐴 ∧ 𝑈 ∈ 𝐴) ∧ (𝑉 ∈ 𝐴 ∧ 𝑊 ∈ 𝐴)) → ((𝑃 ∨ 𝑈) ∨ (𝑉 ∨ 𝑊)) = (𝑃 ∨ ((𝑈 ∨ 𝑉) ∨ 𝑊)))
25	1, 2, 5, 6, 12, 24	syl32anc 1376	. . 3 ⊢ (((𝐾 ∈ HL ∧ 𝑃 ∈ 𝐴 ∧ 𝑇 ∈ 𝐴) ∧ (𝑈 ∈ 𝐴 ∧ 𝑉 ∈ 𝐴 ∧ 𝑊 ∈ 𝐴) ∧ ¬ 𝑃 ≤ ((𝑈 ∨ 𝑉) ∨ 𝑊)) → ((𝑃 ∨ 𝑈) ∨ (𝑉 ∨ 𝑊)) = (𝑃 ∨ ((𝑈 ∨ 𝑉) ∨ 𝑊)))
26	25, 22	eqeq12d 2775	. 2 ⊢ (((𝐾 ∈ HL ∧ 𝑃 ∈ 𝐴 ∧ 𝑇 ∈ 𝐴) ∧ (𝑈 ∈ 𝐴 ∧ 𝑉 ∈ 𝐴 ∧ 𝑊 ∈ 𝐴) ∧ ¬ 𝑃 ≤ ((𝑈 ∨ 𝑉) ∨ 𝑊)) → (((𝑃 ∨ 𝑈) ∨ (𝑉 ∨ 𝑊)) = ((𝑇 ∨ 𝑈) ∨ (𝑉 ∨ 𝑊)) ↔ (𝑃 ∨ ((𝑈 ∨ 𝑉) ∨ 𝑊)) = (𝑇 ∨ ((𝑈 ∨ 𝑉) ∨ 𝑊))))
27	20, 23, 26	3bitr4d 315	1 ⊢ (((𝐾 ∈ HL ∧ 𝑃 ∈ 𝐴 ∧ 𝑇 ∈ 𝐴) ∧ (𝑈 ∈ 𝐴 ∧ 𝑉 ∈ 𝐴 ∧ 𝑊 ∈ 𝐴) ∧ ¬ 𝑃 ≤ ((𝑈 ∨ 𝑉) ∨ 𝑊)) → (𝑃 ≤ ((𝑇 ∨ 𝑈) ∨ (𝑉 ∨ 𝑊)) ↔ ((𝑃 ∨ 𝑈) ∨ (𝑉 ∨ 𝑊)) = ((𝑇 ∨ 𝑈) ∨ (𝑉 ∨ 𝑊))))

Syntax hints:  ¬ wn 3   → wi 4   ↔ wb 209   ∧ w3a 1085   = wceq 1539   ∈ wcel 2112   class class class wbr 5033  ‘cfv 6336  (class class class)co 7151  Basecbs 16534  lecple 16623  joincjn 17613  Latclat 17714  Atomscatm 36832  HLchlt 36919

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1798  ax-4 1812  ax-5 1912  ax-6 1971  ax-7 2016  ax-8 2114  ax-9 2122  ax-10 2143  ax-11 2159  ax-12 2176  ax-ext 2730  ax-rep 5157  ax-sep 5170  ax-nul 5177  ax-pow 5235  ax-pr 5299  ax-un 7460

This theorem depends on definitions:  df-bi 210  df-an 401  df-or 846  df-3an 1087  df-tru 1542  df-fal 1552  df-ex 1783  df-nf 1787  df-sb 2071  df-mo 2558  df-eu 2589  df-clab 2737  df-cleq 2751  df-clel 2831  df-nfc 2902  df-ne 2953  df-ral 3076  df-rex 3077  df-reu 3078  df-rab 3080  df-v 3412  df-sbc 3698  df-csb 3807  df-dif 3862  df-un 3864  df-in 3866  df-ss 3876  df-nul 4227  df-if 4422  df-pw 4497  df-sn 4524  df-pr 4526  df-op 4530  df-uni 4800  df-iun 4886  df-br 5034  df-opab 5096  df-mpt 5114  df-id 5431  df-xp 5531  df-rel 5532  df-cnv 5533  df-co 5534  df-dm 5535  df-rn 5536  df-res 5537  df-ima 5538  df-iota 6295  df-fun 6338  df-fn 6339  df-f 6340  df-f1 6341  df-fo 6342  df-f1o 6343  df-fv 6344  df-riota 7109  df-ov 7154  df-oprab 7155  df-proset 17597  df-poset 17615  df-lub 17643  df-glb 17644  df-join 17645  df-meet 17646  df-lat 17715  df-ats 36836  df-atl 36867  df-cvlat 36891  df-hlat 36920

This theorem is referenced by:  4atlem12b  37180