Users' Mathboxes Mathbox for Norm Megill < Previous   Next >
Nearby theorems
Mirrors  >  Home  >  MPE Home  >  Th. List  >   Mathboxes  >  cdlemg18b Structured version   Visualization version   GIF version

Theorem cdlemg18b 40208
Description: Lemma for cdlemg18c 40209. TODO: fix comment. (Contributed by NM, 15-May-2013.)
Hypotheses
Ref Expression
cdlemg12.l ≀ = (leβ€˜πΎ)
cdlemg12.j ∨ = (joinβ€˜πΎ)
cdlemg12.m ∧ = (meetβ€˜πΎ)
cdlemg12.a 𝐴 = (Atomsβ€˜πΎ)
cdlemg12.h 𝐻 = (LHypβ€˜πΎ)
cdlemg12.t 𝑇 = ((LTrnβ€˜πΎ)β€˜π‘Š)
cdlemg12b.r 𝑅 = ((trLβ€˜πΎ)β€˜π‘Š)
cdlemg18b.u π‘ˆ = ((𝑃 ∨ 𝑄) ∧ π‘Š)
Assertion
Ref Expression
cdlemg18b (((𝐾 ∈ HL ∧ π‘Š ∈ 𝐻) ∧ ((𝑃 ∈ 𝐴 ∧ Β¬ 𝑃 ≀ π‘Š) ∧ (𝑄 ∈ 𝐴 ∧ Β¬ 𝑄 ≀ π‘Š) ∧ 𝐹 ∈ 𝑇) ∧ (𝑃 β‰  𝑄 ∧ (πΉβ€˜π‘ƒ) β‰  𝑄 ∧ ((πΉβ€˜π‘„) ∨ (πΉβ€˜π‘ƒ)) β‰  (𝑃 ∨ 𝑄))) β†’ Β¬ 𝑃 ≀ (π‘ˆ ∨ (πΉβ€˜π‘„)))

