Theorem lplni2 37288

Description: The join of 3 different atoms is a lattice plane. (Contributed by NM, 4-Jul-2012.)

Hypotheses

Ref	Expression
lplni2.l	⊢ ≤ = (le‘𝐾)
lplni2.j	⊢ ∨ = (join‘𝐾)
lplni2.a	⊢ 𝐴 = (Atoms‘𝐾)
lplni2.p	⊢ 𝑃 = (LPlanes‘𝐾)

Assertion

Ref	Expression
lplni2	⊢ ((𝐾 ∈ HL ∧ (𝑄 ∈ 𝐴 ∧ 𝑅 ∈ 𝐴 ∧ 𝑆 ∈ 𝐴) ∧ (𝑄 ≠ 𝑅 ∧ ¬ 𝑆 ≤ (𝑄 ∨ 𝑅))) → ((𝑄 ∨ 𝑅) ∨ 𝑆) ∈ 𝑃)

Proof of Theorem lplni2

Dummy variables 𝑟 𝑞 𝑠 are mutually distinct and distinct from all other variables.

Step	Hyp	Ref	Expression
1		simp2 1139	. . 3 ⊢ ((𝐾 ∈ HL ∧ (𝑄 ∈ 𝐴 ∧ 𝑅 ∈ 𝐴 ∧ 𝑆 ∈ 𝐴) ∧ (𝑄 ≠ 𝑅 ∧ ¬ 𝑆 ≤ (𝑄 ∨ 𝑅))) → (𝑄 ∈ 𝐴 ∧ 𝑅 ∈ 𝐴 ∧ 𝑆 ∈ 𝐴))
2		simp3l 1203	. . 3 ⊢ ((𝐾 ∈ HL ∧ (𝑄 ∈ 𝐴 ∧ 𝑅 ∈ 𝐴 ∧ 𝑆 ∈ 𝐴) ∧ (𝑄 ≠ 𝑅 ∧ ¬ 𝑆 ≤ (𝑄 ∨ 𝑅))) → 𝑄 ≠ 𝑅)
3		simp3r 1204	. . 3 ⊢ ((𝐾 ∈ HL ∧ (𝑄 ∈ 𝐴 ∧ 𝑅 ∈ 𝐴 ∧ 𝑆 ∈ 𝐴) ∧ (𝑄 ≠ 𝑅 ∧ ¬ 𝑆 ≤ (𝑄 ∨ 𝑅))) → ¬ 𝑆 ≤ (𝑄 ∨ 𝑅))
4		eqidd 2738	. . 3 ⊢ ((𝐾 ∈ HL ∧ (𝑄 ∈ 𝐴 ∧ 𝑅 ∈ 𝐴 ∧ 𝑆 ∈ 𝐴) ∧ (𝑄 ≠ 𝑅 ∧ ¬ 𝑆 ≤ (𝑄 ∨ 𝑅))) → ((𝑄 ∨ 𝑅) ∨ 𝑆) = ((𝑄 ∨ 𝑅) ∨ 𝑆))
5		neeq1 3003	. . . . 5 ⊢ (𝑞 = 𝑄 → (𝑞 ≠ 𝑟 ↔ 𝑄 ≠ 𝑟))
6		oveq1 7220	. . . . . . 7 ⊢ (𝑞 = 𝑄 → (𝑞 ∨ 𝑟) = (𝑄 ∨ 𝑟))
7	6	breq2d 5065	. . . . . 6 ⊢ (𝑞 = 𝑄 → (𝑠 ≤ (𝑞 ∨ 𝑟) ↔ 𝑠 ≤ (𝑄 ∨ 𝑟)))
8	7	notbid 321	. . . . 5 ⊢ (𝑞 = 𝑄 → (¬ 𝑠 ≤ (𝑞 ∨ 𝑟) ↔ ¬ 𝑠 ≤ (𝑄 ∨ 𝑟)))
9	6	oveq1d 7228	. . . . . 6 ⊢ (𝑞 = 𝑄 → ((𝑞 ∨ 𝑟) ∨ 𝑠) = ((𝑄 ∨ 𝑟) ∨ 𝑠))
10	9	eqeq2d 2748	. . . . 5 ⊢ (𝑞 = 𝑄 → (((𝑄 ∨ 𝑅) ∨ 𝑆) = ((𝑞 ∨ 𝑟) ∨ 𝑠) ↔ ((𝑄 ∨ 𝑅) ∨ 𝑆) = ((𝑄 ∨ 𝑟) ∨ 𝑠)))
11	5, 8, 10	3anbi123d 1438	. . . 4 ⊢ (𝑞 = 𝑄 → ((𝑞 ≠ 𝑟 ∧ ¬ 𝑠 ≤ (𝑞 ∨ 𝑟) ∧ ((𝑄 ∨ 𝑅) ∨ 𝑆) = ((𝑞 ∨ 𝑟) ∨ 𝑠)) ↔ (𝑄 ≠ 𝑟 ∧ ¬ 𝑠 ≤ (𝑄 ∨ 𝑟) ∧ ((𝑄 ∨ 𝑅) ∨ 𝑆) = ((𝑄 ∨ 𝑟) ∨ 𝑠))))
12		neeq2 3004	. . . . 5 ⊢ (𝑟 = 𝑅 → (𝑄 ≠ 𝑟 ↔ 𝑄 ≠ 𝑅))
13		oveq2 7221	. . . . . . 7 ⊢ (𝑟 = 𝑅 → (𝑄 ∨ 𝑟) = (𝑄 ∨ 𝑅))
14	13	breq2d 5065	. . . . . 6 ⊢ (𝑟 = 𝑅 → (𝑠 ≤ (𝑄 ∨ 𝑟) ↔ 𝑠 ≤ (𝑄 ∨ 𝑅)))
15	14	notbid 321	. . . . 5 ⊢ (𝑟 = 𝑅 → (¬ 𝑠 ≤ (𝑄 ∨ 𝑟) ↔ ¬ 𝑠 ≤ (𝑄 ∨ 𝑅)))
16	13	oveq1d 7228	. . . . . 6 ⊢ (𝑟 = 𝑅 → ((𝑄 ∨ 𝑟) ∨ 𝑠) = ((𝑄 ∨ 𝑅) ∨ 𝑠))
17	16	eqeq2d 2748	. . . . 5 ⊢ (𝑟 = 𝑅 → (((𝑄 ∨ 𝑅) ∨ 𝑆) = ((𝑄 ∨ 𝑟) ∨ 𝑠) ↔ ((𝑄 ∨ 𝑅) ∨ 𝑆) = ((𝑄 ∨ 𝑅) ∨ 𝑠)))
18	12, 15, 17	3anbi123d 1438	. . . 4 ⊢ (𝑟 = 𝑅 → ((𝑄 ≠ 𝑟 ∧ ¬ 𝑠 ≤ (𝑄 ∨ 𝑟) ∧ ((𝑄 ∨ 𝑅) ∨ 𝑆) = ((𝑄 ∨ 𝑟) ∨ 𝑠)) ↔ (𝑄 ≠ 𝑅 ∧ ¬ 𝑠 ≤ (𝑄 ∨ 𝑅) ∧ ((𝑄 ∨ 𝑅) ∨ 𝑆) = ((𝑄 ∨ 𝑅) ∨ 𝑠))))
19		breq1 5056	. . . . . 6 ⊢ (𝑠 = 𝑆 → (𝑠 ≤ (𝑄 ∨ 𝑅) ↔ 𝑆 ≤ (𝑄 ∨ 𝑅)))
20	19	notbid 321	. . . . 5 ⊢ (𝑠 = 𝑆 → (¬ 𝑠 ≤ (𝑄 ∨ 𝑅) ↔ ¬ 𝑆 ≤ (𝑄 ∨ 𝑅)))
21		oveq2 7221	. . . . . 6 ⊢ (𝑠 = 𝑆 → ((𝑄 ∨ 𝑅) ∨ 𝑠) = ((𝑄 ∨ 𝑅) ∨ 𝑆))
22	21	eqeq2d 2748	. . . . 5 ⊢ (𝑠 = 𝑆 → (((𝑄 ∨ 𝑅) ∨ 𝑆) = ((𝑄 ∨ 𝑅) ∨ 𝑠) ↔ ((𝑄 ∨ 𝑅) ∨ 𝑆) = ((𝑄 ∨ 𝑅) ∨ 𝑆)))
23	20, 22	3anbi23d 1441	. . . 4 ⊢ (𝑠 = 𝑆 → ((𝑄 ≠ 𝑅 ∧ ¬ 𝑠 ≤ (𝑄 ∨ 𝑅) ∧ ((𝑄 ∨ 𝑅) ∨ 𝑆) = ((𝑄 ∨ 𝑅) ∨ 𝑠)) ↔ (𝑄 ≠ 𝑅 ∧ ¬ 𝑆 ≤ (𝑄 ∨ 𝑅) ∧ ((𝑄 ∨ 𝑅) ∨ 𝑆) = ((𝑄 ∨ 𝑅) ∨ 𝑆))))
24	11, 18, 23	rspc3ev 3551	. . 3 ⊢ (((𝑄 ∈ 𝐴 ∧ 𝑅 ∈ 𝐴 ∧ 𝑆 ∈ 𝐴) ∧ (𝑄 ≠ 𝑅 ∧ ¬ 𝑆 ≤ (𝑄 ∨ 𝑅) ∧ ((𝑄 ∨ 𝑅) ∨ 𝑆) = ((𝑄 ∨ 𝑅) ∨ 𝑆))) → ∃𝑞 ∈ 𝐴 ∃𝑟 ∈ 𝐴 ∃𝑠 ∈ 𝐴 (𝑞 ≠ 𝑟 ∧ ¬ 𝑠 ≤ (𝑞 ∨ 𝑟) ∧ ((𝑄 ∨ 𝑅) ∨ 𝑆) = ((𝑞 ∨ 𝑟) ∨ 𝑠)))
25	1, 2, 3, 4, 24	syl13anc 1374	. 2 ⊢ ((𝐾 ∈ HL ∧ (𝑄 ∈ 𝐴 ∧ 𝑅 ∈ 𝐴 ∧ 𝑆 ∈ 𝐴) ∧ (𝑄 ≠ 𝑅 ∧ ¬ 𝑆 ≤ (𝑄 ∨ 𝑅))) → ∃𝑞 ∈ 𝐴 ∃𝑟 ∈ 𝐴 ∃𝑠 ∈ 𝐴 (𝑞 ≠ 𝑟 ∧ ¬ 𝑠 ≤ (𝑞 ∨ 𝑟) ∧ ((𝑄 ∨ 𝑅) ∨ 𝑆) = ((𝑞 ∨ 𝑟) ∨ 𝑠)))
26		simp1 1138	. . 3 ⊢ ((𝐾 ∈ HL ∧ (𝑄 ∈ 𝐴 ∧ 𝑅 ∈ 𝐴 ∧ 𝑆 ∈ 𝐴) ∧ (𝑄 ≠ 𝑅 ∧ ¬ 𝑆 ≤ (𝑄 ∨ 𝑅))) → 𝐾 ∈ HL)
27		hllat 37114	. . . . 5 ⊢ (𝐾 ∈ HL → 𝐾 ∈ Lat)
28	27	3ad2ant1 1135	. . . 4 ⊢ ((𝐾 ∈ HL ∧ (𝑄 ∈ 𝐴 ∧ 𝑅 ∈ 𝐴 ∧ 𝑆 ∈ 𝐴) ∧ (𝑄 ≠ 𝑅 ∧ ¬ 𝑆 ≤ (𝑄 ∨ 𝑅))) → 𝐾 ∈ Lat)
29		simp21 1208	. . . . 5 ⊢ ((𝐾 ∈ HL ∧ (𝑄 ∈ 𝐴 ∧ 𝑅 ∈ 𝐴 ∧ 𝑆 ∈ 𝐴) ∧ (𝑄 ≠ 𝑅 ∧ ¬ 𝑆 ≤ (𝑄 ∨ 𝑅))) → 𝑄 ∈ 𝐴)
30		simp22 1209	. . . . 5 ⊢ ((𝐾 ∈ HL ∧ (𝑄 ∈ 𝐴 ∧ 𝑅 ∈ 𝐴 ∧ 𝑆 ∈ 𝐴) ∧ (𝑄 ≠ 𝑅 ∧ ¬ 𝑆 ≤ (𝑄 ∨ 𝑅))) → 𝑅 ∈ 𝐴)
31		eqid 2737	. . . . . 6 ⊢ (Base‘𝐾) = (Base‘𝐾)
32		lplni2.j	. . . . . 6 ⊢ ∨ = (join‘𝐾)
33		lplni2.a	. . . . . 6 ⊢ 𝐴 = (Atoms‘𝐾)
34	31, 32, 33	hlatjcl 37118	. . . . 5 ⊢ ((𝐾 ∈ HL ∧ 𝑄 ∈ 𝐴 ∧ 𝑅 ∈ 𝐴) → (𝑄 ∨ 𝑅) ∈ (Base‘𝐾))
35	26, 29, 30, 34	syl3anc 1373	. . . 4 ⊢ ((𝐾 ∈ HL ∧ (𝑄 ∈ 𝐴 ∧ 𝑅 ∈ 𝐴 ∧ 𝑆 ∈ 𝐴) ∧ (𝑄 ≠ 𝑅 ∧ ¬ 𝑆 ≤ (𝑄 ∨ 𝑅))) → (𝑄 ∨ 𝑅) ∈ (Base‘𝐾))
36		simp23 1210	. . . . 5 ⊢ ((𝐾 ∈ HL ∧ (𝑄 ∈ 𝐴 ∧ 𝑅 ∈ 𝐴 ∧ 𝑆 ∈ 𝐴) ∧ (𝑄 ≠ 𝑅 ∧ ¬ 𝑆 ≤ (𝑄 ∨ 𝑅))) → 𝑆 ∈ 𝐴)
37	31, 33	atbase 37040	. . . . 5 ⊢ (𝑆 ∈ 𝐴 → 𝑆 ∈ (Base‘𝐾))
38	36, 37	syl 17	. . . 4 ⊢ ((𝐾 ∈ HL ∧ (𝑄 ∈ 𝐴 ∧ 𝑅 ∈ 𝐴 ∧ 𝑆 ∈ 𝐴) ∧ (𝑄 ≠ 𝑅 ∧ ¬ 𝑆 ≤ (𝑄 ∨ 𝑅))) → 𝑆 ∈ (Base‘𝐾))
39	31, 32	latjcl 17945	. . . 4 ⊢ ((𝐾 ∈ Lat ∧ (𝑄 ∨ 𝑅) ∈ (Base‘𝐾) ∧ 𝑆 ∈ (Base‘𝐾)) → ((𝑄 ∨ 𝑅) ∨ 𝑆) ∈ (Base‘𝐾))
40	28, 35, 38, 39	syl3anc 1373	. . 3 ⊢ ((𝐾 ∈ HL ∧ (𝑄 ∈ 𝐴 ∧ 𝑅 ∈ 𝐴 ∧ 𝑆 ∈ 𝐴) ∧ (𝑄 ≠ 𝑅 ∧ ¬ 𝑆 ≤ (𝑄 ∨ 𝑅))) → ((𝑄 ∨ 𝑅) ∨ 𝑆) ∈ (Base‘𝐾))
41		lplni2.l	. . . 4 ⊢ ≤ = (le‘𝐾)
42		lplni2.p	. . . 4 ⊢ 𝑃 = (LPlanes‘𝐾)
43	31, 41, 32, 33, 42	islpln5 37286	. . 3 ⊢ ((𝐾 ∈ HL ∧ ((𝑄 ∨ 𝑅) ∨ 𝑆) ∈ (Base‘𝐾)) → (((𝑄 ∨ 𝑅) ∨ 𝑆) ∈ 𝑃 ↔ ∃𝑞 ∈ 𝐴 ∃𝑟 ∈ 𝐴 ∃𝑠 ∈ 𝐴 (𝑞 ≠ 𝑟 ∧ ¬ 𝑠 ≤ (𝑞 ∨ 𝑟) ∧ ((𝑄 ∨ 𝑅) ∨ 𝑆) = ((𝑞 ∨ 𝑟) ∨ 𝑠))))
44	26, 40, 43	syl2anc 587	. 2 ⊢ ((𝐾 ∈ HL ∧ (𝑄 ∈ 𝐴 ∧ 𝑅 ∈ 𝐴 ∧ 𝑆 ∈ 𝐴) ∧ (𝑄 ≠ 𝑅 ∧ ¬ 𝑆 ≤ (𝑄 ∨ 𝑅))) → (((𝑄 ∨ 𝑅) ∨ 𝑆) ∈ 𝑃 ↔ ∃𝑞 ∈ 𝐴 ∃𝑟 ∈ 𝐴 ∃𝑠 ∈ 𝐴 (𝑞 ≠ 𝑟 ∧ ¬ 𝑠 ≤ (𝑞 ∨ 𝑟) ∧ ((𝑄 ∨ 𝑅) ∨ 𝑆) = ((𝑞 ∨ 𝑟) ∨ 𝑠))))
45	25, 44	mpbird 260	1 ⊢ ((𝐾 ∈ HL ∧ (𝑄 ∈ 𝐴 ∧ 𝑅 ∈ 𝐴 ∧ 𝑆 ∈ 𝐴) ∧ (𝑄 ≠ 𝑅 ∧ ¬ 𝑆 ≤ (𝑄 ∨ 𝑅))) → ((𝑄 ∨ 𝑅) ∨ 𝑆) ∈ 𝑃)

