Theorem cvrat4 33747

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 28640 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 33665	. . . . . . . . . 10 ⊢ (𝐾 ∈ HL → 𝐾 ∈ AtLat)
2	1	adantr 480	. . . . . . . . 9 ⊢ ((𝐾 ∈ HL ∧ (𝑋 ∈ 𝐵 ∧ 𝑃 ∈ 𝐴 ∧ 𝑄 ∈ 𝐴)) → 𝐾 ∈ AtLat)
3		simpr1 1060	. . . . . . . . 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 33621	. . . . . . . . . 10 ⊢ ((𝐾 ∈ AtLat ∧ 𝑋 ∈ 𝐵 ∧ 𝑋 ≠ 0 ) → ∃𝑟 ∈ 𝐴 𝑟 ≤ 𝑋)
9	8	3exp 1256	. . . . . . . . 9 ⊢ (𝐾 ∈ AtLat → (𝑋 ∈ 𝐵 → (𝑋 ≠ 0 → ∃𝑟 ∈ 𝐴 𝑟 ≤ 𝑋)))
10	2, 3, 9	sylc 63	. . . . . . . 8 ⊢ ((𝐾 ∈ HL ∧ (𝑋 ∈ 𝐵 ∧ 𝑃 ∈ 𝐴 ∧ 𝑄 ∈ 𝐴)) → (𝑋 ≠ 0 → ∃𝑟 ∈ 𝐴 𝑟 ≤ 𝑋))
11	10	adantr 480	. . . . . . 7 ⊢ (((𝐾 ∈ HL ∧ (𝑋 ∈ 𝐵 ∧ 𝑃 ∈ 𝐴 ∧ 𝑄 ∈ 𝐴)) ∧ 𝑃 = 𝑄) → (𝑋 ≠ 0 → ∃𝑟 ∈ 𝐴 𝑟 ≤ 𝑋))
12		simpll 786	. . . . . . . . . . . . . 14 ⊢ (((𝐾 ∈ HL ∧ (𝑋 ∈ 𝐵 ∧ 𝑃 ∈ 𝐴 ∧ 𝑄 ∈ 𝐴)) ∧ 𝑟 ∈ 𝐴) → 𝐾 ∈ HL)
13		simplr3 1098	. . . . . . . . . . . . . 14 ⊢ (((𝐾 ∈ HL ∧ (𝑋 ∈ 𝐵 ∧ 𝑃 ∈ 𝐴 ∧ 𝑄 ∈ 𝐴)) ∧ 𝑟 ∈ 𝐴) → 𝑄 ∈ 𝐴)
14		simpr 476	. . . . . . . . . . . . . 14 ⊢ (((𝐾 ∈ HL ∧ (𝑋 ∈ 𝐵 ∧ 𝑃 ∈ 𝐴 ∧ 𝑄 ∈ 𝐴)) ∧ 𝑟 ∈ 𝐴) → 𝑟 ∈ 𝐴)
15		cvrat4.j	. . . . . . . . . . . . . . 15 ⊢ ∨ = (join‘𝐾)
16	5, 15, 7	hlatlej1 33679	. . . . . . . . . . . . . 14 ⊢ ((𝐾 ∈ HL ∧ 𝑄 ∈ 𝐴 ∧ 𝑟 ∈ 𝐴) → 𝑄 ≤ (𝑄 ∨ 𝑟))
17	12, 13, 14, 16	syl3anc 1318	. . . . . . . . . . . . 13 ⊢ (((𝐾 ∈ HL ∧ (𝑋 ∈ 𝐵 ∧ 𝑃 ∈ 𝐴 ∧ 𝑄 ∈ 𝐴)) ∧ 𝑟 ∈ 𝐴) → 𝑄 ≤ (𝑄 ∨ 𝑟))
18		breq1 4586	. . . . . . . . . . . . 13 ⊢ (𝑃 = 𝑄 → (𝑃 ≤ (𝑄 ∨ 𝑟) ↔ 𝑄 ≤ (𝑄 ∨ 𝑟)))
19	17, 18	syl5ibr 235	. . . . . . . . . . . 12 ⊢ (𝑃 = 𝑄 → (((𝐾 ∈ HL ∧ (𝑋 ∈ 𝐵 ∧ 𝑃 ∈ 𝐴 ∧ 𝑄 ∈ 𝐴)) ∧ 𝑟 ∈ 𝐴) → 𝑃 ≤ (𝑄 ∨ 𝑟)))
20	19	expd 451	. . . . . . . . . . 11 ⊢ (𝑃 = 𝑄 → ((𝐾 ∈ HL ∧ (𝑋 ∈ 𝐵 ∧ 𝑃 ∈ 𝐴 ∧ 𝑄 ∈ 𝐴)) → (𝑟 ∈ 𝐴 → 𝑃 ≤ (𝑄 ∨ 𝑟))))
21	20	impcom 445	. . . . . . . . . 10 ⊢ (((𝐾 ∈ HL ∧ (𝑋 ∈ 𝐵 ∧ 𝑃 ∈ 𝐴 ∧ 𝑄 ∈ 𝐴)) ∧ 𝑃 = 𝑄) → (𝑟 ∈ 𝐴 → 𝑃 ≤ (𝑄 ∨ 𝑟)))
22	21	anim2d 587	. . . . . . . . 9 ⊢ (((𝐾 ∈ HL ∧ (𝑋 ∈ 𝐵 ∧ 𝑃 ∈ 𝐴 ∧ 𝑄 ∈ 𝐴)) ∧ 𝑃 = 𝑄) → ((𝑟 ≤ 𝑋 ∧ 𝑟 ∈ 𝐴) → (𝑟 ≤ 𝑋 ∧ 𝑃 ≤ (𝑄 ∨ 𝑟))))
23	22	expcomd 453	. . . . . . . 8 ⊢ (((𝐾 ∈ HL ∧ (𝑋 ∈ 𝐵 ∧ 𝑃 ∈ 𝐴 ∧ 𝑄 ∈ 𝐴)) ∧ 𝑃 = 𝑄) → (𝑟 ∈ 𝐴 → (𝑟 ≤ 𝑋 → (𝑟 ≤ 𝑋 ∧ 𝑃 ≤ (𝑄 ∨ 𝑟)))))
24	23	reximdvai 2998	. . . . . . 7 ⊢ (((𝐾 ∈ HL ∧ (𝑋 ∈ 𝐵 ∧ 𝑃 ∈ 𝐴 ∧ 𝑄 ∈ 𝐴)) ∧ 𝑃 = 𝑄) → (∃𝑟 ∈ 𝐴 𝑟 ≤ 𝑋 → ∃𝑟 ∈ 𝐴 (𝑟 ≤ 𝑋 ∧ 𝑃 ≤ (𝑄 ∨ 𝑟))))
25	11, 24	syld 46	. . . . . 6 ⊢ (((𝐾 ∈ HL ∧ (𝑋 ∈ 𝐵 ∧ 𝑃 ∈ 𝐴 ∧ 𝑄 ∈ 𝐴)) ∧ 𝑃 = 𝑄) → (𝑋 ≠ 0 → ∃𝑟 ∈ 𝐴 (𝑟 ≤ 𝑋 ∧ 𝑃 ≤ (𝑄 ∨ 𝑟))))
26	25	ex 449	. . . . 5 ⊢ ((𝐾 ∈ HL ∧ (𝑋 ∈ 𝐵 ∧ 𝑃 ∈ 𝐴 ∧ 𝑄 ∈ 𝐴)) → (𝑃 = 𝑄 → (𝑋 ≠ 0 → ∃𝑟 ∈ 𝐴 (𝑟 ≤ 𝑋 ∧ 𝑃 ≤ (𝑄 ∨ 𝑟)))))
27	26	a1i 11	. . . 4 ⊢ (𝑃 ≤ (𝑋 ∨ 𝑄) → ((𝐾 ∈ HL ∧ (𝑋 ∈ 𝐵 ∧ 𝑃 ∈ 𝐴 ∧ 𝑄 ∈ 𝐴)) → (𝑃 = 𝑄 → (𝑋 ≠ 0 → ∃𝑟 ∈ 𝐴 (𝑟 ≤ 𝑋 ∧ 𝑃 ≤ (𝑄 ∨ 𝑟))))))
28	27	com4l 90	. . 3 ⊢ ((𝐾 ∈ HL ∧ (𝑋 ∈ 𝐵 ∧ 𝑃 ∈ 𝐴 ∧ 𝑄 ∈ 𝐴)) → (𝑃 = 𝑄 → (𝑋 ≠ 0 → (𝑃 ≤ (𝑋 ∨ 𝑄) → ∃𝑟 ∈ 𝐴 (𝑟 ≤ 𝑋 ∧ 𝑃 ≤ (𝑄 ∨ 𝑟))))))
29	28	imp4a 612	. 2 ⊢ ((𝐾 ∈ HL ∧ (𝑋 ∈ 𝐵 ∧ 𝑃 ∈ 𝐴 ∧ 𝑄 ∈ 𝐴)) → (𝑃 = 𝑄 → ((𝑋 ≠ 0 ∧ 𝑃 ≤ (𝑋 ∨ 𝑄)) → ∃𝑟 ∈ 𝐴 (𝑟 ≤ 𝑋 ∧ 𝑃 ≤ (𝑄 ∨ 𝑟)))))
30		hllat 33668	. . . . . . . . . . . . . 14 ⊢ (𝐾 ∈ HL → 𝐾 ∈ Lat)
31	30	adantr 480	. . . . . . . . . . . . 13 ⊢ ((𝐾 ∈ HL ∧ (𝑋 ∈ 𝐵 ∧ 𝑃 ∈ 𝐴 ∧ 𝑄 ∈ 𝐴)) → 𝐾 ∈ Lat)
32		simpr3 1062	. . . . . . . . . . . . . 14 ⊢ ((𝐾 ∈ HL ∧ (𝑋 ∈ 𝐵 ∧ 𝑃 ∈ 𝐴 ∧ 𝑄 ∈ 𝐴)) → 𝑄 ∈ 𝐴)
33	4, 7	atbase 33594	. . . . . . . . . . . . . 14 ⊢ (𝑄 ∈ 𝐴 → 𝑄 ∈ 𝐵)
34	32, 33	syl 17	. . . . . . . . . . . . 13 ⊢ ((𝐾 ∈ HL ∧ (𝑋 ∈ 𝐵 ∧ 𝑃 ∈ 𝐴 ∧ 𝑄 ∈ 𝐴)) → 𝑄 ∈ 𝐵)
35	4, 5, 15	latleeqj2 16887	. . . . . . . . . . . . 13 ⊢ ((𝐾 ∈ Lat ∧ 𝑄 ∈ 𝐵 ∧ 𝑋 ∈ 𝐵) → (𝑄 ≤ 𝑋 ↔ (𝑋 ∨ 𝑄) = 𝑋))
36	31, 34, 3, 35	syl3anc 1318	. . . . . . . . . . . 12 ⊢ ((𝐾 ∈ HL ∧ (𝑋 ∈ 𝐵 ∧ 𝑃 ∈ 𝐴 ∧ 𝑄 ∈ 𝐴)) → (𝑄 ≤ 𝑋 ↔ (𝑋 ∨ 𝑄) = 𝑋))
37	36	biimpa 500	. . . . . . . . . . 11 ⊢ (((𝐾 ∈ HL ∧ (𝑋 ∈ 𝐵 ∧ 𝑃 ∈ 𝐴 ∧ 𝑄 ∈ 𝐴)) ∧ 𝑄 ≤ 𝑋) → (𝑋 ∨ 𝑄) = 𝑋)
38	37	breq2d 4595	. . . . . . . . . 10 ⊢ (((𝐾 ∈ HL ∧ (𝑋 ∈ 𝐵 ∧ 𝑃 ∈ 𝐴 ∧ 𝑄 ∈ 𝐴)) ∧ 𝑄 ≤ 𝑋) → (𝑃 ≤ (𝑋 ∨ 𝑄) ↔ 𝑃 ≤ 𝑋))
39	38	biimpa 500	. . . . . . . . 9 ⊢ ((((𝐾 ∈ HL ∧ (𝑋 ∈ 𝐵 ∧ 𝑃 ∈ 𝐴 ∧ 𝑄 ∈ 𝐴)) ∧ 𝑄 ≤ 𝑋) ∧ 𝑃 ≤ (𝑋 ∨ 𝑄)) → 𝑃 ≤ 𝑋)
40	39	expl 646	. . . . . . . 8 ⊢ ((𝐾 ∈ HL ∧ (𝑋 ∈ 𝐵 ∧ 𝑃 ∈ 𝐴 ∧ 𝑄 ∈ 𝐴)) → ((𝑄 ≤ 𝑋 ∧ 𝑃 ≤ (𝑋 ∨ 𝑄)) → 𝑃 ≤ 𝑋))
41		simpl 472	. . . . . . . . 9 ⊢ ((𝐾 ∈ HL ∧ (𝑋 ∈ 𝐵 ∧ 𝑃 ∈ 𝐴 ∧ 𝑄 ∈ 𝐴)) → 𝐾 ∈ HL)
42		simpr2 1061	. . . . . . . . 9 ⊢ ((𝐾 ∈ HL ∧ (𝑋 ∈ 𝐵 ∧ 𝑃 ∈ 𝐴 ∧ 𝑄 ∈ 𝐴)) → 𝑃 ∈ 𝐴)
43	5, 15, 7	hlatlej2 33680	. . . . . . . . 9 ⊢ ((𝐾 ∈ HL ∧ 𝑄 ∈ 𝐴 ∧ 𝑃 ∈ 𝐴) → 𝑃 ≤ (𝑄 ∨ 𝑃))
44	41, 32, 42, 43	syl3anc 1318	. . . . . . . 8 ⊢ ((𝐾 ∈ HL ∧ (𝑋 ∈ 𝐵 ∧ 𝑃 ∈ 𝐴 ∧ 𝑄 ∈ 𝐴)) → 𝑃 ≤ (𝑄 ∨ 𝑃))
45	40, 44	jctird 565	. . . . . . 7 ⊢ ((𝐾 ∈ HL ∧ (𝑋 ∈ 𝐵 ∧ 𝑃 ∈ 𝐴 ∧ 𝑄 ∈ 𝐴)) → ((𝑄 ≤ 𝑋 ∧ 𝑃 ≤ (𝑋 ∨ 𝑄)) → (𝑃 ≤ 𝑋 ∧ 𝑃 ≤ (𝑄 ∨ 𝑃))))
46	45, 42	jctild 564	. . . . . 6 ⊢ ((𝐾 ∈ HL ∧ (𝑋 ∈ 𝐵 ∧ 𝑃 ∈ 𝐴 ∧ 𝑄 ∈ 𝐴)) → ((𝑄 ≤ 𝑋 ∧ 𝑃 ≤ (𝑋 ∨ 𝑄)) → (𝑃 ∈ 𝐴 ∧ (𝑃 ≤ 𝑋 ∧ 𝑃 ≤ (𝑄 ∨ 𝑃)))))
47	46	impl 648	. . . . 5 ⊢ ((((𝐾 ∈ HL ∧ (𝑋 ∈ 𝐵 ∧ 𝑃 ∈ 𝐴 ∧ 𝑄 ∈ 𝐴)) ∧ 𝑄 ≤ 𝑋) ∧ 𝑃 ≤ (𝑋 ∨ 𝑄)) → (𝑃 ∈ 𝐴 ∧ (𝑃 ≤ 𝑋 ∧ 𝑃 ≤ (𝑄 ∨ 𝑃))))
48		breq1 4586	. . . . . . 7 ⊢ (𝑟 = 𝑃 → (𝑟 ≤ 𝑋 ↔ 𝑃 ≤ 𝑋))
49		oveq2 6557	. . . . . . . 8 ⊢ (𝑟 = 𝑃 → (𝑄 ∨ 𝑟) = (𝑄 ∨ 𝑃))
50	49	breq2d 4595	. . . . . . 7 ⊢ (𝑟 = 𝑃 → (𝑃 ≤ (𝑄 ∨ 𝑟) ↔ 𝑃 ≤ (𝑄 ∨ 𝑃)))
51	48, 50	anbi12d 743	. . . . . 6 ⊢ (𝑟 = 𝑃 → ((𝑟 ≤ 𝑋 ∧ 𝑃 ≤ (𝑄 ∨ 𝑟)) ↔ (𝑃 ≤ 𝑋 ∧ 𝑃 ≤ (𝑄 ∨ 𝑃))))
52	51	rspcev 3282	. . . . 5 ⊢ ((𝑃 ∈ 𝐴 ∧ (𝑃 ≤ 𝑋 ∧ 𝑃 ≤ (𝑄 ∨ 𝑃))) → ∃𝑟 ∈ 𝐴 (𝑟 ≤ 𝑋 ∧ 𝑃 ≤ (𝑄 ∨ 𝑟)))
53	47, 52	syl 17	. . . 4 ⊢ ((((𝐾 ∈ HL ∧ (𝑋 ∈ 𝐵 ∧ 𝑃 ∈ 𝐴 ∧ 𝑄 ∈ 𝐴)) ∧ 𝑄 ≤ 𝑋) ∧ 𝑃 ≤ (𝑋 ∨ 𝑄)) → ∃𝑟 ∈ 𝐴 (𝑟 ≤ 𝑋 ∧ 𝑃 ≤ (𝑄 ∨ 𝑟)))
54	53	adantrl 748	. . 3 ⊢ ((((𝐾 ∈ HL ∧ (𝑋 ∈ 𝐵 ∧ 𝑃 ∈ 𝐴 ∧ 𝑄 ∈ 𝐴)) ∧ 𝑄 ≤ 𝑋) ∧ (𝑋 ≠ 0 ∧ 𝑃 ≤ (𝑋 ∨ 𝑄))) → ∃𝑟 ∈ 𝐴 (𝑟 ≤ 𝑋 ∧ 𝑃 ≤ (𝑄 ∨ 𝑟)))
55	54	exp31 628	. 2 ⊢ ((𝐾 ∈ HL ∧ (𝑋 ∈ 𝐵 ∧ 𝑃 ∈ 𝐴 ∧ 𝑄 ∈ 𝐴)) → (𝑄 ≤ 𝑋 → ((𝑋 ≠ 0 ∧ 𝑃 ≤ (𝑋 ∨ 𝑄)) → ∃𝑟 ∈ 𝐴 (𝑟 ≤ 𝑋 ∧ 𝑃 ≤ (𝑄 ∨ 𝑟)))))
56		simpr 476	. . 3 ⊢ ((𝑋 ≠ 0 ∧ 𝑃 ≤ (𝑋 ∨ 𝑄)) → 𝑃 ≤ (𝑋 ∨ 𝑄))
57		ioran 510	. . . . 5 ⊢ (¬ (𝑃 = 𝑄 ∨ 𝑄 ≤ 𝑋) ↔ (¬ 𝑃 = 𝑄 ∧ ¬ 𝑄 ≤ 𝑋))
58		df-ne 2782	. . . . . 6 ⊢ (𝑃 ≠ 𝑄 ↔ ¬ 𝑃 = 𝑄)
59	58	anbi1i 727	. . . . 5 ⊢ ((𝑃 ≠ 𝑄 ∧ ¬ 𝑄 ≤ 𝑋) ↔ (¬ 𝑃 = 𝑄 ∧ ¬ 𝑄 ≤ 𝑋))
60	57, 59	bitr4i 266	. . . 4 ⊢ (¬ (𝑃 = 𝑄 ∨ 𝑄 ≤ 𝑋) ↔ (𝑃 ≠ 𝑄 ∧ ¬ 𝑄 ≤ 𝑋))
61		eqid 2610	. . . . . . . . . 10 ⊢ (meet‘𝐾) = (meet‘𝐾)
62	4, 5, 15, 61, 7	cvrat3 33746	. . . . . . . . 9 ⊢ ((𝐾 ∈ HL ∧ (𝑋 ∈ 𝐵 ∧ 𝑃 ∈ 𝐴 ∧ 𝑄 ∈ 𝐴)) → ((𝑃 ≠ 𝑄 ∧ ¬ 𝑄 ≤ 𝑋 ∧ 𝑃 ≤ (𝑋 ∨ 𝑄)) → (𝑋(meet‘𝐾)(𝑃 ∨ 𝑄)) ∈ 𝐴))
63	62	3expd 1276	. . . . . . . 8 ⊢ ((𝐾 ∈ HL ∧ (𝑋 ∈ 𝐵 ∧ 𝑃 ∈ 𝐴 ∧ 𝑄 ∈ 𝐴)) → (𝑃 ≠ 𝑄 → (¬ 𝑄 ≤ 𝑋 → (𝑃 ≤ (𝑋 ∨ 𝑄) → (𝑋(meet‘𝐾)(𝑃 ∨ 𝑄)) ∈ 𝐴))))
64	63	imp4c 615	. . . . . . 7 ⊢ ((𝐾 ∈ HL ∧ (𝑋 ∈ 𝐵 ∧ 𝑃 ∈ 𝐴 ∧ 𝑄 ∈ 𝐴)) → (((𝑃 ≠ 𝑄 ∧ ¬ 𝑄 ≤ 𝑋) ∧ 𝑃 ≤ (𝑋 ∨ 𝑄)) → (𝑋(meet‘𝐾)(𝑃 ∨ 𝑄)) ∈ 𝐴))
65	4, 7	atbase 33594	. . . . . . . . . . . . 13 ⊢ (𝑃 ∈ 𝐴 → 𝑃 ∈ 𝐵)
66	42, 65	syl 17	. . . . . . . . . . . 12 ⊢ ((𝐾 ∈ HL ∧ (𝑋 ∈ 𝐵 ∧ 𝑃 ∈ 𝐴 ∧ 𝑄 ∈ 𝐴)) → 𝑃 ∈ 𝐵)
67	4, 15	latjcl 16874	. . . . . . . . . . . 12 ⊢ ((𝐾 ∈ Lat ∧ 𝑃 ∈ 𝐵 ∧ 𝑄 ∈ 𝐵) → (𝑃 ∨ 𝑄) ∈ 𝐵)
68	31, 66, 34, 67	syl3anc 1318	. . . . . . . . . . 11 ⊢ ((𝐾 ∈ HL ∧ (𝑋 ∈ 𝐵 ∧ 𝑃 ∈ 𝐴 ∧ 𝑄 ∈ 𝐴)) → (𝑃 ∨ 𝑄) ∈ 𝐵)
69	4, 5, 61	latmle1 16899	. . . . . . . . . . 11 ⊢ ((𝐾 ∈ Lat ∧ 𝑋 ∈ 𝐵 ∧ (𝑃 ∨ 𝑄) ∈ 𝐵) → (𝑋(meet‘𝐾)(𝑃 ∨ 𝑄)) ≤ 𝑋)
70	31, 3, 68, 69	syl3anc 1318	. . . . . . . . . 10 ⊢ ((𝐾 ∈ HL ∧ (𝑋 ∈ 𝐵 ∧ 𝑃 ∈ 𝐴 ∧ 𝑄 ∈ 𝐴)) → (𝑋(meet‘𝐾)(𝑃 ∨ 𝑄)) ≤ 𝑋)
71	70	adantr 480	. . . . . . . . 9 ⊢ (((𝐾 ∈ HL ∧ (𝑋 ∈ 𝐵 ∧ 𝑃 ∈ 𝐴 ∧ 𝑄 ∈ 𝐴)) ∧ ((𝑃 ≠ 𝑄 ∧ ¬ 𝑄 ≤ 𝑋) ∧ 𝑃 ≤ (𝑋 ∨ 𝑄))) → (𝑋(meet‘𝐾)(𝑃 ∨ 𝑄)) ≤ 𝑋)
72		simpll 786	. . . . . . . . . . 11 ⊢ (((𝐾 ∈ HL ∧ (𝑋 ∈ 𝐵 ∧ 𝑃 ∈ 𝐴 ∧ 𝑄 ∈ 𝐴)) ∧ ((𝑃 ≠ 𝑄 ∧ ¬ 𝑄 ≤ 𝑋) ∧ 𝑃 ≤ (𝑋 ∨ 𝑄))) → 𝐾 ∈ HL)
73	63	imp44 620	. . . . . . . . . . . 12 ⊢ (((𝐾 ∈ HL ∧ (𝑋 ∈ 𝐵 ∧ 𝑃 ∈ 𝐴 ∧ 𝑄 ∈ 𝐴)) ∧ ((𝑃 ≠ 𝑄 ∧ ¬ 𝑄 ≤ 𝑋) ∧ 𝑃 ≤ (𝑋 ∨ 𝑄))) → (𝑋(meet‘𝐾)(𝑃 ∨ 𝑄)) ∈ 𝐴)
74		simplr2 1097	. . . . . . . . . . . 12 ⊢ (((𝐾 ∈ HL ∧ (𝑋 ∈ 𝐵 ∧ 𝑃 ∈ 𝐴 ∧ 𝑄 ∈ 𝐴)) ∧ ((𝑃 ≠ 𝑄 ∧ ¬ 𝑄 ≤ 𝑋) ∧ 𝑃 ≤ (𝑋 ∨ 𝑄))) → 𝑃 ∈ 𝐴)
75	34	adantr 480	. . . . . . . . . . . 12 ⊢ (((𝐾 ∈ HL ∧ (𝑋 ∈ 𝐵 ∧ 𝑃 ∈ 𝐴 ∧ 𝑄 ∈ 𝐴)) ∧ ((𝑃 ≠ 𝑄 ∧ ¬ 𝑄 ≤ 𝑋) ∧ 𝑃 ≤ (𝑋 ∨ 𝑄))) → 𝑄 ∈ 𝐵)
76	73, 74, 75	3jca 1235	. . . . . . . . . . 11 ⊢ (((𝐾 ∈ HL ∧ (𝑋 ∈ 𝐵 ∧ 𝑃 ∈ 𝐴 ∧ 𝑄 ∈ 𝐴)) ∧ ((𝑃 ≠ 𝑄 ∧ ¬ 𝑄 ≤ 𝑋) ∧ 𝑃 ≤ (𝑋 ∨ 𝑄))) → ((𝑋(meet‘𝐾)(𝑃 ∨ 𝑄)) ∈ 𝐴 ∧ 𝑃 ∈ 𝐴 ∧ 𝑄 ∈ 𝐵))
77	72, 76	jca 553	. . . . . . . . . 10 ⊢ (((𝐾 ∈ HL ∧ (𝑋 ∈ 𝐵 ∧ 𝑃 ∈ 𝐴 ∧ 𝑄 ∈ 𝐴)) ∧ ((𝑃 ≠ 𝑄 ∧ ¬ 𝑄 ≤ 𝑋) ∧ 𝑃 ≤ (𝑋 ∨ 𝑄))) → (𝐾 ∈ HL ∧ ((𝑋(meet‘𝐾)(𝑃 ∨ 𝑄)) ∈ 𝐴 ∧ 𝑃 ∈ 𝐴 ∧ 𝑄 ∈ 𝐵)))
78	4, 5, 61, 6, 7	atnle 33622	. . . . . . . . . . . . . . . 16 ⊢ ((𝐾 ∈ AtLat ∧ 𝑄 ∈ 𝐴 ∧ 𝑋 ∈ 𝐵) → (¬ 𝑄 ≤ 𝑋 ↔ (𝑄(meet‘𝐾)𝑋) = 0 ))
79	2, 32, 3, 78	syl3anc 1318	. . . . . . . . . . . . . . 15 ⊢ ((𝐾 ∈ HL ∧ (𝑋 ∈ 𝐵 ∧ 𝑃 ∈ 𝐴 ∧ 𝑄 ∈ 𝐴)) → (¬ 𝑄 ≤ 𝑋 ↔ (𝑄(meet‘𝐾)𝑋) = 0 ))
80	4, 61	latmcom 16898	. . . . . . . . . . . . . . . . 17 ⊢ ((𝐾 ∈ Lat ∧ 𝑄 ∈ 𝐵 ∧ 𝑋 ∈ 𝐵) → (𝑄(meet‘𝐾)𝑋) = (𝑋(meet‘𝐾)𝑄))
81	31, 34, 3, 80	syl3anc 1318	. . . . . . . . . . . . . . . 16 ⊢ ((𝐾 ∈ HL ∧ (𝑋 ∈ 𝐵 ∧ 𝑃 ∈ 𝐴 ∧ 𝑄 ∈ 𝐴)) → (𝑄(meet‘𝐾)𝑋) = (𝑋(meet‘𝐾)𝑄))
82	81	eqeq1d 2612	. . . . . . . . . . . . . . 15 ⊢ ((𝐾 ∈ HL ∧ (𝑋 ∈ 𝐵 ∧ 𝑃 ∈ 𝐴 ∧ 𝑄 ∈ 𝐴)) → ((𝑄(meet‘𝐾)𝑋) = 0 ↔ (𝑋(meet‘𝐾)𝑄) = 0 ))
83	79, 82	bitrd 267	. . . . . . . . . . . . . 14 ⊢ ((𝐾 ∈ HL ∧ (𝑋 ∈ 𝐵 ∧ 𝑃 ∈ 𝐴 ∧ 𝑄 ∈ 𝐴)) → (¬ 𝑄 ≤ 𝑋 ↔ (𝑋(meet‘𝐾)𝑄) = 0 ))
84	4, 61	latmcl 16875	. . . . . . . . . . . . . . . . . . . . 21 ⊢ ((𝐾 ∈ Lat ∧ 𝑋 ∈ 𝐵 ∧ (𝑃 ∨ 𝑄) ∈ 𝐵) → (𝑋(meet‘𝐾)(𝑃 ∨ 𝑄)) ∈ 𝐵)
85	31, 3, 68, 84	syl3anc 1318	. . . . . . . . . . . . . . . . . . . 20 ⊢ ((𝐾 ∈ HL ∧ (𝑋 ∈ 𝐵 ∧ 𝑃 ∈ 𝐴 ∧ 𝑄 ∈ 𝐴)) → (𝑋(meet‘𝐾)(𝑃 ∨ 𝑄)) ∈ 𝐵)
86	85, 3, 34	3jca 1235	. . . . . . . . . . . . . . . . . . 19 ⊢ ((𝐾 ∈ HL ∧ (𝑋 ∈ 𝐵 ∧ 𝑃 ∈ 𝐴 ∧ 𝑄 ∈ 𝐴)) → ((𝑋(meet‘𝐾)(𝑃 ∨ 𝑄)) ∈ 𝐵 ∧ 𝑋 ∈ 𝐵 ∧ 𝑄 ∈ 𝐵))
87	31, 86	jca 553	. . . . . . . . . . . . . . . . . 18 ⊢ ((𝐾 ∈ HL ∧ (𝑋 ∈ 𝐵 ∧ 𝑃 ∈ 𝐴 ∧ 𝑄 ∈ 𝐴)) → (𝐾 ∈ Lat ∧ ((𝑋(meet‘𝐾)(𝑃 ∨ 𝑄)) ∈ 𝐵 ∧ 𝑋 ∈ 𝐵 ∧ 𝑄 ∈ 𝐵)))
88	4, 5, 61	latmlem2 16905	. . . . . . . . . . . . . . . . . 18 ⊢ ((𝐾 ∈ Lat ∧ ((𝑋(meet‘𝐾)(𝑃 ∨ 𝑄)) ∈ 𝐵 ∧ 𝑋 ∈ 𝐵 ∧ 𝑄 ∈ 𝐵)) → ((𝑋(meet‘𝐾)(𝑃 ∨ 𝑄)) ≤ 𝑋 → (𝑄(meet‘𝐾)(𝑋(meet‘𝐾)(𝑃 ∨ 𝑄))) ≤ (𝑄(meet‘𝐾)𝑋)))
89	87, 70, 88	sylc 63	. . . . . . . . . . . . . . . . 17 ⊢ ((𝐾 ∈ HL ∧ (𝑋 ∈ 𝐵 ∧ 𝑃 ∈ 𝐴 ∧ 𝑄 ∈ 𝐴)) → (𝑄(meet‘𝐾)(𝑋(meet‘𝐾)(𝑃 ∨ 𝑄))) ≤ (𝑄(meet‘𝐾)𝑋))
90	89, 81	breqtrd 4609	. . . . . . . . . . . . . . . 16 ⊢ ((𝐾 ∈ HL ∧ (𝑋 ∈ 𝐵 ∧ 𝑃 ∈ 𝐴 ∧ 𝑄 ∈ 𝐴)) → (𝑄(meet‘𝐾)(𝑋(meet‘𝐾)(𝑃 ∨ 𝑄))) ≤ (𝑋(meet‘𝐾)𝑄))
91		breq2 4587	. . . . . . . . . . . . . . . 16 ⊢ ((𝑋(meet‘𝐾)𝑄) = 0 → ((𝑄(meet‘𝐾)(𝑋(meet‘𝐾)(𝑃 ∨ 𝑄))) ≤ (𝑋(meet‘𝐾)𝑄) ↔ (𝑄(meet‘𝐾)(𝑋(meet‘𝐾)(𝑃 ∨ 𝑄))) ≤ 0 ))
92	90, 91	syl5ibcom 234	. . . . . . . . . . . . . . 15 ⊢ ((𝐾 ∈ HL ∧ (𝑋 ∈ 𝐵 ∧ 𝑃 ∈ 𝐴 ∧ 𝑄 ∈ 𝐴)) → ((𝑋(meet‘𝐾)𝑄) = 0 → (𝑄(meet‘𝐾)(𝑋(meet‘𝐾)(𝑃 ∨ 𝑄))) ≤ 0 ))
93		hlop 33667	. . . . . . . . . . . . . . . . 17 ⊢ (𝐾 ∈ HL → 𝐾 ∈ OP)
94	93	adantr 480	. . . . . . . . . . . . . . . 16 ⊢ ((𝐾 ∈ HL ∧ (𝑋 ∈ 𝐵 ∧ 𝑃 ∈ 𝐴 ∧ 𝑄 ∈ 𝐴)) → 𝐾 ∈ OP)
95	4, 61	latmcl 16875	. . . . . . . . . . . . . . . . 17 ⊢ ((𝐾 ∈ Lat ∧ 𝑄 ∈ 𝐵 ∧ (𝑋(meet‘𝐾)(𝑃 ∨ 𝑄)) ∈ 𝐵) → (𝑄(meet‘𝐾)(𝑋(meet‘𝐾)(𝑃 ∨ 𝑄))) ∈ 𝐵)
96	31, 34, 85, 95	syl3anc 1318	. . . . . . . . . . . . . . . 16 ⊢ ((𝐾 ∈ HL ∧ (𝑋 ∈ 𝐵 ∧ 𝑃 ∈ 𝐴 ∧ 𝑄 ∈ 𝐴)) → (𝑄(meet‘𝐾)(𝑋(meet‘𝐾)(𝑃 ∨ 𝑄))) ∈ 𝐵)
97	4, 5, 6	ople0 33492	. . . . . . . . . . . . . . . 16 ⊢ ((𝐾 ∈ OP ∧ (𝑄(meet‘𝐾)(𝑋(meet‘𝐾)(𝑃 ∨ 𝑄))) ∈ 𝐵) → ((𝑄(meet‘𝐾)(𝑋(meet‘𝐾)(𝑃 ∨ 𝑄))) ≤ 0 ↔ (𝑄(meet‘𝐾)(𝑋(meet‘𝐾)(𝑃 ∨ 𝑄))) = 0 ))
98	94, 96, 97	syl2anc 691	. . . . . . . . . . . . . . 15 ⊢ ((𝐾 ∈ HL ∧ (𝑋 ∈ 𝐵 ∧ 𝑃 ∈ 𝐴 ∧ 𝑄 ∈ 𝐴)) → ((𝑄(meet‘𝐾)(𝑋(meet‘𝐾)(𝑃 ∨ 𝑄))) ≤ 0 ↔ (𝑄(meet‘𝐾)(𝑋(meet‘𝐾)(𝑃 ∨ 𝑄))) = 0 ))
99	92, 98	sylibd 228	. . . . . . . . . . . . . 14 ⊢ ((𝐾 ∈ HL ∧ (𝑋 ∈ 𝐵 ∧ 𝑃 ∈ 𝐴 ∧ 𝑄 ∈ 𝐴)) → ((𝑋(meet‘𝐾)𝑄) = 0 → (𝑄(meet‘𝐾)(𝑋(meet‘𝐾)(𝑃 ∨ 𝑄))) = 0 ))
100	83, 99	sylbid 229	. . . . . . . . . . . . 13 ⊢ ((𝐾 ∈ HL ∧ (𝑋 ∈ 𝐵 ∧ 𝑃 ∈ 𝐴 ∧ 𝑄 ∈ 𝐴)) → (¬ 𝑄 ≤ 𝑋 → (𝑄(meet‘𝐾)(𝑋(meet‘𝐾)(𝑃 ∨ 𝑄))) = 0 ))
101	100	imp 444	. . . . . . . . . . . 12 ⊢ (((𝐾 ∈ HL ∧ (𝑋 ∈ 𝐵 ∧ 𝑃 ∈ 𝐴 ∧ 𝑄 ∈ 𝐴)) ∧ ¬ 𝑄 ≤ 𝑋) → (𝑄(meet‘𝐾)(𝑋(meet‘𝐾)(𝑃 ∨ 𝑄))) = 0 )
102	101	adantrl 748	. . . . . . . . . . 11 ⊢ (((𝐾 ∈ HL ∧ (𝑋 ∈ 𝐵 ∧ 𝑃 ∈ 𝐴 ∧ 𝑄 ∈ 𝐴)) ∧ (𝑃 ≠ 𝑄 ∧ ¬ 𝑄 ≤ 𝑋)) → (𝑄(meet‘𝐾)(𝑋(meet‘𝐾)(𝑃 ∨ 𝑄))) = 0 )
103	102	adantrr 749	. . . . . . . . . 10 ⊢ (((𝐾 ∈ HL ∧ (𝑋 ∈ 𝐵 ∧ 𝑃 ∈ 𝐴 ∧ 𝑄 ∈ 𝐴)) ∧ ((𝑃 ≠ 𝑄 ∧ ¬ 𝑄 ≤ 𝑋) ∧ 𝑃 ≤ (𝑋 ∨ 𝑄))) → (𝑄(meet‘𝐾)(𝑋(meet‘𝐾)(𝑃 ∨ 𝑄))) = 0 )
104	4, 5, 61	latmle2 16900	. . . . . . . . . . . . 13 ⊢ ((𝐾 ∈ Lat ∧ 𝑋 ∈ 𝐵 ∧ (𝑃 ∨ 𝑄) ∈ 𝐵) → (𝑋(meet‘𝐾)(𝑃 ∨ 𝑄)) ≤ (𝑃 ∨ 𝑄))
105	31, 3, 68, 104	syl3anc 1318	. . . . . . . . . . . 12 ⊢ ((𝐾 ∈ HL ∧ (𝑋 ∈ 𝐵 ∧ 𝑃 ∈ 𝐴 ∧ 𝑄 ∈ 𝐴)) → (𝑋(meet‘𝐾)(𝑃 ∨ 𝑄)) ≤ (𝑃 ∨ 𝑄))
106	4, 15	latjcom 16882	. . . . . . . . . . . . 13 ⊢ ((𝐾 ∈ Lat ∧ 𝑃 ∈ 𝐵 ∧ 𝑄 ∈ 𝐵) → (𝑃 ∨ 𝑄) = (𝑄 ∨ 𝑃))
107	31, 66, 34, 106	syl3anc 1318	. . . . . . . . . . . 12 ⊢ ((𝐾 ∈ HL ∧ (𝑋 ∈ 𝐵 ∧ 𝑃 ∈ 𝐴 ∧ 𝑄 ∈ 𝐴)) → (𝑃 ∨ 𝑄) = (𝑄 ∨ 𝑃))
108	105, 107	breqtrd 4609	. . . . . . . . . . 11 ⊢ ((𝐾 ∈ HL ∧ (𝑋 ∈ 𝐵 ∧ 𝑃 ∈ 𝐴 ∧ 𝑄 ∈ 𝐴)) → (𝑋(meet‘𝐾)(𝑃 ∨ 𝑄)) ≤ (𝑄 ∨ 𝑃))
109	108	adantr 480	. . . . . . . . . 10 ⊢ (((𝐾 ∈ HL ∧ (𝑋 ∈ 𝐵 ∧ 𝑃 ∈ 𝐴 ∧ 𝑄 ∈ 𝐴)) ∧ ((𝑃 ≠ 𝑄 ∧ ¬ 𝑄 ≤ 𝑋) ∧ 𝑃 ≤ (𝑋 ∨ 𝑄))) → (𝑋(meet‘𝐾)(𝑃 ∨ 𝑄)) ≤ (𝑄 ∨ 𝑃))
110	30	adantr 480	. . . . . . . . . . . . 13 ⊢ ((𝐾 ∈ HL ∧ ((𝑋(meet‘𝐾)(𝑃 ∨ 𝑄)) ∈ 𝐴 ∧ 𝑃 ∈ 𝐴 ∧ 𝑄 ∈ 𝐵)) → 𝐾 ∈ Lat)
111		simpr3 1062	. . . . . . . . . . . . 13 ⊢ ((𝐾 ∈ HL ∧ ((𝑋(meet‘𝐾)(𝑃 ∨ 𝑄)) ∈ 𝐴 ∧ 𝑃 ∈ 𝐴 ∧ 𝑄 ∈ 𝐵)) → 𝑄 ∈ 𝐵)
112		simpr1 1060	. . . . . . . . . . . . . 14 ⊢ ((𝐾 ∈ HL ∧ ((𝑋(meet‘𝐾)(𝑃 ∨ 𝑄)) ∈ 𝐴 ∧ 𝑃 ∈ 𝐴 ∧ 𝑄 ∈ 𝐵)) → (𝑋(meet‘𝐾)(𝑃 ∨ 𝑄)) ∈ 𝐴)
113	4, 7	atbase 33594	. . . . . . . . . . . . . 14 ⊢ ((𝑋(meet‘𝐾)(𝑃 ∨ 𝑄)) ∈ 𝐴 → (𝑋(meet‘𝐾)(𝑃 ∨ 𝑄)) ∈ 𝐵)
114	112, 113	syl 17	. . . . . . . . . . . . 13 ⊢ ((𝐾 ∈ HL ∧ ((𝑋(meet‘𝐾)(𝑃 ∨ 𝑄)) ∈ 𝐴 ∧ 𝑃 ∈ 𝐴 ∧ 𝑄 ∈ 𝐵)) → (𝑋(meet‘𝐾)(𝑃 ∨ 𝑄)) ∈ 𝐵)
115	4, 61	latmcom 16898	. . . . . . . . . . . . 13 ⊢ ((𝐾 ∈ Lat ∧ 𝑄 ∈ 𝐵 ∧ (𝑋(meet‘𝐾)(𝑃 ∨ 𝑄)) ∈ 𝐵) → (𝑄(meet‘𝐾)(𝑋(meet‘𝐾)(𝑃 ∨ 𝑄))) = ((𝑋(meet‘𝐾)(𝑃 ∨ 𝑄))(meet‘𝐾)𝑄))
116	110, 111, 114, 115	syl3anc 1318	. . . . . . . . . . . 12 ⊢ ((𝐾 ∈ HL ∧ ((𝑋(meet‘𝐾)(𝑃 ∨ 𝑄)) ∈ 𝐴 ∧ 𝑃 ∈ 𝐴 ∧ 𝑄 ∈ 𝐵)) → (𝑄(meet‘𝐾)(𝑋(meet‘𝐾)(𝑃 ∨ 𝑄))) = ((𝑋(meet‘𝐾)(𝑃 ∨ 𝑄))(meet‘𝐾)𝑄))
117	116	eqeq1d 2612	. . . . . . . . . . 11 ⊢ ((𝐾 ∈ HL ∧ ((𝑋(meet‘𝐾)(𝑃 ∨ 𝑄)) ∈ 𝐴 ∧ 𝑃 ∈ 𝐴 ∧ 𝑄 ∈ 𝐵)) → ((𝑄(meet‘𝐾)(𝑋(meet‘𝐾)(𝑃 ∨ 𝑄))) = 0 ↔ ((𝑋(meet‘𝐾)(𝑃 ∨ 𝑄))(meet‘𝐾)𝑄) = 0 ))
118	4, 5, 15, 61, 6, 7	hlexch3 33695	. . . . . . . . . . . 12 ⊢ ((𝐾 ∈ HL ∧ ((𝑋(meet‘𝐾)(𝑃 ∨ 𝑄)) ∈ 𝐴 ∧ 𝑃 ∈ 𝐴 ∧ 𝑄 ∈ 𝐵) ∧ ((𝑋(meet‘𝐾)(𝑃 ∨ 𝑄))(meet‘𝐾)𝑄) = 0 ) → ((𝑋(meet‘𝐾)(𝑃 ∨ 𝑄)) ≤ (𝑄 ∨ 𝑃) → 𝑃 ≤ (𝑄 ∨ (𝑋(meet‘𝐾)(𝑃 ∨ 𝑄)))))
119	118	3expia 1259	. . . . . . . . . . 11 ⊢ ((𝐾 ∈ HL ∧ ((𝑋(meet‘𝐾)(𝑃 ∨ 𝑄)) ∈ 𝐴 ∧ 𝑃 ∈ 𝐴 ∧ 𝑄 ∈ 𝐵)) → (((𝑋(meet‘𝐾)(𝑃 ∨ 𝑄))(meet‘𝐾)𝑄) = 0 → ((𝑋(meet‘𝐾)(𝑃 ∨ 𝑄)) ≤ (𝑄 ∨ 𝑃) → 𝑃 ≤ (𝑄 ∨ (𝑋(meet‘𝐾)(𝑃 ∨ 𝑄))))))
120	117, 119	sylbid 229	. . . . . . . . . 10 ⊢ ((𝐾 ∈ HL ∧ ((𝑋(meet‘𝐾)(𝑃 ∨ 𝑄)) ∈ 𝐴 ∧ 𝑃 ∈ 𝐴 ∧ 𝑄 ∈ 𝐵)) → ((𝑄(meet‘𝐾)(𝑋(meet‘𝐾)(𝑃 ∨ 𝑄))) = 0 → ((𝑋(meet‘𝐾)(𝑃 ∨ 𝑄)) ≤ (𝑄 ∨ 𝑃) → 𝑃 ≤ (𝑄 ∨ (𝑋(meet‘𝐾)(𝑃 ∨ 𝑄))))))
121	77, 103, 109, 120	syl3c 64	. . . . . . . . 9 ⊢ (((𝐾 ∈ HL ∧ (𝑋 ∈ 𝐵 ∧ 𝑃 ∈ 𝐴 ∧ 𝑄 ∈ 𝐴)) ∧ ((𝑃 ≠ 𝑄 ∧ ¬ 𝑄 ≤ 𝑋) ∧ 𝑃 ≤ (𝑋 ∨ 𝑄))) → 𝑃 ≤ (𝑄 ∨ (𝑋(meet‘𝐾)(𝑃 ∨ 𝑄))))
122	71, 121	jca 553	. . . . . . . 8 ⊢ (((𝐾 ∈ HL ∧ (𝑋 ∈ 𝐵 ∧ 𝑃 ∈ 𝐴 ∧ 𝑄 ∈ 𝐴)) ∧ ((𝑃 ≠ 𝑄 ∧ ¬ 𝑄 ≤ 𝑋) ∧ 𝑃 ≤ (𝑋 ∨ 𝑄))) → ((𝑋(meet‘𝐾)(𝑃 ∨ 𝑄)) ≤ 𝑋 ∧ 𝑃 ≤ (𝑄 ∨ (𝑋(meet‘𝐾)(𝑃 ∨ 𝑄)))))
123	122	ex 449	. . . . . . 7 ⊢ ((𝐾 ∈ HL ∧ (𝑋 ∈ 𝐵 ∧ 𝑃 ∈ 𝐴 ∧ 𝑄 ∈ 𝐴)) → (((𝑃 ≠ 𝑄 ∧ ¬ 𝑄 ≤ 𝑋) ∧ 𝑃 ≤ (𝑋 ∨ 𝑄)) → ((𝑋(meet‘𝐾)(𝑃 ∨ 𝑄)) ≤ 𝑋 ∧ 𝑃 ≤ (𝑄 ∨ (𝑋(meet‘𝐾)(𝑃 ∨ 𝑄))))))
124	64, 123	jcad 554	. . . . . 6 ⊢ ((𝐾 ∈ HL ∧ (𝑋 ∈ 𝐵 ∧ 𝑃 ∈ 𝐴 ∧ 𝑄 ∈ 𝐴)) → (((𝑃 ≠ 𝑄 ∧ ¬ 𝑄 ≤ 𝑋) ∧ 𝑃 ≤ (𝑋 ∨ 𝑄)) → ((𝑋(meet‘𝐾)(𝑃 ∨ 𝑄)) ∈ 𝐴 ∧ ((𝑋(meet‘𝐾)(𝑃 ∨ 𝑄)) ≤ 𝑋 ∧ 𝑃 ≤ (𝑄 ∨ (𝑋(meet‘𝐾)(𝑃 ∨ 𝑄)))))))
125		breq1 4586	. . . . . . . 8 ⊢ (𝑟 = (𝑋(meet‘𝐾)(𝑃 ∨ 𝑄)) → (𝑟 ≤ 𝑋 ↔ (𝑋(meet‘𝐾)(𝑃 ∨ 𝑄)) ≤ 𝑋))
126		oveq2 6557	. . . . . . . . 9 ⊢ (𝑟 = (𝑋(meet‘𝐾)(𝑃 ∨ 𝑄)) → (𝑄 ∨ 𝑟) = (𝑄 ∨ (𝑋(meet‘𝐾)(𝑃 ∨ 𝑄))))
127	126	breq2d 4595	. . . . . . . 8 ⊢ (𝑟 = (𝑋(meet‘𝐾)(𝑃 ∨ 𝑄)) → (𝑃 ≤ (𝑄 ∨ 𝑟) ↔ 𝑃 ≤ (𝑄 ∨ (𝑋(meet‘𝐾)(𝑃 ∨ 𝑄)))))
128	125, 127	anbi12d 743	. . . . . . 7 ⊢ (𝑟 = (𝑋(meet‘𝐾)(𝑃 ∨ 𝑄)) → ((𝑟 ≤ 𝑋 ∧ 𝑃 ≤ (𝑄 ∨ 𝑟)) ↔ ((𝑋(meet‘𝐾)(𝑃 ∨ 𝑄)) ≤ 𝑋 ∧ 𝑃 ≤ (𝑄 ∨ (𝑋(meet‘𝐾)(𝑃 ∨ 𝑄))))))
129	128	rspcev 3282	. . . . . 6 ⊢ (((𝑋(meet‘𝐾)(𝑃 ∨ 𝑄)) ∈ 𝐴 ∧ ((𝑋(meet‘𝐾)(𝑃 ∨ 𝑄)) ≤ 𝑋 ∧ 𝑃 ≤ (𝑄 ∨ (𝑋(meet‘𝐾)(𝑃 ∨ 𝑄))))) → ∃𝑟 ∈ 𝐴 (𝑟 ≤ 𝑋 ∧ 𝑃 ≤ (𝑄 ∨ 𝑟)))
130	124, 129	syl6 34	. . . . 5 ⊢ ((𝐾 ∈ HL ∧ (𝑋 ∈ 𝐵 ∧ 𝑃 ∈ 𝐴 ∧ 𝑄 ∈ 𝐴)) → (((𝑃 ≠ 𝑄 ∧ ¬ 𝑄 ≤ 𝑋) ∧ 𝑃 ≤ (𝑋 ∨ 𝑄)) → ∃𝑟 ∈ 𝐴 (𝑟 ≤ 𝑋 ∧ 𝑃 ≤ (𝑄 ∨ 𝑟))))
131	130	expd 451	. . . 4 ⊢ ((𝐾 ∈ HL ∧ (𝑋 ∈ 𝐵 ∧ 𝑃 ∈ 𝐴 ∧ 𝑄 ∈ 𝐴)) → ((𝑃 ≠ 𝑄 ∧ ¬ 𝑄 ≤ 𝑋) → (𝑃 ≤ (𝑋 ∨ 𝑄) → ∃𝑟 ∈ 𝐴 (𝑟 ≤ 𝑋 ∧ 𝑃 ≤ (𝑄 ∨ 𝑟)))))
132	60, 131	syl5bi 231	. . 3 ⊢ ((𝐾 ∈ HL ∧ (𝑋 ∈ 𝐵 ∧ 𝑃 ∈ 𝐴 ∧ 𝑄 ∈ 𝐴)) → (¬ (𝑃 = 𝑄 ∨ 𝑄 ≤ 𝑋) → (𝑃 ≤ (𝑋 ∨ 𝑄) → ∃𝑟 ∈ 𝐴 (𝑟 ≤ 𝑋 ∧ 𝑃 ≤ (𝑄 ∨ 𝑟)))))
133	56, 132	syl7 72	. 2 ⊢ ((𝐾 ∈ HL ∧ (𝑋 ∈ 𝐵 ∧ 𝑃 ∈ 𝐴 ∧ 𝑄 ∈ 𝐴)) → (¬ (𝑃 = 𝑄 ∨ 𝑄 ≤ 𝑋) → ((𝑋 ≠ 0 ∧ 𝑃 ≤ (𝑋 ∨ 𝑄)) → ∃𝑟 ∈ 𝐴 (𝑟 ≤ 𝑋 ∧ 𝑃 ≤ (𝑄 ∨ 𝑟)))))
134	29, 55, 133	ecase3d 981	1 ⊢ ((𝐾 ∈ HL ∧ (𝑋 ∈ 𝐵 ∧ 𝑃 ∈ 𝐴 ∧ 𝑄 ∈ 𝐴)) → ((𝑋 ≠ 0 ∧ 𝑃 ≤ (𝑋 ∨ 𝑄)) → ∃𝑟 ∈ 𝐴 (𝑟 ≤ 𝑋 ∧ 𝑃 ≤ (𝑄 ∨ 𝑟))))

