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

Theorem cdlemg13a 39220
Description: TODO: FIX COMMENT. (Contributed by NM, 6-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β€˜πΎ)β€˜π‘Š)
Assertion
Ref Expression
cdlemg13a ((((𝐾 ∈ HL ∧ π‘Š ∈ 𝐻) ∧ (𝑃 ∈ 𝐴 ∧ Β¬ 𝑃 ≀ π‘Š) ∧ (𝑄 ∈ 𝐴 ∧ Β¬ 𝑄 ≀ π‘Š)) ∧ (𝐹 ∈ 𝑇 ∧ 𝐺 ∈ 𝑇) ∧ ((πΉβ€˜π‘ƒ) β‰  𝑃 ∧ (π‘…β€˜πΉ) = (π‘…β€˜πΊ) ∧ ((πΉβ€˜(πΊβ€˜π‘ƒ)) ∨ (πΉβ€˜(πΊβ€˜π‘„))) β‰  (𝑃 ∨ 𝑄))) β†’ (𝑃 ∨ (πΉβ€˜(πΊβ€˜π‘ƒ))) = ((πΊβ€˜π‘ƒ) ∨ (πΉβ€˜(πΊβ€˜π‘ƒ))))

Proof of Theorem cdlemg13a
StepHypRef Expression
1 simp11l 1284 . . . . 5 ((((𝐾 ∈ HL ∧ π‘Š ∈ 𝐻) ∧ (𝑃 ∈ 𝐴 ∧ Β¬ 𝑃 ≀ π‘Š) ∧ (𝑄 ∈ 𝐴 ∧ Β¬ 𝑄 ≀ π‘Š)) ∧ (𝐹 ∈ 𝑇 ∧ 𝐺 ∈ 𝑇) ∧ ((πΉβ€˜π‘ƒ) β‰  𝑃 ∧ (π‘…β€˜πΉ) = (π‘…β€˜πΊ) ∧ ((πΉβ€˜(πΊβ€˜π‘ƒ)) ∨ (πΉβ€˜(πΊβ€˜π‘„))) β‰  (𝑃 ∨ 𝑄))) β†’ 𝐾 ∈ HL)
2 simp12l 1286 . . . . 5 ((((𝐾 ∈ HL ∧ π‘Š ∈ 𝐻) ∧ (𝑃 ∈ 𝐴 ∧ Β¬ 𝑃 ≀ π‘Š) ∧ (𝑄 ∈ 𝐴 ∧ Β¬ 𝑄 ≀ π‘Š)) ∧ (𝐹 ∈ 𝑇 ∧ 𝐺 ∈ 𝑇) ∧ ((πΉβ€˜π‘ƒ) β‰  𝑃 ∧ (π‘…β€˜πΉ) = (π‘…β€˜πΊ) ∧ ((πΉβ€˜(πΊβ€˜π‘ƒ)) ∨ (πΉβ€˜(πΊβ€˜π‘„))) β‰  (𝑃 ∨ 𝑄))) β†’ 𝑃 ∈ 𝐴)
3 simp11 1203 . . . . . 6 ((((𝐾 ∈ HL ∧ π‘Š ∈ 𝐻) ∧ (𝑃 ∈ 𝐴 ∧ Β¬ 𝑃 ≀ π‘Š) ∧ (𝑄 ∈ 𝐴 ∧ Β¬ 𝑄 ≀ π‘Š)) ∧ (𝐹 ∈ 𝑇 ∧ 𝐺 ∈ 𝑇) ∧ ((πΉβ€˜π‘ƒ) β‰  𝑃 ∧ (π‘…β€˜πΉ) = (π‘…β€˜πΊ) ∧ ((πΉβ€˜(πΊβ€˜π‘ƒ)) ∨ (πΉβ€˜(πΊβ€˜π‘„))) β‰  (𝑃 ∨ 𝑄))) β†’ (𝐾 ∈ HL ∧ π‘Š ∈ 𝐻))
4 simp2r 1200 . . . . . 6 ((((𝐾 ∈ HL ∧ π‘Š ∈ 𝐻) ∧ (𝑃 ∈ 𝐴 ∧ Β¬ 𝑃 ≀ π‘Š) ∧ (𝑄 ∈ 𝐴 ∧ Β¬ 𝑄 ≀ π‘Š)) ∧ (𝐹 ∈ 𝑇 ∧ 𝐺 ∈ 𝑇) ∧ ((πΉβ€˜π‘ƒ) β‰  𝑃 ∧ (π‘…β€˜πΉ) = (π‘…β€˜πΊ) ∧ ((πΉβ€˜(πΊβ€˜π‘ƒ)) ∨ (πΉβ€˜(πΊβ€˜π‘„))) β‰  (𝑃 ∨ 𝑄))) β†’ 𝐺 ∈ 𝑇)
5 cdlemg12.l . . . . . . 7 ≀ = (leβ€˜πΎ)
6 cdlemg12.a . . . . . . 7 𝐴 = (Atomsβ€˜πΎ)
7 cdlemg12.h . . . . . . 7 𝐻 = (LHypβ€˜πΎ)
8 cdlemg12.t . . . . . . 7 𝑇 = ((LTrnβ€˜πΎ)β€˜π‘Š)
95, 6, 7, 8ltrnat 38709 . . . . . 6 (((𝐾 ∈ HL ∧ π‘Š ∈ 𝐻) ∧ 𝐺 ∈ 𝑇 ∧ 𝑃 ∈ 𝐴) β†’ (πΊβ€˜π‘ƒ) ∈ 𝐴)
103, 4, 2, 9syl3anc 1371 . . . . 5 ((((𝐾 ∈ HL ∧ π‘Š ∈ 𝐻) ∧ (𝑃 ∈ 𝐴 ∧ Β¬ 𝑃 ≀ π‘Š) ∧ (𝑄 ∈ 𝐴 ∧ Β¬ 𝑄 ≀ π‘Š)) ∧ (𝐹 ∈ 𝑇 ∧ 𝐺 ∈ 𝑇) ∧ ((πΉβ€˜π‘ƒ) β‰  𝑃 ∧ (π‘…β€˜πΉ) = (π‘…β€˜πΊ) ∧ ((πΉβ€˜(πΊβ€˜π‘ƒ)) ∨ (πΉβ€˜(πΊβ€˜π‘„))) β‰  (𝑃 ∨ 𝑄))) β†’ (πΊβ€˜π‘ƒ) ∈ 𝐴)
11 cdlemg12.j . . . . . 6 ∨ = (joinβ€˜πΎ)
125, 11, 6hlatlej1 37943 . . . . 5 ((𝐾 ∈ HL ∧ 𝑃 ∈ 𝐴 ∧ (πΊβ€˜π‘ƒ) ∈ 𝐴) β†’ 𝑃 ≀ (𝑃 ∨ (πΊβ€˜π‘ƒ)))
131, 2, 10, 12syl3anc 1371 . . . 4 ((((𝐾 ∈ HL ∧ π‘Š ∈ 𝐻) ∧ (𝑃 ∈ 𝐴 ∧ Β¬ 𝑃 ≀ π‘Š) ∧ (𝑄 ∈ 𝐴 ∧ Β¬ 𝑄 ≀ π‘Š)) ∧ (𝐹 ∈ 𝑇 ∧ 𝐺 ∈ 𝑇) ∧ ((πΉβ€˜π‘ƒ) β‰  𝑃 ∧ (π‘…β€˜πΉ) = (π‘…β€˜πΊ) ∧ ((πΉβ€˜(πΊβ€˜π‘ƒ)) ∨ (πΉβ€˜(πΊβ€˜π‘„))) β‰  (𝑃 ∨ 𝑄))) β†’ 𝑃 ≀ (𝑃 ∨ (πΊβ€˜π‘ƒ)))
14 simp32 1210 . . . . . . 7 ((((𝐾 ∈ HL ∧ π‘Š ∈ 𝐻) ∧ (𝑃 ∈ 𝐴 ∧ Β¬ 𝑃 ≀ π‘Š) ∧ (𝑄 ∈ 𝐴 ∧ Β¬ 𝑄 ≀ π‘Š)) ∧ (𝐹 ∈ 𝑇 ∧ 𝐺 ∈ 𝑇) ∧ ((πΉβ€˜π‘ƒ) β‰  𝑃 ∧ (π‘…β€˜πΉ) = (π‘…β€˜πΊ) ∧ ((πΉβ€˜(πΊβ€˜π‘ƒ)) ∨ (πΉβ€˜(πΊβ€˜π‘„))) β‰  (𝑃 ∨ 𝑄))) β†’ (π‘…β€˜πΉ) = (π‘…β€˜πΊ))
15 simp2l 1199 . . . . . . . 8 ((((𝐾 ∈ HL ∧ π‘Š ∈ 𝐻) ∧ (𝑃 ∈ 𝐴 ∧ Β¬ 𝑃 ≀ π‘Š) ∧ (𝑄 ∈ 𝐴 ∧ Β¬ 𝑄 ≀ π‘Š)) ∧ (𝐹 ∈ 𝑇 ∧ 𝐺 ∈ 𝑇) ∧ ((πΉβ€˜π‘ƒ) β‰  𝑃 ∧ (π‘…β€˜πΉ) = (π‘…β€˜πΊ) ∧ ((πΉβ€˜(πΊβ€˜π‘ƒ)) ∨ (πΉβ€˜(πΊβ€˜π‘„))) β‰  (𝑃 ∨ 𝑄))) β†’ 𝐹 ∈ 𝑇)
16 simp12 1204 . . . . . . . . 9 ((((𝐾 ∈ HL ∧ π‘Š ∈ 𝐻) ∧ (𝑃 ∈ 𝐴 ∧ Β¬ 𝑃 ≀ π‘Š) ∧ (𝑄 ∈ 𝐴 ∧ Β¬ 𝑄 ≀ π‘Š)) ∧ (𝐹 ∈ 𝑇 ∧ 𝐺 ∈ 𝑇) ∧ ((πΉβ€˜π‘ƒ) β‰  𝑃 ∧ (π‘…β€˜πΉ) = (π‘…β€˜πΊ) ∧ ((πΉβ€˜(πΊβ€˜π‘ƒ)) ∨ (πΉβ€˜(πΊβ€˜π‘„))) β‰  (𝑃 ∨ 𝑄))) β†’ (𝑃 ∈ 𝐴 ∧ Β¬ 𝑃 ≀ π‘Š))
175, 6, 7, 8ltrnel 38708 . . . . . . . . 9 (((𝐾 ∈ HL ∧ π‘Š ∈ 𝐻) ∧ 𝐺 ∈ 𝑇 ∧ (𝑃 ∈ 𝐴 ∧ Β¬ 𝑃 ≀ π‘Š)) β†’ ((πΊβ€˜π‘ƒ) ∈ 𝐴 ∧ Β¬ (πΊβ€˜π‘ƒ) ≀ π‘Š))
183, 4, 16, 17syl3anc 1371 . . . . . . . 8 ((((𝐾 ∈ HL ∧ π‘Š ∈ 𝐻) ∧ (𝑃 ∈ 𝐴 ∧ Β¬ 𝑃 ≀ π‘Š) ∧ (𝑄 ∈ 𝐴 ∧ Β¬ 𝑄 ≀ π‘Š)) ∧ (𝐹 ∈ 𝑇 ∧ 𝐺 ∈ 𝑇) ∧ ((πΉβ€˜π‘ƒ) β‰  𝑃 ∧ (π‘…β€˜πΉ) = (π‘…β€˜πΊ) ∧ ((πΉβ€˜(πΊβ€˜π‘ƒ)) ∨ (πΉβ€˜(πΊβ€˜π‘„))) β‰  (𝑃 ∨ 𝑄))) β†’ ((πΊβ€˜π‘ƒ) ∈ 𝐴 ∧ Β¬ (πΊβ€˜π‘ƒ) ≀ π‘Š))
19 cdlemg12.m . . . . . . . . 9 ∧ = (meetβ€˜πΎ)
20 cdlemg12b.r . . . . . . . . 9 𝑅 = ((trLβ€˜πΎ)β€˜π‘Š)
215, 11, 19, 6, 7, 8, 20trlval2 38732 . . . . . . . 8 (((𝐾 ∈ HL ∧ π‘Š ∈ 𝐻) ∧ 𝐹 ∈ 𝑇 ∧ ((πΊβ€˜π‘ƒ) ∈ 𝐴 ∧ Β¬ (πΊβ€˜π‘ƒ) ≀ π‘Š)) β†’ (π‘…β€˜πΉ) = (((πΊβ€˜π‘ƒ) ∨ (πΉβ€˜(πΊβ€˜π‘ƒ))) ∧ π‘Š))
223, 15, 18, 21syl3anc 1371 . . . . . . 7 ((((𝐾 ∈ HL ∧ π‘Š ∈ 𝐻) ∧ (𝑃 ∈ 𝐴 ∧ Β¬ 𝑃 ≀ π‘Š) ∧ (𝑄 ∈ 𝐴 ∧ Β¬ 𝑄 ≀ π‘Š)) ∧ (𝐹 ∈ 𝑇 ∧ 𝐺 ∈ 𝑇) ∧ ((πΉβ€˜π‘ƒ) β‰  𝑃 ∧ (π‘…β€˜πΉ) = (π‘…β€˜πΊ) ∧ ((πΉβ€˜(πΊβ€˜π‘ƒ)) ∨ (πΉβ€˜(πΊβ€˜π‘„))) β‰  (𝑃 ∨ 𝑄))) β†’ (π‘…β€˜πΉ) = (((πΊβ€˜π‘ƒ) ∨ (πΉβ€˜(πΊβ€˜π‘ƒ))) ∧ π‘Š))
235, 11, 19, 6, 7, 8, 20trlval2 38732 . . . . . . . 8 (((𝐾 ∈ HL ∧ π‘Š ∈ 𝐻) ∧ 𝐺 ∈ 𝑇 ∧ (𝑃 ∈ 𝐴 ∧ Β¬ 𝑃 ≀ π‘Š)) β†’ (π‘…β€˜πΊ) = ((𝑃 ∨ (πΊβ€˜π‘ƒ)) ∧ π‘Š))
243, 4, 16, 23syl3anc 1371 . . . . . . 7 ((((𝐾 ∈ HL ∧ π‘Š ∈ 𝐻) ∧ (𝑃 ∈ 𝐴 ∧ Β¬ 𝑃 ≀ π‘Š) ∧ (𝑄 ∈ 𝐴 ∧ Β¬ 𝑄 ≀ π‘Š)) ∧ (𝐹 ∈ 𝑇 ∧ 𝐺 ∈ 𝑇) ∧ ((πΉβ€˜π‘ƒ) β‰  𝑃 ∧ (π‘…β€˜πΉ) = (π‘…β€˜πΊ) ∧ ((πΉβ€˜(πΊβ€˜π‘ƒ)) ∨ (πΉβ€˜(πΊβ€˜π‘„))) β‰  (𝑃 ∨ 𝑄))) β†’ (π‘…β€˜πΊ) = ((𝑃 ∨ (πΊβ€˜π‘ƒ)) ∧ π‘Š))
2514, 22, 243eqtr3d 2779 . . . . . 6 ((((𝐾 ∈ HL ∧ π‘Š ∈ 𝐻) ∧ (𝑃 ∈ 𝐴 ∧ Β¬ 𝑃 ≀ π‘Š) ∧ (𝑄 ∈ 𝐴 ∧ Β¬ 𝑄 ≀ π‘Š)) ∧ (𝐹 ∈ 𝑇 ∧ 𝐺 ∈ 𝑇) ∧ ((πΉβ€˜π‘ƒ) β‰  𝑃 ∧ (π‘…β€˜πΉ) = (π‘…β€˜πΊ) ∧ ((πΉβ€˜(πΊβ€˜π‘ƒ)) ∨ (πΉβ€˜(πΊβ€˜π‘„))) β‰  (𝑃 ∨ 𝑄))) β†’ (((πΊβ€˜π‘ƒ) ∨ (πΉβ€˜(πΊβ€˜π‘ƒ))) ∧ π‘Š) = ((𝑃 ∨ (πΊβ€˜π‘ƒ)) ∧ π‘Š))
2625oveq2d 7393 . . . . 5 ((((𝐾 ∈ HL ∧ π‘Š ∈ 𝐻) ∧ (𝑃 ∈ 𝐴 ∧ Β¬ 𝑃 ≀ π‘Š) ∧ (𝑄 ∈ 𝐴 ∧ Β¬ 𝑄 ≀ π‘Š)) ∧ (𝐹 ∈ 𝑇 ∧ 𝐺 ∈ 𝑇) ∧ ((πΉβ€˜π‘ƒ) β‰  𝑃 ∧ (π‘…β€˜πΉ) = (π‘…β€˜πΊ) ∧ ((πΉβ€˜(πΊβ€˜π‘ƒ)) ∨ (πΉβ€˜(πΊβ€˜π‘„))) β‰  (𝑃 ∨ 𝑄))) β†’ ((πΊβ€˜π‘ƒ) ∨ (((πΊβ€˜π‘ƒ) ∨ (πΉβ€˜(πΊβ€˜π‘ƒ))) ∧ π‘Š)) = ((πΊβ€˜π‘ƒ) ∨ ((𝑃 ∨ (πΊβ€˜π‘ƒ)) ∧ π‘Š)))
275, 6, 7, 8ltrncoat 38713 . . . . . . 7 (((𝐾 ∈ HL ∧ π‘Š ∈ 𝐻) ∧ (𝐹 ∈ 𝑇 ∧ 𝐺 ∈ 𝑇) ∧ 𝑃 ∈ 𝐴) β†’ (πΉβ€˜(πΊβ€˜π‘ƒ)) ∈ 𝐴)
283, 15, 4, 2, 27syl121anc 1375 . . . . . 6 ((((𝐾 ∈ HL ∧ π‘Š ∈ 𝐻) ∧ (𝑃 ∈ 𝐴 ∧ Β¬ 𝑃 ≀ π‘Š) ∧ (𝑄 ∈ 𝐴 ∧ Β¬ 𝑄 ≀ π‘Š)) ∧ (𝐹 ∈ 𝑇 ∧ 𝐺 ∈ 𝑇) ∧ ((πΉβ€˜π‘ƒ) β‰  𝑃 ∧ (π‘…β€˜πΉ) = (π‘…β€˜πΊ) ∧ ((πΉβ€˜(πΊβ€˜π‘ƒ)) ∨ (πΉβ€˜(πΊβ€˜π‘„))) β‰  (𝑃 ∨ 𝑄))) β†’ (πΉβ€˜(πΊβ€˜π‘ƒ)) ∈ 𝐴)
29 eqid 2731 . . . . . . 7 (((πΊβ€˜π‘ƒ) ∨ (πΉβ€˜(πΊβ€˜π‘ƒ))) ∧ π‘Š) = (((πΊβ€˜π‘ƒ) ∨ (πΉβ€˜(πΊβ€˜π‘ƒ))) ∧ π‘Š)
305, 11, 19, 6, 7, 29cdleme0cp 38783 . . . . . 6 (((𝐾 ∈ HL ∧ π‘Š ∈ 𝐻) ∧ (((πΊβ€˜π‘ƒ) ∈ 𝐴 ∧ Β¬ (πΊβ€˜π‘ƒ) ≀ π‘Š) ∧ (πΉβ€˜(πΊβ€˜π‘ƒ)) ∈ 𝐴)) β†’ ((πΊβ€˜π‘ƒ) ∨ (((πΊβ€˜π‘ƒ) ∨ (πΉβ€˜(πΊβ€˜π‘ƒ))) ∧ π‘Š)) = ((πΊβ€˜π‘ƒ) ∨ (πΉβ€˜(πΊβ€˜π‘ƒ))))
313, 18, 28, 30syl12anc 835 . . . . 5 ((((𝐾 ∈ HL ∧ π‘Š ∈ 𝐻) ∧ (𝑃 ∈ 𝐴 ∧ Β¬ 𝑃 ≀ π‘Š) ∧ (𝑄 ∈ 𝐴 ∧ Β¬ 𝑄 ≀ π‘Š)) ∧ (𝐹 ∈ 𝑇 ∧ 𝐺 ∈ 𝑇) ∧ ((πΉβ€˜π‘ƒ) β‰  𝑃 ∧ (π‘…β€˜πΉ) = (π‘…β€˜πΊ) ∧ ((πΉβ€˜(πΊβ€˜π‘ƒ)) ∨ (πΉβ€˜(πΊβ€˜π‘„))) β‰  (𝑃 ∨ 𝑄))) β†’ ((πΊβ€˜π‘ƒ) ∨ (((πΊβ€˜π‘ƒ) ∨ (πΉβ€˜(πΊβ€˜π‘ƒ))) ∧ π‘Š)) = ((πΊβ€˜π‘ƒ) ∨ (πΉβ€˜(πΊβ€˜π‘ƒ))))
32 eqid 2731 . . . . . . 7 ((𝑃 ∨ (πΊβ€˜π‘ƒ)) ∧ π‘Š) = ((𝑃 ∨ (πΊβ€˜π‘ƒ)) ∧ π‘Š)
335, 11, 19, 6, 7, 32cdleme0cq 38784 . . . . . 6 (((𝐾 ∈ HL ∧ π‘Š ∈ 𝐻) ∧ (𝑃 ∈ 𝐴 ∧ ((πΊβ€˜π‘ƒ) ∈ 𝐴 ∧ Β¬ (πΊβ€˜π‘ƒ) ≀ π‘Š))) β†’ ((πΊβ€˜π‘ƒ) ∨ ((𝑃 ∨ (πΊβ€˜π‘ƒ)) ∧ π‘Š)) = (𝑃 ∨ (πΊβ€˜π‘ƒ)))
343, 2, 18, 33syl12anc 835 . . . . 5 ((((𝐾 ∈ HL ∧ π‘Š ∈ 𝐻) ∧ (𝑃 ∈ 𝐴 ∧ Β¬ 𝑃 ≀ π‘Š) ∧ (𝑄 ∈ 𝐴 ∧ Β¬ 𝑄 ≀ π‘Š)) ∧ (𝐹 ∈ 𝑇 ∧ 𝐺 ∈ 𝑇) ∧ ((πΉβ€˜π‘ƒ) β‰  𝑃 ∧ (π‘…β€˜πΉ) = (π‘…β€˜πΊ) ∧ ((πΉβ€˜(πΊβ€˜π‘ƒ)) ∨ (πΉβ€˜(πΊβ€˜π‘„))) β‰  (𝑃 ∨ 𝑄))) β†’ ((πΊβ€˜π‘ƒ) ∨ ((𝑃 ∨ (πΊβ€˜π‘ƒ)) ∧ π‘Š)) = (𝑃 ∨ (πΊβ€˜π‘ƒ)))
3526, 31, 343eqtr3rd 2780 . . . 4 ((((𝐾 ∈ HL ∧ π‘Š ∈ 𝐻) ∧ (𝑃 ∈ 𝐴 ∧ Β¬ 𝑃 ≀ π‘Š) ∧ (𝑄 ∈ 𝐴 ∧ Β¬ 𝑄 ≀ π‘Š)) ∧ (𝐹 ∈ 𝑇 ∧ 𝐺 ∈ 𝑇) ∧ ((πΉβ€˜π‘ƒ) β‰  𝑃 ∧ (π‘…β€˜πΉ) = (π‘…β€˜πΊ) ∧ ((πΉβ€˜(πΊβ€˜π‘ƒ)) ∨ (πΉβ€˜(πΊβ€˜π‘„))) β‰  (𝑃 ∨ 𝑄))) β†’ (𝑃 ∨ (πΊβ€˜π‘ƒ)) = ((πΊβ€˜π‘ƒ) ∨ (πΉβ€˜(πΊβ€˜π‘ƒ))))
3613, 35breqtrd 5151 . . 3 ((((𝐾 ∈ HL ∧ π‘Š ∈ 𝐻) ∧ (𝑃 ∈ 𝐴 ∧ Β¬ 𝑃 ≀ π‘Š) ∧ (𝑄 ∈ 𝐴 ∧ Β¬ 𝑄 ≀ π‘Š)) ∧ (𝐹 ∈ 𝑇 ∧ 𝐺 ∈ 𝑇) ∧ ((πΉβ€˜π‘ƒ) β‰  𝑃 ∧ (π‘…β€˜πΉ) = (π‘…β€˜πΊ) ∧ ((πΉβ€˜(πΊβ€˜π‘ƒ)) ∨ (πΉβ€˜(πΊβ€˜π‘„))) β‰  (𝑃 ∨ 𝑄))) β†’ 𝑃 ≀ ((πΊβ€˜π‘ƒ) ∨ (πΉβ€˜(πΊβ€˜π‘ƒ))))
375, 11, 6hlatlej2 37944 . . . 4 ((𝐾 ∈ HL ∧ (πΊβ€˜π‘ƒ) ∈ 𝐴 ∧ (πΉβ€˜(πΊβ€˜π‘ƒ)) ∈ 𝐴) β†’ (πΉβ€˜(πΊβ€˜π‘ƒ)) ≀ ((πΊβ€˜π‘ƒ) ∨ (πΉβ€˜(πΊβ€˜π‘ƒ))))
381, 10, 28, 37syl3anc 1371 . . 3 ((((𝐾 ∈ HL ∧ π‘Š ∈ 𝐻) ∧ (𝑃 ∈ 𝐴 ∧ Β¬ 𝑃 ≀ π‘Š) ∧ (𝑄 ∈ 𝐴 ∧ Β¬ 𝑄 ≀ π‘Š)) ∧ (𝐹 ∈ 𝑇 ∧ 𝐺 ∈ 𝑇) ∧ ((πΉβ€˜π‘ƒ) β‰  𝑃 ∧ (π‘…β€˜πΉ) = (π‘…β€˜πΊ) ∧ ((πΉβ€˜(πΊβ€˜π‘ƒ)) ∨ (πΉβ€˜(πΊβ€˜π‘„))) β‰  (𝑃 ∨ 𝑄))) β†’ (πΉβ€˜(πΊβ€˜π‘ƒ)) ≀ ((πΊβ€˜π‘ƒ) ∨ (πΉβ€˜(πΊβ€˜π‘ƒ))))
391hllatd 37932 . . . 4 ((((𝐾 ∈ HL ∧ π‘Š ∈ 𝐻) ∧ (𝑃 ∈ 𝐴 ∧ Β¬ 𝑃 ≀ π‘Š) ∧ (𝑄 ∈ 𝐴 ∧ Β¬ 𝑄 ≀ π‘Š)) ∧ (𝐹 ∈ 𝑇 ∧ 𝐺 ∈ 𝑇) ∧ ((πΉβ€˜π‘ƒ) β‰  𝑃 ∧ (π‘…β€˜πΉ) = (π‘…β€˜πΊ) ∧ ((πΉβ€˜(πΊβ€˜π‘ƒ)) ∨ (πΉβ€˜(πΊβ€˜π‘„))) β‰  (𝑃 ∨ 𝑄))) β†’ 𝐾 ∈ Lat)
40 eqid 2731 . . . . . 6 (Baseβ€˜πΎ) = (Baseβ€˜πΎ)
4140, 6atbase 37857 . . . . 5 (𝑃 ∈ 𝐴 β†’ 𝑃 ∈ (Baseβ€˜πΎ))
422, 41syl 17 . . . 4 ((((𝐾 ∈ HL ∧ π‘Š ∈ 𝐻) ∧ (𝑃 ∈ 𝐴 ∧ Β¬ 𝑃 ≀ π‘Š) ∧ (𝑄 ∈ 𝐴 ∧ Β¬ 𝑄 ≀ π‘Š)) ∧ (𝐹 ∈ 𝑇 ∧ 𝐺 ∈ 𝑇) ∧ ((πΉβ€˜π‘ƒ) β‰  𝑃 ∧ (π‘…β€˜πΉ) = (π‘…β€˜πΊ) ∧ ((πΉβ€˜(πΊβ€˜π‘ƒ)) ∨ (πΉβ€˜(πΊβ€˜π‘„))) β‰  (𝑃 ∨ 𝑄))) β†’ 𝑃 ∈ (Baseβ€˜πΎ))
4340, 6atbase 37857 . . . . 5 ((πΉβ€˜(πΊβ€˜π‘ƒ)) ∈ 𝐴 β†’ (πΉβ€˜(πΊβ€˜π‘ƒ)) ∈ (Baseβ€˜πΎ))
4428, 43syl 17 . . . 4 ((((𝐾 ∈ HL ∧ π‘Š ∈ 𝐻) ∧ (𝑃 ∈ 𝐴 ∧ Β¬ 𝑃 ≀ π‘Š) ∧ (𝑄 ∈ 𝐴 ∧ Β¬ 𝑄 ≀ π‘Š)) ∧ (𝐹 ∈ 𝑇 ∧ 𝐺 ∈ 𝑇) ∧ ((πΉβ€˜π‘ƒ) β‰  𝑃 ∧ (π‘…β€˜πΉ) = (π‘…β€˜πΊ) ∧ ((πΉβ€˜(πΊβ€˜π‘ƒ)) ∨ (πΉβ€˜(πΊβ€˜π‘„))) β‰  (𝑃 ∨ 𝑄))) β†’ (πΉβ€˜(πΊβ€˜π‘ƒ)) ∈ (Baseβ€˜πΎ))
4540, 11, 6hlatjcl 37935 . . . . 5 ((𝐾 ∈ HL ∧ (πΊβ€˜π‘ƒ) ∈ 𝐴 ∧ (πΉβ€˜(πΊβ€˜π‘ƒ)) ∈ 𝐴) β†’ ((πΊβ€˜π‘ƒ) ∨ (πΉβ€˜(πΊβ€˜π‘ƒ))) ∈ (Baseβ€˜πΎ))
461, 10, 28, 45syl3anc 1371 . . . 4 ((((𝐾 ∈ HL ∧ π‘Š ∈ 𝐻) ∧ (𝑃 ∈ 𝐴 ∧ Β¬ 𝑃 ≀ π‘Š) ∧ (𝑄 ∈ 𝐴 ∧ Β¬ 𝑄 ≀ π‘Š)) ∧ (𝐹 ∈ 𝑇 ∧ 𝐺 ∈ 𝑇) ∧ ((πΉβ€˜π‘ƒ) β‰  𝑃 ∧ (π‘…β€˜πΉ) = (π‘…β€˜πΊ) ∧ ((πΉβ€˜(πΊβ€˜π‘ƒ)) ∨ (πΉβ€˜(πΊβ€˜π‘„))) β‰  (𝑃 ∨ 𝑄))) β†’ ((πΊβ€˜π‘ƒ) ∨ (πΉβ€˜(πΊβ€˜π‘ƒ))) ∈ (Baseβ€˜πΎ))
4740, 5, 11latjle12 18368 . . . 4 ((𝐾 ∈ Lat ∧ (𝑃 ∈ (Baseβ€˜πΎ) ∧ (πΉβ€˜(πΊβ€˜π‘ƒ)) ∈ (Baseβ€˜πΎ) ∧ ((πΊβ€˜π‘ƒ) ∨ (πΉβ€˜(πΊβ€˜π‘ƒ))) ∈ (Baseβ€˜πΎ))) β†’ ((𝑃 ≀ ((πΊβ€˜π‘ƒ) ∨ (πΉβ€˜(πΊβ€˜π‘ƒ))) ∧ (πΉβ€˜(πΊβ€˜π‘ƒ)) ≀ ((πΊβ€˜π‘ƒ) ∨ (πΉβ€˜(πΊβ€˜π‘ƒ)))) ↔ (𝑃 ∨ (πΉβ€˜(πΊβ€˜π‘ƒ))) ≀ ((πΊβ€˜π‘ƒ) ∨ (πΉβ€˜(πΊβ€˜π‘ƒ)))))
4839, 42, 44, 46, 47syl13anc 1372 . . 3 ((((𝐾 ∈ HL ∧ π‘Š ∈ 𝐻) ∧ (𝑃 ∈ 𝐴 ∧ Β¬ 𝑃 ≀ π‘Š) ∧ (𝑄 ∈ 𝐴 ∧ Β¬ 𝑄 ≀ π‘Š)) ∧ (𝐹 ∈ 𝑇 ∧ 𝐺 ∈ 𝑇) ∧ ((πΉβ€˜π‘ƒ) β‰  𝑃 ∧ (π‘…β€˜πΉ) = (π‘…β€˜πΊ) ∧ ((πΉβ€˜(πΊβ€˜π‘ƒ)) ∨ (πΉβ€˜(πΊβ€˜π‘„))) β‰  (𝑃 ∨ 𝑄))) β†’ ((𝑃 ≀ ((πΊβ€˜π‘ƒ) ∨ (πΉβ€˜(πΊβ€˜π‘ƒ))) ∧ (πΉβ€˜(πΊβ€˜π‘ƒ)) ≀ ((πΊβ€˜π‘ƒ) ∨ (πΉβ€˜(πΊβ€˜π‘ƒ)))) ↔ (𝑃 ∨ (πΉβ€˜(πΊβ€˜π‘ƒ))) ≀ ((πΊβ€˜π‘ƒ) ∨ (πΉβ€˜(πΊβ€˜π‘ƒ)))))
4936, 38, 48mpbi2and 710 . 2 ((((𝐾 ∈ HL ∧ π‘Š ∈ 𝐻) ∧ (𝑃 ∈ 𝐴 ∧ Β¬ 𝑃 ≀ π‘Š) ∧ (𝑄 ∈ 𝐴 ∧ Β¬ 𝑄 ≀ π‘Š)) ∧ (𝐹 ∈ 𝑇 ∧ 𝐺 ∈ 𝑇) ∧ ((πΉβ€˜π‘ƒ) β‰  𝑃 ∧ (π‘…β€˜πΉ) = (π‘…β€˜πΊ) ∧ ((πΉβ€˜(πΊβ€˜π‘ƒ)) ∨ (πΉβ€˜(πΊβ€˜π‘„))) β‰  (𝑃 ∨ 𝑄))) β†’ (𝑃 ∨ (πΉβ€˜(πΊβ€˜π‘ƒ))) ≀ ((πΊβ€˜π‘ƒ) ∨ (πΉβ€˜(πΊβ€˜π‘ƒ))))
50 simp13 1205 . . . . 5 ((((𝐾 ∈ HL ∧ π‘Š ∈ 𝐻) ∧ (𝑃 ∈ 𝐴 ∧ Β¬ 𝑃 ≀ π‘Š) ∧ (𝑄 ∈ 𝐴 ∧ Β¬ 𝑄 ≀ π‘Š)) ∧ (𝐹 ∈ 𝑇 ∧ 𝐺 ∈ 𝑇) ∧ ((πΉβ€˜π‘ƒ) β‰  𝑃 ∧ (π‘…β€˜πΉ) = (π‘…β€˜πΊ) ∧ ((πΉβ€˜(πΊβ€˜π‘ƒ)) ∨ (πΉβ€˜(πΊβ€˜π‘„))) β‰  (𝑃 ∨ 𝑄))) β†’ (𝑄 ∈ 𝐴 ∧ Β¬ 𝑄 ≀ π‘Š))
51 simp33 1211 . . . . 5 ((((𝐾 ∈ HL ∧ π‘Š ∈ 𝐻) ∧ (𝑃 ∈ 𝐴 ∧ Β¬ 𝑃 ≀ π‘Š) ∧ (𝑄 ∈ 𝐴 ∧ Β¬ 𝑄 ≀ π‘Š)) ∧ (𝐹 ∈ 𝑇 ∧ 𝐺 ∈ 𝑇) ∧ ((πΉβ€˜π‘ƒ) β‰  𝑃 ∧ (π‘…β€˜πΉ) = (π‘…β€˜πΊ) ∧ ((πΉβ€˜(πΊβ€˜π‘ƒ)) ∨ (πΉβ€˜(πΊβ€˜π‘„))) β‰  (𝑃 ∨ 𝑄))) β†’ ((πΉβ€˜(πΊβ€˜π‘ƒ)) ∨ (πΉβ€˜(πΊβ€˜π‘„))) β‰  (𝑃 ∨ 𝑄))
525, 11, 19, 6, 7, 8cdlemg11a 39206 . . . . 5 (((𝐾 ∈ HL ∧ π‘Š ∈ 𝐻) ∧ ((𝑃 ∈ 𝐴 ∧ Β¬ 𝑃 ≀ π‘Š) ∧ (𝑄 ∈ 𝐴 ∧ Β¬ 𝑄 ≀ π‘Š)) ∧ (𝐹 ∈ 𝑇 ∧ 𝐺 ∈ 𝑇 ∧ ((πΉβ€˜(πΊβ€˜π‘ƒ)) ∨ (πΉβ€˜(πΊβ€˜π‘„))) β‰  (𝑃 ∨ 𝑄))) β†’ (πΉβ€˜(πΊβ€˜π‘ƒ)) β‰  𝑃)
533, 16, 50, 15, 4, 51, 52syl123anc 1387 . . . 4 ((((𝐾 ∈ HL ∧ π‘Š ∈ 𝐻) ∧ (𝑃 ∈ 𝐴 ∧ Β¬ 𝑃 ≀ π‘Š) ∧ (𝑄 ∈ 𝐴 ∧ Β¬ 𝑄 ≀ π‘Š)) ∧ (𝐹 ∈ 𝑇 ∧ 𝐺 ∈ 𝑇) ∧ ((πΉβ€˜π‘ƒ) β‰  𝑃 ∧ (π‘…β€˜πΉ) = (π‘…β€˜πΊ) ∧ ((πΉβ€˜(πΊβ€˜π‘ƒ)) ∨ (πΉβ€˜(πΊβ€˜π‘„))) β‰  (𝑃 ∨ 𝑄))) β†’ (πΉβ€˜(πΊβ€˜π‘ƒ)) β‰  𝑃)
5453necomd 2995 . . 3 ((((𝐾 ∈ HL ∧ π‘Š ∈ 𝐻) ∧ (𝑃 ∈ 𝐴 ∧ Β¬ 𝑃 ≀ π‘Š) ∧ (𝑄 ∈ 𝐴 ∧ Β¬ 𝑄 ≀ π‘Š)) ∧ (𝐹 ∈ 𝑇 ∧ 𝐺 ∈ 𝑇) ∧ ((πΉβ€˜π‘ƒ) β‰  𝑃 ∧ (π‘…β€˜πΉ) = (π‘…β€˜πΊ) ∧ ((πΉβ€˜(πΊβ€˜π‘ƒ)) ∨ (πΉβ€˜(πΊβ€˜π‘„))) β‰  (𝑃 ∨ 𝑄))) β†’ 𝑃 β‰  (πΉβ€˜(πΊβ€˜π‘ƒ)))
555, 11, 6ps-1 38046 . . 3 ((𝐾 ∈ HL ∧ (𝑃 ∈ 𝐴 ∧ (πΉβ€˜(πΊβ€˜π‘ƒ)) ∈ 𝐴 ∧ 𝑃 β‰  (πΉβ€˜(πΊβ€˜π‘ƒ))) ∧ ((πΊβ€˜π‘ƒ) ∈ 𝐴 ∧ (πΉβ€˜(πΊβ€˜π‘ƒ)) ∈ 𝐴)) β†’ ((𝑃 ∨ (πΉβ€˜(πΊβ€˜π‘ƒ))) ≀ ((πΊβ€˜π‘ƒ) ∨ (πΉβ€˜(πΊβ€˜π‘ƒ))) ↔ (𝑃 ∨ (πΉβ€˜(πΊβ€˜π‘ƒ))) = ((πΊβ€˜π‘ƒ) ∨ (πΉβ€˜(πΊβ€˜π‘ƒ)))))
561, 2, 28, 54, 10, 28, 55syl132anc 1388 . 2 ((((𝐾 ∈ HL ∧ π‘Š ∈ 𝐻) ∧ (𝑃 ∈ 𝐴 ∧ Β¬ 𝑃 ≀ π‘Š) ∧ (𝑄 ∈ 𝐴 ∧ Β¬ 𝑄 ≀ π‘Š)) ∧ (𝐹 ∈ 𝑇 ∧ 𝐺 ∈ 𝑇) ∧ ((πΉβ€˜π‘ƒ) β‰  𝑃 ∧ (π‘…β€˜πΉ) = (π‘…β€˜πΊ) ∧ ((πΉβ€˜(πΊβ€˜π‘ƒ)) ∨ (πΉβ€˜(πΊβ€˜π‘„))) β‰  (𝑃 ∨ 𝑄))) β†’ ((𝑃 ∨ (πΉβ€˜(πΊβ€˜π‘ƒ))) ≀ ((πΊβ€˜π‘ƒ) ∨ (πΉβ€˜(πΊβ€˜π‘ƒ))) ↔ (𝑃 ∨ (πΉβ€˜(πΊβ€˜π‘ƒ))) = ((πΊβ€˜π‘ƒ) ∨ (πΉβ€˜(πΊβ€˜π‘ƒ)))))
5749, 56mpbid 231 1 ((((𝐾 ∈ HL ∧ π‘Š ∈ 𝐻) ∧ (𝑃 ∈ 𝐴 ∧ Β¬ 𝑃 ≀ π‘Š) ∧ (𝑄 ∈ 𝐴 ∧ Β¬ 𝑄 ≀ π‘Š)) ∧ (𝐹 ∈ 𝑇 ∧ 𝐺 ∈ 𝑇) ∧ ((πΉβ€˜π‘ƒ) β‰  𝑃 ∧ (π‘…β€˜πΉ) = (π‘…β€˜πΊ) ∧ ((πΉβ€˜(πΊβ€˜π‘ƒ)) ∨ (πΉβ€˜(πΊβ€˜π‘„))) β‰  (𝑃 ∨ 𝑄))) β†’ (𝑃 ∨ (πΉβ€˜(πΊβ€˜π‘ƒ))) = ((πΊβ€˜π‘ƒ) ∨ (πΉβ€˜(πΊβ€˜π‘ƒ))))
Colors of variables: wff setvar class
Syntax hints:  Β¬ wn 3   β†’ wi 4   ↔ wb 205   ∧ wa 396   ∧ w3a 1087   = wceq 1541   ∈ wcel 2106   β‰  wne 2939   class class class wbr 5125  β€˜cfv 6516  (class class class)co 7377  Basecbs 17109  lecple 17169  joincjn 18229  meetcmee 18230  Latclat 18349  Atomscatm 37831  HLchlt 37918  LHypclh 38553  LTrncltrn 38670  trLctrl 38727
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1797  ax-4 1811  ax-5 1913  ax-6 1971  ax-7 2011  ax-8 2108  ax-9 2116  ax-10 2137  ax-11 2154  ax-12 2171  ax-ext 2702  ax-rep 5262  ax-sep 5276  ax-nul 5283  ax-pow 5340  ax-pr 5404  ax-un 7692  ax-riotaBAD 37521
This theorem depends on definitions:  df-bi 206  df-an 397  df-or 846  df-3or 1088  df-3an 1089  df-tru 1544  df-fal 1554  df-ex 1782  df-nf 1786  df-sb 2068  df-mo 2533  df-eu 2562  df-clab 2709  df-cleq 2723  df-clel 2809  df-nfc 2884  df-ne 2940  df-ral 3061  df-rex 3070  df-rmo 3364  df-reu 3365  df-rab 3419  df-v 3461  df-sbc 3758  df-csb 3874  df-dif 3931  df-un 3933  df-in 3935  df-ss 3945  df-nul 4303  df-if 4507  df-pw 4582  df-sn 4607  df-pr 4609  df-op 4613  df-uni 4886  df-iun 4976  df-iin 4977  df-br 5126  df-opab 5188  df-mpt 5209  df-id 5551  df-xp 5659  df-rel 5660  df-cnv 5661  df-co 5662  df-dm 5663  df-rn 5664  df-res 5665  df-ima 5666  df-iota 6468  df-fun 6518  df-fn 6519  df-f 6520  df-f1 6521  df-fo 6522  df-f1o 6523  df-fv 6524  df-riota 7333  df-ov 7380  df-oprab 7381  df-mpo 7382  df-1st 7941  df-2nd 7942  df-undef 8224  df-map 8789  df-proset 18213  df-poset 18231  df-plt 18248  df-lub 18264  df-glb 18265  df-join 18266  df-meet 18267  df-p0 18343  df-p1 18344  df-lat 18350  df-clat 18417  df-oposet 37744  df-ol 37746  df-oml 37747  df-covers 37834  df-ats 37835  df-atl 37866  df-cvlat 37890  df-hlat 37919  df-llines 38067  df-lplanes 38068  df-lvols 38069  df-lines 38070  df-psubsp 38072  df-pmap 38073  df-padd 38365  df-lhyp 38557  df-laut 38558  df-ldil 38673  df-ltrn 38674  df-trl 38728
This theorem is referenced by:  cdlemg13  39221
  Copyright terms: Public domain W3C validator