Theorem lplncvrlvol2 40107

Description: A lattice line under a lattice plane is covered by it. (Contributed by NM, 12-Jul-2012.)

Hypotheses

Ref	Expression
lplncvrlvol2.l	⊢ ≤ = (le‘𝐾)
lplncvrlvol2.c	⊢ 𝐶 = ( ⋖ ‘𝐾)
lplncvrlvol2.p	⊢ 𝑃 = (LPlanes‘𝐾)
lplncvrlvol2.v	⊢ 𝑉 = (LVols‘𝐾)

Assertion

Ref	Expression
lplncvrlvol2	⊢ (((𝐾 ∈ HL ∧ 𝑋 ∈ 𝑃 ∧ 𝑌 ∈ 𝑉) ∧ 𝑋 ≤ 𝑌) → 𝑋𝐶𝑌)

Proof of Theorem lplncvrlvol2

Dummy variables 𝑞 𝑝 𝑟 𝑠 𝑡 𝑢 𝑣 𝑤 are mutually distinct and distinct from all other variables.

Step	Hyp	Ref	Expression
1		simpr 485	. . 3 ⊢ (((𝐾 ∈ HL ∧ 𝑋 ∈ 𝑃 ∧ 𝑌 ∈ 𝑉) ∧ 𝑋 ≤ 𝑌) → 𝑋 ≤ 𝑌)
2		simpl1 1198	. . . . 5 ⊢ (((𝐾 ∈ HL ∧ 𝑋 ∈ 𝑃 ∧ 𝑌 ∈ 𝑉) ∧ 𝑋 ≤ 𝑌) → 𝐾 ∈ HL)
3		simpl3 1200	. . . . 5 ⊢ (((𝐾 ∈ HL ∧ 𝑋 ∈ 𝑃 ∧ 𝑌 ∈ 𝑉) ∧ 𝑋 ≤ 𝑌) → 𝑌 ∈ 𝑉)
4		lplncvrlvol2.p	. . . . . 6 ⊢ 𝑃 = (LPlanes‘𝐾)
5		lplncvrlvol2.v	. . . . . 6 ⊢ 𝑉 = (LVols‘𝐾)
6	4, 5	lvolnelpln 40082	. . . . 5 ⊢ ((𝐾 ∈ HL ∧ 𝑌 ∈ 𝑉) → ¬ 𝑌 ∈ 𝑃)
7	2, 3, 6	syl2anc 590	. . . 4 ⊢ (((𝐾 ∈ HL ∧ 𝑋 ∈ 𝑃 ∧ 𝑌 ∈ 𝑉) ∧ 𝑋 ≤ 𝑌) → ¬ 𝑌 ∈ 𝑃)
8		simpl2 1199	. . . . . 6 ⊢ (((𝐾 ∈ HL ∧ 𝑋 ∈ 𝑃 ∧ 𝑌 ∈ 𝑉) ∧ 𝑋 ≤ 𝑌) → 𝑋 ∈ 𝑃)
9		eleq1 2827	. . . . . 6 ⊢ (𝑋 = 𝑌 → (𝑋 ∈ 𝑃 ↔ 𝑌 ∈ 𝑃))
10	8, 9	syl5ibcom 246	. . . . 5 ⊢ (((𝐾 ∈ HL ∧ 𝑋 ∈ 𝑃 ∧ 𝑌 ∈ 𝑉) ∧ 𝑋 ≤ 𝑌) → (𝑋 = 𝑌 → 𝑌 ∈ 𝑃))
11	10	necon3bd 2948	. . . 4 ⊢ (((𝐾 ∈ HL ∧ 𝑋 ∈ 𝑃 ∧ 𝑌 ∈ 𝑉) ∧ 𝑋 ≤ 𝑌) → (¬ 𝑌 ∈ 𝑃 → 𝑋 ≠ 𝑌))
12	7, 11	mpd 15	. . 3 ⊢ (((𝐾 ∈ HL ∧ 𝑋 ∈ 𝑃 ∧ 𝑌 ∈ 𝑉) ∧ 𝑋 ≤ 𝑌) → 𝑋 ≠ 𝑌)
13		lplncvrlvol2.l	. . . . 5 ⊢ ≤ = (le‘𝐾)
14		eqid 2739	. . . . 5 ⊢ (lt‘𝐾) = (lt‘𝐾)
15	13, 14	pltval 18287	. . . 4 ⊢ ((𝐾 ∈ HL ∧ 𝑋 ∈ 𝑃 ∧ 𝑌 ∈ 𝑉) → (𝑋(lt‘𝐾)𝑌 ↔ (𝑋 ≤ 𝑌 ∧ 𝑋 ≠ 𝑌)))
16	15	adantr 481	. . 3 ⊢ (((𝐾 ∈ HL ∧ 𝑋 ∈ 𝑃 ∧ 𝑌 ∈ 𝑉) ∧ 𝑋 ≤ 𝑌) → (𝑋(lt‘𝐾)𝑌 ↔ (𝑋 ≤ 𝑌 ∧ 𝑋 ≠ 𝑌)))
17	1, 12, 16	mpbir2and 719	. 2 ⊢ (((𝐾 ∈ HL ∧ 𝑋 ∈ 𝑃 ∧ 𝑌 ∈ 𝑉) ∧ 𝑋 ≤ 𝑌) → 𝑋(lt‘𝐾)𝑌)
18		simpl1 1198	. . . 4 ⊢ (((𝐾 ∈ HL ∧ 𝑋 ∈ 𝑃 ∧ 𝑌 ∈ 𝑉) ∧ 𝑋(lt‘𝐾)𝑌) → 𝐾 ∈ HL)
19		simpl2 1199	. . . . 5 ⊢ (((𝐾 ∈ HL ∧ 𝑋 ∈ 𝑃 ∧ 𝑌 ∈ 𝑉) ∧ 𝑋(lt‘𝐾)𝑌) → 𝑋 ∈ 𝑃)
20		eqid 2739	. . . . . 6 ⊢ (Base‘𝐾) = (Base‘𝐾)
21	20, 4	lplnbase 40026	. . . . 5 ⊢ (𝑋 ∈ 𝑃 → 𝑋 ∈ (Base‘𝐾))
22	19, 21	syl 17	. . . 4 ⊢ (((𝐾 ∈ HL ∧ 𝑋 ∈ 𝑃 ∧ 𝑌 ∈ 𝑉) ∧ 𝑋(lt‘𝐾)𝑌) → 𝑋 ∈ (Base‘𝐾))
23		simpl3 1200	. . . . 5 ⊢ (((𝐾 ∈ HL ∧ 𝑋 ∈ 𝑃 ∧ 𝑌 ∈ 𝑉) ∧ 𝑋(lt‘𝐾)𝑌) → 𝑌 ∈ 𝑉)
24	20, 5	lvolbase 40070	. . . . 5 ⊢ (𝑌 ∈ 𝑉 → 𝑌 ∈ (Base‘𝐾))
25	23, 24	syl 17	. . . 4 ⊢ (((𝐾 ∈ HL ∧ 𝑋 ∈ 𝑃 ∧ 𝑌 ∈ 𝑉) ∧ 𝑋(lt‘𝐾)𝑌) → 𝑌 ∈ (Base‘𝐾))
26		simpr 485	. . . 4 ⊢ (((𝐾 ∈ HL ∧ 𝑋 ∈ 𝑃 ∧ 𝑌 ∈ 𝑉) ∧ 𝑋(lt‘𝐾)𝑌) → 𝑋(lt‘𝐾)𝑌)
27		eqid 2739	. . . . 5 ⊢ (join‘𝐾) = (join‘𝐾)
28		lplncvrlvol2.c	. . . . 5 ⊢ 𝐶 = ( ⋖ ‘𝐾)
29		eqid 2739	. . . . 5 ⊢ (Atoms‘𝐾) = (Atoms‘𝐾)
30	20, 13, 14, 27, 28, 29	hlrelat3 39904	. . . 4 ⊢ (((𝐾 ∈ HL ∧ 𝑋 ∈ (Base‘𝐾) ∧ 𝑌 ∈ (Base‘𝐾)) ∧ 𝑋(lt‘𝐾)𝑌) → ∃𝑠 ∈ (Atoms‘𝐾)(𝑋𝐶(𝑋(join‘𝐾)𝑠) ∧ (𝑋(join‘𝐾)𝑠) ≤ 𝑌))
31	18, 22, 25, 26, 30	syl31anc 1381	. . 3 ⊢ (((𝐾 ∈ HL ∧ 𝑋 ∈ 𝑃 ∧ 𝑌 ∈ 𝑉) ∧ 𝑋(lt‘𝐾)𝑌) → ∃𝑠 ∈ (Atoms‘𝐾)(𝑋𝐶(𝑋(join‘𝐾)𝑠) ∧ (𝑋(join‘𝐾)𝑠) ≤ 𝑌))
32	20, 13, 27, 29, 5	islvol2 40072	. . . . . . . 8 ⊢ (𝐾 ∈ HL → (𝑌 ∈ 𝑉 ↔ (𝑌 ∈ (Base‘𝐾) ∧ ∃𝑡 ∈ (Atoms‘𝐾)∃𝑢 ∈ (Atoms‘𝐾)∃𝑣 ∈ (Atoms‘𝐾)∃𝑤 ∈ (Atoms‘𝐾)((𝑡 ≠ 𝑢 ∧ ¬ 𝑣 ≤ (𝑡(join‘𝐾)𝑢) ∧ ¬ 𝑤 ≤ ((𝑡(join‘𝐾)𝑢)(join‘𝐾)𝑣)) ∧ 𝑌 = (((𝑡(join‘𝐾)𝑢)(join‘𝐾)𝑣)(join‘𝐾)𝑤)))))
33	32	adantr 481	. . . . . . 7 ⊢ ((𝐾 ∈ HL ∧ 𝑋 ∈ 𝑃) → (𝑌 ∈ 𝑉 ↔ (𝑌 ∈ (Base‘𝐾) ∧ ∃𝑡 ∈ (Atoms‘𝐾)∃𝑢 ∈ (Atoms‘𝐾)∃𝑣 ∈ (Atoms‘𝐾)∃𝑤 ∈ (Atoms‘𝐾)((𝑡 ≠ 𝑢 ∧ ¬ 𝑣 ≤ (𝑡(join‘𝐾)𝑢) ∧ ¬ 𝑤 ≤ ((𝑡(join‘𝐾)𝑢)(join‘𝐾)𝑣)) ∧ 𝑌 = (((𝑡(join‘𝐾)𝑢)(join‘𝐾)𝑣)(join‘𝐾)𝑤)))))
34		simpr 485	. . . . . . . . . . 11 ⊢ (((𝑡 ≠ 𝑢 ∧ ¬ 𝑣 ≤ (𝑡(join‘𝐾)𝑢) ∧ ¬ 𝑤 ≤ ((𝑡(join‘𝐾)𝑢)(join‘𝐾)𝑣)) ∧ 𝑌 = (((𝑡(join‘𝐾)𝑢)(join‘𝐾)𝑣)(join‘𝐾)𝑤)) → 𝑌 = (((𝑡(join‘𝐾)𝑢)(join‘𝐾)𝑣)(join‘𝐾)𝑤))
35	20, 13, 27, 29, 4	islpln2 40028	. . . . . . . . . . . . 13 ⊢ (𝐾 ∈ HL → (𝑋 ∈ 𝑃 ↔ (𝑋 ∈ (Base‘𝐾) ∧ ∃𝑝 ∈ (Atoms‘𝐾)∃𝑞 ∈ (Atoms‘𝐾)∃𝑟 ∈ (Atoms‘𝐾)(𝑝 ≠ 𝑞 ∧ ¬ 𝑟 ≤ (𝑝(join‘𝐾)𝑞) ∧ 𝑋 = ((𝑝(join‘𝐾)𝑞)(join‘𝐾)𝑟)))))
36		simp3rl 1253	. . . . . . . . . . . . . . . . . . . . 21 ⊢ ((((𝐾 ∈ HL ∧ 𝑝 ∈ (Atoms‘𝐾) ∧ 𝑞 ∈ (Atoms‘𝐾)) ∧ 𝑟 ∈ (Atoms‘𝐾) ∧ (𝑝 ≠ 𝑞 ∧ ¬ 𝑟 ≤ (𝑝(join‘𝐾)𝑞) ∧ 𝑋 = ((𝑝(join‘𝐾)𝑞)(join‘𝐾)𝑟))) ∧ ((𝑡 ∈ (Atoms‘𝐾) ∧ 𝑢 ∈ (Atoms‘𝐾)) ∧ (𝑣 ∈ (Atoms‘𝐾) ∧ 𝑤 ∈ (Atoms‘𝐾)) ∧ 𝑌 = (((𝑡(join‘𝐾)𝑢)(join‘𝐾)𝑣)(join‘𝐾)𝑤)) ∧ (𝑠 ∈ (Atoms‘𝐾) ∧ (𝑋𝐶(𝑋(join‘𝐾)𝑠) ∧ (𝑋(join‘𝐾)𝑠) ≤ 𝑌))) → 𝑋𝐶(𝑋(join‘𝐾)𝑠))
37		simp3rr 1254	. . . . . . . . . . . . . . . . . . . . . . . 24 ⊢ ((((𝐾 ∈ HL ∧ 𝑝 ∈ (Atoms‘𝐾) ∧ 𝑞 ∈ (Atoms‘𝐾)) ∧ 𝑟 ∈ (Atoms‘𝐾) ∧ (𝑝 ≠ 𝑞 ∧ ¬ 𝑟 ≤ (𝑝(join‘𝐾)𝑞) ∧ 𝑋 = ((𝑝(join‘𝐾)𝑞)(join‘𝐾)𝑟))) ∧ ((𝑡 ∈ (Atoms‘𝐾) ∧ 𝑢 ∈ (Atoms‘𝐾)) ∧ (𝑣 ∈ (Atoms‘𝐾) ∧ 𝑤 ∈ (Atoms‘𝐾)) ∧ 𝑌 = (((𝑡(join‘𝐾)𝑢)(join‘𝐾)𝑣)(join‘𝐾)𝑤)) ∧ (𝑠 ∈ (Atoms‘𝐾) ∧ (𝑋𝐶(𝑋(join‘𝐾)𝑠) ∧ (𝑋(join‘𝐾)𝑠) ≤ 𝑌))) → (𝑋(join‘𝐾)𝑠) ≤ 𝑌)
38		simp133 1317	. . . . . . . . . . . . . . . . . . . . . . . . 25 ⊢ ((((𝐾 ∈ HL ∧ 𝑝 ∈ (Atoms‘𝐾) ∧ 𝑞 ∈ (Atoms‘𝐾)) ∧ 𝑟 ∈ (Atoms‘𝐾) ∧ (𝑝 ≠ 𝑞 ∧ ¬ 𝑟 ≤ (𝑝(join‘𝐾)𝑞) ∧ 𝑋 = ((𝑝(join‘𝐾)𝑞)(join‘𝐾)𝑟))) ∧ ((𝑡 ∈ (Atoms‘𝐾) ∧ 𝑢 ∈ (Atoms‘𝐾)) ∧ (𝑣 ∈ (Atoms‘𝐾) ∧ 𝑤 ∈ (Atoms‘𝐾)) ∧ 𝑌 = (((𝑡(join‘𝐾)𝑢)(join‘𝐾)𝑣)(join‘𝐾)𝑤)) ∧ (𝑠 ∈ (Atoms‘𝐾) ∧ (𝑋𝐶(𝑋(join‘𝐾)𝑠) ∧ (𝑋(join‘𝐾)𝑠) ≤ 𝑌))) → 𝑋 = ((𝑝(join‘𝐾)𝑞)(join‘𝐾)𝑟))
39	38	oveq1d 7371	. . . . . . . . . . . . . . . . . . . . . . . 24 ⊢ ((((𝐾 ∈ HL ∧ 𝑝 ∈ (Atoms‘𝐾) ∧ 𝑞 ∈ (Atoms‘𝐾)) ∧ 𝑟 ∈ (Atoms‘𝐾) ∧ (𝑝 ≠ 𝑞 ∧ ¬ 𝑟 ≤ (𝑝(join‘𝐾)𝑞) ∧ 𝑋 = ((𝑝(join‘𝐾)𝑞)(join‘𝐾)𝑟))) ∧ ((𝑡 ∈ (Atoms‘𝐾) ∧ 𝑢 ∈ (Atoms‘𝐾)) ∧ (𝑣 ∈ (Atoms‘𝐾) ∧ 𝑤 ∈ (Atoms‘𝐾)) ∧ 𝑌 = (((𝑡(join‘𝐾)𝑢)(join‘𝐾)𝑣)(join‘𝐾)𝑤)) ∧ (𝑠 ∈ (Atoms‘𝐾) ∧ (𝑋𝐶(𝑋(join‘𝐾)𝑠) ∧ (𝑋(join‘𝐾)𝑠) ≤ 𝑌))) → (𝑋(join‘𝐾)𝑠) = (((𝑝(join‘𝐾)𝑞)(join‘𝐾)𝑟)(join‘𝐾)𝑠))
40		simp23 1215	. . . . . . . . . . . . . . . . . . . . . . . 24 ⊢ ((((𝐾 ∈ HL ∧ 𝑝 ∈ (Atoms‘𝐾) ∧ 𝑞 ∈ (Atoms‘𝐾)) ∧ 𝑟 ∈ (Atoms‘𝐾) ∧ (𝑝 ≠ 𝑞 ∧ ¬ 𝑟 ≤ (𝑝(join‘𝐾)𝑞) ∧ 𝑋 = ((𝑝(join‘𝐾)𝑞)(join‘𝐾)𝑟))) ∧ ((𝑡 ∈ (Atoms‘𝐾) ∧ 𝑢 ∈ (Atoms‘𝐾)) ∧ (𝑣 ∈ (Atoms‘𝐾) ∧ 𝑤 ∈ (Atoms‘𝐾)) ∧ 𝑌 = (((𝑡(join‘𝐾)𝑢)(join‘𝐾)𝑣)(join‘𝐾)𝑤)) ∧ (𝑠 ∈ (Atoms‘𝐾) ∧ (𝑋𝐶(𝑋(join‘𝐾)𝑠) ∧ (𝑋(join‘𝐾)𝑠) ≤ 𝑌))) → 𝑌 = (((𝑡(join‘𝐾)𝑢)(join‘𝐾)𝑣)(join‘𝐾)𝑤))
41	37, 39, 40	3brtr3d 5103	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ ((((𝐾 ∈ HL ∧ 𝑝 ∈ (Atoms‘𝐾) ∧ 𝑞 ∈ (Atoms‘𝐾)) ∧ 𝑟 ∈ (Atoms‘𝐾) ∧ (𝑝 ≠ 𝑞 ∧ ¬ 𝑟 ≤ (𝑝(join‘𝐾)𝑞) ∧ 𝑋 = ((𝑝(join‘𝐾)𝑞)(join‘𝐾)𝑟))) ∧ ((𝑡 ∈ (Atoms‘𝐾) ∧ 𝑢 ∈ (Atoms‘𝐾)) ∧ (𝑣 ∈ (Atoms‘𝐾) ∧ 𝑤 ∈ (Atoms‘𝐾)) ∧ 𝑌 = (((𝑡(join‘𝐾)𝑢)(join‘𝐾)𝑣)(join‘𝐾)𝑤)) ∧ (𝑠 ∈ (Atoms‘𝐾) ∧ (𝑋𝐶(𝑋(join‘𝐾)𝑠) ∧ (𝑋(join‘𝐾)𝑠) ≤ 𝑌))) → (((𝑝(join‘𝐾)𝑞)(join‘𝐾)𝑟)(join‘𝐾)𝑠) ≤ (((𝑡(join‘𝐾)𝑢)(join‘𝐾)𝑣)(join‘𝐾)𝑤))
42		simp11 1210	. . . . . . . . . . . . . . . . . . . . . . . 24 ⊢ ((((𝐾 ∈ HL ∧ 𝑝 ∈ (Atoms‘𝐾) ∧ 𝑞 ∈ (Atoms‘𝐾)) ∧ 𝑟 ∈ (Atoms‘𝐾) ∧ (𝑝 ≠ 𝑞 ∧ ¬ 𝑟 ≤ (𝑝(join‘𝐾)𝑞) ∧ 𝑋 = ((𝑝(join‘𝐾)𝑞)(join‘𝐾)𝑟))) ∧ ((𝑡 ∈ (Atoms‘𝐾) ∧ 𝑢 ∈ (Atoms‘𝐾)) ∧ (𝑣 ∈ (Atoms‘𝐾) ∧ 𝑤 ∈ (Atoms‘𝐾)) ∧ 𝑌 = (((𝑡(join‘𝐾)𝑢)(join‘𝐾)𝑣)(join‘𝐾)𝑤)) ∧ (𝑠 ∈ (Atoms‘𝐾) ∧ (𝑋𝐶(𝑋(join‘𝐾)𝑠) ∧ (𝑋(join‘𝐾)𝑠) ≤ 𝑌))) → (𝐾 ∈ HL ∧ 𝑝 ∈ (Atoms‘𝐾) ∧ 𝑞 ∈ (Atoms‘𝐾)))
43		simp12 1211	. . . . . . . . . . . . . . . . . . . . . . . . 25 ⊢ ((((𝐾 ∈ HL ∧ 𝑝 ∈ (Atoms‘𝐾) ∧ 𝑞 ∈ (Atoms‘𝐾)) ∧ 𝑟 ∈ (Atoms‘𝐾) ∧ (𝑝 ≠ 𝑞 ∧ ¬ 𝑟 ≤ (𝑝(join‘𝐾)𝑞) ∧ 𝑋 = ((𝑝(join‘𝐾)𝑞)(join‘𝐾)𝑟))) ∧ ((𝑡 ∈ (Atoms‘𝐾) ∧ 𝑢 ∈ (Atoms‘𝐾)) ∧ (𝑣 ∈ (Atoms‘𝐾) ∧ 𝑤 ∈ (Atoms‘𝐾)) ∧ 𝑌 = (((𝑡(join‘𝐾)𝑢)(join‘𝐾)𝑣)(join‘𝐾)𝑤)) ∧ (𝑠 ∈ (Atoms‘𝐾) ∧ (𝑋𝐶(𝑋(join‘𝐾)𝑠) ∧ (𝑋(join‘𝐾)𝑠) ≤ 𝑌))) → 𝑟 ∈ (Atoms‘𝐾))
44		simp3l 1208	. . . . . . . . . . . . . . . . . . . . . . . . 25 ⊢ ((((𝐾 ∈ HL ∧ 𝑝 ∈ (Atoms‘𝐾) ∧ 𝑞 ∈ (Atoms‘𝐾)) ∧ 𝑟 ∈ (Atoms‘𝐾) ∧ (𝑝 ≠ 𝑞 ∧ ¬ 𝑟 ≤ (𝑝(join‘𝐾)𝑞) ∧ 𝑋 = ((𝑝(join‘𝐾)𝑞)(join‘𝐾)𝑟))) ∧ ((𝑡 ∈ (Atoms‘𝐾) ∧ 𝑢 ∈ (Atoms‘𝐾)) ∧ (𝑣 ∈ (Atoms‘𝐾) ∧ 𝑤 ∈ (Atoms‘𝐾)) ∧ 𝑌 = (((𝑡(join‘𝐾)𝑢)(join‘𝐾)𝑣)(join‘𝐾)𝑤)) ∧ (𝑠 ∈ (Atoms‘𝐾) ∧ (𝑋𝐶(𝑋(join‘𝐾)𝑠) ∧ (𝑋(join‘𝐾)𝑠) ≤ 𝑌))) → 𝑠 ∈ (Atoms‘𝐾))
45		simp21l 1297	. . . . . . . . . . . . . . . . . . . . . . . . 25 ⊢ ((((𝐾 ∈ HL ∧ 𝑝 ∈ (Atoms‘𝐾) ∧ 𝑞 ∈ (Atoms‘𝐾)) ∧ 𝑟 ∈ (Atoms‘𝐾) ∧ (𝑝 ≠ 𝑞 ∧ ¬ 𝑟 ≤ (𝑝(join‘𝐾)𝑞) ∧ 𝑋 = ((𝑝(join‘𝐾)𝑞)(join‘𝐾)𝑟))) ∧ ((𝑡 ∈ (Atoms‘𝐾) ∧ 𝑢 ∈ (Atoms‘𝐾)) ∧ (𝑣 ∈ (Atoms‘𝐾) ∧ 𝑤 ∈ (Atoms‘𝐾)) ∧ 𝑌 = (((𝑡(join‘𝐾)𝑢)(join‘𝐾)𝑣)(join‘𝐾)𝑤)) ∧ (𝑠 ∈ (Atoms‘𝐾) ∧ (𝑋𝐶(𝑋(join‘𝐾)𝑠) ∧ (𝑋(join‘𝐾)𝑠) ≤ 𝑌))) → 𝑡 ∈ (Atoms‘𝐾))
46	43, 44, 45	3jca 1134	. . . . . . . . . . . . . . . . . . . . . . . 24 ⊢ ((((𝐾 ∈ HL ∧ 𝑝 ∈ (Atoms‘𝐾) ∧ 𝑞 ∈ (Atoms‘𝐾)) ∧ 𝑟 ∈ (Atoms‘𝐾) ∧ (𝑝 ≠ 𝑞 ∧ ¬ 𝑟 ≤ (𝑝(join‘𝐾)𝑞) ∧ 𝑋 = ((𝑝(join‘𝐾)𝑞)(join‘𝐾)𝑟))) ∧ ((𝑡 ∈ (Atoms‘𝐾) ∧ 𝑢 ∈ (Atoms‘𝐾)) ∧ (𝑣 ∈ (Atoms‘𝐾) ∧ 𝑤 ∈ (Atoms‘𝐾)) ∧ 𝑌 = (((𝑡(join‘𝐾)𝑢)(join‘𝐾)𝑣)(join‘𝐾)𝑤)) ∧ (𝑠 ∈ (Atoms‘𝐾) ∧ (𝑋𝐶(𝑋(join‘𝐾)𝑠) ∧ (𝑋(join‘𝐾)𝑠) ≤ 𝑌))) → (𝑟 ∈ (Atoms‘𝐾) ∧ 𝑠 ∈ (Atoms‘𝐾) ∧ 𝑡 ∈ (Atoms‘𝐾)))
47		simp21r 1298	. . . . . . . . . . . . . . . . . . . . . . . . 25 ⊢ ((((𝐾 ∈ HL ∧ 𝑝 ∈ (Atoms‘𝐾) ∧ 𝑞 ∈ (Atoms‘𝐾)) ∧ 𝑟 ∈ (Atoms‘𝐾) ∧ (𝑝 ≠ 𝑞 ∧ ¬ 𝑟 ≤ (𝑝(join‘𝐾)𝑞) ∧ 𝑋 = ((𝑝(join‘𝐾)𝑞)(join‘𝐾)𝑟))) ∧ ((𝑡 ∈ (Atoms‘𝐾) ∧ 𝑢 ∈ (Atoms‘𝐾)) ∧ (𝑣 ∈ (Atoms‘𝐾) ∧ 𝑤 ∈ (Atoms‘𝐾)) ∧ 𝑌 = (((𝑡(join‘𝐾)𝑢)(join‘𝐾)𝑣)(join‘𝐾)𝑤)) ∧ (𝑠 ∈ (Atoms‘𝐾) ∧ (𝑋𝐶(𝑋(join‘𝐾)𝑠) ∧ (𝑋(join‘𝐾)𝑠) ≤ 𝑌))) → 𝑢 ∈ (Atoms‘𝐾))
48		simp22l 1299	. . . . . . . . . . . . . . . . . . . . . . . . 25 ⊢ ((((𝐾 ∈ HL ∧ 𝑝 ∈ (Atoms‘𝐾) ∧ 𝑞 ∈ (Atoms‘𝐾)) ∧ 𝑟 ∈ (Atoms‘𝐾) ∧ (𝑝 ≠ 𝑞 ∧ ¬ 𝑟 ≤ (𝑝(join‘𝐾)𝑞) ∧ 𝑋 = ((𝑝(join‘𝐾)𝑞)(join‘𝐾)𝑟))) ∧ ((𝑡 ∈ (Atoms‘𝐾) ∧ 𝑢 ∈ (Atoms‘𝐾)) ∧ (𝑣 ∈ (Atoms‘𝐾) ∧ 𝑤 ∈ (Atoms‘𝐾)) ∧ 𝑌 = (((𝑡(join‘𝐾)𝑢)(join‘𝐾)𝑣)(join‘𝐾)𝑤)) ∧ (𝑠 ∈ (Atoms‘𝐾) ∧ (𝑋𝐶(𝑋(join‘𝐾)𝑠) ∧ (𝑋(join‘𝐾)𝑠) ≤ 𝑌))) → 𝑣 ∈ (Atoms‘𝐾))
49		simp22r 1300	. . . . . . . . . . . . . . . . . . . . . . . . 25 ⊢ ((((𝐾 ∈ HL ∧ 𝑝 ∈ (Atoms‘𝐾) ∧ 𝑞 ∈ (Atoms‘𝐾)) ∧ 𝑟 ∈ (Atoms‘𝐾) ∧ (𝑝 ≠ 𝑞 ∧ ¬ 𝑟 ≤ (𝑝(join‘𝐾)𝑞) ∧ 𝑋 = ((𝑝(join‘𝐾)𝑞)(join‘𝐾)𝑟))) ∧ ((𝑡 ∈ (Atoms‘𝐾) ∧ 𝑢 ∈ (Atoms‘𝐾)) ∧ (𝑣 ∈ (Atoms‘𝐾) ∧ 𝑤 ∈ (Atoms‘𝐾)) ∧ 𝑌 = (((𝑡(join‘𝐾)𝑢)(join‘𝐾)𝑣)(join‘𝐾)𝑤)) ∧ (𝑠 ∈ (Atoms‘𝐾) ∧ (𝑋𝐶(𝑋(join‘𝐾)𝑠) ∧ (𝑋(join‘𝐾)𝑠) ≤ 𝑌))) → 𝑤 ∈ (Atoms‘𝐾))
50	47, 48, 49	3jca 1134	. . . . . . . . . . . . . . . . . . . . . . . 24 ⊢ ((((𝐾 ∈ HL ∧ 𝑝 ∈ (Atoms‘𝐾) ∧ 𝑞 ∈ (Atoms‘𝐾)) ∧ 𝑟 ∈ (Atoms‘𝐾) ∧ (𝑝 ≠ 𝑞 ∧ ¬ 𝑟 ≤ (𝑝(join‘𝐾)𝑞) ∧ 𝑋 = ((𝑝(join‘𝐾)𝑞)(join‘𝐾)𝑟))) ∧ ((𝑡 ∈ (Atoms‘𝐾) ∧ 𝑢 ∈ (Atoms‘𝐾)) ∧ (𝑣 ∈ (Atoms‘𝐾) ∧ 𝑤 ∈ (Atoms‘𝐾)) ∧ 𝑌 = (((𝑡(join‘𝐾)𝑢)(join‘𝐾)𝑣)(join‘𝐾)𝑤)) ∧ (𝑠 ∈ (Atoms‘𝐾) ∧ (𝑋𝐶(𝑋(join‘𝐾)𝑠) ∧ (𝑋(join‘𝐾)𝑠) ≤ 𝑌))) → (𝑢 ∈ (Atoms‘𝐾) ∧ 𝑣 ∈ (Atoms‘𝐾) ∧ 𝑤 ∈ (Atoms‘𝐾)))
51		simp131 1315	. . . . . . . . . . . . . . . . . . . . . . . 24 ⊢ ((((𝐾 ∈ HL ∧ 𝑝 ∈ (Atoms‘𝐾) ∧ 𝑞 ∈ (Atoms‘𝐾)) ∧ 𝑟 ∈ (Atoms‘𝐾) ∧ (𝑝 ≠ 𝑞 ∧ ¬ 𝑟 ≤ (𝑝(join‘𝐾)𝑞) ∧ 𝑋 = ((𝑝(join‘𝐾)𝑞)(join‘𝐾)𝑟))) ∧ ((𝑡 ∈ (Atoms‘𝐾) ∧ 𝑢 ∈ (Atoms‘𝐾)) ∧ (𝑣 ∈ (Atoms‘𝐾) ∧ 𝑤 ∈ (Atoms‘𝐾)) ∧ 𝑌 = (((𝑡(join‘𝐾)𝑢)(join‘𝐾)𝑣)(join‘𝐾)𝑤)) ∧ (𝑠 ∈ (Atoms‘𝐾) ∧ (𝑋𝐶(𝑋(join‘𝐾)𝑠) ∧ (𝑋(join‘𝐾)𝑠) ≤ 𝑌))) → 𝑝 ≠ 𝑞)
52		simp132 1316	. . . . . . . . . . . . . . . . . . . . . . . 24 ⊢ ((((𝐾 ∈ HL ∧ 𝑝 ∈ (Atoms‘𝐾) ∧ 𝑞 ∈ (Atoms‘𝐾)) ∧ 𝑟 ∈ (Atoms‘𝐾) ∧ (𝑝 ≠ 𝑞 ∧ ¬ 𝑟 ≤ (𝑝(join‘𝐾)𝑞) ∧ 𝑋 = ((𝑝(join‘𝐾)𝑞)(join‘𝐾)𝑟))) ∧ ((𝑡 ∈ (Atoms‘𝐾) ∧ 𝑢 ∈ (Atoms‘𝐾)) ∧ (𝑣 ∈ (Atoms‘𝐾) ∧ 𝑤 ∈ (Atoms‘𝐾)) ∧ 𝑌 = (((𝑡(join‘𝐾)𝑢)(join‘𝐾)𝑣)(join‘𝐾)𝑤)) ∧ (𝑠 ∈ (Atoms‘𝐾) ∧ (𝑋𝐶(𝑋(join‘𝐾)𝑠) ∧ (𝑋(join‘𝐾)𝑠) ≤ 𝑌))) → ¬ 𝑟 ≤ (𝑝(join‘𝐾)𝑞))
53	36, 38, 39	3brtr3d 5103	. . . . . . . . . . . . . . . . . . . . . . . . 25 ⊢ ((((𝐾 ∈ HL ∧ 𝑝 ∈ (Atoms‘𝐾) ∧ 𝑞 ∈ (Atoms‘𝐾)) ∧ 𝑟 ∈ (Atoms‘𝐾) ∧ (𝑝 ≠ 𝑞 ∧ ¬ 𝑟 ≤ (𝑝(join‘𝐾)𝑞) ∧ 𝑋 = ((𝑝(join‘𝐾)𝑞)(join‘𝐾)𝑟))) ∧ ((𝑡 ∈ (Atoms‘𝐾) ∧ 𝑢 ∈ (Atoms‘𝐾)) ∧ (𝑣 ∈ (Atoms‘𝐾) ∧ 𝑤 ∈ (Atoms‘𝐾)) ∧ 𝑌 = (((𝑡(join‘𝐾)𝑢)(join‘𝐾)𝑣)(join‘𝐾)𝑤)) ∧ (𝑠 ∈ (Atoms‘𝐾) ∧ (𝑋𝐶(𝑋(join‘𝐾)𝑠) ∧ (𝑋(join‘𝐾)𝑠) ≤ 𝑌))) → ((𝑝(join‘𝐾)𝑞)(join‘𝐾)𝑟)𝐶(((𝑝(join‘𝐾)𝑞)(join‘𝐾)𝑟)(join‘𝐾)𝑠))
54		simp111 1309	. . . . . . . . . . . . . . . . . . . . . . . . . 26 ⊢ ((((𝐾 ∈ HL ∧ 𝑝 ∈ (Atoms‘𝐾) ∧ 𝑞 ∈ (Atoms‘𝐾)) ∧ 𝑟 ∈ (Atoms‘𝐾) ∧ (𝑝 ≠ 𝑞 ∧ ¬ 𝑟 ≤ (𝑝(join‘𝐾)𝑞) ∧ 𝑋 = ((𝑝(join‘𝐾)𝑞)(join‘𝐾)𝑟))) ∧ ((𝑡 ∈ (Atoms‘𝐾) ∧ 𝑢 ∈ (Atoms‘𝐾)) ∧ (𝑣 ∈ (Atoms‘𝐾) ∧ 𝑤 ∈ (Atoms‘𝐾)) ∧ 𝑌 = (((𝑡(join‘𝐾)𝑢)(join‘𝐾)𝑣)(join‘𝐾)𝑤)) ∧ (𝑠 ∈ (Atoms‘𝐾) ∧ (𝑋𝐶(𝑋(join‘𝐾)𝑠) ∧ (𝑋(join‘𝐾)𝑠) ≤ 𝑌))) → 𝐾 ∈ HL)
55	54	hllatd 39856	. . . . . . . . . . . . . . . . . . . . . . . . . . 27 ⊢ ((((𝐾 ∈ HL ∧ 𝑝 ∈ (Atoms‘𝐾) ∧ 𝑞 ∈ (Atoms‘𝐾)) ∧ 𝑟 ∈ (Atoms‘𝐾) ∧ (𝑝 ≠ 𝑞 ∧ ¬ 𝑟 ≤ (𝑝(join‘𝐾)𝑞) ∧ 𝑋 = ((𝑝(join‘𝐾)𝑞)(join‘𝐾)𝑟))) ∧ ((𝑡 ∈ (Atoms‘𝐾) ∧ 𝑢 ∈ (Atoms‘𝐾)) ∧ (𝑣 ∈ (Atoms‘𝐾) ∧ 𝑤 ∈ (Atoms‘𝐾)) ∧ 𝑌 = (((𝑡(join‘𝐾)𝑢)(join‘𝐾)𝑣)(join‘𝐾)𝑤)) ∧ (𝑠 ∈ (Atoms‘𝐾) ∧ (𝑋𝐶(𝑋(join‘𝐾)𝑠) ∧ (𝑋(join‘𝐾)𝑠) ≤ 𝑌))) → 𝐾 ∈ Lat)
56	20, 27, 29	hlatjcl 39859	. . . . . . . . . . . . . . . . . . . . . . . . . . . 28 ⊢ ((𝐾 ∈ HL ∧ 𝑝 ∈ (Atoms‘𝐾) ∧ 𝑞 ∈ (Atoms‘𝐾)) → (𝑝(join‘𝐾)𝑞) ∈ (Base‘𝐾))
57	42, 56	syl 17	. . . . . . . . . . . . . . . . . . . . . . . . . . 27 ⊢ ((((𝐾 ∈ HL ∧ 𝑝 ∈ (Atoms‘𝐾) ∧ 𝑞 ∈ (Atoms‘𝐾)) ∧ 𝑟 ∈ (Atoms‘𝐾) ∧ (𝑝 ≠ 𝑞 ∧ ¬ 𝑟 ≤ (𝑝(join‘𝐾)𝑞) ∧ 𝑋 = ((𝑝(join‘𝐾)𝑞)(join‘𝐾)𝑟))) ∧ ((𝑡 ∈ (Atoms‘𝐾) ∧ 𝑢 ∈ (Atoms‘𝐾)) ∧ (𝑣 ∈ (Atoms‘𝐾) ∧ 𝑤 ∈ (Atoms‘𝐾)) ∧ 𝑌 = (((𝑡(join‘𝐾)𝑢)(join‘𝐾)𝑣)(join‘𝐾)𝑤)) ∧ (𝑠 ∈ (Atoms‘𝐾) ∧ (𝑋𝐶(𝑋(join‘𝐾)𝑠) ∧ (𝑋(join‘𝐾)𝑠) ≤ 𝑌))) → (𝑝(join‘𝐾)𝑞) ∈ (Base‘𝐾))
58	20, 29	atbase 39781	. . . . . . . . . . . . . . . . . . . . . . . . . . . 28 ⊢ (𝑟 ∈ (Atoms‘𝐾) → 𝑟 ∈ (Base‘𝐾))
59	43, 58	syl 17	. . . . . . . . . . . . . . . . . . . . . . . . . . 27 ⊢ ((((𝐾 ∈ HL ∧ 𝑝 ∈ (Atoms‘𝐾) ∧ 𝑞 ∈ (Atoms‘𝐾)) ∧ 𝑟 ∈ (Atoms‘𝐾) ∧ (𝑝 ≠ 𝑞 ∧ ¬ 𝑟 ≤ (𝑝(join‘𝐾)𝑞) ∧ 𝑋 = ((𝑝(join‘𝐾)𝑞)(join‘𝐾)𝑟))) ∧ ((𝑡 ∈ (Atoms‘𝐾) ∧ 𝑢 ∈ (Atoms‘𝐾)) ∧ (𝑣 ∈ (Atoms‘𝐾) ∧ 𝑤 ∈ (Atoms‘𝐾)) ∧ 𝑌 = (((𝑡(join‘𝐾)𝑢)(join‘𝐾)𝑣)(join‘𝐾)𝑤)) ∧ (𝑠 ∈ (Atoms‘𝐾) ∧ (𝑋𝐶(𝑋(join‘𝐾)𝑠) ∧ (𝑋(join‘𝐾)𝑠) ≤ 𝑌))) → 𝑟 ∈ (Base‘𝐾))
60	20, 27	latjcl 18396	. . . . . . . . . . . . . . . . . . . . . . . . . . 27 ⊢ ((𝐾 ∈ Lat ∧ (𝑝(join‘𝐾)𝑞) ∈ (Base‘𝐾) ∧ 𝑟 ∈ (Base‘𝐾)) → ((𝑝(join‘𝐾)𝑞)(join‘𝐾)𝑟) ∈ (Base‘𝐾))
61	55, 57, 59, 60	syl3anc 1379	. . . . . . . . . . . . . . . . . . . . . . . . . 26 ⊢ ((((𝐾 ∈ HL ∧ 𝑝 ∈ (Atoms‘𝐾) ∧ 𝑞 ∈ (Atoms‘𝐾)) ∧ 𝑟 ∈ (Atoms‘𝐾) ∧ (𝑝 ≠ 𝑞 ∧ ¬ 𝑟 ≤ (𝑝(join‘𝐾)𝑞) ∧ 𝑋 = ((𝑝(join‘𝐾)𝑞)(join‘𝐾)𝑟))) ∧ ((𝑡 ∈ (Atoms‘𝐾) ∧ 𝑢 ∈ (Atoms‘𝐾)) ∧ (𝑣 ∈ (Atoms‘𝐾) ∧ 𝑤 ∈ (Atoms‘𝐾)) ∧ 𝑌 = (((𝑡(join‘𝐾)𝑢)(join‘𝐾)𝑣)(join‘𝐾)𝑤)) ∧ (𝑠 ∈ (Atoms‘𝐾) ∧ (𝑋𝐶(𝑋(join‘𝐾)𝑠) ∧ (𝑋(join‘𝐾)𝑠) ≤ 𝑌))) → ((𝑝(join‘𝐾)𝑞)(join‘𝐾)𝑟) ∈ (Base‘𝐾))
62	20, 13, 27, 28, 29	cvr1 39902	. . . . . . . . . . . . . . . . . . . . . . . . . 26 ⊢ ((𝐾 ∈ HL ∧ ((𝑝(join‘𝐾)𝑞)(join‘𝐾)𝑟) ∈ (Base‘𝐾) ∧ 𝑠 ∈ (Atoms‘𝐾)) → (¬ 𝑠 ≤ ((𝑝(join‘𝐾)𝑞)(join‘𝐾)𝑟) ↔ ((𝑝(join‘𝐾)𝑞)(join‘𝐾)𝑟)𝐶(((𝑝(join‘𝐾)𝑞)(join‘𝐾)𝑟)(join‘𝐾)𝑠)))
63	54, 61, 44, 62	syl3anc 1379	. . . . . . . . . . . . . . . . . . . . . . . . 25 ⊢ ((((𝐾 ∈ HL ∧ 𝑝 ∈ (Atoms‘𝐾) ∧ 𝑞 ∈ (Atoms‘𝐾)) ∧ 𝑟 ∈ (Atoms‘𝐾) ∧ (𝑝 ≠ 𝑞 ∧ ¬ 𝑟 ≤ (𝑝(join‘𝐾)𝑞) ∧ 𝑋 = ((𝑝(join‘𝐾)𝑞)(join‘𝐾)𝑟))) ∧ ((𝑡 ∈ (Atoms‘𝐾) ∧ 𝑢 ∈ (Atoms‘𝐾)) ∧ (𝑣 ∈ (Atoms‘𝐾) ∧ 𝑤 ∈ (Atoms‘𝐾)) ∧ 𝑌 = (((𝑡(join‘𝐾)𝑢)(join‘𝐾)𝑣)(join‘𝐾)𝑤)) ∧ (𝑠 ∈ (Atoms‘𝐾) ∧ (𝑋𝐶(𝑋(join‘𝐾)𝑠) ∧ (𝑋(join‘𝐾)𝑠) ≤ 𝑌))) → (¬ 𝑠 ≤ ((𝑝(join‘𝐾)𝑞)(join‘𝐾)𝑟) ↔ ((𝑝(join‘𝐾)𝑞)(join‘𝐾)𝑟)𝐶(((𝑝(join‘𝐾)𝑞)(join‘𝐾)𝑟)(join‘𝐾)𝑠)))
64	53, 63	mpbird 258	. . . . . . . . . . . . . . . . . . . . . . . 24 ⊢ ((((𝐾 ∈ HL ∧ 𝑝 ∈ (Atoms‘𝐾) ∧ 𝑞 ∈ (Atoms‘𝐾)) ∧ 𝑟 ∈ (Atoms‘𝐾) ∧ (𝑝 ≠ 𝑞 ∧ ¬ 𝑟 ≤ (𝑝(join‘𝐾)𝑞) ∧ 𝑋 = ((𝑝(join‘𝐾)𝑞)(join‘𝐾)𝑟))) ∧ ((𝑡 ∈ (Atoms‘𝐾) ∧ 𝑢 ∈ (Atoms‘𝐾)) ∧ (𝑣 ∈ (Atoms‘𝐾) ∧ 𝑤 ∈ (Atoms‘𝐾)) ∧ 𝑌 = (((𝑡(join‘𝐾)𝑢)(join‘𝐾)𝑣)(join‘𝐾)𝑤)) ∧ (𝑠 ∈ (Atoms‘𝐾) ∧ (𝑋𝐶(𝑋(join‘𝐾)𝑠) ∧ (𝑋(join‘𝐾)𝑠) ≤ 𝑌))) → ¬ 𝑠 ≤ ((𝑝(join‘𝐾)𝑞)(join‘𝐾)𝑟))
65	13, 27, 29	4at2 40106	. . . . . . . . . . . . . . . . . . . . . . . 24 ⊢ ((((𝐾 ∈ HL ∧ 𝑝 ∈ (Atoms‘𝐾) ∧ 𝑞 ∈ (Atoms‘𝐾)) ∧ (𝑟 ∈ (Atoms‘𝐾) ∧ 𝑠 ∈ (Atoms‘𝐾) ∧ 𝑡 ∈ (Atoms‘𝐾)) ∧ (𝑢 ∈ (Atoms‘𝐾) ∧ 𝑣 ∈ (Atoms‘𝐾) ∧ 𝑤 ∈ (Atoms‘𝐾))) ∧ (𝑝 ≠ 𝑞 ∧ ¬ 𝑟 ≤ (𝑝(join‘𝐾)𝑞) ∧ ¬ 𝑠 ≤ ((𝑝(join‘𝐾)𝑞)(join‘𝐾)𝑟))) → ((((𝑝(join‘𝐾)𝑞)(join‘𝐾)𝑟)(join‘𝐾)𝑠) ≤ (((𝑡(join‘𝐾)𝑢)(join‘𝐾)𝑣)(join‘𝐾)𝑤) ↔ (((𝑝(join‘𝐾)𝑞)(join‘𝐾)𝑟)(join‘𝐾)𝑠) = (((𝑡(join‘𝐾)𝑢)(join‘𝐾)𝑣)(join‘𝐾)𝑤)))
66	42, 46, 50, 51, 52, 64, 65	syl33anc 1393	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ ((((𝐾 ∈ HL ∧ 𝑝 ∈ (Atoms‘𝐾) ∧ 𝑞 ∈ (Atoms‘𝐾)) ∧ 𝑟 ∈ (Atoms‘𝐾) ∧ (𝑝 ≠ 𝑞 ∧ ¬ 𝑟 ≤ (𝑝(join‘𝐾)𝑞) ∧ 𝑋 = ((𝑝(join‘𝐾)𝑞)(join‘𝐾)𝑟))) ∧ ((𝑡 ∈ (Atoms‘𝐾) ∧ 𝑢 ∈ (Atoms‘𝐾)) ∧ (𝑣 ∈ (Atoms‘𝐾) ∧ 𝑤 ∈ (Atoms‘𝐾)) ∧ 𝑌 = (((𝑡(join‘𝐾)𝑢)(join‘𝐾)𝑣)(join‘𝐾)𝑤)) ∧ (𝑠 ∈ (Atoms‘𝐾) ∧ (𝑋𝐶(𝑋(join‘𝐾)𝑠) ∧ (𝑋(join‘𝐾)𝑠) ≤ 𝑌))) → ((((𝑝(join‘𝐾)𝑞)(join‘𝐾)𝑟)(join‘𝐾)𝑠) ≤ (((𝑡(join‘𝐾)𝑢)(join‘𝐾)𝑣)(join‘𝐾)𝑤) ↔ (((𝑝(join‘𝐾)𝑞)(join‘𝐾)𝑟)(join‘𝐾)𝑠) = (((𝑡(join‘𝐾)𝑢)(join‘𝐾)𝑣)(join‘𝐾)𝑤)))
67	41, 66	mpbid 233	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ ((((𝐾 ∈ HL ∧ 𝑝 ∈ (Atoms‘𝐾) ∧ 𝑞 ∈ (Atoms‘𝐾)) ∧ 𝑟 ∈ (Atoms‘𝐾) ∧ (𝑝 ≠ 𝑞 ∧ ¬ 𝑟 ≤ (𝑝(join‘𝐾)𝑞) ∧ 𝑋 = ((𝑝(join‘𝐾)𝑞)(join‘𝐾)𝑟))) ∧ ((𝑡 ∈ (Atoms‘𝐾) ∧ 𝑢 ∈ (Atoms‘𝐾)) ∧ (𝑣 ∈ (Atoms‘𝐾) ∧ 𝑤 ∈ (Atoms‘𝐾)) ∧ 𝑌 = (((𝑡(join‘𝐾)𝑢)(join‘𝐾)𝑣)(join‘𝐾)𝑤)) ∧ (𝑠 ∈ (Atoms‘𝐾) ∧ (𝑋𝐶(𝑋(join‘𝐾)𝑠) ∧ (𝑋(join‘𝐾)𝑠) ≤ 𝑌))) → (((𝑝(join‘𝐾)𝑞)(join‘𝐾)𝑟)(join‘𝐾)𝑠) = (((𝑡(join‘𝐾)𝑢)(join‘𝐾)𝑣)(join‘𝐾)𝑤))
68	67, 39, 40	3eqtr4d 2784	. . . . . . . . . . . . . . . . . . . . 21 ⊢ ((((𝐾 ∈ HL ∧ 𝑝 ∈ (Atoms‘𝐾) ∧ 𝑞 ∈ (Atoms‘𝐾)) ∧ 𝑟 ∈ (Atoms‘𝐾) ∧ (𝑝 ≠ 𝑞 ∧ ¬ 𝑟 ≤ (𝑝(join‘𝐾)𝑞) ∧ 𝑋 = ((𝑝(join‘𝐾)𝑞)(join‘𝐾)𝑟))) ∧ ((𝑡 ∈ (Atoms‘𝐾) ∧ 𝑢 ∈ (Atoms‘𝐾)) ∧ (𝑣 ∈ (Atoms‘𝐾) ∧ 𝑤 ∈ (Atoms‘𝐾)) ∧ 𝑌 = (((𝑡(join‘𝐾)𝑢)(join‘𝐾)𝑣)(join‘𝐾)𝑤)) ∧ (𝑠 ∈ (Atoms‘𝐾) ∧ (𝑋𝐶(𝑋(join‘𝐾)𝑠) ∧ (𝑋(join‘𝐾)𝑠) ≤ 𝑌))) → (𝑋(join‘𝐾)𝑠) = 𝑌)
69	36, 68	breqtrd 5098	. . . . . . . . . . . . . . . . . . . 20 ⊢ ((((𝐾 ∈ HL ∧ 𝑝 ∈ (Atoms‘𝐾) ∧ 𝑞 ∈ (Atoms‘𝐾)) ∧ 𝑟 ∈ (Atoms‘𝐾) ∧ (𝑝 ≠ 𝑞 ∧ ¬ 𝑟 ≤ (𝑝(join‘𝐾)𝑞) ∧ 𝑋 = ((𝑝(join‘𝐾)𝑞)(join‘𝐾)𝑟))) ∧ ((𝑡 ∈ (Atoms‘𝐾) ∧ 𝑢 ∈ (Atoms‘𝐾)) ∧ (𝑣 ∈ (Atoms‘𝐾) ∧ 𝑤 ∈ (Atoms‘𝐾)) ∧ 𝑌 = (((𝑡(join‘𝐾)𝑢)(join‘𝐾)𝑣)(join‘𝐾)𝑤)) ∧ (𝑠 ∈ (Atoms‘𝐾) ∧ (𝑋𝐶(𝑋(join‘𝐾)𝑠) ∧ (𝑋(join‘𝐾)𝑠) ≤ 𝑌))) → 𝑋𝐶𝑌)
70	69	3exp 1125	. . . . . . . . . . . . . . . . . . 19 ⊢ (((𝐾 ∈ HL ∧ 𝑝 ∈ (Atoms‘𝐾) ∧ 𝑞 ∈ (Atoms‘𝐾)) ∧ 𝑟 ∈ (Atoms‘𝐾) ∧ (𝑝 ≠ 𝑞 ∧ ¬ 𝑟 ≤ (𝑝(join‘𝐾)𝑞) ∧ 𝑋 = ((𝑝(join‘𝐾)𝑞)(join‘𝐾)𝑟))) → (((𝑡 ∈ (Atoms‘𝐾) ∧ 𝑢 ∈ (Atoms‘𝐾)) ∧ (𝑣 ∈ (Atoms‘𝐾) ∧ 𝑤 ∈ (Atoms‘𝐾)) ∧ 𝑌 = (((𝑡(join‘𝐾)𝑢)(join‘𝐾)𝑣)(join‘𝐾)𝑤)) → ((𝑠 ∈ (Atoms‘𝐾) ∧ (𝑋𝐶(𝑋(join‘𝐾)𝑠) ∧ (𝑋(join‘𝐾)𝑠) ≤ 𝑌)) → 𝑋𝐶𝑌)))
71	70	exp4a 432	. . . . . . . . . . . . . . . . . 18 ⊢ (((𝐾 ∈ HL ∧ 𝑝 ∈ (Atoms‘𝐾) ∧ 𝑞 ∈ (Atoms‘𝐾)) ∧ 𝑟 ∈ (Atoms‘𝐾) ∧ (𝑝 ≠ 𝑞 ∧ ¬ 𝑟 ≤ (𝑝(join‘𝐾)𝑞) ∧ 𝑋 = ((𝑝(join‘𝐾)𝑞)(join‘𝐾)𝑟))) → (((𝑡 ∈ (Atoms‘𝐾) ∧ 𝑢 ∈ (Atoms‘𝐾)) ∧ (𝑣 ∈ (Atoms‘𝐾) ∧ 𝑤 ∈ (Atoms‘𝐾)) ∧ 𝑌 = (((𝑡(join‘𝐾)𝑢)(join‘𝐾)𝑣)(join‘𝐾)𝑤)) → (𝑠 ∈ (Atoms‘𝐾) → ((𝑋𝐶(𝑋(join‘𝐾)𝑠) ∧ (𝑋(join‘𝐾)𝑠) ≤ 𝑌) → 𝑋𝐶𝑌))))
72	71	3expd 1360	. . . . . . . . . . . . . . . . 17 ⊢ (((𝐾 ∈ HL ∧ 𝑝 ∈ (Atoms‘𝐾) ∧ 𝑞 ∈ (Atoms‘𝐾)) ∧ 𝑟 ∈ (Atoms‘𝐾) ∧ (𝑝 ≠ 𝑞 ∧ ¬ 𝑟 ≤ (𝑝(join‘𝐾)𝑞) ∧ 𝑋 = ((𝑝(join‘𝐾)𝑞)(join‘𝐾)𝑟))) → ((𝑡 ∈ (Atoms‘𝐾) ∧ 𝑢 ∈ (Atoms‘𝐾)) → ((𝑣 ∈ (Atoms‘𝐾) ∧ 𝑤 ∈ (Atoms‘𝐾)) → (𝑌 = (((𝑡(join‘𝐾)𝑢)(join‘𝐾)𝑣)(join‘𝐾)𝑤) → (𝑠 ∈ (Atoms‘𝐾) → ((𝑋𝐶(𝑋(join‘𝐾)𝑠) ∧ (𝑋(join‘𝐾)𝑠) ≤ 𝑌) → 𝑋𝐶𝑌))))))
73	72	rexlimdv3a 3144	. . . . . . . . . . . . . . . 16 ⊢ ((𝐾 ∈ HL ∧ 𝑝 ∈ (Atoms‘𝐾) ∧ 𝑞 ∈ (Atoms‘𝐾)) → (∃𝑟 ∈ (Atoms‘𝐾)(𝑝 ≠ 𝑞 ∧ ¬ 𝑟 ≤ (𝑝(join‘𝐾)𝑞) ∧ 𝑋 = ((𝑝(join‘𝐾)𝑞)(join‘𝐾)𝑟)) → ((𝑡 ∈ (Atoms‘𝐾) ∧ 𝑢 ∈ (Atoms‘𝐾)) → ((𝑣 ∈ (Atoms‘𝐾) ∧ 𝑤 ∈ (Atoms‘𝐾)) → (𝑌 = (((𝑡(join‘𝐾)𝑢)(join‘𝐾)𝑣)(join‘𝐾)𝑤) → (𝑠 ∈ (Atoms‘𝐾) → ((𝑋𝐶(𝑋(join‘𝐾)𝑠) ∧ (𝑋(join‘𝐾)𝑠) ≤ 𝑌) → 𝑋𝐶𝑌)))))))
74	73	3expib 1128	. . . . . . . . . . . . . . 15 ⊢ (𝐾 ∈ HL → ((𝑝 ∈ (Atoms‘𝐾) ∧ 𝑞 ∈ (Atoms‘𝐾)) → (∃𝑟 ∈ (Atoms‘𝐾)(𝑝 ≠ 𝑞 ∧ ¬ 𝑟 ≤ (𝑝(join‘𝐾)𝑞) ∧ 𝑋 = ((𝑝(join‘𝐾)𝑞)(join‘𝐾)𝑟)) → ((𝑡 ∈ (Atoms‘𝐾) ∧ 𝑢 ∈ (Atoms‘𝐾)) → ((𝑣 ∈ (Atoms‘𝐾) ∧ 𝑤 ∈ (Atoms‘𝐾)) → (𝑌 = (((𝑡(join‘𝐾)𝑢)(join‘𝐾)𝑣)(join‘𝐾)𝑤) → (𝑠 ∈ (Atoms‘𝐾) → ((𝑋𝐶(𝑋(join‘𝐾)𝑠) ∧ (𝑋(join‘𝐾)𝑠) ≤ 𝑌) → 𝑋𝐶𝑌))))))))
75	74	rexlimdvv 3195	. . . . . . . . . . . . . 14 ⊢ (𝐾 ∈ HL → (∃𝑝 ∈ (Atoms‘𝐾)∃𝑞 ∈ (Atoms‘𝐾)∃𝑟 ∈ (Atoms‘𝐾)(𝑝 ≠ 𝑞 ∧ ¬ 𝑟 ≤ (𝑝(join‘𝐾)𝑞) ∧ 𝑋 = ((𝑝(join‘𝐾)𝑞)(join‘𝐾)𝑟)) → ((𝑡 ∈ (Atoms‘𝐾) ∧ 𝑢 ∈ (Atoms‘𝐾)) → ((𝑣 ∈ (Atoms‘𝐾) ∧ 𝑤 ∈ (Atoms‘𝐾)) → (𝑌 = (((𝑡(join‘𝐾)𝑢)(join‘𝐾)𝑣)(join‘𝐾)𝑤) → (𝑠 ∈ (Atoms‘𝐾) → ((𝑋𝐶(𝑋(join‘𝐾)𝑠) ∧ (𝑋(join‘𝐾)𝑠) ≤ 𝑌) → 𝑋𝐶𝑌)))))))
76	75	adantld 491	. . . . . . . . . . . . 13 ⊢ (𝐾 ∈ HL → ((𝑋 ∈ (Base‘𝐾) ∧ ∃𝑝 ∈ (Atoms‘𝐾)∃𝑞 ∈ (Atoms‘𝐾)∃𝑟 ∈ (Atoms‘𝐾)(𝑝 ≠ 𝑞 ∧ ¬ 𝑟 ≤ (𝑝(join‘𝐾)𝑞) ∧ 𝑋 = ((𝑝(join‘𝐾)𝑞)(join‘𝐾)𝑟))) → ((𝑡 ∈ (Atoms‘𝐾) ∧ 𝑢 ∈ (Atoms‘𝐾)) → ((𝑣 ∈ (Atoms‘𝐾) ∧ 𝑤 ∈ (Atoms‘𝐾)) → (𝑌 = (((𝑡(join‘𝐾)𝑢)(join‘𝐾)𝑣)(join‘𝐾)𝑤) → (𝑠 ∈ (Atoms‘𝐾) → ((𝑋𝐶(𝑋(join‘𝐾)𝑠) ∧ (𝑋(join‘𝐾)𝑠) ≤ 𝑌) → 𝑋𝐶𝑌)))))))
77	35, 76	sylbid 241	. . . . . . . . . . . 12 ⊢ (𝐾 ∈ HL → (𝑋 ∈ 𝑃 → ((𝑡 ∈ (Atoms‘𝐾) ∧ 𝑢 ∈ (Atoms‘𝐾)) → ((𝑣 ∈ (Atoms‘𝐾) ∧ 𝑤 ∈ (Atoms‘𝐾)) → (𝑌 = (((𝑡(join‘𝐾)𝑢)(join‘𝐾)𝑣)(join‘𝐾)𝑤) → (𝑠 ∈ (Atoms‘𝐾) → ((𝑋𝐶(𝑋(join‘𝐾)𝑠) ∧ (𝑋(join‘𝐾)𝑠) ≤ 𝑌) → 𝑋𝐶𝑌)))))))
78	77	imp31 418	. . . . . . . . . . 11 ⊢ (((𝐾 ∈ HL ∧ 𝑋 ∈ 𝑃) ∧ (𝑡 ∈ (Atoms‘𝐾) ∧ 𝑢 ∈ (Atoms‘𝐾))) → ((𝑣 ∈ (Atoms‘𝐾) ∧ 𝑤 ∈ (Atoms‘𝐾)) → (𝑌 = (((𝑡(join‘𝐾)𝑢)(join‘𝐾)𝑣)(join‘𝐾)𝑤) → (𝑠 ∈ (Atoms‘𝐾) → ((𝑋𝐶(𝑋(join‘𝐾)𝑠) ∧ (𝑋(join‘𝐾)𝑠) ≤ 𝑌) → 𝑋𝐶𝑌)))))
79	34, 78	syl7 74	. . . . . . . . . 10 ⊢ (((𝐾 ∈ HL ∧ 𝑋 ∈ 𝑃) ∧ (𝑡 ∈ (Atoms‘𝐾) ∧ 𝑢 ∈ (Atoms‘𝐾))) → ((𝑣 ∈ (Atoms‘𝐾) ∧ 𝑤 ∈ (Atoms‘𝐾)) → (((𝑡 ≠ 𝑢 ∧ ¬ 𝑣 ≤ (𝑡(join‘𝐾)𝑢) ∧ ¬ 𝑤 ≤ ((𝑡(join‘𝐾)𝑢)(join‘𝐾)𝑣)) ∧ 𝑌 = (((𝑡(join‘𝐾)𝑢)(join‘𝐾)𝑣)(join‘𝐾)𝑤)) → (𝑠 ∈ (Atoms‘𝐾) → ((𝑋𝐶(𝑋(join‘𝐾)𝑠) ∧ (𝑋(join‘𝐾)𝑠) ≤ 𝑌) → 𝑋𝐶𝑌)))))
80	79	rexlimdvv 3195	. . . . . . . . 9 ⊢ (((𝐾 ∈ HL ∧ 𝑋 ∈ 𝑃) ∧ (𝑡 ∈ (Atoms‘𝐾) ∧ 𝑢 ∈ (Atoms‘𝐾))) → (∃𝑣 ∈ (Atoms‘𝐾)∃𝑤 ∈ (Atoms‘𝐾)((𝑡 ≠ 𝑢 ∧ ¬ 𝑣 ≤ (𝑡(join‘𝐾)𝑢) ∧ ¬ 𝑤 ≤ ((𝑡(join‘𝐾)𝑢)(join‘𝐾)𝑣)) ∧ 𝑌 = (((𝑡(join‘𝐾)𝑢)(join‘𝐾)𝑣)(join‘𝐾)𝑤)) → (𝑠 ∈ (Atoms‘𝐾) → ((𝑋𝐶(𝑋(join‘𝐾)𝑠) ∧ (𝑋(join‘𝐾)𝑠) ≤ 𝑌) → 𝑋𝐶𝑌))))
81	80	rexlimdvva 3196	. . . . . . . 8 ⊢ ((𝐾 ∈ HL ∧ 𝑋 ∈ 𝑃) → (∃𝑡 ∈ (Atoms‘𝐾)∃𝑢 ∈ (Atoms‘𝐾)∃𝑣 ∈ (Atoms‘𝐾)∃𝑤 ∈ (Atoms‘𝐾)((𝑡 ≠ 𝑢 ∧ ¬ 𝑣 ≤ (𝑡(join‘𝐾)𝑢) ∧ ¬ 𝑤 ≤ ((𝑡(join‘𝐾)𝑢)(join‘𝐾)𝑣)) ∧ 𝑌 = (((𝑡(join‘𝐾)𝑢)(join‘𝐾)𝑣)(join‘𝐾)𝑤)) → (𝑠 ∈ (Atoms‘𝐾) → ((𝑋𝐶(𝑋(join‘𝐾)𝑠) ∧ (𝑋(join‘𝐾)𝑠) ≤ 𝑌) → 𝑋𝐶𝑌))))
82	81	adantld 491	. . . . . . 7 ⊢ ((𝐾 ∈ HL ∧ 𝑋 ∈ 𝑃) → ((𝑌 ∈ (Base‘𝐾) ∧ ∃𝑡 ∈ (Atoms‘𝐾)∃𝑢 ∈ (Atoms‘𝐾)∃𝑣 ∈ (Atoms‘𝐾)∃𝑤 ∈ (Atoms‘𝐾)((𝑡 ≠ 𝑢 ∧ ¬ 𝑣 ≤ (𝑡(join‘𝐾)𝑢) ∧ ¬ 𝑤 ≤ ((𝑡(join‘𝐾)𝑢)(join‘𝐾)𝑣)) ∧ 𝑌 = (((𝑡(join‘𝐾)𝑢)(join‘𝐾)𝑣)(join‘𝐾)𝑤))) → (𝑠 ∈ (Atoms‘𝐾) → ((𝑋𝐶(𝑋(join‘𝐾)𝑠) ∧ (𝑋(join‘𝐾)𝑠) ≤ 𝑌) → 𝑋𝐶𝑌))))
83	33, 82	sylbid 241	. . . . . 6 ⊢ ((𝐾 ∈ HL ∧ 𝑋 ∈ 𝑃) → (𝑌 ∈ 𝑉 → (𝑠 ∈ (Atoms‘𝐾) → ((𝑋𝐶(𝑋(join‘𝐾)𝑠) ∧ (𝑋(join‘𝐾)𝑠) ≤ 𝑌) → 𝑋𝐶𝑌))))
84	83	3impia 1123	. . . . 5 ⊢ ((𝐾 ∈ HL ∧ 𝑋 ∈ 𝑃 ∧ 𝑌 ∈ 𝑉) → (𝑠 ∈ (Atoms‘𝐾) → ((𝑋𝐶(𝑋(join‘𝐾)𝑠) ∧ (𝑋(join‘𝐾)𝑠) ≤ 𝑌) → 𝑋𝐶𝑌)))
85	84	rexlimdv 3138	. . . 4 ⊢ ((𝐾 ∈ HL ∧ 𝑋 ∈ 𝑃 ∧ 𝑌 ∈ 𝑉) → (∃𝑠 ∈ (Atoms‘𝐾)(𝑋𝐶(𝑋(join‘𝐾)𝑠) ∧ (𝑋(join‘𝐾)𝑠) ≤ 𝑌) → 𝑋𝐶𝑌))
86	85	imp 407	. . 3 ⊢ (((𝐾 ∈ HL ∧ 𝑋 ∈ 𝑃 ∧ 𝑌 ∈ 𝑉) ∧ ∃𝑠 ∈ (Atoms‘𝐾)(𝑋𝐶(𝑋(join‘𝐾)𝑠) ∧ (𝑋(join‘𝐾)𝑠) ≤ 𝑌)) → 𝑋𝐶𝑌)
87	31, 86	syldan 597	. 2 ⊢ (((𝐾 ∈ HL ∧ 𝑋 ∈ 𝑃 ∧ 𝑌 ∈ 𝑉) ∧ 𝑋(lt‘𝐾)𝑌) → 𝑋𝐶𝑌)
88	17, 87	syldan 597	1 ⊢ (((𝐾 ∈ HL ∧ 𝑋 ∈ 𝑃 ∧ 𝑌 ∈ 𝑉) ∧ 𝑋 ≤ 𝑌) → 𝑋𝐶𝑌)

