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

Theorem cdleme28b 38382
Description: Lemma for cdleme25b 38365. TODO: FIX COMMENT. (Contributed by NM, 6-Feb-2013.)
Hypotheses
Ref Expression
cdleme26.b 𝐵 = (Base‘𝐾)
cdleme26.l = (le‘𝐾)
cdleme26.j = (join‘𝐾)
cdleme26.m = (meet‘𝐾)
cdleme26.a 𝐴 = (Atoms‘𝐾)
cdleme26.h 𝐻 = (LHyp‘𝐾)
cdleme27.u 𝑈 = ((𝑃 𝑄) 𝑊)
cdleme27.f 𝐹 = ((𝑠 𝑈) (𝑄 ((𝑃 𝑠) 𝑊)))
cdleme27.z 𝑍 = ((𝑧 𝑈) (𝑄 ((𝑃 𝑧) 𝑊)))
cdleme27.n 𝑁 = ((𝑃 𝑄) (𝑍 ((𝑠 𝑧) 𝑊)))
cdleme27.d 𝐷 = (𝑢𝐵𝑧𝐴 ((¬ 𝑧 𝑊 ∧ ¬ 𝑧 (𝑃 𝑄)) → 𝑢 = 𝑁))
cdleme27.c 𝐶 = if(𝑠 (𝑃 𝑄), 𝐷, 𝐹)
cdleme27.g 𝐺 = ((𝑡 𝑈) (𝑄 ((𝑃 𝑡) 𝑊)))
cdleme27.o 𝑂 = ((𝑃 𝑄) (𝑍 ((𝑡 𝑧) 𝑊)))
cdleme27.e 𝐸 = (𝑢𝐵𝑧𝐴 ((¬ 𝑧 𝑊 ∧ ¬ 𝑧 (𝑃 𝑄)) → 𝑢 = 𝑂))
cdleme27.y 𝑌 = if(𝑡 (𝑃 𝑄), 𝐸, 𝐺)
Assertion
Ref Expression
cdleme28b ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ (𝑃𝑄 ∧ (𝑠𝐴 ∧ ¬ 𝑠 𝑊) ∧ (𝑡𝐴 ∧ ¬ 𝑡 𝑊)) ∧ (𝑠𝑡 ∧ ((𝑠 (𝑋 𝑊)) = 𝑋 ∧ (𝑡 (𝑋 𝑊)) = 𝑋) ∧ (𝑋𝐵 ∧ ¬ 𝑋 𝑊))) → (𝐶 (𝑋 𝑊)) = (𝑌 (𝑋 𝑊)))
Distinct variable groups:   𝑡,𝑠,𝑢,𝑧,𝐴   𝐵,𝑠,𝑡,𝑢,𝑧   𝑢,𝐹   𝑢,𝐺   𝐻,𝑠,𝑡,𝑧   ,𝑠,𝑡,𝑢,𝑧   𝐾,𝑠,𝑡,𝑧   ,𝑠,𝑡,𝑢,𝑧   ,𝑠,𝑡,𝑢,𝑧   𝑡,𝑁,𝑢   𝑂,𝑠,𝑢   𝑃,𝑠,𝑡,𝑢,𝑧   𝑄,𝑠,𝑡,𝑢,𝑧   𝑈,𝑠,𝑡,𝑢,𝑧   𝑊,𝑠,𝑡,𝑢,𝑧   𝑋,𝑠,𝑧,𝑡
Allowed substitution hints:   𝐶(𝑧,𝑢,𝑡,𝑠)   𝐷(𝑧,𝑢,𝑡,𝑠)   𝐸(𝑧,𝑢,𝑡,𝑠)   𝐹(𝑧,𝑡,𝑠)   𝐺(𝑧,𝑡,𝑠)   𝐻(𝑢)   𝐾(𝑢)   𝑁(𝑧,𝑠)   𝑂(𝑧,𝑡)   𝑋(𝑢)   𝑌(𝑧,𝑢,𝑡,𝑠)   𝑍(𝑧,𝑢,𝑡,𝑠)

