Theorem cvrat4 36581

Description: A condition implying existence of an atom with the properties shown. Lemma 3.2.20 in [PtakPulmannova] p. 68. Also Lemma 9.2(delta) in [MaedaMaeda] p. 41. (atcvat4i 30176 analog.) (Contributed by NM, 30-Nov-2011.)

Hypotheses

Ref	Expression
cvrat4.b	⊢ 𝐵 = (Base‘𝐾)
cvrat4.l	⊢ ≤ = (le‘𝐾)
cvrat4.j	⊢ ∨ = (join‘𝐾)
cvrat4.z	⊢ 0 = (0.‘𝐾)
cvrat4.a	⊢ 𝐴 = (Atoms‘𝐾)

Assertion

Ref	Expression
cvrat4	⊢ ((𝐾 ∈ HL ∧ (𝑋 ∈ 𝐵 ∧ 𝑃 ∈ 𝐴 ∧ 𝑄 ∈ 𝐴)) → ((𝑋 ≠ 0 ∧ 𝑃 ≤ (𝑋 ∨ 𝑄)) → ∃𝑟 ∈ 𝐴 (𝑟 ≤ 𝑋 ∧ 𝑃 ≤ (𝑄 ∨ 𝑟))))

Distinct variable groups:   𝐴,𝑟   𝐵,𝑟   ∨ ,𝑟   𝐾,𝑟   ≤ ,𝑟   𝑃,𝑟   𝑄,𝑟   𝑋,𝑟

Allowed substitution hint:   0 (𝑟)

Proof of Theorem cvrat4