Proof of Theorem cdlemg18b
StepHypRef Expression
1 simp33 1208 . 2 (((𝐾 ∈ HL ∧ π‘Š ∈ 𝐻) ∧ ((𝑃 ∈ 𝐴 ∧ Β¬ 𝑃 ≀ π‘Š) ∧ (𝑄 ∈ 𝐴 ∧ Β¬ 𝑄 ≀ π‘Š) ∧ 𝐹 ∈ 𝑇) ∧ (𝑃 β‰  𝑄 ∧ (πΉβ€˜π‘ƒ) β‰  𝑄 ∧ ((πΉβ€˜π‘„) ∨ (πΉβ€˜π‘ƒ)) β‰  (𝑃 ∨ 𝑄))) β†’ ((πΉβ€˜π‘„) ∨ (πΉβ€˜π‘ƒ)) β‰  (𝑃 ∨ 𝑄))
2 simp3r 1199 . . . . . . . . . 10 (((𝐾 ∈ HL ∧ π‘Š ∈ 𝐻) ∧ ((𝑃 ∈ 𝐴 ∧ Β¬ 𝑃 ≀ π‘Š) ∧ (𝑄 ∈ 𝐴 ∧ Β¬ 𝑄 ≀ π‘Š) ∧ 𝐹 ∈ 𝑇) ∧ ((𝑃 β‰  𝑄 ∧ (πΉβ€˜π‘ƒ) β‰  𝑄 ∧ ((πΉβ€˜π‘„) ∨ (πΉβ€˜π‘ƒ)) β‰  (𝑃 ∨ 𝑄)) ∧ 𝑃 ≀ (π‘ˆ ∨ (πΉβ€˜π‘„)))) β†’ 𝑃 ≀ (π‘ˆ ∨ (πΉβ€˜π‘„)))
3 simp1l 1194 . . . . . . . . . . 11 (((𝐾 ∈ HL ∧ π‘Š ∈ 𝐻) ∧ ((𝑃 ∈ 𝐴 ∧ Β¬ 𝑃 ≀ π‘Š) ∧ (𝑄 ∈ 𝐴 ∧ Β¬ 𝑄 ≀ π‘Š) ∧ 𝐹 ∈ 𝑇) ∧ ((𝑃 β‰  𝑄 ∧ (πΉβ€˜π‘ƒ) β‰  𝑄 ∧ ((πΉβ€˜π‘„) ∨ (πΉβ€˜π‘ƒ)) β‰  (𝑃 ∨ 𝑄)) ∧ 𝑃 ≀ (π‘ˆ ∨ (πΉβ€˜π‘„)))) β†’ 𝐾 ∈ HL)
4 simp1r 1195 . . . . . . . . . . . 12 (((𝐾 ∈ HL ∧ π‘Š ∈ 𝐻) ∧ ((𝑃 ∈ 𝐴 ∧ Β¬ 𝑃 ≀ π‘Š) ∧ (𝑄 ∈ 𝐴 ∧ Β¬ 𝑄 ≀ π‘Š) ∧ 𝐹 ∈ 𝑇) ∧ ((𝑃 β‰  𝑄 ∧ (πΉβ€˜π‘ƒ) β‰  𝑄 ∧ ((πΉβ€˜π‘„) ∨ (πΉβ€˜π‘ƒ)) β‰  (𝑃 ∨ 𝑄)) ∧ 𝑃 ≀ (π‘ˆ ∨ (πΉβ€˜π‘„)))) β†’ π‘Š ∈ 𝐻)
5 simp21 1203 . . . . . . . . . . . 12 (((𝐾 ∈ HL ∧ π‘Š ∈ 𝐻) ∧ ((𝑃 ∈ 𝐴 ∧ Β¬ 𝑃 ≀ π‘Š) ∧ (𝑄 ∈ 𝐴 ∧ Β¬ 𝑄 ≀ π‘Š) ∧ 𝐹 ∈ 𝑇) ∧ ((𝑃 β‰  𝑄 ∧ (πΉβ€˜π‘ƒ) β‰  𝑄 ∧ ((πΉβ€˜π‘„) ∨ (πΉβ€˜π‘ƒ)) β‰  (𝑃 ∨ 𝑄)) ∧ 𝑃 ≀ (π‘ˆ ∨ (πΉβ€˜π‘„)))) β†’ (𝑃 ∈ 𝐴 ∧ Β¬ 𝑃 ≀ π‘Š))
6 simp22l 1289 . . . . . . . . . . . 12 (((𝐾 ∈ HL ∧ π‘Š ∈ 𝐻) ∧ ((𝑃 ∈ 𝐴 ∧ Β¬ 𝑃 ≀ π‘Š) ∧ (𝑄 ∈ 𝐴 ∧ Β¬ 𝑄 ≀ π‘Š) ∧ 𝐹 ∈ 𝑇) ∧ ((𝑃 β‰  𝑄 ∧ (πΉβ€˜π‘ƒ) β‰  𝑄 ∧ ((πΉβ€˜π‘„) ∨ (πΉβ€˜π‘ƒ)) β‰  (𝑃 ∨ 𝑄)) ∧ 𝑃 ≀ (π‘ˆ ∨ (πΉβ€˜π‘„)))) β†’ 𝑄 ∈ 𝐴)
7 simp3l1 1275 . . . . . . . . . . . 12 (((𝐾 ∈ HL ∧ π‘Š ∈ 𝐻) ∧ ((𝑃 ∈ 𝐴 ∧ Β¬ 𝑃 ≀ π‘Š) ∧ (𝑄 ∈ 𝐴 ∧ Β¬ 𝑄 ≀ π‘Š) ∧ 𝐹 ∈ 𝑇) ∧ ((𝑃 β‰  𝑄 ∧ (πΉβ€˜π‘ƒ) β‰  𝑄 ∧ ((πΉβ€˜π‘„) ∨ (πΉβ€˜π‘ƒ)) β‰  (𝑃 ∨ 𝑄)) ∧ 𝑃 ≀ (π‘ˆ ∨ (πΉβ€˜π‘„)))) β†’ 𝑃 β‰  𝑄)
8 cdlemg12.l . . . . . . . . . . . . 13 ≀ = (leβ€˜πΎ)
9 cdlemg12.j . . . . . . . . . . . . 13 ∨ = (joinβ€˜πΎ)
10 cdlemg12.m . . . . . . . . . . . . 13 ∧ = (meetβ€˜πΎ)
11 cdlemg12.a . . . . . . . . . . . . 13 𝐴 = (Atomsβ€˜πΎ)
12 cdlemg12.h . . . . . . . . . . . . 13 𝐻 = (LHypβ€˜πΎ)
13 cdlemg18b.u . . . . . . . . . . . . 13 π‘ˆ = ((𝑃 ∨ 𝑄) ∧ π‘Š)
148, 9, 10, 11, 12, 13cdleme0a 39740 . . . . . . . . . . . 12 (((𝐾 ∈ HL ∧ π‘Š ∈ 𝐻) ∧ (𝑃 ∈ 𝐴 ∧ Β¬ 𝑃 ≀ π‘Š) ∧ (𝑄 ∈ 𝐴 ∧ 𝑃 β‰  𝑄)) β†’ π‘ˆ ∈ 𝐴)
153, 4, 5, 6, 7, 14syl212anc 1377 . . . . . . . . . . 11 (((𝐾 ∈ HL ∧ π‘Š ∈ 𝐻) ∧ ((𝑃 ∈ 𝐴 ∧ Β¬ 𝑃 ≀ π‘Š) ∧ (𝑄 ∈ 𝐴 ∧ Β¬ 𝑄 ≀ π‘Š) ∧ 𝐹 ∈ 𝑇) ∧ ((𝑃 β‰  𝑄 ∧ (πΉβ€˜π‘ƒ) β‰  𝑄 ∧ ((πΉβ€˜π‘„) ∨ (πΉβ€˜π‘ƒ)) β‰  (𝑃 ∨ 𝑄)) ∧ 𝑃 ≀ (π‘ˆ ∨ (πΉβ€˜π‘„)))) β†’ π‘ˆ ∈ 𝐴)
16 simp1 1133 . . . . . . . . . . . 12 (((𝐾 ∈ HL ∧ π‘Š ∈ 𝐻) ∧ ((𝑃 ∈ 𝐴 ∧ Β¬ 𝑃 ≀ π‘Š) ∧ (𝑄 ∈ 𝐴 ∧ Β¬ 𝑄 ≀ π‘Š) ∧ 𝐹 ∈ 𝑇) ∧ ((𝑃 β‰  𝑄 ∧ (πΉβ€˜π‘ƒ) β‰  𝑄 ∧ ((πΉβ€˜π‘„) ∨ (πΉβ€˜π‘ƒ)) β‰  (𝑃 ∨ 𝑄)) ∧ 𝑃 ≀ (π‘ˆ ∨ (πΉβ€˜π‘„)))) β†’ (𝐾 ∈ HL ∧ π‘Š ∈ 𝐻))
17 simp23 1205 . . . . . . . . . . . 12 (((𝐾 ∈ HL ∧ π‘Š ∈ 𝐻) ∧ ((𝑃 ∈ 𝐴 ∧ Β¬ 𝑃 ≀ π‘Š) ∧ (𝑄 ∈ 𝐴 ∧ Β¬ 𝑄 ≀ π‘Š) ∧ 𝐹 ∈ 𝑇) ∧ ((𝑃 β‰  𝑄 ∧ (πΉβ€˜π‘ƒ) β‰  𝑄 ∧ ((πΉβ€˜π‘„) ∨ (πΉβ€˜π‘ƒ)) β‰  (𝑃 ∨ 𝑄)) ∧ 𝑃 ≀ (π‘ˆ ∨ (πΉβ€˜π‘„)))) β†’ 𝐹 ∈ 𝑇)
18 cdlemg12.t . . . . . . . . . . . . 13 𝑇 = ((LTrnβ€˜πΎ)β€˜π‘Š)
198, 11, 12, 18ltrnat 39669 . . . . . . . . . . . 12 (((𝐾 ∈ HL ∧ π‘Š ∈ 𝐻) ∧ 𝐹 ∈ 𝑇 ∧ 𝑄 ∈ 𝐴) β†’ (πΉβ€˜π‘„) ∈ 𝐴)
2016, 17, 6, 19syl3anc 1368 . . . . . . . . . . 11 (((𝐾 ∈ HL ∧ π‘Š ∈ 𝐻) ∧ ((𝑃 ∈ 𝐴 ∧ Β¬ 𝑃 ≀ π‘Š) ∧ (𝑄 ∈ 𝐴 ∧ Β¬ 𝑄 ≀ π‘Š) ∧ 𝐹 ∈ 𝑇) ∧ ((𝑃 β‰  𝑄 ∧ (πΉβ€˜π‘ƒ) β‰  𝑄 ∧ ((πΉβ€˜π‘„) ∨ (πΉβ€˜π‘ƒ)) β‰  (𝑃 ∨ 𝑄)) ∧ 𝑃 ≀ (π‘ˆ ∨ (πΉβ€˜π‘„)))) β†’ (πΉβ€˜π‘„) ∈ 𝐴)
218, 9, 11hlatlej1 38903 . . . . . . . . . . 11 ((𝐾 ∈ HL ∧ π‘ˆ ∈ 𝐴 ∧ (πΉβ€˜π‘„) ∈ 𝐴) β†’ π‘ˆ ≀ (π‘ˆ ∨ (πΉβ€˜π‘„)))
223, 15, 20, 21syl3anc 1368 . . . . . . . . . 10 (((𝐾 ∈ HL ∧ π‘Š ∈ 𝐻) ∧ ((𝑃 ∈ 𝐴 ∧ Β¬ 𝑃 ≀ π‘Š) ∧ (𝑄 ∈ 𝐴 ∧ Β¬ 𝑄 ≀ π‘Š) ∧ 𝐹 ∈ 𝑇) ∧ ((𝑃 β‰  𝑄 ∧ (πΉβ€˜π‘ƒ) β‰  𝑄 ∧ ((πΉβ€˜π‘„) ∨ (πΉβ€˜π‘ƒ)) β‰  (𝑃 ∨ 𝑄)) ∧ 𝑃 ≀ (π‘ˆ ∨ (πΉβ€˜π‘„)))) β†’ π‘ˆ ≀ (π‘ˆ ∨ (πΉβ€˜π‘„)))
233hllatd 38892 . . . . . . . . . . 11 (((𝐾 ∈ HL ∧ π‘Š ∈ 𝐻) ∧ ((𝑃 ∈ 𝐴 ∧ Β¬ 𝑃 ≀ π‘Š) ∧ (𝑄 ∈ 𝐴 ∧ Β¬ 𝑄 ≀ π‘Š) ∧ 𝐹 ∈ 𝑇) ∧ ((𝑃 β‰  𝑄 ∧ (πΉβ€˜π‘ƒ) β‰  𝑄 ∧ ((πΉβ€˜π‘„) ∨ (πΉβ€˜π‘ƒ)) β‰  (𝑃 ∨ 𝑄)) ∧ 𝑃 ≀ (π‘ˆ ∨ (πΉβ€˜π‘„)))) β†’ 𝐾 ∈ Lat)
24 simp21l 1287 . . . . . . . . . . . 12 (((𝐾 ∈ HL ∧ π‘Š ∈ 𝐻) ∧ ((𝑃 ∈ 𝐴 ∧ Β¬ 𝑃 ≀ π‘Š) ∧ (𝑄 ∈ 𝐴 ∧ Β¬ 𝑄 ≀ π‘Š) ∧ 𝐹 ∈ 𝑇) ∧ ((𝑃 β‰  𝑄 ∧ (πΉβ€˜π‘ƒ) β‰  𝑄 ∧ ((πΉβ€˜π‘„) ∨ (πΉβ€˜π‘ƒ)) β‰  (𝑃 ∨ 𝑄)) ∧ 𝑃 ≀ (π‘ˆ ∨ (πΉβ€˜π‘„)))) β†’ 𝑃 ∈ 𝐴)
25 eqid 2725 . . . . . . . . . . . . 13 (Baseβ€˜πΎ) = (Baseβ€˜πΎ)
2625, 11atbase 38817 . . . . . . . . . . . 12 (𝑃 ∈ 𝐴 β†’ 𝑃 ∈ (Baseβ€˜πΎ))
2724, 26syl 17 . . . . . . . . . . 11 (((𝐾 ∈ HL ∧ π‘Š ∈ 𝐻) ∧ ((𝑃 ∈ 𝐴 ∧ Β¬ 𝑃 ≀ π‘Š) ∧ (𝑄 ∈ 𝐴 ∧ Β¬ 𝑄 ≀ π‘Š) ∧ 𝐹 ∈ 𝑇) ∧ ((𝑃 β‰  𝑄 ∧ (πΉβ€˜π‘ƒ) β‰  𝑄 ∧ ((πΉβ€˜π‘„) ∨ (πΉβ€˜π‘ƒ)) β‰  (𝑃 ∨ 𝑄)) ∧ 𝑃 ≀ (π‘ˆ ∨ (πΉβ€˜π‘„)))) β†’ 𝑃 ∈ (Baseβ€˜πΎ))
2825, 11atbase 38817 . . . . . . . . . . . 12 (π‘ˆ ∈ 𝐴 β†’ π‘ˆ ∈ (Baseβ€˜πΎ))
2915, 28syl 17 . . . . . . . . . . 11 (((𝐾 ∈ HL ∧ π‘Š ∈ 𝐻) ∧ ((𝑃 ∈ 𝐴 ∧ Β¬ 𝑃 ≀ π‘Š) ∧ (𝑄 ∈ 𝐴 ∧ Β¬ 𝑄 ≀ π‘Š) ∧ 𝐹 ∈ 𝑇) ∧ ((𝑃 β‰  𝑄 ∧ (πΉβ€˜π‘ƒ) β‰  𝑄 ∧ ((πΉβ€˜π‘„) ∨ (πΉβ€˜π‘ƒ)) β‰  (𝑃 ∨ 𝑄)) ∧ 𝑃 ≀ (π‘ˆ ∨ (πΉβ€˜π‘„)))) β†’ π‘ˆ ∈ (Baseβ€˜πΎ))
3025, 9, 11hlatjcl 38895 . . . . . . . . . . . 12 ((𝐾 ∈ HL ∧ π‘ˆ ∈ 𝐴 ∧ (πΉβ€˜π‘„) ∈ 𝐴) β†’ (π‘ˆ ∨ (πΉβ€˜π‘„)) ∈ (Baseβ€˜πΎ))
313, 15, 20, 30syl3anc 1368 . . . . . . . . . . 11 (((𝐾 ∈ HL ∧ π‘Š ∈ 𝐻) ∧ ((𝑃 ∈ 𝐴 ∧ Β¬ 𝑃 ≀ π‘Š) ∧ (𝑄 ∈ 𝐴 ∧ Β¬ 𝑄 ≀ π‘Š) ∧ 𝐹 ∈ 𝑇) ∧ ((𝑃 β‰  𝑄 ∧ (πΉβ€˜π‘ƒ) β‰  𝑄 ∧ ((πΉβ€˜π‘„) ∨ (πΉβ€˜π‘ƒ)) β‰  (𝑃 ∨ 𝑄)) ∧ 𝑃 ≀ (π‘ˆ ∨ (πΉβ€˜π‘„)))) β†’ (π‘ˆ ∨ (πΉβ€˜π‘„)) ∈ (Baseβ€˜πΎ))
3225, 8, 9latjle12 18441 . . . . . . . . . . 11 ((𝐾 ∈ Lat ∧ (𝑃 ∈ (Baseβ€˜πΎ) ∧ π‘ˆ ∈ (Baseβ€˜πΎ) ∧ (π‘ˆ ∨ (πΉβ€˜π‘„)) ∈ (Baseβ€˜πΎ))) β†’ ((𝑃 ≀ (π‘ˆ ∨ (πΉβ€˜π‘„)) ∧ π‘ˆ ≀ (π‘ˆ ∨ (πΉβ€˜π‘„))) ↔ (𝑃 ∨ π‘ˆ) ≀ (π‘ˆ ∨ (πΉβ€˜π‘„))))
3323, 27, 29, 31, 32syl13anc 1369 . . . . . . . . . 10 (((𝐾 ∈ HL ∧ π‘Š ∈ 𝐻) ∧ ((𝑃 ∈ 𝐴 ∧ Β¬ 𝑃 ≀ π‘Š) ∧ (𝑄 ∈ 𝐴 ∧ Β¬ 𝑄 ≀ π‘Š) ∧ 𝐹 ∈ 𝑇) ∧ ((𝑃 β‰  𝑄 ∧ (πΉβ€˜π‘ƒ) β‰  𝑄 ∧ ((πΉβ€˜π‘„) ∨ (πΉβ€˜π‘ƒ)) β‰  (𝑃 ∨ 𝑄)) ∧ 𝑃 ≀ (π‘ˆ ∨ (πΉβ€˜π‘„)))) β†’ ((𝑃 ≀ (π‘ˆ ∨ (πΉβ€˜π‘„)) ∧ π‘ˆ ≀ (π‘ˆ ∨ (πΉβ€˜π‘„))) ↔ (𝑃 ∨ π‘ˆ) ≀ (π‘ˆ ∨ (πΉβ€˜π‘„))))
342, 22, 33mpbi2and 710 . . . . . . . . 9 (((𝐾 ∈ HL ∧ π‘Š ∈ 𝐻) ∧ ((𝑃 ∈ 𝐴 ∧ Β¬ 𝑃 ≀ π‘Š) ∧ (𝑄 ∈ 𝐴 ∧ Β¬ 𝑄 ≀ π‘Š) ∧ 𝐹 ∈ 𝑇) ∧ ((𝑃 β‰  𝑄 ∧ (πΉβ€˜π‘ƒ) β‰  𝑄 ∧ ((πΉβ€˜π‘„) ∨ (πΉβ€˜π‘ƒ)) β‰  (𝑃 ∨ 𝑄)) ∧ 𝑃 ≀ (π‘ˆ ∨ (πΉβ€˜π‘„)))) β†’ (𝑃 ∨ π‘ˆ) ≀ (π‘ˆ ∨ (πΉβ€˜π‘„)))
358, 9, 10, 11, 12, 13cdleme0cp 39743 . . . . . . . . . 10 (((𝐾 ∈ HL ∧ π‘Š ∈ 𝐻) ∧ ((𝑃 ∈ 𝐴 ∧ Β¬ 𝑃 ≀ π‘Š) ∧ 𝑄 ∈ 𝐴)) β†’ (𝑃 ∨ π‘ˆ) = (𝑃 ∨ 𝑄))
363, 4, 5, 6, 35syl22anc 837 . . . . . . . . 9 (((𝐾 ∈ HL ∧ π‘Š ∈ 𝐻) ∧ ((𝑃 ∈ 𝐴 ∧ Β¬ 𝑃 ≀ π‘Š) ∧ (𝑄 ∈ 𝐴 ∧ Β¬ 𝑄 ≀ π‘Š) ∧ 𝐹 ∈ 𝑇) ∧ ((𝑃 β‰  𝑄 ∧ (πΉβ€˜π‘ƒ) β‰  𝑄 ∧ ((πΉβ€˜π‘„) ∨ (πΉβ€˜π‘ƒ)) β‰  (𝑃 ∨ 𝑄)) ∧ 𝑃 ≀ (π‘ˆ ∨ (πΉβ€˜π‘„)))) β†’ (𝑃 ∨ π‘ˆ) = (𝑃 ∨ 𝑄))
37 simp22 1204 . . . . . . . . . . 11 (((𝐾 ∈ HL ∧ π‘Š ∈ 𝐻) ∧ ((𝑃 ∈ 𝐴 ∧ Β¬ 𝑃 ≀ π‘Š) ∧ (𝑄 ∈ 𝐴 ∧ Β¬ 𝑄 ≀ π‘Š) ∧ 𝐹 ∈ 𝑇) ∧ ((𝑃 β‰  𝑄 ∧ (πΉβ€˜π‘ƒ) β‰  𝑄 ∧ ((πΉβ€˜π‘„) ∨ (πΉβ€˜π‘ƒ)) β‰  (𝑃 ∨ 𝑄)) ∧ 𝑃 ≀ (π‘ˆ ∨ (πΉβ€˜π‘„)))) β†’ (𝑄 ∈ 𝐴 ∧ Β¬ 𝑄 ≀ π‘Š))
3812, 18, 8, 9, 11, 10, 13cdlemg2kq 40131 . . . . . . . . . . 11 (((𝐾 ∈ HL ∧ π‘Š ∈ 𝐻) ∧ ((𝑃 ∈ 𝐴 ∧ Β¬ 𝑃 ≀ π‘Š) ∧ (𝑄 ∈ 𝐴 ∧ Β¬ 𝑄 ≀ π‘Š)) ∧ 𝐹 ∈ 𝑇) β†’ ((πΉβ€˜π‘ƒ) ∨ (πΉβ€˜π‘„)) = ((πΉβ€˜π‘„) ∨ π‘ˆ))
3916, 5, 37, 17, 38syl121anc 1372 . . . . . . . . . 10 (((𝐾 ∈ HL ∧ π‘Š ∈ 𝐻) ∧ ((𝑃 ∈ 𝐴 ∧ Β¬ 𝑃 ≀ π‘Š) ∧ (𝑄 ∈ 𝐴 ∧ Β¬ 𝑄 ≀ π‘Š) ∧ 𝐹 ∈ 𝑇) ∧ ((𝑃 β‰  𝑄 ∧ (πΉβ€˜π‘ƒ) β‰  𝑄 ∧ ((πΉβ€˜π‘„) ∨ (πΉβ€˜π‘ƒ)) β‰  (𝑃 ∨ 𝑄)) ∧ 𝑃 ≀ (π‘ˆ ∨ (πΉβ€˜π‘„)))) β†’ ((πΉβ€˜π‘ƒ) ∨ (πΉβ€˜π‘„)) = ((πΉβ€˜π‘„) ∨ π‘ˆ))
409, 11hlatjcom 38896 . . . . . . . . . . 11 ((𝐾 ∈ HL ∧ (πΉβ€˜π‘„) ∈ 𝐴 ∧ π‘ˆ ∈ 𝐴) β†’ ((πΉβ€˜π‘„) ∨ π‘ˆ) = (π‘ˆ ∨ (πΉβ€˜π‘„)))
413, 20, 15, 40syl3anc 1368 . . . . . . . . . 10 (((𝐾 ∈ HL ∧ π‘Š ∈ 𝐻) ∧ ((𝑃 ∈ 𝐴 ∧ Β¬ 𝑃 ≀ π‘Š) ∧ (𝑄 ∈ 𝐴 ∧ Β¬ 𝑄 ≀ π‘Š) ∧ 𝐹 ∈ 𝑇) ∧ ((𝑃 β‰  𝑄 ∧ (πΉβ€˜π‘ƒ) β‰  𝑄 ∧ ((πΉβ€˜π‘„) ∨ (πΉβ€˜π‘ƒ)) β‰  (𝑃 ∨ 𝑄)) ∧ 𝑃 ≀ (π‘ˆ ∨ (πΉβ€˜π‘„)))) β†’ ((πΉβ€˜π‘„) ∨ π‘ˆ) = (π‘ˆ ∨ (πΉβ€˜π‘„)))
4239, 41eqtr2d 2766 . . . . . . . . 9 (((𝐾 ∈ HL ∧ π‘Š ∈ 𝐻) ∧ ((𝑃 ∈ 𝐴 ∧ Β¬ 𝑃 ≀ π‘Š) ∧ (𝑄 ∈ 𝐴 ∧ Β¬ 𝑄 ≀ π‘Š) ∧ 𝐹 ∈ 𝑇) ∧ ((𝑃 β‰  𝑄 ∧ (πΉβ€˜π‘ƒ) β‰  𝑄 ∧ ((πΉβ€˜π‘„) ∨ (πΉβ€˜π‘ƒ)) β‰  (𝑃 ∨ 𝑄)) ∧ 𝑃 ≀ (π‘ˆ ∨ (πΉβ€˜π‘„)))) β†’ (π‘ˆ ∨ (πΉβ€˜π‘„)) = ((πΉβ€˜π‘ƒ) ∨ (πΉβ€˜π‘„)))
4334, 36, 423brtr3d 5174 . . . . . . . 8 (((𝐾 ∈ HL ∧ π‘Š ∈ 𝐻) ∧ ((𝑃 ∈ 𝐴 ∧ Β¬ 𝑃 ≀ π‘Š) ∧ (𝑄 ∈ 𝐴 ∧ Β¬ 𝑄 ≀ π‘Š) ∧ 𝐹 ∈ 𝑇) ∧ ((𝑃 β‰  𝑄 ∧ (πΉβ€˜π‘ƒ) β‰  𝑄 ∧ ((πΉβ€˜π‘„) ∨ (πΉβ€˜π‘ƒ)) β‰  (𝑃 ∨ 𝑄)) ∧ 𝑃 ≀ (π‘ˆ ∨ (πΉβ€˜π‘„)))) β†’ (𝑃 ∨ 𝑄) ≀ ((πΉβ€˜π‘ƒ) ∨ (πΉβ€˜π‘„)))
448, 11, 12, 18ltrnat 39669 . . . . . . . . . 10 (((𝐾 ∈ HL ∧ π‘Š ∈ 𝐻) ∧ 𝐹 ∈ 𝑇 ∧ 𝑃 ∈ 𝐴) β†’ (πΉβ€˜π‘ƒ) ∈ 𝐴)
4516, 17, 24, 44syl3anc 1368 . . . . . . . . 9 (((𝐾 ∈ HL ∧ π‘Š ∈ 𝐻) ∧ ((𝑃 ∈ 𝐴 ∧ Β¬ 𝑃 ≀ π‘Š) ∧ (𝑄 ∈ 𝐴 ∧ Β¬ 𝑄 ≀ π‘Š) ∧ 𝐹 ∈ 𝑇) ∧ ((𝑃 β‰  𝑄 ∧ (πΉβ€˜π‘ƒ) β‰  𝑄 ∧ ((πΉβ€˜π‘„) ∨ (πΉβ€˜π‘ƒ)) β‰  (𝑃 ∨ 𝑄)) ∧ 𝑃 ≀ (π‘ˆ ∨ (πΉβ€˜π‘„)))) β†’ (πΉβ€˜π‘ƒ) ∈ 𝐴)
468, 9, 11ps-1 39006 . . . . . . . . 9 ((𝐾 ∈ HL ∧ (𝑃 ∈ 𝐴 ∧ 𝑄 ∈ 𝐴 ∧ 𝑃 β‰  𝑄) ∧ ((πΉβ€˜π‘ƒ) ∈ 𝐴 ∧ (πΉβ€˜π‘„) ∈ 𝐴)) β†’ ((𝑃 ∨ 𝑄) ≀ ((πΉβ€˜π‘ƒ) ∨ (πΉβ€˜π‘„)) ↔ (𝑃 ∨ 𝑄) = ((πΉβ€˜π‘ƒ) ∨ (πΉβ€˜π‘„))))
473, 24, 6, 7, 45, 20, 46syl132anc 1385 . . . . . . . 8 (((𝐾 ∈ HL ∧ π‘Š ∈ 𝐻) ∧ ((𝑃 ∈ 𝐴 ∧ Β¬ 𝑃 ≀ π‘Š) ∧ (𝑄 ∈ 𝐴 ∧ Β¬ 𝑄 ≀ π‘Š) ∧ 𝐹 ∈ 𝑇) ∧ ((𝑃 β‰  𝑄 ∧ (πΉβ€˜π‘ƒ) β‰  𝑄 ∧ ((πΉβ€˜π‘„) ∨ (πΉβ€˜π‘ƒ)) β‰  (𝑃 ∨ 𝑄)) ∧ 𝑃 ≀ (π‘ˆ ∨ (πΉβ€˜π‘„)))) β†’ ((𝑃 ∨ 𝑄) ≀ ((πΉβ€˜π‘ƒ) ∨ (πΉβ€˜π‘„)) ↔ (𝑃 ∨ 𝑄) = ((πΉβ€˜π‘ƒ) ∨ (πΉβ€˜π‘„))))
4843, 47mpbid 231 . . . . . . 7 (((𝐾 ∈ HL ∧ π‘Š ∈ 𝐻) ∧ ((𝑃 ∈ 𝐴 ∧ Β¬ 𝑃 ≀ π‘Š) ∧ (𝑄 ∈ 𝐴 ∧ Β¬ 𝑄 ≀ π‘Š) ∧ 𝐹 ∈ 𝑇) ∧ ((𝑃 β‰  𝑄 ∧ (πΉβ€˜π‘ƒ) β‰  𝑄 ∧ ((πΉβ€˜π‘„) ∨ (πΉβ€˜π‘ƒ)) β‰  (𝑃 ∨ 𝑄)) ∧ 𝑃 ≀ (π‘ˆ ∨ (πΉβ€˜π‘„)))) β†’ (𝑃 ∨ 𝑄) = ((πΉβ€˜π‘ƒ) ∨ (πΉβ€˜π‘„)))
499, 11hlatjcom 38896 . . . . . . . 8 ((𝐾 ∈ HL ∧ (πΉβ€˜π‘ƒ) ∈ 𝐴 ∧ (πΉβ€˜π‘„) ∈ 𝐴) β†’ ((πΉβ€˜π‘ƒ) ∨ (πΉβ€˜π‘„)) = ((πΉβ€˜π‘„) ∨ (πΉβ€˜π‘ƒ)))
503, 45, 20, 49syl3anc 1368 . . . . . . 7 (((𝐾 ∈ HL ∧ π‘Š ∈ 𝐻) ∧ ((𝑃 ∈ 𝐴 ∧ Β¬ 𝑃 ≀ π‘Š) ∧ (𝑄 ∈ 𝐴 ∧ Β¬ 𝑄 ≀ π‘Š) ∧ 𝐹 ∈ 𝑇) ∧ ((𝑃 β‰  𝑄 ∧ (πΉβ€˜π‘ƒ) β‰  𝑄 ∧ ((πΉβ€˜π‘„) ∨ (πΉβ€˜π‘ƒ)) β‰  (𝑃 ∨ 𝑄)) ∧ 𝑃 ≀ (π‘ˆ ∨ (πΉβ€˜π‘„)))) β†’ ((πΉβ€˜π‘ƒ) ∨ (πΉβ€˜π‘„)) = ((πΉβ€˜π‘„) ∨ (πΉβ€˜π‘ƒ)))
5148, 50eqtr2d 2766 . . . . . 6 (((𝐾 ∈ HL ∧ π‘Š ∈ 𝐻) ∧ ((𝑃 ∈ 𝐴 ∧ Β¬ 𝑃 ≀ π‘Š) ∧ (𝑄 ∈ 𝐴 ∧ Β¬ 𝑄 ≀ π‘Š) ∧ 𝐹 ∈ 𝑇) ∧ ((𝑃 β‰  𝑄 ∧ (πΉβ€˜π‘ƒ) β‰  𝑄 ∧ ((πΉβ€˜π‘„) ∨ (πΉβ€˜π‘ƒ)) β‰  (𝑃 ∨ 𝑄)) ∧ 𝑃 ≀ (π‘ˆ ∨ (πΉβ€˜π‘„)))) β†’ ((πΉβ€˜π‘„) ∨ (πΉβ€˜π‘ƒ)) = (𝑃 ∨ 𝑄))
52513exp 1116 . . . . 5 ((𝐾 ∈ HL ∧ π‘Š ∈ 𝐻) β†’ (((𝑃 ∈ 𝐴 ∧ Β¬ 𝑃 ≀ π‘Š) ∧ (𝑄 ∈ 𝐴 ∧ Β¬ 𝑄 ≀ π‘Š) ∧ 𝐹 ∈ 𝑇) β†’ (((𝑃 β‰  𝑄 ∧ (πΉβ€˜π‘ƒ) β‰  𝑄 ∧ ((πΉβ€˜π‘„) ∨ (πΉβ€˜π‘ƒ)) β‰  (𝑃 ∨ 𝑄)) ∧ 𝑃 ≀ (π‘ˆ ∨ (πΉβ€˜π‘„))) β†’ ((πΉβ€˜π‘„) ∨ (πΉβ€˜π‘ƒ)) = (𝑃 ∨ 𝑄))))
5352exp4a 430 . . . 4 ((𝐾 ∈ HL ∧ π‘Š ∈ 𝐻) β†’ (((𝑃 ∈ 𝐴 ∧ Β¬ 𝑃 ≀ π‘Š) ∧ (𝑄 ∈ 𝐴 ∧ Β¬ 𝑄 ≀ π‘Š) ∧ 𝐹 ∈ 𝑇) β†’ ((𝑃 β‰  𝑄 ∧ (πΉβ€˜π‘ƒ) β‰  𝑄 ∧ ((πΉβ€˜π‘„) ∨ (πΉβ€˜π‘ƒ)) β‰  (𝑃 ∨ 𝑄)) β†’ (𝑃 ≀ (π‘ˆ ∨ (πΉβ€˜π‘„)) β†’ ((πΉβ€˜π‘„) ∨ (πΉβ€˜π‘ƒ)) = (𝑃 ∨ 𝑄)))))
54533imp 1108 . . 3 (((𝐾 ∈ HL ∧ π‘Š ∈ 𝐻) ∧ ((𝑃 ∈ 𝐴 ∧ Β¬ 𝑃 ≀ π‘Š) ∧ (𝑄 ∈ 𝐴 ∧ Β¬ 𝑄 ≀ π‘Š) ∧ 𝐹 ∈ 𝑇) ∧ (𝑃 β‰  𝑄 ∧ (πΉβ€˜π‘ƒ) β‰  𝑄 ∧ ((πΉβ€˜π‘„) ∨ (πΉβ€˜π‘ƒ)) β‰  (𝑃 ∨ 𝑄))) β†’ (𝑃 ≀ (π‘ˆ ∨ (πΉβ€˜π‘„)) β†’ ((πΉβ€˜π‘„) ∨ (πΉβ€˜π‘ƒ)) = (𝑃 ∨ 𝑄)))
5554necon3ad 2943 . 2 (((𝐾 ∈ HL ∧ π‘Š ∈ 𝐻) ∧ ((𝑃 ∈ 𝐴 ∧ Β¬ 𝑃 ≀ π‘Š) ∧ (𝑄 ∈ 𝐴 ∧ Β¬ 𝑄 ≀ π‘Š) ∧ 𝐹 ∈ 𝑇) ∧ (𝑃 β‰  𝑄 ∧ (πΉβ€˜π‘ƒ) β‰  𝑄 ∧ ((πΉβ€˜π‘„) ∨ (πΉβ€˜π‘ƒ)) β‰  (𝑃 ∨ 𝑄))) β†’ (((πΉβ€˜π‘„) ∨ (πΉβ€˜π‘ƒ)) β‰  (𝑃 ∨ 𝑄) β†’ Β¬ 𝑃 ≀ (π‘ˆ ∨ (πΉβ€˜π‘„))))
561, 55mpd 15 1 (((𝐾 ∈ HL ∧ π‘Š ∈ 𝐻) ∧ ((𝑃 ∈ 𝐴 ∧ Β¬ 𝑃 ≀ π‘Š) ∧ (𝑄 ∈ 𝐴 ∧ Β¬ 𝑄 ≀ π‘Š) ∧ 𝐹 ∈ 𝑇) ∧ (𝑃 β‰  𝑄 ∧ (πΉβ€˜π‘ƒ) β‰  𝑄 ∧ ((πΉβ€˜π‘„) ∨ (πΉβ€˜π‘ƒ)) β‰  (𝑃 ∨ 𝑄))) β†’ Β¬ 𝑃 ≀ (π‘ˆ ∨ (πΉβ€˜π‘„)))
Colors of variables: wff setvar class
Syntax hints:  Β¬ wn 3   β†’ wi 4   ↔ wb 205   ∧ wa 394   ∧ w3a 1084   = wceq 1533   ∈ wcel 2098   β‰  wne 2930   class class class wbr 5143  β€˜cfv 6543  (class class class)co 7416  Basecbs 17179  lecple 17239  joincjn 18302  meetcmee 18303  Latclat 18422  Atomscatm 38791  HLchlt 38878  LHypclh 39513  LTrncltrn 39630  trLctrl 39687
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1789  ax-4 1803  ax-5 1905  ax-6 1963  ax-7 2003  ax-8 2100  ax-9 2108  ax-10 2129  ax-11 2146  ax-12 2166  ax-ext 2696  ax-rep 5280  ax-sep 5294  ax-nul 5301  ax-pow 5359  ax-pr 5423  ax-un 7738  ax-riotaBAD 38481
This theorem depends on definitions:  df-bi 206  df-an 395  df-or 846  df-3or 1085  df-3an 1086  df-tru 1536  df-fal 1546  df-ex 1774  df-nf 1778  df-sb 2060  df-mo 2528  df-eu 2557  df-clab 2703  df-cleq 2717  df-clel 2802  df-nfc 2877  df-ne 2931  df-ral 3052  df-rex 3061  df-rmo 3364  df-reu 3365  df-rab 3420  df-v 3465  df-sbc 3769  df-csb 3885  df-dif 3942  df-un 3944  df-in 3946  df-ss 3956  df-nul 4319  df-if 4525  df-pw 4600  df-sn 4625  df-pr 4627  df-op 4631  df-uni 4904  df-iun 4993  df-iin 4994  df-br 5144  df-opab 5206  df-mpt 5227  df-id 5570  df-xp 5678  df-rel 5679  df-cnv 5680  df-co 5681  df-dm 5682  df-rn 5683  df-res 5684  df-ima 5685  df-iota 6495  df-fun 6545  df-fn 6546  df-f 6547  df-f1 6548  df-fo 6549  df-f1o 6550  df-fv 6551  df-riota 7372  df-ov 7419  df-oprab 7420  df-mpo 7421  df-1st 7991  df-2nd 7992  df-undef 8277  df-map 8845  df-proset 18286  df-poset 18304  df-plt 18321  df-lub 18337  df-glb 18338  df-join 18339  df-meet 18340  df-p0 18416  df-p1 18417  df-lat 18423  df-clat 18490  df-oposet 38704  df-ol 38706  df-oml 38707  df-covers 38794  df-ats 38795  df-atl 38826  df-cvlat 38850  df-hlat 38879  df-llines 39027  df-lplanes 39028  df-lvols 39029  df-lines 39030  df-psubsp 39032  df-pmap 39033  df-padd 39325  df-lhyp 39517  df-laut 39518  df-ldil 39633  df-ltrn 39634  df-trl 39688
This theorem is referenced by:  cdlemg18c  40209
  Copyright terms: Public domain W3C validator