Theorem cdleme0cp 37824

Description: Part of proof of Lemma E in [Crawley] p. 113. TODO: Reformat as in cdlemg3a 38207- swap consequent equality; make antecedent use df-3an 1086. (Contributed by NM, 13-Jun-2012.)

Hypotheses

Ref	Expression
cdleme0.l	⊢ ≤ = (le‘𝐾)
cdleme0.j	⊢ ∨ = (join‘𝐾)
cdleme0.m	⊢ ∧ = (meet‘𝐾)
cdleme0.a	⊢ 𝐴 = (Atoms‘𝐾)
cdleme0.h	⊢ 𝐻 = (LHyp‘𝐾)
cdleme0.u	⊢ 𝑈 = ((𝑃 ∨ 𝑄) ∧ 𝑊)

Assertion

Ref	Expression
cdleme0cp	⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ ((𝑃 ∈ 𝐴 ∧ ¬ 𝑃 ≤ 𝑊) ∧ 𝑄 ∈ 𝐴)) → (𝑃 ∨ 𝑈) = (𝑃 ∨ 𝑄))

Proof of Theorem cdleme0cp

Step	Hyp	Ref	Expression
1		cdleme0.u	. . 3 ⊢ 𝑈 = ((𝑃 ∨ 𝑄) ∧ 𝑊)
2	1	oveq2i 7167	. 2 ⊢ (𝑃 ∨ 𝑈) = (𝑃 ∨ ((𝑃 ∨ 𝑄) ∧ 𝑊))
3		simpll 766	. . . 4 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ ((𝑃 ∈ 𝐴 ∧ ¬ 𝑃 ≤ 𝑊) ∧ 𝑄 ∈ 𝐴)) → 𝐾 ∈ HL)
4		simprll 778	. . . 4 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ ((𝑃 ∈ 𝐴 ∧ ¬ 𝑃 ≤ 𝑊) ∧ 𝑄 ∈ 𝐴)) → 𝑃 ∈ 𝐴)
5		hllat 36973	. . . . . 6 ⊢ (𝐾 ∈ HL → 𝐾 ∈ Lat)
6	5	ad2antrr 725	. . . . 5 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ ((𝑃 ∈ 𝐴 ∧ ¬ 𝑃 ≤ 𝑊) ∧ 𝑄 ∈ 𝐴)) → 𝐾 ∈ Lat)
7		eqid 2758	. . . . . . 7 ⊢ (Base‘𝐾) = (Base‘𝐾)
8		cdleme0.a	. . . . . . 7 ⊢ 𝐴 = (Atoms‘𝐾)
9	7, 8	atbase 36899	. . . . . 6 ⊢ (𝑃 ∈ 𝐴 → 𝑃 ∈ (Base‘𝐾))
10	4, 9	syl 17	. . . . 5 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ ((𝑃 ∈ 𝐴 ∧ ¬ 𝑃 ≤ 𝑊) ∧ 𝑄 ∈ 𝐴)) → 𝑃 ∈ (Base‘𝐾))
11		simprr 772	. . . . . 6 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ ((𝑃 ∈ 𝐴 ∧ ¬ 𝑃 ≤ 𝑊) ∧ 𝑄 ∈ 𝐴)) → 𝑄 ∈ 𝐴)
12	7, 8	atbase 36899	. . . . . 6 ⊢ (𝑄 ∈ 𝐴 → 𝑄 ∈ (Base‘𝐾))
13	11, 12	syl 17	. . . . 5 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ ((𝑃 ∈ 𝐴 ∧ ¬ 𝑃 ≤ 𝑊) ∧ 𝑄 ∈ 𝐴)) → 𝑄 ∈ (Base‘𝐾))
14		cdleme0.j	. . . . . 6 ⊢ ∨ = (join‘𝐾)
15	7, 14	latjcl 17740	. . . . 5 ⊢ ((𝐾 ∈ Lat ∧ 𝑃 ∈ (Base‘𝐾) ∧ 𝑄 ∈ (Base‘𝐾)) → (𝑃 ∨ 𝑄) ∈ (Base‘𝐾))
16	6, 10, 13, 15	syl3anc 1368	. . . 4 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ ((𝑃 ∈ 𝐴 ∧ ¬ 𝑃 ≤ 𝑊) ∧ 𝑄 ∈ 𝐴)) → (𝑃 ∨ 𝑄) ∈ (Base‘𝐾))
17		cdleme0.h	. . . . . 6 ⊢ 𝐻 = (LHyp‘𝐾)
18	7, 17	lhpbase 37608	. . . . 5 ⊢ (𝑊 ∈ 𝐻 → 𝑊 ∈ (Base‘𝐾))
19	18	ad2antlr 726	. . . 4 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ ((𝑃 ∈ 𝐴 ∧ ¬ 𝑃 ≤ 𝑊) ∧ 𝑄 ∈ 𝐴)) → 𝑊 ∈ (Base‘𝐾))
20		cdleme0.l	. . . . . 6 ⊢ ≤ = (le‘𝐾)
21	20, 14, 8	hlatlej1 36985	. . . . 5 ⊢ ((𝐾 ∈ HL ∧ 𝑃 ∈ 𝐴 ∧ 𝑄 ∈ 𝐴) → 𝑃 ≤ (𝑃 ∨ 𝑄))
22	3, 4, 11, 21	syl3anc 1368	. . . 4 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ ((𝑃 ∈ 𝐴 ∧ ¬ 𝑃 ≤ 𝑊) ∧ 𝑄 ∈ 𝐴)) → 𝑃 ≤ (𝑃 ∨ 𝑄))
23		cdleme0.m	. . . . 5 ⊢ ∧ = (meet‘𝐾)
24	7, 20, 14, 23, 8	atmod3i1 37474	. . . 4 ⊢ ((𝐾 ∈ HL ∧ (𝑃 ∈ 𝐴 ∧ (𝑃 ∨ 𝑄) ∈ (Base‘𝐾) ∧ 𝑊 ∈ (Base‘𝐾)) ∧ 𝑃 ≤ (𝑃 ∨ 𝑄)) → (𝑃 ∨ ((𝑃 ∨ 𝑄) ∧ 𝑊)) = ((𝑃 ∨ 𝑄) ∧ (𝑃 ∨ 𝑊)))
25	3, 4, 16, 19, 22, 24	syl131anc 1380	. . 3 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ ((𝑃 ∈ 𝐴 ∧ ¬ 𝑃 ≤ 𝑊) ∧ 𝑄 ∈ 𝐴)) → (𝑃 ∨ ((𝑃 ∨ 𝑄) ∧ 𝑊)) = ((𝑃 ∨ 𝑄) ∧ (𝑃 ∨ 𝑊)))
26		eqid 2758	. . . . . 6 ⊢ (1.‘𝐾) = (1.‘𝐾)
27	20, 14, 26, 8, 17	lhpjat2 37631	. . . . 5 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑃 ∈ 𝐴 ∧ ¬ 𝑃 ≤ 𝑊)) → (𝑃 ∨ 𝑊) = (1.‘𝐾))
28	27	adantrr 716	. . . 4 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ ((𝑃 ∈ 𝐴 ∧ ¬ 𝑃 ≤ 𝑊) ∧ 𝑄 ∈ 𝐴)) → (𝑃 ∨ 𝑊) = (1.‘𝐾))
29	28	oveq2d 7172	. . 3 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ ((𝑃 ∈ 𝐴 ∧ ¬ 𝑃 ≤ 𝑊) ∧ 𝑄 ∈ 𝐴)) → ((𝑃 ∨ 𝑄) ∧ (𝑃 ∨ 𝑊)) = ((𝑃 ∨ 𝑄) ∧ (1.‘𝐾)))
30		hlol 36971	. . . . 5 ⊢ (𝐾 ∈ HL → 𝐾 ∈ OL)
31	30	ad2antrr 725	. . . 4 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ ((𝑃 ∈ 𝐴 ∧ ¬ 𝑃 ≤ 𝑊) ∧ 𝑄 ∈ 𝐴)) → 𝐾 ∈ OL)
32	7, 23, 26	olm11 36837	. . . 4 ⊢ ((𝐾 ∈ OL ∧ (𝑃 ∨ 𝑄) ∈ (Base‘𝐾)) → ((𝑃 ∨ 𝑄) ∧ (1.‘𝐾)) = (𝑃 ∨ 𝑄))
33	31, 16, 32	syl2anc 587	. . 3 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ ((𝑃 ∈ 𝐴 ∧ ¬ 𝑃 ≤ 𝑊) ∧ 𝑄 ∈ 𝐴)) → ((𝑃 ∨ 𝑄) ∧ (1.‘𝐾)) = (𝑃 ∨ 𝑄))
34	25, 29, 33	3eqtrd 2797	. 2 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ ((𝑃 ∈ 𝐴 ∧ ¬ 𝑃 ≤ 𝑊) ∧ 𝑄 ∈ 𝐴)) → (𝑃 ∨ ((𝑃 ∨ 𝑄) ∧ 𝑊)) = (𝑃 ∨ 𝑄))
35	2, 34	syl5eq 2805	1 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ ((𝑃 ∈ 𝐴 ∧ ¬ 𝑃 ≤ 𝑊) ∧ 𝑄 ∈ 𝐴)) → (𝑃 ∨ 𝑈) = (𝑃 ∨ 𝑄))