Step	Hyp	Ref	Expression
1		hlatl 36498	. . . . . . . . . 10 ⊢ (𝐾 ∈ HL → 𝐾 ∈ AtLat)
2	1	adantr 483	. . . . . . . . 9 ⊢ ((𝐾 ∈ HL ∧ (𝑋 ∈ 𝐵 ∧ 𝑃 ∈ 𝐴 ∧ 𝑄 ∈ 𝐴)) → 𝐾 ∈ AtLat)
3		simpr1 1190	. . . . . . . . 9 ⊢ ((𝐾 ∈ HL ∧ (𝑋 ∈ 𝐵 ∧ 𝑃 ∈ 𝐴 ∧ 𝑄 ∈ 𝐴)) → 𝑋 ∈ 𝐵)
4		cvrat4.b	. . . . . . . . . . 11 ⊢ 𝐵 = (Base‘𝐾)
5		cvrat4.l	. . . . . . . . . . 11 ⊢ ≤ = (le‘𝐾)
6		cvrat4.z	. . . . . . . . . . 11 ⊢ 0 = (0.‘𝐾)
7		cvrat4.a	. . . . . . . . . . 11 ⊢ 𝐴 = (Atoms‘𝐾)
8	4, 5, 6, 7	atlex 36454	. . . . . . . . . 10 ⊢ ((𝐾 ∈ AtLat ∧ 𝑋 ∈ 𝐵 ∧ 𝑋 ≠ 0 ) → ∃𝑟 ∈ 𝐴 𝑟 ≤ 𝑋)
9	8	3exp 1115	. . . . . . . . 9 ⊢ (𝐾 ∈ AtLat → (𝑋 ∈ 𝐵 → (𝑋 ≠ 0 → ∃𝑟 ∈ 𝐴 𝑟 ≤ 𝑋)))
10	2, 3, 9	sylc 65	. . . . . . . 8 ⊢ ((𝐾 ∈ HL ∧ (𝑋 ∈ 𝐵 ∧ 𝑃 ∈ 𝐴 ∧ 𝑄 ∈ 𝐴)) → (𝑋 ≠ 0 → ∃𝑟 ∈ 𝐴 𝑟 ≤ 𝑋))
11	10	adantr 483	. . . . . . 7 ⊢ (((𝐾 ∈ HL ∧ (𝑋 ∈ 𝐵 ∧ 𝑃 ∈ 𝐴 ∧ 𝑄 ∈ 𝐴)) ∧ 𝑃 = 𝑄) → (𝑋 ≠ 0 → ∃𝑟 ∈ 𝐴 𝑟 ≤ 𝑋))
12		simpll 765	. . . . . . . . . . . . . 14 ⊢ (((𝐾 ∈ HL ∧ (𝑋 ∈ 𝐵 ∧ 𝑃 ∈ 𝐴 ∧ 𝑄 ∈ 𝐴)) ∧ 𝑟 ∈ 𝐴) → 𝐾 ∈ HL)
13		simplr3 1213	. . . . . . . . . . . . . 14 ⊢ (((𝐾 ∈ HL ∧ (𝑋 ∈ 𝐵 ∧ 𝑃 ∈ 𝐴 ∧ 𝑄 ∈ 𝐴)) ∧ 𝑟 ∈ 𝐴) → 𝑄 ∈ 𝐴)
14		simpr 487	. . . . . . . . . . . . . 14 ⊢ (((𝐾 ∈ HL ∧ (𝑋 ∈ 𝐵 ∧ 𝑃 ∈ 𝐴 ∧ 𝑄 ∈ 𝐴)) ∧ 𝑟 ∈ 𝐴) → 𝑟 ∈ 𝐴)
15		cvrat4.j	. . . . . . . . . . . . . . 15 ⊢ ∨ = (join‘𝐾)
16	5, 15, 7	hlatlej1 36513	. . . . . . . . . . . . . 14 ⊢ ((𝐾 ∈ HL ∧ 𝑄 ∈ 𝐴 ∧ 𝑟 ∈ 𝐴) → 𝑄 ≤ (𝑄 ∨ 𝑟))
17	12, 13, 14, 16	syl3anc 1367	. . . . . . . . . . . . 13 ⊢ (((𝐾 ∈ HL ∧ (𝑋 ∈ 𝐵 ∧ 𝑃 ∈ 𝐴 ∧ 𝑄 ∈ 𝐴)) ∧ 𝑟 ∈ 𝐴) → 𝑄 ≤ (𝑄 ∨ 𝑟))
18		breq1 5071	. . . . . . . . . . . . 13 ⊢ (𝑃 = 𝑄 → (𝑃 ≤ (𝑄 ∨ 𝑟) ↔ 𝑄 ≤ (𝑄 ∨ 𝑟)))
19	17, 18	syl5ibr 248	. . . . . . . . . . . 12 ⊢ (𝑃 = 𝑄 → (((𝐾 ∈ HL ∧ (𝑋 ∈ 𝐵 ∧ 𝑃 ∈ 𝐴 ∧ 𝑄 ∈ 𝐴)) ∧ 𝑟 ∈ 𝐴) → 𝑃 ≤ (𝑄 ∨ 𝑟)))
20	19	expd 418	. . . . . . . . . . 11 ⊢ (𝑃 = 𝑄 → ((𝐾 ∈ HL ∧ (𝑋 ∈ 𝐵 ∧ 𝑃 ∈ 𝐴 ∧ 𝑄 ∈ 𝐴)) → (𝑟 ∈ 𝐴 → 𝑃 ≤ (𝑄 ∨ 𝑟))))
21	20	impcom 410	. . . . . . . . . 10 ⊢ (((𝐾 ∈ HL ∧ (𝑋 ∈ 𝐵 ∧ 𝑃 ∈ 𝐴 ∧ 𝑄 ∈ 𝐴)) ∧ 𝑃 = 𝑄) → (𝑟 ∈ 𝐴 → 𝑃 ≤ (𝑄 ∨ 𝑟)))
22	21	anim2d 613	. . . . . . . . 9 ⊢ (((𝐾 ∈ HL ∧ (𝑋 ∈ 𝐵 ∧ 𝑃 ∈ 𝐴 ∧ 𝑄 ∈ 𝐴)) ∧ 𝑃 = 𝑄) → ((𝑟 ≤ 𝑋 ∧ 𝑟 ∈ 𝐴) → (𝑟 ≤ 𝑋 ∧ 𝑃 ≤ (𝑄 ∨ 𝑟))))
23	22	expcomd 419	. . . . . . . 8 ⊢ (((𝐾 ∈ HL ∧ (𝑋 ∈ 𝐵 ∧ 𝑃 ∈ 𝐴 ∧ 𝑄 ∈ 𝐴)) ∧ 𝑃 = 𝑄) → (𝑟 ∈ 𝐴 → (𝑟 ≤ 𝑋 → (𝑟 ≤ 𝑋 ∧ 𝑃 ≤ (𝑄 ∨ 𝑟)))))
24	23	reximdvai 3274	. . . . . . 7 ⊢ (((𝐾 ∈ HL ∧ (𝑋 ∈ 𝐵 ∧ 𝑃 ∈ 𝐴 ∧ 𝑄 ∈ 𝐴)) ∧ 𝑃 = 𝑄) → (∃𝑟 ∈ 𝐴 𝑟 ≤ 𝑋 → ∃𝑟 ∈ 𝐴 (𝑟 ≤ 𝑋 ∧ 𝑃 ≤ (𝑄 ∨ 𝑟))))
25	11, 24	syld 47	. . . . . 6 ⊢ (((𝐾 ∈ HL ∧ (𝑋 ∈ 𝐵 ∧ 𝑃 ∈ 𝐴 ∧ 𝑄 ∈ 𝐴)) ∧ 𝑃 = 𝑄) → (𝑋 ≠ 0 → ∃𝑟 ∈ 𝐴 (𝑟 ≤ 𝑋 ∧ 𝑃 ≤ (𝑄 ∨ 𝑟))))
26	25	ex 415	. . . . 5 ⊢ ((𝐾 ∈ HL ∧ (𝑋 ∈ 𝐵 ∧ 𝑃 ∈ 𝐴 ∧ 𝑄 ∈ 𝐴)) → (𝑃 = 𝑄 → (𝑋 ≠ 0 → ∃𝑟 ∈ 𝐴 (𝑟 ≤ 𝑋 ∧ 𝑃 ≤ (𝑄 ∨ 𝑟)))))
27	26	a1i 11	. . . 4 ⊢ (𝑃 ≤ (𝑋 ∨ 𝑄) → ((𝐾 ∈ HL ∧ (𝑋 ∈ 𝐵 ∧ 𝑃 ∈ 𝐴 ∧ 𝑄 ∈ 𝐴)) → (𝑃 = 𝑄 → (𝑋 ≠ 0 → ∃𝑟 ∈ 𝐴 (𝑟 ≤ 𝑋 ∧ 𝑃 ≤ (𝑄 ∨ 𝑟))))))
28	27	com4l 92	. . 3 ⊢ ((𝐾 ∈ HL ∧ (𝑋 ∈ 𝐵 ∧ 𝑃 ∈ 𝐴 ∧ 𝑄 ∈ 𝐴)) → (𝑃 = 𝑄 → (𝑋 ≠ 0 → (𝑃 ≤ (𝑋 ∨ 𝑄) → ∃𝑟 ∈ 𝐴 (𝑟 ≤ 𝑋 ∧ 𝑃 ≤ (𝑄 ∨ 𝑟))))))
29	28	imp4a 425	. 2 ⊢ ((𝐾 ∈ HL ∧ (𝑋 ∈ 𝐵 ∧ 𝑃 ∈ 𝐴 ∧ 𝑄 ∈ 𝐴)) → (𝑃 = 𝑄 → ((𝑋 ≠ 0 ∧ 𝑃 ≤ (𝑋 ∨ 𝑄)) → ∃𝑟 ∈ 𝐴 (𝑟 ≤ 𝑋 ∧ 𝑃 ≤ (𝑄 ∨ 𝑟)))))
30		hllat 36501	. . . . . . . . . . . . . 14 ⊢ (𝐾 ∈ HL → 𝐾 ∈ Lat)
31	30	adantr 483	. . . . . . . . . . . . 13 ⊢ ((𝐾 ∈ HL ∧ (𝑋 ∈ 𝐵 ∧ 𝑃 ∈ 𝐴 ∧ 𝑄 ∈ 𝐴)) → 𝐾 ∈ Lat)
32		simpr3 1192	. . . . . . . . . . . . . 14 ⊢ ((𝐾 ∈ HL ∧ (𝑋 ∈ 𝐵 ∧ 𝑃 ∈ 𝐴 ∧ 𝑄 ∈ 𝐴)) → 𝑄 ∈ 𝐴)
33	4, 7	atbase 36427	. . . . . . . . . . . . . 14 ⊢ (𝑄 ∈ 𝐴 → 𝑄 ∈ 𝐵)
34	32, 33	syl 17	. . . . . . . . . . . . 13 ⊢ ((𝐾 ∈ HL ∧ (𝑋 ∈ 𝐵 ∧ 𝑃 ∈ 𝐴 ∧ 𝑄 ∈ 𝐴)) → 𝑄 ∈ 𝐵)
35	4, 5, 15	latleeqj2 17676	. . . . . . . . . . . . 13 ⊢ ((𝐾 ∈ Lat ∧ 𝑄 ∈ 𝐵 ∧ 𝑋 ∈ 𝐵) → (𝑄 ≤ 𝑋 ↔ (𝑋 ∨ 𝑄) = 𝑋))
36	31, 34, 3, 35	syl3anc 1367	. . . . . . . . . . . 12 ⊢ ((𝐾 ∈ HL ∧ (𝑋 ∈ 𝐵 ∧ 𝑃 ∈ 𝐴 ∧ 𝑄 ∈ 𝐴)) → (𝑄 ≤ 𝑋 ↔ (𝑋 ∨ 𝑄) = 𝑋))
37	36	biimpa 479	. . . . . . . . . . 11 ⊢ (((𝐾 ∈ HL ∧ (𝑋 ∈ 𝐵 ∧ 𝑃 ∈ 𝐴 ∧ 𝑄 ∈ 𝐴)) ∧ 𝑄 ≤ 𝑋) → (𝑋 ∨ 𝑄) = 𝑋)
38	37	breq2d 5080	. . . . . . . . . 10 ⊢ (((𝐾 ∈ HL ∧ (𝑋 ∈ 𝐵 ∧ 𝑃 ∈ 𝐴 ∧ 𝑄 ∈ 𝐴)) ∧ 𝑄 ≤ 𝑋) → (𝑃 ≤ (𝑋 ∨ 𝑄) ↔ 𝑃 ≤ 𝑋))
39	38	biimpa 479	. . . . . . . . 9 ⊢ ((((𝐾 ∈ HL ∧ (𝑋 ∈ 𝐵 ∧ 𝑃 ∈ 𝐴 ∧ 𝑄 ∈ 𝐴)) ∧ 𝑄 ≤ 𝑋) ∧ 𝑃 ≤ (𝑋 ∨ 𝑄)) → 𝑃 ≤ 𝑋)
40	39	expl 460	. . . . . . . 8 ⊢ ((𝐾 ∈ HL ∧ (𝑋 ∈ 𝐵 ∧ 𝑃 ∈ 𝐴 ∧ 𝑄 ∈ 𝐴)) → ((𝑄 ≤ 𝑋 ∧ 𝑃 ≤ (𝑋 ∨ 𝑄)) → 𝑃 ≤ 𝑋))
41		simpl 485	. . . . . . . . 9 ⊢ ((𝐾 ∈ HL ∧ (𝑋 ∈ 𝐵 ∧ 𝑃 ∈ 𝐴 ∧ 𝑄 ∈ 𝐴)) → 𝐾 ∈ HL)
42		simpr2 1191	. . . . . . . . 9 ⊢ ((𝐾 ∈ HL ∧ (𝑋 ∈ 𝐵 ∧ 𝑃 ∈ 𝐴 ∧ 𝑄 ∈ 𝐴)) → 𝑃 ∈ 𝐴)
43	5, 15, 7	hlatlej2 36514	. . . . . . . . 9 ⊢ ((𝐾 ∈ HL ∧ 𝑄 ∈ 𝐴 ∧ 𝑃 ∈ 𝐴) → 𝑃 ≤ (𝑄 ∨ 𝑃))
44	41, 32, 42, 43	syl3anc 1367	. . . . . . . 8 ⊢ ((𝐾 ∈ HL ∧ (𝑋 ∈ 𝐵 ∧ 𝑃 ∈ 𝐴 ∧ 𝑄 ∈ 𝐴)) → 𝑃 ≤ (𝑄 ∨ 𝑃))
45	40, 44	jctird 529	. . . . . . 7 ⊢ ((𝐾 ∈ HL ∧ (𝑋 ∈ 𝐵 ∧ 𝑃 ∈ 𝐴 ∧ 𝑄 ∈ 𝐴)) → ((𝑄 ≤ 𝑋 ∧ 𝑃 ≤ (𝑋 ∨ 𝑄)) → (𝑃 ≤ 𝑋 ∧ 𝑃 ≤ (𝑄 ∨ 𝑃))))
46	45, 42	jctild 528	. . . . . 6 ⊢ ((𝐾 ∈ HL ∧ (𝑋 ∈ 𝐵 ∧ 𝑃 ∈ 𝐴 ∧ 𝑄 ∈ 𝐴)) → ((𝑄 ≤ 𝑋 ∧ 𝑃 ≤ (𝑋 ∨ 𝑄)) → (𝑃 ∈ 𝐴 ∧ (𝑃 ≤ 𝑋 ∧ 𝑃 ≤ (𝑄 ∨ 𝑃)))))
47	46	impl 458	. . . . 5 ⊢ ((((𝐾 ∈ HL ∧ (𝑋 ∈ 𝐵 ∧ 𝑃 ∈ 𝐴 ∧ 𝑄 ∈ 𝐴)) ∧ 𝑄 ≤ 𝑋) ∧ 𝑃 ≤ (𝑋 ∨ 𝑄)) → (𝑃 ∈ 𝐴 ∧ (𝑃 ≤ 𝑋 ∧ 𝑃 ≤ (𝑄 ∨ 𝑃))))
48		breq1 5071	. . . . . . 7 ⊢ (𝑟 = 𝑃 → (𝑟 ≤ 𝑋 ↔ 𝑃 ≤ 𝑋))
49		oveq2 7166	. . . . . . . 8 ⊢ (𝑟 = 𝑃 → (𝑄 ∨ 𝑟) = (𝑄 ∨ 𝑃))
50	49	breq2d 5080	. . . . . . 7 ⊢ (𝑟 = 𝑃 → (𝑃 ≤ (𝑄 ∨ 𝑟) ↔ 𝑃 ≤ (𝑄 ∨ 𝑃)))
51	48, 50	anbi12d 632	. . . . . 6 ⊢ (𝑟 = 𝑃 → ((𝑟 ≤ 𝑋 ∧ 𝑃 ≤ (𝑄 ∨ 𝑟)) ↔ (𝑃 ≤ 𝑋 ∧ 𝑃 ≤ (𝑄 ∨ 𝑃))))
52	51	rspcev 3625	. . . . 5 ⊢ ((𝑃 ∈ 𝐴 ∧ (𝑃 ≤ 𝑋 ∧ 𝑃 ≤ (𝑄 ∨ 𝑃))) → ∃𝑟 ∈ 𝐴 (𝑟 ≤ 𝑋 ∧ 𝑃 ≤ (𝑄 ∨ 𝑟)))
53	47, 52	syl 17	. . . 4 ⊢ ((((𝐾 ∈ HL ∧ (𝑋 ∈ 𝐵 ∧ 𝑃 ∈ 𝐴 ∧ 𝑄 ∈ 𝐴)) ∧ 𝑄 ≤ 𝑋) ∧ 𝑃 ≤ (𝑋 ∨ 𝑄)) → ∃𝑟 ∈ 𝐴 (𝑟 ≤ 𝑋 ∧ 𝑃 ≤ (𝑄 ∨ 𝑟)))
54	53	adantrl 714	. . 3 ⊢ ((((𝐾 ∈ HL ∧ (𝑋 ∈ 𝐵 ∧ 𝑃 ∈ 𝐴 ∧ 𝑄 ∈ 𝐴)) ∧ 𝑄 ≤ 𝑋) ∧ (𝑋 ≠ 0 ∧ 𝑃 ≤ (𝑋 ∨ 𝑄))) → ∃𝑟 ∈ 𝐴 (𝑟 ≤ 𝑋 ∧ 𝑃 ≤ (𝑄 ∨ 𝑟)))
55	54	exp31 422	. 2 ⊢ ((𝐾 ∈ HL ∧ (𝑋 ∈ 𝐵 ∧ 𝑃 ∈ 𝐴 ∧ 𝑄 ∈ 𝐴)) → (𝑄 ≤ 𝑋 → ((𝑋 ≠ 0 ∧ 𝑃 ≤ (𝑋 ∨ 𝑄)) → ∃𝑟 ∈ 𝐴 (𝑟 ≤ 𝑋 ∧ 𝑃 ≤ (𝑄 ∨ 𝑟)))))
56		simpr 487	. . 3 ⊢ ((𝑋 ≠ 0 ∧ 𝑃 ≤ (𝑋 ∨ 𝑄)) → 𝑃 ≤ (𝑋 ∨ 𝑄))
57		ioran 980	. . . . 5 ⊢ (¬ (𝑃 = 𝑄 ∨ 𝑄 ≤ 𝑋) ↔ (¬ 𝑃 = 𝑄 ∧ ¬ 𝑄 ≤ 𝑋))
58		df-ne 3019	. . . . . 6 ⊢ (𝑃 ≠ 𝑄 ↔ ¬ 𝑃 = 𝑄)
59	58	anbi1i 625	. . . . 5 ⊢ ((𝑃 ≠ 𝑄 ∧ ¬ 𝑄 ≤ 𝑋) ↔ (¬ 𝑃 = 𝑄 ∧ ¬ 𝑄 ≤ 𝑋))
60	57, 59	bitr4i 280	. . . 4 ⊢ (¬ (𝑃 = 𝑄 ∨ 𝑄 ≤ 𝑋) ↔ (𝑃 ≠ 𝑄 ∧ ¬ 𝑄 ≤ 𝑋))
61		eqid 2823	. . . . . . . . . 10 ⊢ (meet‘𝐾) = (meet‘𝐾)
62	4, 5, 15, 61, 7	cvrat3 36580	. . . . . . . . 9 ⊢ ((𝐾 ∈ HL ∧ (𝑋 ∈ 𝐵 ∧ 𝑃 ∈ 𝐴 ∧ 𝑄 ∈ 𝐴)) → ((𝑃 ≠ 𝑄 ∧ ¬ 𝑄 ≤ 𝑋 ∧ 𝑃 ≤ (𝑋 ∨ 𝑄)) → (𝑋(meet‘𝐾)(𝑃 ∨ 𝑄)) ∈ 𝐴))
63	62	3expd 1349	. . . . . . . 8 ⊢ ((𝐾 ∈ HL ∧ (𝑋 ∈ 𝐵 ∧ 𝑃 ∈ 𝐴 ∧ 𝑄 ∈ 𝐴)) → (𝑃 ≠ 𝑄 → (¬ 𝑄 ≤ 𝑋 → (𝑃 ≤ (𝑋 ∨ 𝑄) → (𝑋(meet‘𝐾)(𝑃 ∨ 𝑄)) ∈ 𝐴))))
64	63	imp4c 426	. . . . . . 7 ⊢ ((𝐾 ∈ HL ∧ (𝑋 ∈ 𝐵 ∧ 𝑃 ∈ 𝐴 ∧ 𝑄 ∈ 𝐴)) → (((𝑃 ≠ 𝑄 ∧ ¬ 𝑄 ≤ 𝑋) ∧ 𝑃 ≤ (𝑋 ∨ 𝑄)) → (𝑋(meet‘𝐾)(𝑃 ∨ 𝑄)) ∈ 𝐴))
65	4, 7	atbase 36427	. . . . . . . . . . . . 13 ⊢ (𝑃 ∈ 𝐴 → 𝑃 ∈ 𝐵)
66	42, 65	syl 17	. . . . . . . . . . . 12 ⊢ ((𝐾 ∈ HL ∧ (𝑋 ∈ 𝐵 ∧ 𝑃 ∈ 𝐴 ∧ 𝑄 ∈ 𝐴)) → 𝑃 ∈ 𝐵)
67	4, 15	latjcl 17663	. . . . . . . . . . . 12 ⊢ ((𝐾 ∈ Lat ∧ 𝑃 ∈ 𝐵 ∧ 𝑄 ∈ 𝐵) → (𝑃 ∨ 𝑄) ∈ 𝐵)
68	31, 66, 34, 67	syl3anc 1367	. . . . . . . . . . 11 ⊢ ((𝐾 ∈ HL ∧ (𝑋 ∈ 𝐵 ∧ 𝑃 ∈ 𝐴 ∧ 𝑄 ∈ 𝐴)) → (𝑃 ∨ 𝑄) ∈ 𝐵)
69	4, 5, 61	latmle1 17688	. . . . . . . . . . 11 ⊢ ((𝐾 ∈ Lat ∧ 𝑋 ∈ 𝐵 ∧ (𝑃 ∨ 𝑄) ∈ 𝐵) → (𝑋(meet‘𝐾)(𝑃 ∨ 𝑄)) ≤ 𝑋)
70	31, 3, 68, 69	syl3anc 1367	. . . . . . . . . 10 ⊢ ((𝐾 ∈ HL ∧ (𝑋 ∈ 𝐵 ∧ 𝑃 ∈ 𝐴 ∧ 𝑄 ∈ 𝐴)) → (𝑋(meet‘𝐾)(𝑃 ∨ 𝑄)) ≤ 𝑋)
71	70	adantr 483	. . . . . . . . 9 ⊢ (((𝐾 ∈ HL ∧ (𝑋 ∈ 𝐵 ∧ 𝑃 ∈ 𝐴 ∧ 𝑄 ∈ 𝐴)) ∧ ((𝑃 ≠ 𝑄 ∧ ¬ 𝑄 ≤ 𝑋) ∧ 𝑃 ≤ (𝑋 ∨ 𝑄))) → (𝑋(meet‘𝐾)(𝑃 ∨ 𝑄)) ≤ 𝑋)
72		simpll 765	. . . . . . . . . . 11 ⊢ (((𝐾 ∈ HL ∧ (𝑋 ∈ 𝐵 ∧ 𝑃 ∈ 𝐴 ∧ 𝑄 ∈ 𝐴)) ∧ ((𝑃 ≠ 𝑄 ∧ ¬ 𝑄 ≤ 𝑋) ∧ 𝑃 ≤ (𝑋 ∨ 𝑄))) → 𝐾 ∈ HL)
73	63	imp44 431	. . . . . . . . . . . 12 ⊢ (((𝐾 ∈ HL ∧ (𝑋 ∈ 𝐵 ∧ 𝑃 ∈ 𝐴 ∧ 𝑄 ∈ 𝐴)) ∧ ((𝑃 ≠ 𝑄 ∧ ¬ 𝑄 ≤ 𝑋) ∧ 𝑃 ≤ (𝑋 ∨ 𝑄))) → (𝑋(meet‘𝐾)(𝑃 ∨ 𝑄)) ∈ 𝐴)
74		simplr2 1212	. . . . . . . . . . . 12 ⊢ (((𝐾 ∈ HL ∧ (𝑋 ∈ 𝐵 ∧ 𝑃 ∈ 𝐴 ∧ 𝑄 ∈ 𝐴)) ∧ ((𝑃 ≠ 𝑄 ∧ ¬ 𝑄 ≤ 𝑋) ∧ 𝑃 ≤ (𝑋 ∨ 𝑄))) → 𝑃 ∈ 𝐴)
75	34	adantr 483	. . . . . . . . . . . 12 ⊢ (((𝐾 ∈ HL ∧ (𝑋 ∈ 𝐵 ∧ 𝑃 ∈ 𝐴 ∧ 𝑄 ∈ 𝐴)) ∧ ((𝑃 ≠ 𝑄 ∧ ¬ 𝑄 ≤ 𝑋) ∧ 𝑃 ≤ (𝑋 ∨ 𝑄))) → 𝑄 ∈ 𝐵)
76	73, 74, 75	3jca 1124	. . . . . . . . . . 11 ⊢ (((𝐾 ∈ HL ∧ (𝑋 ∈ 𝐵 ∧ 𝑃 ∈ 𝐴 ∧ 𝑄 ∈ 𝐴)) ∧ ((𝑃 ≠ 𝑄 ∧ ¬ 𝑄 ≤ 𝑋) ∧ 𝑃 ≤ (𝑋 ∨ 𝑄))) → ((𝑋(meet‘𝐾)(𝑃 ∨ 𝑄)) ∈ 𝐴 ∧ 𝑃 ∈ 𝐴 ∧ 𝑄 ∈ 𝐵))
77	72, 76	jca 514	. . . . . . . . . 10 ⊢ (((𝐾 ∈ HL ∧ (𝑋 ∈ 𝐵 ∧ 𝑃 ∈ 𝐴 ∧ 𝑄 ∈ 𝐴)) ∧ ((𝑃 ≠ 𝑄 ∧ ¬ 𝑄 ≤ 𝑋) ∧ 𝑃 ≤ (𝑋 ∨ 𝑄))) → (𝐾 ∈ HL ∧ ((𝑋(meet‘𝐾)(𝑃 ∨ 𝑄)) ∈ 𝐴 ∧ 𝑃 ∈ 𝐴 ∧ 𝑄 ∈ 𝐵)))
78	4, 5, 61, 6, 7	atnle 36455	. . . . . . . . . . . . . . . 16 ⊢ ((𝐾 ∈ AtLat ∧ 𝑄 ∈ 𝐴 ∧ 𝑋 ∈ 𝐵) → (¬ 𝑄 ≤ 𝑋 ↔ (𝑄(meet‘𝐾)𝑋) = 0 ))
79	2, 32, 3, 78	syl3anc 1367	. . . . . . . . . . . . . . 15 ⊢ ((𝐾 ∈ HL ∧ (𝑋 ∈ 𝐵 ∧ 𝑃 ∈ 𝐴 ∧ 𝑄 ∈ 𝐴)) → (¬ 𝑄 ≤ 𝑋 ↔ (𝑄(meet‘𝐾)𝑋) = 0 ))
80	4, 61	latmcom 17687	. . . . . . . . . . . . . . . . 17 ⊢ ((𝐾 ∈ Lat ∧ 𝑄 ∈ 𝐵 ∧ 𝑋 ∈ 𝐵) → (𝑄(meet‘𝐾)𝑋) = (𝑋(meet‘𝐾)𝑄))
81	31, 34, 3, 80	syl3anc 1367	. . . . . . . . . . . . . . . 16 ⊢ ((𝐾 ∈ HL ∧ (𝑋 ∈ 𝐵 ∧ 𝑃 ∈ 𝐴 ∧ 𝑄 ∈ 𝐴)) → (𝑄(meet‘𝐾)𝑋) = (𝑋(meet‘𝐾)𝑄))
82	81	eqeq1d 2825	. . . . . . . . . . . . . . 15 ⊢ ((𝐾 ∈ HL ∧ (𝑋 ∈ 𝐵 ∧ 𝑃 ∈ 𝐴 ∧ 𝑄 ∈ 𝐴)) → ((𝑄(meet‘𝐾)𝑋) = 0 ↔ (𝑋(meet‘𝐾)𝑄) = 0 ))
83	79, 82	bitrd 281	. . . . . . . . . . . . . 14 ⊢ ((𝐾 ∈ HL ∧ (𝑋 ∈ 𝐵 ∧ 𝑃 ∈ 𝐴 ∧ 𝑄 ∈ 𝐴)) → (¬ 𝑄 ≤ 𝑋 ↔ (𝑋(meet‘𝐾)𝑄) = 0 ))
84	4, 61	latmcl 17664	. . . . . . . . . . . . . . . . . . . . 21 ⊢ ((𝐾 ∈ Lat ∧ 𝑋 ∈ 𝐵 ∧ (𝑃 ∨ 𝑄) ∈ 𝐵) → (𝑋(meet‘𝐾)(𝑃 ∨ 𝑄)) ∈ 𝐵)
85	31, 3, 68, 84	syl3anc 1367	. . . . . . . . . . . . . . . . . . . 20 ⊢ ((𝐾 ∈ HL ∧ (𝑋 ∈ 𝐵 ∧ 𝑃 ∈ 𝐴 ∧ 𝑄 ∈ 𝐴)) → (𝑋(meet‘𝐾)(𝑃 ∨ 𝑄)) ∈ 𝐵)
86	85, 3, 34	3jca 1124	. . . . . . . . . . . . . . . . . . 19 ⊢ ((𝐾 ∈ HL ∧ (𝑋 ∈ 𝐵 ∧ 𝑃 ∈ 𝐴 ∧ 𝑄 ∈ 𝐴)) → ((𝑋(meet‘𝐾)(𝑃 ∨ 𝑄)) ∈ 𝐵 ∧ 𝑋 ∈ 𝐵 ∧ 𝑄 ∈ 𝐵))
87	31, 86	jca 514	. . . . . . . . . . . . . . . . . 18 ⊢ ((𝐾 ∈ HL ∧ (𝑋 ∈ 𝐵 ∧ 𝑃 ∈ 𝐴 ∧ 𝑄 ∈ 𝐴)) → (𝐾 ∈ Lat ∧ ((𝑋(meet‘𝐾)(𝑃 ∨ 𝑄)) ∈ 𝐵 ∧ 𝑋 ∈ 𝐵 ∧ 𝑄 ∈ 𝐵)))
88	4, 5, 61	latmlem2 17694	. . . . . . . . . . . . . . . . . 18 ⊢ ((𝐾 ∈ Lat ∧ ((𝑋(meet‘𝐾)(𝑃 ∨ 𝑄)) ∈ 𝐵 ∧ 𝑋 ∈ 𝐵 ∧ 𝑄 ∈ 𝐵)) → ((𝑋(meet‘𝐾)(𝑃 ∨ 𝑄)) ≤ 𝑋 → (𝑄(meet‘𝐾)(𝑋(meet‘𝐾)(𝑃 ∨ 𝑄))) ≤ (𝑄(meet‘𝐾)𝑋)))
89	87, 70, 88	sylc 65	. . . . . . . . . . . . . . . . 17 ⊢ ((𝐾 ∈ HL ∧ (𝑋 ∈ 𝐵 ∧ 𝑃 ∈ 𝐴 ∧ 𝑄 ∈ 𝐴)) → (𝑄(meet‘𝐾)(𝑋(meet‘𝐾)(𝑃 ∨ 𝑄))) ≤ (𝑄(meet‘𝐾)𝑋))
90	89, 81	breqtrd 5094	. . . . . . . . . . . . . . . 16 ⊢ ((𝐾 ∈ HL ∧ (𝑋 ∈ 𝐵 ∧ 𝑃 ∈ 𝐴 ∧ 𝑄 ∈ 𝐴)) → (𝑄(meet‘𝐾)(𝑋(meet‘𝐾)(𝑃 ∨ 𝑄))) ≤ (𝑋(meet‘𝐾)𝑄))
91		breq2 5072	. . . . . . . . . . . . . . . 16 ⊢ ((𝑋(meet‘𝐾)𝑄) = 0 → ((𝑄(meet‘𝐾)(𝑋(meet‘𝐾)(𝑃 ∨ 𝑄))) ≤ (𝑋(meet‘𝐾)𝑄) ↔ (𝑄(meet‘𝐾)(𝑋(meet‘𝐾)(𝑃 ∨ 𝑄))) ≤ 0 ))
92	90, 91	syl5ibcom 247	. . . . . . . . . . . . . . 15 ⊢ ((𝐾 ∈ HL ∧ (𝑋 ∈ 𝐵 ∧ 𝑃 ∈ 𝐴 ∧ 𝑄 ∈ 𝐴)) → ((𝑋(meet‘𝐾)𝑄) = 0 → (𝑄(meet‘𝐾)(𝑋(meet‘𝐾)(𝑃 ∨ 𝑄))) ≤ 0 ))
93		hlop 36500	. . . . . . . . . . . . . . . . 17 ⊢ (𝐾 ∈ HL → 𝐾 ∈ OP)
94	93	adantr 483	. . . . . . . . . . . . . . . 16 ⊢ ((𝐾 ∈ HL ∧ (𝑋 ∈ 𝐵 ∧ 𝑃 ∈ 𝐴 ∧ 𝑄 ∈ 𝐴)) → 𝐾 ∈ OP)
95	4, 61	latmcl 17664	. . . . . . . . . . . . . . . . 17 ⊢ ((𝐾 ∈ Lat ∧ 𝑄 ∈ 𝐵 ∧ (𝑋(meet‘𝐾)(𝑃 ∨ 𝑄)) ∈ 𝐵) → (𝑄(meet‘𝐾)(𝑋(meet‘𝐾)(𝑃 ∨ 𝑄))) ∈ 𝐵)
96	31, 34, 85, 95	syl3anc 1367	. . . . . . . . . . . . . . . 16 ⊢ ((𝐾 ∈ HL ∧ (𝑋 ∈ 𝐵 ∧ 𝑃 ∈ 𝐴 ∧ 𝑄 ∈ 𝐴)) → (𝑄(meet‘𝐾)(𝑋(meet‘𝐾)(𝑃 ∨ 𝑄))) ∈ 𝐵)
97	4, 5, 6	ople0 36325	. . . . . . . . . . . . . . . 16 ⊢ ((𝐾 ∈ OP ∧ (𝑄(meet‘𝐾)(𝑋(meet‘𝐾)(𝑃 ∨ 𝑄))) ∈ 𝐵) → ((𝑄(meet‘𝐾)(𝑋(meet‘𝐾)(𝑃 ∨ 𝑄))) ≤ 0 ↔ (𝑄(meet‘𝐾)(𝑋(meet‘𝐾)(𝑃 ∨ 𝑄))) = 0 ))
98	94, 96, 97	syl2anc 586	. . . . . . . . . . . . . . 15 ⊢ ((𝐾 ∈ HL ∧ (𝑋 ∈ 𝐵 ∧ 𝑃 ∈ 𝐴 ∧ 𝑄 ∈ 𝐴)) → ((𝑄(meet‘𝐾)(𝑋(meet‘𝐾)(𝑃 ∨ 𝑄))) ≤ 0 ↔ (𝑄(meet‘𝐾)(𝑋(meet‘𝐾)(𝑃 ∨ 𝑄))) = 0 ))
99	92, 98	sylibd 241	. . . . . . . . . . . . . 14 ⊢ ((𝐾 ∈ HL ∧ (𝑋 ∈ 𝐵 ∧ 𝑃 ∈ 𝐴 ∧ 𝑄 ∈ 𝐴)) → ((𝑋(meet‘𝐾)𝑄) = 0 → (𝑄(meet‘𝐾)(𝑋(meet‘𝐾)(𝑃 ∨ 𝑄))) = 0 ))
100	83, 99	sylbid 242	. . . . . . . . . . . . 13 ⊢ ((𝐾 ∈ HL ∧ (𝑋 ∈ 𝐵 ∧ 𝑃 ∈ 𝐴 ∧ 𝑄 ∈ 𝐴)) → (¬ 𝑄 ≤ 𝑋 → (𝑄(meet‘𝐾)(𝑋(meet‘𝐾)(𝑃 ∨ 𝑄))) = 0 ))
101	100	imp 409	. . . . . . . . . . . 12 ⊢ (((𝐾 ∈ HL ∧ (𝑋 ∈ 𝐵 ∧ 𝑃 ∈ 𝐴 ∧ 𝑄 ∈ 𝐴)) ∧ ¬ 𝑄 ≤ 𝑋) → (𝑄(meet‘𝐾)(𝑋(meet‘𝐾)(𝑃 ∨ 𝑄))) = 0 )
102	101	adantrl 714	. . . . . . . . . . 11 ⊢ (((𝐾 ∈ HL ∧ (𝑋 ∈ 𝐵 ∧ 𝑃 ∈ 𝐴 ∧ 𝑄 ∈ 𝐴)) ∧ (𝑃 ≠ 𝑄 ∧ ¬ 𝑄 ≤ 𝑋)) → (𝑄(meet‘𝐾)(𝑋(meet‘𝐾)(𝑃 ∨ 𝑄))) = 0 )
103	102	adantrr 715	. . . . . . . . . 10 ⊢ (((𝐾 ∈ HL ∧ (𝑋 ∈ 𝐵 ∧ 𝑃 ∈ 𝐴 ∧ 𝑄 ∈ 𝐴)) ∧ ((𝑃 ≠ 𝑄 ∧ ¬ 𝑄 ≤ 𝑋) ∧ 𝑃 ≤ (𝑋 ∨ 𝑄))) → (𝑄(meet‘𝐾)(𝑋(meet‘𝐾)(𝑃 ∨ 𝑄))) = 0 )
104	4, 5, 61	latmle2 17689	. . . . . . . . . . . . 13 ⊢ ((𝐾 ∈ Lat ∧ 𝑋 ∈ 𝐵 ∧ (𝑃 ∨ 𝑄) ∈ 𝐵) → (𝑋(meet‘𝐾)(𝑃 ∨ 𝑄)) ≤ (𝑃 ∨ 𝑄))
105	31, 3, 68, 104	syl3anc 1367	. . . . . . . . . . . 12 ⊢ ((𝐾 ∈ HL ∧ (𝑋 ∈ 𝐵 ∧ 𝑃 ∈ 𝐴 ∧ 𝑄 ∈ 𝐴)) → (𝑋(meet‘𝐾)(𝑃 ∨ 𝑄)) ≤ (𝑃 ∨ 𝑄))
106	4, 15	latjcom 17671	. . . . . . . . . . . . 13 ⊢ ((𝐾 ∈ Lat ∧ 𝑃 ∈ 𝐵 ∧ 𝑄 ∈ 𝐵) → (𝑃 ∨ 𝑄) = (𝑄 ∨ 𝑃))
107	31, 66, 34, 106	syl3anc 1367	. . . . . . . . . . . 12 ⊢ ((𝐾 ∈ HL ∧ (𝑋 ∈ 𝐵 ∧ 𝑃 ∈ 𝐴 ∧ 𝑄 ∈ 𝐴)) → (𝑃 ∨ 𝑄) = (𝑄 ∨ 𝑃))
108	105, 107	breqtrd 5094	. . . . . . . . . . 11 ⊢ ((𝐾 ∈ HL ∧ (𝑋 ∈ 𝐵 ∧ 𝑃 ∈ 𝐴 ∧ 𝑄 ∈ 𝐴)) → (𝑋(meet‘𝐾)(𝑃 ∨ 𝑄)) ≤ (𝑄 ∨ 𝑃))
109	108	adantr 483	. . . . . . . . . 10 ⊢ (((𝐾 ∈ HL ∧ (𝑋 ∈ 𝐵 ∧ 𝑃 ∈ 𝐴 ∧ 𝑄 ∈ 𝐴)) ∧ ((𝑃 ≠ 𝑄 ∧ ¬ 𝑄 ≤ 𝑋) ∧ 𝑃 ≤ (𝑋 ∨ 𝑄))) → (𝑋(meet‘𝐾)(𝑃 ∨ 𝑄)) ≤ (𝑄 ∨ 𝑃))
110	30	adantr 483	. . . . . . . . . . . . 13 ⊢ ((𝐾 ∈ HL ∧ ((𝑋(meet‘𝐾)(𝑃 ∨ 𝑄)) ∈ 𝐴 ∧ 𝑃 ∈ 𝐴 ∧ 𝑄 ∈ 𝐵)) → 𝐾 ∈ Lat)
111		simpr3 1192	. . . . . . . . . . . . 13 ⊢ ((𝐾 ∈ HL ∧ ((𝑋(meet‘𝐾)(𝑃 ∨ 𝑄)) ∈ 𝐴 ∧ 𝑃 ∈ 𝐴 ∧ 𝑄 ∈ 𝐵)) → 𝑄 ∈ 𝐵)
112		simpr1 1190	. . . . . . . . . . . . . 14 ⊢ ((𝐾 ∈ HL ∧ ((𝑋(meet‘𝐾)(𝑃 ∨ 𝑄)) ∈ 𝐴 ∧ 𝑃 ∈ 𝐴 ∧ 𝑄 ∈ 𝐵)) → (𝑋(meet‘𝐾)(𝑃 ∨ 𝑄)) ∈ 𝐴)
113	4, 7	atbase 36427	. . . . . . . . . . . . . 14 ⊢ ((𝑋(meet‘𝐾)(𝑃 ∨ 𝑄)) ∈ 𝐴 → (𝑋(meet‘𝐾)(𝑃 ∨ 𝑄)) ∈ 𝐵)
114	112, 113	syl 17	. . . . . . . . . . . . 13 ⊢ ((𝐾 ∈ HL ∧ ((𝑋(meet‘𝐾)(𝑃 ∨ 𝑄)) ∈ 𝐴 ∧ 𝑃 ∈ 𝐴 ∧ 𝑄 ∈ 𝐵)) → (𝑋(meet‘𝐾)(𝑃 ∨ 𝑄)) ∈ 𝐵)
115	4, 61	latmcom 17687	. . . . . . . . . . . . 13 ⊢ ((𝐾 ∈ Lat ∧ 𝑄 ∈ 𝐵 ∧ (𝑋(meet‘𝐾)(𝑃 ∨ 𝑄)) ∈ 𝐵) → (𝑄(meet‘𝐾)(𝑋(meet‘𝐾)(𝑃 ∨ 𝑄))) = ((𝑋(meet‘𝐾)(𝑃 ∨ 𝑄))(meet‘𝐾)𝑄))
116	110, 111, 114, 115	syl3anc 1367	. . . . . . . . . . . 12 ⊢ ((𝐾 ∈ HL ∧ ((𝑋(meet‘𝐾)(𝑃 ∨ 𝑄)) ∈ 𝐴 ∧ 𝑃 ∈ 𝐴 ∧ 𝑄 ∈ 𝐵)) → (𝑄(meet‘𝐾)(𝑋(meet‘𝐾)(𝑃 ∨ 𝑄))) = ((𝑋(meet‘𝐾)(𝑃 ∨ 𝑄))(meet‘𝐾)𝑄))
117	116	eqeq1d 2825	. . . . . . . . . . 11 ⊢ ((𝐾 ∈ HL ∧ ((𝑋(meet‘𝐾)(𝑃 ∨ 𝑄)) ∈ 𝐴 ∧ 𝑃 ∈ 𝐴 ∧ 𝑄 ∈ 𝐵)) → ((𝑄(meet‘𝐾)(𝑋(meet‘𝐾)(𝑃 ∨ 𝑄))) = 0 ↔ ((𝑋(meet‘𝐾)(𝑃 ∨ 𝑄))(meet‘𝐾)𝑄) = 0 ))
118	4, 5, 15, 61, 6, 7	hlexch3 36529	. . . . . . . . . . . 12 ⊢ ((𝐾 ∈ HL ∧ ((𝑋(meet‘𝐾)(𝑃 ∨ 𝑄)) ∈ 𝐴 ∧ 𝑃 ∈ 𝐴 ∧ 𝑄 ∈ 𝐵) ∧ ((𝑋(meet‘𝐾)(𝑃 ∨ 𝑄))(meet‘𝐾)𝑄) = 0 ) → ((𝑋(meet‘𝐾)(𝑃 ∨ 𝑄)) ≤ (𝑄 ∨ 𝑃) → 𝑃 ≤ (𝑄 ∨ (𝑋(meet‘𝐾)(𝑃 ∨ 𝑄)))))
119	118	3expia 1117	. . . . . . . . . . 11 ⊢ ((𝐾 ∈ HL ∧ ((𝑋(meet‘𝐾)(𝑃 ∨ 𝑄)) ∈ 𝐴 ∧ 𝑃 ∈ 𝐴 ∧ 𝑄 ∈ 𝐵)) → (((𝑋(meet‘𝐾)(𝑃 ∨ 𝑄))(meet‘𝐾)𝑄) = 0 → ((𝑋(meet‘𝐾)(𝑃 ∨ 𝑄)) ≤ (𝑄 ∨ 𝑃) → 𝑃 ≤ (𝑄 ∨ (𝑋(meet‘𝐾)(𝑃 ∨ 𝑄))))))
120	117, 119	sylbid 242	. . . . . . . . . 10 ⊢ ((𝐾 ∈ HL ∧ ((𝑋(meet‘𝐾)(𝑃 ∨ 𝑄)) ∈ 𝐴 ∧ 𝑃 ∈ 𝐴 ∧ 𝑄 ∈ 𝐵)) → ((𝑄(meet‘𝐾)(𝑋(meet‘𝐾)(𝑃 ∨ 𝑄))) = 0 → ((𝑋(meet‘𝐾)(𝑃 ∨ 𝑄)) ≤ (𝑄 ∨ 𝑃) → 𝑃 ≤ (𝑄 ∨ (𝑋(meet‘𝐾)(𝑃 ∨ 𝑄))))))
121	77, 103, 109, 120	syl3c 66	. . . . . . . . 9 ⊢ (((𝐾 ∈ HL ∧ (𝑋 ∈ 𝐵 ∧ 𝑃 ∈ 𝐴 ∧ 𝑄 ∈ 𝐴)) ∧ ((𝑃 ≠ 𝑄 ∧ ¬ 𝑄 ≤ 𝑋) ∧ 𝑃 ≤ (𝑋 ∨ 𝑄))) → 𝑃 ≤ (𝑄 ∨ (𝑋(meet‘𝐾)(𝑃 ∨ 𝑄))))
122	71, 121	jca 514	. . . . . . . 8 ⊢ (((𝐾 ∈ HL ∧ (𝑋 ∈ 𝐵 ∧ 𝑃 ∈ 𝐴 ∧ 𝑄 ∈ 𝐴)) ∧ ((𝑃 ≠ 𝑄 ∧ ¬ 𝑄 ≤ 𝑋) ∧ 𝑃 ≤ (𝑋 ∨ 𝑄))) → ((𝑋(meet‘𝐾)(𝑃 ∨ 𝑄)) ≤ 𝑋 ∧ 𝑃 ≤ (𝑄 ∨ (𝑋(meet‘𝐾)(𝑃 ∨ 𝑄)))))
123	122	ex 415	. . . . . . 7 ⊢ ((𝐾 ∈ HL ∧ (𝑋 ∈ 𝐵 ∧ 𝑃 ∈ 𝐴 ∧ 𝑄 ∈ 𝐴)) → (((𝑃 ≠ 𝑄 ∧ ¬ 𝑄 ≤ 𝑋) ∧ 𝑃 ≤ (𝑋 ∨ 𝑄)) → ((𝑋(meet‘𝐾)(𝑃 ∨ 𝑄)) ≤ 𝑋 ∧ 𝑃 ≤ (𝑄 ∨ (𝑋(meet‘𝐾)(𝑃 ∨ 𝑄))))))
124	64, 123	jcad 515	. . . . . 6 ⊢ ((𝐾 ∈ HL ∧ (𝑋 ∈ 𝐵 ∧ 𝑃 ∈ 𝐴 ∧ 𝑄 ∈ 𝐴)) → (((𝑃 ≠ 𝑄 ∧ ¬ 𝑄 ≤ 𝑋) ∧ 𝑃 ≤ (𝑋 ∨ 𝑄)) → ((𝑋(meet‘𝐾)(𝑃 ∨ 𝑄)) ∈ 𝐴 ∧ ((𝑋(meet‘𝐾)(𝑃 ∨ 𝑄)) ≤ 𝑋 ∧ 𝑃 ≤ (𝑄 ∨ (𝑋(meet‘𝐾)(𝑃 ∨ 𝑄)))))))
125		breq1 5071	. . . . . . . 8 ⊢ (𝑟 = (𝑋(meet‘𝐾)(𝑃 ∨ 𝑄)) → (𝑟 ≤ 𝑋 ↔ (𝑋(meet‘𝐾)(𝑃 ∨ 𝑄)) ≤ 𝑋))
126		oveq2 7166	. . . . . . . . 9 ⊢ (𝑟 = (𝑋(meet‘𝐾)(𝑃 ∨ 𝑄)) → (𝑄 ∨ 𝑟) = (𝑄 ∨ (𝑋(meet‘𝐾)(𝑃 ∨ 𝑄))))
127	126	breq2d 5080	. . . . . . . 8 ⊢ (𝑟 = (𝑋(meet‘𝐾)(𝑃 ∨ 𝑄)) → (𝑃 ≤ (𝑄 ∨ 𝑟) ↔ 𝑃 ≤ (𝑄 ∨ (𝑋(meet‘𝐾)(𝑃 ∨ 𝑄)))))
128	125, 127	anbi12d 632	. . . . . . 7 ⊢ (𝑟 = (𝑋(meet‘𝐾)(𝑃 ∨ 𝑄)) → ((𝑟 ≤ 𝑋 ∧ 𝑃 ≤ (𝑄 ∨ 𝑟)) ↔ ((𝑋(meet‘𝐾)(𝑃 ∨ 𝑄)) ≤ 𝑋 ∧ 𝑃 ≤ (𝑄 ∨ (𝑋(meet‘𝐾)(𝑃 ∨ 𝑄))))))
129	128	rspcev 3625	. . . . . 6 ⊢ (((𝑋(meet‘𝐾)(𝑃 ∨ 𝑄)) ∈ 𝐴 ∧ ((𝑋(meet‘𝐾)(𝑃 ∨ 𝑄)) ≤ 𝑋 ∧ 𝑃 ≤ (𝑄 ∨ (𝑋(meet‘𝐾)(𝑃 ∨ 𝑄))))) → ∃𝑟 ∈ 𝐴 (𝑟 ≤ 𝑋 ∧ 𝑃 ≤ (𝑄 ∨ 𝑟)))
130	124, 129	syl6 35	. . . . 5 ⊢ ((𝐾 ∈ HL ∧ (𝑋 ∈ 𝐵 ∧ 𝑃 ∈ 𝐴 ∧ 𝑄 ∈ 𝐴)) → (((𝑃 ≠ 𝑄 ∧ ¬ 𝑄 ≤ 𝑋) ∧ 𝑃 ≤ (𝑋 ∨ 𝑄)) → ∃𝑟 ∈ 𝐴 (𝑟 ≤ 𝑋 ∧ 𝑃 ≤ (𝑄 ∨ 𝑟))))
131	130	expd 418	. . . 4 ⊢ ((𝐾 ∈ HL ∧ (𝑋 ∈ 𝐵 ∧ 𝑃 ∈ 𝐴 ∧ 𝑄 ∈ 𝐴)) → ((𝑃 ≠ 𝑄 ∧ ¬ 𝑄 ≤ 𝑋) → (𝑃 ≤ (𝑋 ∨ 𝑄) → ∃𝑟 ∈ 𝐴 (𝑟 ≤ 𝑋 ∧ 𝑃 ≤ (𝑄 ∨ 𝑟)))))
132	60, 131	syl5bi 244	. . 3 ⊢ ((𝐾 ∈ HL ∧ (𝑋 ∈ 𝐵 ∧ 𝑃 ∈ 𝐴 ∧ 𝑄 ∈ 𝐴)) → (¬ (𝑃 = 𝑄 ∨ 𝑄 ≤ 𝑋) → (𝑃 ≤ (𝑋 ∨ 𝑄) → ∃𝑟 ∈ 𝐴 (𝑟 ≤ 𝑋 ∧ 𝑃 ≤ (𝑄 ∨ 𝑟)))))
133	56, 132	syl7 74	. 2 ⊢ ((𝐾 ∈ HL ∧ (𝑋 ∈ 𝐵 ∧ 𝑃 ∈ 𝐴 ∧ 𝑄 ∈ 𝐴)) → (¬ (𝑃 = 𝑄 ∨ 𝑄 ≤ 𝑋) → ((𝑋 ≠ 0 ∧ 𝑃 ≤ (𝑋 ∨ 𝑄)) → ∃𝑟 ∈ 𝐴 (𝑟 ≤ 𝑋 ∧ 𝑃 ≤ (𝑄 ∨ 𝑟)))))
134	29, 55, 133	ecase3d 1029	1 ⊢ ((𝐾 ∈ HL ∧ (𝑋 ∈ 𝐵 ∧ 𝑃 ∈ 𝐴 ∧ 𝑄 ∈ 𝐴)) → ((𝑋 ≠ 0 ∧ 𝑃 ≤ (𝑋 ∨ 𝑄)) → ∃𝑟 ∈ 𝐴 (𝑟 ≤ 𝑋 ∧ 𝑃 ≤ (𝑄 ∨ 𝑟))))

