Theorem lplni2 36217

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 1130	. . 3 ⊢ ((𝐾 ∈ HL ∧ (𝑄 ∈ 𝐴 ∧ 𝑅 ∈ 𝐴 ∧ 𝑆 ∈ 𝐴) ∧ (𝑄 ≠ 𝑅 ∧ ¬ 𝑆 ≤ (𝑄 ∨ 𝑅))) → (𝑄 ∈ 𝐴 ∧ 𝑅 ∈ 𝐴 ∧ 𝑆 ∈ 𝐴))
2		simp3l 1194	. . 3 ⊢ ((𝐾 ∈ HL ∧ (𝑄 ∈ 𝐴 ∧ 𝑅 ∈ 𝐴 ∧ 𝑆 ∈ 𝐴) ∧ (𝑄 ≠ 𝑅 ∧ ¬ 𝑆 ≤ (𝑄 ∨ 𝑅))) → 𝑄 ≠ 𝑅)
3		simp3r 1195	. . 3 ⊢ ((𝐾 ∈ HL ∧ (𝑄 ∈ 𝐴 ∧ 𝑅 ∈ 𝐴 ∧ 𝑆 ∈ 𝐴) ∧ (𝑄 ≠ 𝑅 ∧ ¬ 𝑆 ≤ (𝑄 ∨ 𝑅))) → ¬ 𝑆 ≤ (𝑄 ∨ 𝑅))
4		eqidd 2795	. . 3 ⊢ ((𝐾 ∈ HL ∧ (𝑄 ∈ 𝐴 ∧ 𝑅 ∈ 𝐴 ∧ 𝑆 ∈ 𝐴) ∧ (𝑄 ≠ 𝑅 ∧ ¬ 𝑆 ≤ (𝑄 ∨ 𝑅))) → ((𝑄 ∨ 𝑅) ∨ 𝑆) = ((𝑄 ∨ 𝑅) ∨ 𝑆))
5		neeq1 3045	. . . . 5 ⊢ (𝑞 = 𝑄 → (𝑞 ≠ 𝑟 ↔ 𝑄 ≠ 𝑟))
6		oveq1 7026	. . . . . . 7 ⊢ (𝑞 = 𝑄 → (𝑞 ∨ 𝑟) = (𝑄 ∨ 𝑟))
7	6	breq2d 4976	. . . . . 6 ⊢ (𝑞 = 𝑄 → (𝑠 ≤ (𝑞 ∨ 𝑟) ↔ 𝑠 ≤ (𝑄 ∨ 𝑟)))
8	7	notbid 319	. . . . 5 ⊢ (𝑞 = 𝑄 → (¬ 𝑠 ≤ (𝑞 ∨ 𝑟) ↔ ¬ 𝑠 ≤ (𝑄 ∨ 𝑟)))
9	6	oveq1d 7034	. . . . . 6 ⊢ (𝑞 = 𝑄 → ((𝑞 ∨ 𝑟) ∨ 𝑠) = ((𝑄 ∨ 𝑟) ∨ 𝑠))
10	9	eqeq2d 2804	. . . . 5 ⊢ (𝑞 = 𝑄 → (((𝑄 ∨ 𝑅) ∨ 𝑆) = ((𝑞 ∨ 𝑟) ∨ 𝑠) ↔ ((𝑄 ∨ 𝑅) ∨ 𝑆) = ((𝑄 ∨ 𝑟) ∨ 𝑠)))
11	5, 8, 10	3anbi123d 1428	. . . 4 ⊢ (𝑞 = 𝑄 → ((𝑞 ≠ 𝑟 ∧ ¬ 𝑠 ≤ (𝑞 ∨ 𝑟) ∧ ((𝑄 ∨ 𝑅) ∨ 𝑆) = ((𝑞 ∨ 𝑟) ∨ 𝑠)) ↔ (𝑄 ≠ 𝑟 ∧ ¬ 𝑠 ≤ (𝑄 ∨ 𝑟) ∧ ((𝑄 ∨ 𝑅) ∨ 𝑆) = ((𝑄 ∨ 𝑟) ∨ 𝑠))))
12		neeq2 3046	. . . . 5 ⊢ (𝑟 = 𝑅 → (𝑄 ≠ 𝑟 ↔ 𝑄 ≠ 𝑅))
13		oveq2 7027	. . . . . . 7 ⊢ (𝑟 = 𝑅 → (𝑄 ∨ 𝑟) = (𝑄 ∨ 𝑅))
14	13	breq2d 4976	. . . . . 6 ⊢ (𝑟 = 𝑅 → (𝑠 ≤ (𝑄 ∨ 𝑟) ↔ 𝑠 ≤ (𝑄 ∨ 𝑅)))
15	14	notbid 319	. . . . 5 ⊢ (𝑟 = 𝑅 → (¬ 𝑠 ≤ (𝑄 ∨ 𝑟) ↔ ¬ 𝑠 ≤ (𝑄 ∨ 𝑅)))
16	13	oveq1d 7034	. . . . . 6 ⊢ (𝑟 = 𝑅 → ((𝑄 ∨ 𝑟) ∨ 𝑠) = ((𝑄 ∨ 𝑅) ∨ 𝑠))
17	16	eqeq2d 2804	. . . . 5 ⊢ (𝑟 = 𝑅 → (((𝑄 ∨ 𝑅) ∨ 𝑆) = ((𝑄 ∨ 𝑟) ∨ 𝑠) ↔ ((𝑄 ∨ 𝑅) ∨ 𝑆) = ((𝑄 ∨ 𝑅) ∨ 𝑠)))
18	12, 15, 17	3anbi123d 1428	. . . 4 ⊢ (𝑟 = 𝑅 → ((𝑄 ≠ 𝑟 ∧ ¬ 𝑠 ≤ (𝑄 ∨ 𝑟) ∧ ((𝑄 ∨ 𝑅) ∨ 𝑆) = ((𝑄 ∨ 𝑟) ∨ 𝑠)) ↔ (𝑄 ≠ 𝑅 ∧ ¬ 𝑠 ≤ (𝑄 ∨ 𝑅) ∧ ((𝑄 ∨ 𝑅) ∨ 𝑆) = ((𝑄 ∨ 𝑅) ∨ 𝑠))))
19		breq1 4967	. . . . . 6 ⊢ (𝑠 = 𝑆 → (𝑠 ≤ (𝑄 ∨ 𝑅) ↔ 𝑆 ≤ (𝑄 ∨ 𝑅)))
20	19	notbid 319	. . . . 5 ⊢ (𝑠 = 𝑆 → (¬ 𝑠 ≤ (𝑄 ∨ 𝑅) ↔ ¬ 𝑆 ≤ (𝑄 ∨ 𝑅)))
21		oveq2 7027	. . . . . 6 ⊢ (𝑠 = 𝑆 → ((𝑄 ∨ 𝑅) ∨ 𝑠) = ((𝑄 ∨ 𝑅) ∨ 𝑆))
22	21	eqeq2d 2804	. . . . 5 ⊢ (𝑠 = 𝑆 → (((𝑄 ∨ 𝑅) ∨ 𝑆) = ((𝑄 ∨ 𝑅) ∨ 𝑠) ↔ ((𝑄 ∨ 𝑅) ∨ 𝑆) = ((𝑄 ∨ 𝑅) ∨ 𝑆)))
23	20, 22	3anbi23d 1431	. . . 4 ⊢ (𝑠 = 𝑆 → ((𝑄 ≠ 𝑅 ∧ ¬ 𝑠 ≤ (𝑄 ∨ 𝑅) ∧ ((𝑄 ∨ 𝑅) ∨ 𝑆) = ((𝑄 ∨ 𝑅) ∨ 𝑠)) ↔ (𝑄 ≠ 𝑅 ∧ ¬ 𝑆 ≤ (𝑄 ∨ 𝑅) ∧ ((𝑄 ∨ 𝑅) ∨ 𝑆) = ((𝑄 ∨ 𝑅) ∨ 𝑆))))
24	11, 18, 23	rspc3ev 3574	. . 3 ⊢ (((𝑄 ∈ 𝐴 ∧ 𝑅 ∈ 𝐴 ∧ 𝑆 ∈ 𝐴) ∧ (𝑄 ≠ 𝑅 ∧ ¬ 𝑆 ≤ (𝑄 ∨ 𝑅) ∧ ((𝑄 ∨ 𝑅) ∨ 𝑆) = ((𝑄 ∨ 𝑅) ∨ 𝑆))) → ∃𝑞 ∈ 𝐴 ∃𝑟 ∈ 𝐴 ∃𝑠 ∈ 𝐴 (𝑞 ≠ 𝑟 ∧ ¬ 𝑠 ≤ (𝑞 ∨ 𝑟) ∧ ((𝑄 ∨ 𝑅) ∨ 𝑆) = ((𝑞 ∨ 𝑟) ∨ 𝑠)))
25	1, 2, 3, 4, 24	syl13anc 1365	. 2 ⊢ ((𝐾 ∈ HL ∧ (𝑄 ∈ 𝐴 ∧ 𝑅 ∈ 𝐴 ∧ 𝑆 ∈ 𝐴) ∧ (𝑄 ≠ 𝑅 ∧ ¬ 𝑆 ≤ (𝑄 ∨ 𝑅))) → ∃𝑞 ∈ 𝐴 ∃𝑟 ∈ 𝐴 ∃𝑠 ∈ 𝐴 (𝑞 ≠ 𝑟 ∧ ¬ 𝑠 ≤ (𝑞 ∨ 𝑟) ∧ ((𝑄 ∨ 𝑅) ∨ 𝑆) = ((𝑞 ∨ 𝑟) ∨ 𝑠)))
26		simp1 1129	. . 3 ⊢ ((𝐾 ∈ HL ∧ (𝑄 ∈ 𝐴 ∧ 𝑅 ∈ 𝐴 ∧ 𝑆 ∈ 𝐴) ∧ (𝑄 ≠ 𝑅 ∧ ¬ 𝑆 ≤ (𝑄 ∨ 𝑅))) → 𝐾 ∈ HL)
27		hllat 36043	. . . . 5 ⊢ (𝐾 ∈ HL → 𝐾 ∈ Lat)
28	27	3ad2ant1 1126	. . . 4 ⊢ ((𝐾 ∈ HL ∧ (𝑄 ∈ 𝐴 ∧ 𝑅 ∈ 𝐴 ∧ 𝑆 ∈ 𝐴) ∧ (𝑄 ≠ 𝑅 ∧ ¬ 𝑆 ≤ (𝑄 ∨ 𝑅))) → 𝐾 ∈ Lat)
29		simp21 1199	. . . . 5 ⊢ ((𝐾 ∈ HL ∧ (𝑄 ∈ 𝐴 ∧ 𝑅 ∈ 𝐴 ∧ 𝑆 ∈ 𝐴) ∧ (𝑄 ≠ 𝑅 ∧ ¬ 𝑆 ≤ (𝑄 ∨ 𝑅))) → 𝑄 ∈ 𝐴)
30		simp22 1200	. . . . 5 ⊢ ((𝐾 ∈ HL ∧ (𝑄 ∈ 𝐴 ∧ 𝑅 ∈ 𝐴 ∧ 𝑆 ∈ 𝐴) ∧ (𝑄 ≠ 𝑅 ∧ ¬ 𝑆 ≤ (𝑄 ∨ 𝑅))) → 𝑅 ∈ 𝐴)
31		eqid 2794	. . . . . 6 ⊢ (Base‘𝐾) = (Base‘𝐾)
32		lplni2.j	. . . . . 6 ⊢ ∨ = (join‘𝐾)
33		lplni2.a	. . . . . 6 ⊢ 𝐴 = (Atoms‘𝐾)
34	31, 32, 33	hlatjcl 36047	. . . . 5 ⊢ ((𝐾 ∈ HL ∧ 𝑄 ∈ 𝐴 ∧ 𝑅 ∈ 𝐴) → (𝑄 ∨ 𝑅) ∈ (Base‘𝐾))
35	26, 29, 30, 34	syl3anc 1364	. . . 4 ⊢ ((𝐾 ∈ HL ∧ (𝑄 ∈ 𝐴 ∧ 𝑅 ∈ 𝐴 ∧ 𝑆 ∈ 𝐴) ∧ (𝑄 ≠ 𝑅 ∧ ¬ 𝑆 ≤ (𝑄 ∨ 𝑅))) → (𝑄 ∨ 𝑅) ∈ (Base‘𝐾))
36		simp23 1201	. . . . 5 ⊢ ((𝐾 ∈ HL ∧ (𝑄 ∈ 𝐴 ∧ 𝑅 ∈ 𝐴 ∧ 𝑆 ∈ 𝐴) ∧ (𝑄 ≠ 𝑅 ∧ ¬ 𝑆 ≤ (𝑄 ∨ 𝑅))) → 𝑆 ∈ 𝐴)
37	31, 33	atbase 35969	. . . . 5 ⊢ (𝑆 ∈ 𝐴 → 𝑆 ∈ (Base‘𝐾))
38	36, 37	syl 17	. . . 4 ⊢ ((𝐾 ∈ HL ∧ (𝑄 ∈ 𝐴 ∧ 𝑅 ∈ 𝐴 ∧ 𝑆 ∈ 𝐴) ∧ (𝑄 ≠ 𝑅 ∧ ¬ 𝑆 ≤ (𝑄 ∨ 𝑅))) → 𝑆 ∈ (Base‘𝐾))
39	31, 32	latjcl 17490	. . . 4 ⊢ ((𝐾 ∈ Lat ∧ (𝑄 ∨ 𝑅) ∈ (Base‘𝐾) ∧ 𝑆 ∈ (Base‘𝐾)) → ((𝑄 ∨ 𝑅) ∨ 𝑆) ∈ (Base‘𝐾))
40	28, 35, 38, 39	syl3anc 1364	. . 3 ⊢ ((𝐾 ∈ HL ∧ (𝑄 ∈ 𝐴 ∧ 𝑅 ∈ 𝐴 ∧ 𝑆 ∈ 𝐴) ∧ (𝑄 ≠ 𝑅 ∧ ¬ 𝑆 ≤ (𝑄 ∨ 𝑅))) → ((𝑄 ∨ 𝑅) ∨ 𝑆) ∈ (Base‘𝐾))
41		lplni2.l	. . . 4 ⊢ ≤ = (le‘𝐾)
42		lplni2.p	. . . 4 ⊢ 𝑃 = (LPlanes‘𝐾)
43	31, 41, 32, 33, 42	islpln5 36215	. . 3 ⊢ ((𝐾 ∈ HL ∧ ((𝑄 ∨ 𝑅) ∨ 𝑆) ∈ (Base‘𝐾)) → (((𝑄 ∨ 𝑅) ∨ 𝑆) ∈ 𝑃 ↔ ∃𝑞 ∈ 𝐴 ∃𝑟 ∈ 𝐴 ∃𝑠 ∈ 𝐴 (𝑞 ≠ 𝑟 ∧ ¬ 𝑠 ≤ (𝑞 ∨ 𝑟) ∧ ((𝑄 ∨ 𝑅) ∨ 𝑆) = ((𝑞 ∨ 𝑟) ∨ 𝑠))))
44	26, 40, 43	syl2anc 584	. 2 ⊢ ((𝐾 ∈ HL ∧ (𝑄 ∈ 𝐴 ∧ 𝑅 ∈ 𝐴 ∧ 𝑆 ∈ 𝐴) ∧ (𝑄 ≠ 𝑅 ∧ ¬ 𝑆 ≤ (𝑄 ∨ 𝑅))) → (((𝑄 ∨ 𝑅) ∨ 𝑆) ∈ 𝑃 ↔ ∃𝑞 ∈ 𝐴 ∃𝑟 ∈ 𝐴 ∃𝑠 ∈ 𝐴 (𝑞 ≠ 𝑟 ∧ ¬ 𝑠 ≤ (𝑞 ∨ 𝑟) ∧ ((𝑄 ∨ 𝑅) ∨ 𝑆) = ((𝑞 ∨ 𝑟) ∨ 𝑠))))
45	25, 44	mpbird 258	1 ⊢ ((𝐾 ∈ HL ∧ (𝑄 ∈ 𝐴 ∧ 𝑅 ∈ 𝐴 ∧ 𝑆 ∈ 𝐴) ∧ (𝑄 ≠ 𝑅 ∧ ¬ 𝑆 ≤ (𝑄 ∨ 𝑅))) → ((𝑄 ∨ 𝑅) ∨ 𝑆) ∈ 𝑃)