Syntax hints:  ¬ wn 3   → wi 4   ∧ wa 399   = wceq 1538   ∈ wcel 2111   class class class wbr 5036  ‘cfv 6340  (class class class)co 7156  Basecbs 16554  lecple 16643  joincjn 17633  meetcmee 17634  1.cp1 17727  Latclat 17734  OLcol 36784  Atomscatm 36873  HLchlt 36960  LHypclh 37594

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1797  ax-4 1811  ax-5 1911  ax-6 1970  ax-7 2015  ax-8 2113  ax-9 2121  ax-10 2142  ax-11 2158  ax-12 2175  ax-ext 2729  ax-rep 5160  ax-sep 5173  ax-nul 5180  ax-pow 5238  ax-pr 5302  ax-un 7465

This theorem depends on definitions:  df-bi 210  df-an 400  df-or 845  df-3an 1086  df-tru 1541  df-fal 1551  df-ex 1782  df-nf 1786  df-sb 2070  df-mo 2557  df-eu 2588  df-clab 2736  df-cleq 2750  df-clel 2830  df-nfc 2901  df-ne 2952  df-ral 3075  df-rex 3076  df-reu 3077  df-rab 3079  df-v 3411  df-sbc 3699  df-csb 3808  df-dif 3863  df-un 3865  df-in 3867  df-ss 3877  df-nul 4228  df-if 4424  df-pw 4499  df-sn 4526  df-pr 4528  df-op 4532  df-uni 4802  df-iun 4888  df-iin 4889  df-br 5037  df-opab 5099  df-mpt 5117  df-id 5434  df-xp 5534  df-rel 5535  df-cnv 5536  df-co 5537  df-dm 5538  df-rn 5539  df-res 5540  df-ima 5541  df-iota 6299  df-fun 6342  df-fn 6343  df-f 6344  df-f1 6345  df-fo 6346  df-f1o 6347  df-fv 6348  df-riota 7114  df-ov 7159  df-oprab 7160  df-mpo 7161  df-1st 7699  df-2nd 7700  df-proset 17617  df-poset 17635  df-plt 17647  df-lub 17663  df-glb 17664  df-join 17665  df-meet 17666  df-p0 17728  df-p1 17729  df-lat 17735  df-clat 17797  df-oposet 36786  df-ol 36788  df-oml 36789  df-covers 36876  df-ats 36877  df-atl 36908  df-cvlat 36932  df-hlat 36961  df-psubsp 37113  df-pmap 37114  df-padd 37406  df-lhyp 37598

This theorem is referenced by:  cdleme11c  37871  cdlemg4b1  38219  cdlemg4g  38226  cdlemg13a  38261  cdlemg17a  38271  cdlemg17f  38276  cdlemg18b  38289  cdlemg18c  38290