Syntax hints:  ¬ wn 3   → wi 4   ↔ wb 195   ∨ wo 382   ∧ wa 383   ∧ w3a 1031   = wceq 1475   ∈ wcel 1977   ≠ wne 2780  ∃wrex 2897   class class class wbr 4583  ‘cfv 5804  (class class class)co 6549  Basecbs 15695  lecple 15775  joincjn 16767  meetcmee 16768  0.cp0 16860  Latclat 16868  OPcops 33477  Atomscatm 33568  AtLatcal 33569  HLchlt 33655

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1713  ax-4 1728  ax-5 1827  ax-6 1875  ax-7 1922  ax-8 1979  ax-9 1986  ax-10 2006  ax-11 2021  ax-12 2034  ax-13 2234  ax-ext 2590  ax-rep 4699  ax-sep 4709  ax-nul 4717  ax-pow 4769  ax-pr 4833  ax-un 6847

This theorem depends on definitions:  df-bi 196  df-or 384  df-an 385  df-3an 1033  df-tru 1478  df-ex 1696  df-nf 1701  df-sb 1868  df-eu 2462  df-mo 2463  df-clab 2597  df-cleq 2603  df-clel 2606  df-nfc 2740  df-ne 2782  df-ral 2901  df-rex 2902  df-reu 2903  df-rab 2905  df-v 3175  df-sbc 3403  df-csb 3500  df-dif 3543  df-un 3545  df-in 3547  df-ss 3554  df-nul 3875  df-if 4037  df-pw 4110  df-sn 4126  df-pr 4128  df-op 4132  df-uni 4373  df-iun 4457  df-br 4584  df-opab 4644  df-mpt 4645  df-id 4953  df-xp 5044  df-rel 5045  df-cnv 5046  df-co 5047  df-dm 5048  df-rn 5049  df-res 5050  df-ima 5051  df-iota 5768  df-fun 5806  df-fn 5807  df-f 5808  df-f1 5809  df-fo 5810  df-f1o 5811  df-fv 5812  df-riota 6511  df-ov 6552  df-oprab 6553  df-preset 16751  df-poset 16769  df-plt 16781  df-lub 16797  df-glb 16798  df-join 16799  df-meet 16800  df-p0 16862  df-lat 16869  df-clat 16931  df-oposet 33481  df-ol 33483  df-oml 33484  df-covers 33571  df-ats 33572  df-atl 33603  df-cvlat 33627  df-hlat 33656

This theorem is referenced by:  cvrat42  33748  ps-2  33782