Syntax hints:  ¬ wn 3   → wi 4   ↔ wb 207   ∧ wa 396   ∧ w3a 1080   = wceq 1522   ∈ wcel 2080   ≠ wne 2983  ∃wrex 3105   class class class wbr 4964  ‘cfv 6228  (class class class)co 7019  Basecbs 16312  lecple 16401  joincjn 17383  Latclat 17484  Atomscatm 35943  HLchlt 36030  LPlanesclpl 36172

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1778  ax-4 1792  ax-5 1889  ax-6 1948  ax-7 1993  ax-8 2082  ax-9 2090  ax-10 2111  ax-11 2125  ax-12 2140  ax-13 2343  ax-ext 2768  ax-rep 5084  ax-sep 5097  ax-nul 5104  ax-pow 5160  ax-pr 5224  ax-un 7322

This theorem depends on definitions:  df-bi 208  df-an 397  df-or 843  df-3an 1082  df-tru 1525  df-ex 1763  df-nf 1767  df-sb 2042  df-mo 2575  df-eu 2611  df-clab 2775  df-cleq 2787  df-clel 2862  df-nfc 2934  df-ne 2984  df-ral 3109  df-rex 3110  df-reu 3111  df-rab 3113  df-v 3438  df-sbc 3708  df-csb 3814  df-dif 3864  df-un 3866  df-in 3868  df-ss 3876  df-nul 4214  df-if 4384  df-pw 4457  df-sn 4475  df-pr 4477  df-op 4481  df-uni 4748  df-iun 4829  df-br 4965  df-opab 5027  df-mpt 5044  df-id 5351  df-xp 5452  df-rel 5453  df-cnv 5454  df-co 5455  df-dm 5456  df-rn 5457  df-res 5458  df-ima 5459  df-iota 6192  df-fun 6230  df-fn 6231  df-f 6232  df-f1 6233  df-fo 6234  df-f1o 6235  df-fv 6236  df-riota 6980  df-ov 7022  df-oprab 7023  df-proset 17367  df-poset 17385  df-plt 17397  df-lub 17413  df-glb 17414  df-join 17415  df-meet 17416  df-p0 17478  df-lat 17485  df-clat 17547  df-oposet 35856  df-ol 35858  df-oml 35859  df-covers 35946  df-ats 35947  df-atl 35978  df-cvlat 36002  df-hlat 36031  df-llines 36178  df-lplanes 36179

This theorem is referenced by:  islpln2a  36228  2llnjaN  36246  lvolnle3at  36262  dalem42  36394  cdleme16aN  36939