Syntax hints:  ¬ wn 3   → wi 4   ↔ wb 208   ∧ wa 398   ∨ wo 843   ∧ w3a 1083   = wceq 1537   ∈ wcel 2114   ≠ wne 3018  ∃wrex 3141   class class class wbr 5068  ‘cfv 6357  (class class class)co 7158  Basecbs 16485  lecple 16574  joincjn 17556  meetcmee 17557  0.cp0 17649  Latclat 17657  OPcops 36310  Atomscatm 36401  AtLatcal 36402  HLchlt 36488

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1796  ax-4 1810  ax-5 1911  ax-6 1970  ax-7 2015  ax-8 2116  ax-9 2124  ax-10 2145  ax-11 2161  ax-12 2177  ax-ext 2795  ax-rep 5192  ax-sep 5205  ax-nul 5212  ax-pow 5268  ax-pr 5332  ax-un 7463

This theorem depends on definitions:  df-bi 209  df-an 399  df-or 844  df-3an 1085  df-tru 1540  df-ex 1781  df-nf 1785  df-sb 2070  df-mo 2622  df-eu 2654  df-clab 2802  df-cleq 2816  df-clel 2895  df-nfc 2965  df-ne 3019  df-ral 3145  df-rex 3146  df-reu 3147  df-rab 3149  df-v 3498  df-sbc 3775  df-csb 3886  df-dif 3941  df-un 3943  df-in 3945  df-ss 3954  df-nul 4294  df-if 4470  df-pw 4543  df-sn 4570  df-pr 4572  df-op 4576  df-uni 4841  df-iun 4923  df-br 5069  df-opab 5131  df-mpt 5149  df-id 5462  df-xp 5563  df-rel 5564  df-cnv 5565  df-co 5566  df-dm 5567  df-rn 5568  df-res 5569  df-ima 5570  df-iota 6316  df-fun 6359  df-fn 6360  df-f 6361  df-f1 6362  df-fo 6363  df-f1o 6364  df-fv 6365  df-riota 7116  df-ov 7161  df-oprab 7162  df-proset 17540  df-poset 17558  df-plt 17570  df-lub 17586  df-glb 17587  df-join 17588  df-meet 17589  df-p0 17651  df-lat 17658  df-clat 17720  df-oposet 36314  df-ol 36316  df-oml 36317  df-covers 36404  df-ats 36405  df-atl 36436  df-cvlat 36460  df-hlat 36489

This theorem is referenced by:  cvrat42  36582  ps-2  36616