Syntax hints:  ¬ wn 3   → wi 4   ↔ wb 209   ∧ wa 399   ∧ w3a 1089   = wceq 1543   ∈ wcel 2110   ≠ wne 2940  ∃wrex 3062   class class class wbr 5053  ‘cfv 6380  (class class class)co 7213  Basecbs 16760  lecple 16809  joincjn 17818  Latclat 17937  Atomscatm 37014  HLchlt 37101  LPlanesclpl 37243

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1803  ax-4 1817  ax-5 1918  ax-6 1976  ax-7 2016  ax-8 2112  ax-9 2120  ax-10 2141  ax-11 2158  ax-12 2175  ax-ext 2708  ax-rep 5179  ax-sep 5192  ax-nul 5199  ax-pow 5258  ax-pr 5322  ax-un 7523

This theorem depends on definitions:  df-bi 210  df-an 400  df-or 848  df-3an 1091  df-tru 1546  df-fal 1556  df-ex 1788  df-nf 1792  df-sb 2071  df-mo 2539  df-eu 2568  df-clab 2715  df-cleq 2729  df-clel 2816  df-nfc 2886  df-ne 2941  df-ral 3066  df-rex 3067  df-reu 3068  df-rab 3070  df-v 3410  df-sbc 3695  df-csb 3812  df-dif 3869  df-un 3871  df-in 3873  df-ss 3883  df-nul 4238  df-if 4440  df-pw 4515  df-sn 4542  df-pr 4544  df-op 4548  df-uni 4820  df-iun 4906  df-br 5054  df-opab 5116  df-mpt 5136  df-id 5455  df-xp 5557  df-rel 5558  df-cnv 5559  df-co 5560  df-dm 5561  df-rn 5562  df-res 5563  df-ima 5564  df-iota 6338  df-fun 6382  df-fn 6383  df-f 6384  df-f1 6385  df-fo 6386  df-f1o 6387  df-fv 6388  df-riota 7170  df-ov 7216  df-oprab 7217  df-proset 17802  df-poset 17820  df-plt 17836  df-lub 17852  df-glb 17853  df-join 17854  df-meet 17855  df-p0 17931  df-lat 17938  df-clat 18005  df-oposet 36927  df-ol 36929  df-oml 36930  df-covers 37017  df-ats 37018  df-atl 37049  df-cvlat 37073  df-hlat 37102  df-llines 37249  df-lplanes 37250

This theorem is referenced by:  islpln2a  37299  2llnjaN  37317  lvolnle3at  37333  dalem42  37465  cdleme16aN  38010