Proof of Theorem cdleme28b
StepHypRef Expression
1 cdleme26.b . 2 𝐵 = (Base‘𝐾)
2 cdleme26.l . 2 = (le‘𝐾)
3 simp11l 1283 . . 3 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ (𝑃𝑄 ∧ (𝑠𝐴 ∧ ¬ 𝑠 𝑊) ∧ (𝑡𝐴 ∧ ¬ 𝑡 𝑊)) ∧ (𝑠𝑡 ∧ ((𝑠 (𝑋 𝑊)) = 𝑋 ∧ (𝑡 (𝑋 𝑊)) = 𝑋) ∧ (𝑋𝐵 ∧ ¬ 𝑋 𝑊))) → 𝐾 ∈ HL)
43hllatd 37375 . 2 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ (𝑃𝑄 ∧ (𝑠𝐴 ∧ ¬ 𝑠 𝑊) ∧ (𝑡𝐴 ∧ ¬ 𝑡 𝑊)) ∧ (𝑠𝑡 ∧ ((𝑠 (𝑋 𝑊)) = 𝑋 ∧ (𝑡 (𝑋 𝑊)) = 𝑋) ∧ (𝑋𝐵 ∧ ¬ 𝑋 𝑊))) → 𝐾 ∈ Lat)
5 simp11r 1284 . . . 4 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ (𝑃𝑄 ∧ (𝑠𝐴 ∧ ¬ 𝑠 𝑊) ∧ (𝑡𝐴 ∧ ¬ 𝑡 𝑊)) ∧ (𝑠𝑡 ∧ ((𝑠 (𝑋 𝑊)) = 𝑋 ∧ (𝑡 (𝑋 𝑊)) = 𝑋) ∧ (𝑋𝐵 ∧ ¬ 𝑋 𝑊))) → 𝑊𝐻)
6 simp12 1203 . . . 4 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ (𝑃𝑄 ∧ (𝑠𝐴 ∧ ¬ 𝑠 𝑊) ∧ (𝑡𝐴 ∧ ¬ 𝑡 𝑊)) ∧ (𝑠𝑡 ∧ ((𝑠 (𝑋 𝑊)) = 𝑋 ∧ (𝑡 (𝑋 𝑊)) = 𝑋) ∧ (𝑋𝐵 ∧ ¬ 𝑋 𝑊))) → (𝑃𝐴 ∧ ¬ 𝑃 𝑊))
7 simp13 1204 . . . 4 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ (𝑃𝑄 ∧ (𝑠𝐴 ∧ ¬ 𝑠 𝑊) ∧ (𝑡𝐴 ∧ ¬ 𝑡 𝑊)) ∧ (𝑠𝑡 ∧ ((𝑠 (𝑋 𝑊)) = 𝑋 ∧ (𝑡 (𝑋 𝑊)) = 𝑋) ∧ (𝑋𝐵 ∧ ¬ 𝑋 𝑊))) → (𝑄𝐴 ∧ ¬ 𝑄 𝑊))
8 simp22 1206 . . . 4 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ (𝑃𝑄 ∧ (𝑠𝐴 ∧ ¬ 𝑠 𝑊) ∧ (𝑡𝐴 ∧ ¬ 𝑡 𝑊)) ∧ (𝑠𝑡 ∧ ((𝑠 (𝑋 𝑊)) = 𝑋 ∧ (𝑡 (𝑋 𝑊)) = 𝑋) ∧ (𝑋𝐵 ∧ ¬ 𝑋 𝑊))) → (𝑠𝐴 ∧ ¬ 𝑠 𝑊))
9 simp21 1205 . . . 4 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ (𝑃𝑄 ∧ (𝑠𝐴 ∧ ¬ 𝑠 𝑊) ∧ (𝑡𝐴 ∧ ¬ 𝑡 𝑊)) ∧ (𝑠𝑡 ∧ ((𝑠 (𝑋 𝑊)) = 𝑋 ∧ (𝑡 (𝑋 𝑊)) = 𝑋) ∧ (𝑋𝐵 ∧ ¬ 𝑋 𝑊))) → 𝑃𝑄)
10 cdleme26.j . . . . 5 = (join‘𝐾)
11 cdleme26.m . . . . 5 = (meet‘𝐾)
12 cdleme26.a . . . . 5 𝐴 = (Atoms‘𝐾)
13 cdleme26.h . . . . 5 𝐻 = (LHyp‘𝐾)
14 cdleme27.u . . . . 5 𝑈 = ((𝑃 𝑄) 𝑊)
15 cdleme27.f . . . . 5 𝐹 = ((𝑠 𝑈) (𝑄 ((𝑃 𝑠) 𝑊)))
16 cdleme27.z . . . . 5 𝑍 = ((𝑧 𝑈) (𝑄 ((𝑃 𝑧) 𝑊)))
17 cdleme27.n . . . . 5 𝑁 = ((𝑃 𝑄) (𝑍 ((𝑠 𝑧) 𝑊)))
18 cdleme27.d . . . . 5 𝐷 = (𝑢𝐵𝑧𝐴 ((¬ 𝑧 𝑊 ∧ ¬ 𝑧 (𝑃 𝑄)) → 𝑢 = 𝑁))
19 cdleme27.c . . . . 5 𝐶 = if(𝑠 (𝑃 𝑄), 𝐷, 𝐹)
201, 2, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19cdleme27cl 38377 . . . 4 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ ((𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ ((𝑠𝐴 ∧ ¬ 𝑠 𝑊) ∧ 𝑃𝑄)) → 𝐶𝐵)
213, 5, 6, 7, 8, 9, 20syl222anc 1385 . . 3 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ (𝑃𝑄 ∧ (𝑠𝐴 ∧ ¬ 𝑠 𝑊) ∧ (𝑡𝐴 ∧ ¬ 𝑡 𝑊)) ∧ (𝑠𝑡 ∧ ((𝑠 (𝑋 𝑊)) = 𝑋 ∧ (𝑡 (𝑋 𝑊)) = 𝑋) ∧ (𝑋𝐵 ∧ ¬ 𝑋 𝑊))) → 𝐶𝐵)
22 simp33l 1299 . . . 4 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ (𝑃𝑄 ∧ (𝑠𝐴 ∧ ¬ 𝑠 𝑊) ∧ (𝑡𝐴 ∧ ¬ 𝑡 𝑊)) ∧ (𝑠𝑡 ∧ ((𝑠 (𝑋 𝑊)) = 𝑋 ∧ (𝑡 (𝑋 𝑊)) = 𝑋) ∧ (𝑋𝐵 ∧ ¬ 𝑋 𝑊))) → 𝑋𝐵)
231, 13lhpbase 38009 . . . . 5 (𝑊𝐻𝑊𝐵)
245, 23syl 17 . . . 4 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ (𝑃𝑄 ∧ (𝑠𝐴 ∧ ¬ 𝑠 𝑊) ∧ (𝑡𝐴 ∧ ¬ 𝑡 𝑊)) ∧ (𝑠𝑡 ∧ ((𝑠 (𝑋 𝑊)) = 𝑋 ∧ (𝑡 (𝑋 𝑊)) = 𝑋) ∧ (𝑋𝐵 ∧ ¬ 𝑋 𝑊))) → 𝑊𝐵)
251, 11latmcl 18156 . . . 4 ((𝐾 ∈ Lat ∧ 𝑋𝐵𝑊𝐵) → (𝑋 𝑊) ∈ 𝐵)
264, 22, 24, 25syl3anc 1370 . . 3 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ (𝑃𝑄 ∧ (𝑠𝐴 ∧ ¬ 𝑠 𝑊) ∧ (𝑡𝐴 ∧ ¬ 𝑡 𝑊)) ∧ (𝑠𝑡 ∧ ((𝑠 (𝑋 𝑊)) = 𝑋 ∧ (𝑡 (𝑋 𝑊)) = 𝑋) ∧ (𝑋𝐵 ∧ ¬ 𝑋 𝑊))) → (𝑋 𝑊) ∈ 𝐵)
271, 10latjcl 18155 . . 3 ((𝐾 ∈ Lat ∧ 𝐶𝐵 ∧ (𝑋 𝑊) ∈ 𝐵) → (𝐶 (𝑋 𝑊)) ∈ 𝐵)
284, 21, 26, 27syl3anc 1370 . 2 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ (𝑃𝑄 ∧ (𝑠𝐴 ∧ ¬ 𝑠 𝑊) ∧ (𝑡𝐴 ∧ ¬ 𝑡 𝑊)) ∧ (𝑠𝑡 ∧ ((𝑠 (𝑋 𝑊)) = 𝑋 ∧ (𝑡 (𝑋 𝑊)) = 𝑋) ∧ (𝑋𝐵 ∧ ¬ 𝑋 𝑊))) → (𝐶 (𝑋 𝑊)) ∈ 𝐵)
29 simp23 1207 . . . 4 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ (𝑃𝑄 ∧ (𝑠𝐴 ∧ ¬ 𝑠 𝑊) ∧ (𝑡𝐴 ∧ ¬ 𝑡 𝑊)) ∧ (𝑠𝑡 ∧ ((𝑠 (𝑋 𝑊)) = 𝑋 ∧ (𝑡 (𝑋 𝑊)) = 𝑋) ∧ (𝑋𝐵 ∧ ¬ 𝑋 𝑊))) → (𝑡𝐴 ∧ ¬ 𝑡 𝑊))
30 cdleme27.g . . . . 5 𝐺 = ((𝑡 𝑈) (𝑄 ((𝑃 𝑡) 𝑊)))
31 cdleme27.o . . . . 5 𝑂 = ((𝑃 𝑄) (𝑍 ((𝑡 𝑧) 𝑊)))
32 cdleme27.e . . . . 5 𝐸 = (𝑢𝐵𝑧𝐴 ((¬ 𝑧 𝑊 ∧ ¬ 𝑧 (𝑃 𝑄)) → 𝑢 = 𝑂))
33 cdleme27.y . . . . 5 𝑌 = if(𝑡 (𝑃 𝑄), 𝐸, 𝐺)
341, 2, 10, 11, 12, 13, 14, 30, 16, 31, 32, 33cdleme27cl 38377 . . . 4 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ ((𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ ((𝑡𝐴 ∧ ¬ 𝑡 𝑊) ∧ 𝑃𝑄)) → 𝑌𝐵)
353, 5, 6, 7, 29, 9, 34syl222anc 1385 . . 3 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ (𝑃𝑄 ∧ (𝑠𝐴 ∧ ¬ 𝑠 𝑊) ∧ (𝑡𝐴 ∧ ¬ 𝑡 𝑊)) ∧ (𝑠𝑡 ∧ ((𝑠 (𝑋 𝑊)) = 𝑋 ∧ (𝑡 (𝑋 𝑊)) = 𝑋) ∧ (𝑋𝐵 ∧ ¬ 𝑋 𝑊))) → 𝑌𝐵)
361, 10latjcl 18155 . . 3 ((𝐾 ∈ Lat ∧ 𝑌𝐵 ∧ (𝑋 𝑊) ∈ 𝐵) → (𝑌 (𝑋 𝑊)) ∈ 𝐵)
374, 35, 26, 36syl3anc 1370 . 2 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ (𝑃𝑄 ∧ (𝑠𝐴 ∧ ¬ 𝑠 𝑊) ∧ (𝑡𝐴 ∧ ¬ 𝑡 𝑊)) ∧ (𝑠𝑡 ∧ ((𝑠 (𝑋 𝑊)) = 𝑋 ∧ (𝑡 (𝑋 𝑊)) = 𝑋) ∧ (𝑋𝐵 ∧ ¬ 𝑋 𝑊))) → (𝑌 (𝑋 𝑊)) ∈ 𝐵)
38 eqid 2738 . . 3 ((𝑠 𝑡) (𝑋 𝑊)) = ((𝑠 𝑡) (𝑋 𝑊))
391, 2, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 30, 31, 32, 33, 38cdleme28a 38381 . 2 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ (𝑃𝑄 ∧ (𝑠𝐴 ∧ ¬ 𝑠 𝑊) ∧ (𝑡𝐴 ∧ ¬ 𝑡 𝑊)) ∧ (𝑠𝑡 ∧ ((𝑠 (𝑋 𝑊)) = 𝑋 ∧ (𝑡 (𝑋 𝑊)) = 𝑋) ∧ (𝑋𝐵 ∧ ¬ 𝑋 𝑊))) → (𝐶 (𝑋 𝑊)) (𝑌 (𝑋 𝑊)))
40 simp11 1202 . . 3 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ (𝑃𝑄 ∧ (𝑠𝐴 ∧ ¬ 𝑠 𝑊) ∧ (𝑡𝐴 ∧ ¬ 𝑡 𝑊)) ∧ (𝑠𝑡 ∧ ((𝑠 (𝑋 𝑊)) = 𝑋 ∧ (𝑡 (𝑋 𝑊)) = 𝑋) ∧ (𝑋𝐵 ∧ ¬ 𝑋 𝑊))) → (𝐾 ∈ HL ∧ 𝑊𝐻))
41 simp31 1208 . . . 4 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ (𝑃𝑄 ∧ (𝑠𝐴 ∧ ¬ 𝑠 𝑊) ∧ (𝑡𝐴 ∧ ¬ 𝑡 𝑊)) ∧ (𝑠𝑡 ∧ ((𝑠 (𝑋 𝑊)) = 𝑋 ∧ (𝑡 (𝑋 𝑊)) = 𝑋) ∧ (𝑋𝐵 ∧ ¬ 𝑋 𝑊))) → 𝑠𝑡)
4241necomd 2999 . . 3 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ (𝑃𝑄 ∧ (𝑠𝐴 ∧ ¬ 𝑠 𝑊) ∧ (𝑡𝐴 ∧ ¬ 𝑡 𝑊)) ∧ (𝑠𝑡 ∧ ((𝑠 (𝑋 𝑊)) = 𝑋 ∧ (𝑡 (𝑋 𝑊)) = 𝑋) ∧ (𝑋𝐵 ∧ ¬ 𝑋 𝑊))) → 𝑡𝑠)
43 simp32 1209 . . . 4 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ (𝑃𝑄 ∧ (𝑠𝐴 ∧ ¬ 𝑠 𝑊) ∧ (𝑡𝐴 ∧ ¬ 𝑡 𝑊)) ∧ (𝑠𝑡 ∧ ((𝑠 (𝑋 𝑊)) = 𝑋 ∧ (𝑡 (𝑋 𝑊)) = 𝑋) ∧ (𝑋𝐵 ∧ ¬ 𝑋 𝑊))) → ((𝑠 (𝑋 𝑊)) = 𝑋 ∧ (𝑡 (𝑋 𝑊)) = 𝑋))
4443ancomd 462 . . 3 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ (𝑃𝑄 ∧ (𝑠𝐴 ∧ ¬ 𝑠 𝑊) ∧ (𝑡𝐴 ∧ ¬ 𝑡 𝑊)) ∧ (𝑠𝑡 ∧ ((𝑠 (𝑋 𝑊)) = 𝑋 ∧ (𝑡 (𝑋 𝑊)) = 𝑋) ∧ (𝑋𝐵 ∧ ¬ 𝑋 𝑊))) → ((𝑡 (𝑋 𝑊)) = 𝑋 ∧ (𝑠 (𝑋 𝑊)) = 𝑋))
45 simp33 1210 . . 3 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ (𝑃𝑄 ∧ (𝑠𝐴 ∧ ¬ 𝑠 𝑊) ∧ (𝑡𝐴 ∧ ¬ 𝑡 𝑊)) ∧ (𝑠𝑡 ∧ ((𝑠 (𝑋 𝑊)) = 𝑋 ∧ (𝑡 (𝑋 𝑊)) = 𝑋) ∧ (𝑋𝐵 ∧ ¬ 𝑋 𝑊))) → (𝑋𝐵 ∧ ¬ 𝑋 𝑊))
46 eqid 2738 . . . 4 ((𝑡 𝑠) (𝑋 𝑊)) = ((𝑡 𝑠) (𝑋 𝑊))
471, 2, 10, 11, 12, 13, 14, 30, 16, 31, 32, 33, 15, 17, 18, 19, 46cdleme28a 38381 . . 3 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ (𝑃𝑄 ∧ (𝑡𝐴 ∧ ¬ 𝑡 𝑊) ∧ (𝑠𝐴 ∧ ¬ 𝑠 𝑊)) ∧ (𝑡𝑠 ∧ ((𝑡 (𝑋 𝑊)) = 𝑋 ∧ (𝑠 (𝑋 𝑊)) = 𝑋) ∧ (𝑋𝐵 ∧ ¬ 𝑋 𝑊))) → (𝑌 (𝑋 𝑊)) (𝐶 (𝑋 𝑊)))
4840, 6, 7, 9, 29, 8, 42, 44, 45, 47syl333anc 1401 . 2 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ (𝑃𝑄 ∧ (𝑠𝐴 ∧ ¬ 𝑠 𝑊) ∧ (𝑡𝐴 ∧ ¬ 𝑡 𝑊)) ∧ (𝑠𝑡 ∧ ((𝑠 (𝑋 𝑊)) = 𝑋 ∧ (𝑡 (𝑋 𝑊)) = 𝑋) ∧ (𝑋𝐵 ∧ ¬ 𝑋 𝑊))) → (𝑌 (𝑋 𝑊)) (𝐶 (𝑋 𝑊)))
491, 2, 4, 28, 37, 39, 48latasymd 18161 1 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ (𝑃𝑄 ∧ (𝑠𝐴 ∧ ¬ 𝑠 𝑊) ∧ (𝑡𝐴 ∧ ¬ 𝑡 𝑊)) ∧ (𝑠𝑡 ∧ ((𝑠 (𝑋 𝑊)) = 𝑋 ∧ (𝑡 (𝑋 𝑊)) = 𝑋) ∧ (𝑋𝐵 ∧ ¬ 𝑋 𝑊))) → (𝐶 (𝑋 𝑊)) = (𝑌 (𝑋 𝑊)))
Colors of variables: wff setvar class
Syntax hints:  ¬ wn 3  wi 4  wa 396  w3a 1086   = wceq 1539  wcel 2106  wne 2943  wral 3064  ifcif 4461   class class class wbr 5076  cfv 6435  crio 7233  (class class class)co 7277  Basecbs 16910  lecple 16967  joincjn 18027  meetcmee 18028  Latclat 18147  Atomscatm 37274  HLchlt 37361  LHypclh 37995
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1798  ax-4 1812  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 2709  ax-rep 5211  ax-sep 5225  ax-nul 5232  ax-pow 5290  ax-pr 5354  ax-un 7588  ax-riotaBAD 36964
This theorem depends on definitions:  df-bi 206  df-an 397  df-or 845  df-3or 1087  df-3an 1088  df-tru 1542  df-fal 1552  df-ex 1783  df-nf 1787  df-sb 2068  df-mo 2540  df-eu 2569  df-clab 2716  df-cleq 2730  df-clel 2816  df-nfc 2889  df-ne 2944  df-ral 3069  df-rex 3070  df-rmo 3071  df-reu 3072  df-rab 3073  df-v 3433  df-sbc 3718  df-csb 3834  df-dif 3891  df-un 3893  df-in 3895  df-ss 3905  df-nul 4259  df-if 4462  df-pw 4537  df-sn 4564  df-pr 4566  df-op 4570  df-uni 4842  df-iun 4928  df-iin 4929  df-br 5077  df-opab 5139  df-mpt 5160  df-id 5491  df-xp 5597  df-rel 5598  df-cnv 5599  df-co 5600  df-dm 5601  df-rn 5602  df-res 5603  df-ima 5604  df-iota 6393  df-fun 6437  df-fn 6438  df-f 6439  df-f1 6440  df-fo 6441  df-f1o 6442  df-fv 6443  df-riota 7234  df-ov 7280  df-oprab 7281  df-mpo 7282  df-1st 7831  df-2nd 7832  df-undef 8087  df-proset 18011  df-poset 18029  df-plt 18046  df-lub 18062  df-glb 18063  df-join 18064  df-meet 18065  df-p0 18141  df-p1 18142  df-lat 18148  df-clat 18215  df-oposet 37187  df-ol 37189  df-oml 37190  df-covers 37277  df-ats 37278  df-atl 37309  df-cvlat 37333  df-hlat 37362  df-llines 37509  df-lplanes 37510  df-lvols 37511  df-lines 37512  df-psubsp 37514  df-pmap 37515  df-padd 37807  df-lhyp 37999
This theorem is referenced by:  cdleme28c  38383
  Copyright terms: Public domain W3C validator