Syntax hints:  ¬ wn 3   → wi 4   ↔ wb 207   ∧ wa 396   ∧ w3a 1092   = wceq 1547   ∈ wcel 2119   ≠ wne 2934  ∃wrex 3063   class class class wbr 5072  ‘cfv 6485  (class class class)co 7356  Basecbs 17170  lecple 17218  ltcplt 18265  joincjn 18268  Latclat 18388   ⋖ ccvr 39754  Atomscatm 39755  HLchlt 39842  LPlanesclpl 39984  LVolsclvol 39985

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 1974  ax-7 2015  ax-8 2121  ax-9 2129  ax-10 2152  ax-11 2168  ax-12 2189  ax-ext 2711  ax-rep 5199  ax-sep 5218  ax-nul 5228  ax-pow 5294  ax-pr 5362  ax-un 7678

This theorem depends on definitions:  df-bi 208  df-an 397  df-or 854  df-3or 1093  df-3an 1094  df-tru 1550  df-fal 1560  df-ex 1787  df-nf 1791  df-sb 2074  df-mo 2543  df-eu 2573  df-clab 2718  df-cleq 2731  df-clel 2814  df-nfc 2888  df-ne 2935  df-ral 3054  df-rex 3064  df-rmo 3344  df-reu 3345  df-rab 3392  df-v 3433  df-sbc 3724  df-csb 3832  df-dif 3886  df-un 3888  df-in 3890  df-ss 3900  df-nul 4262  df-if 4455  df-pw 4531  df-sn 4556  df-pr 4558  df-op 4562  df-uni 4839  df-iun 4923  df-br 5073  df-opab 5135  df-mpt 5154  df-id 5513  df-xp 5624  df-rel 5625  df-cnv 5626  df-co 5627  df-dm 5628  df-rn 5629  df-res 5630  df-ima 5631  df-iota 6441  df-fun 6487  df-fn 6488  df-f 6489  df-f1 6490  df-fo 6491  df-f1o 6492  df-fv 6493  df-riota 7313  df-ov 7359  df-oprab 7360  df-proset 18251  df-poset 18270  df-plt 18285  df-lub 18301  df-glb 18302  df-join 18303  df-meet 18304  df-p0 18380  df-lat 18389  df-clat 18456  df-oposet 39668  df-ol 39670  df-oml 39671  df-covers 39758  df-ats 39759  df-atl 39790  df-cvlat 39814  df-hlat 39843  df-llines 39990  df-lplanes 39991  df-lvols 39992

This theorem is referenced by:  lplncvrlvol  40108  lvolcmp  40109  2lplnm2N  40113  2lplnmj  40114