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

Theorem cdleme29ex 40339
Description: Lemma for cdleme29b 40340. (Compare cdleme25a 40318.) TODO: FIX COMMENT. (Contributed by NM, 7-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(𝑠 (𝑃 𝑄), 𝐷, 𝐹)
Assertion
Ref Expression
cdleme29ex ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ 𝑃𝑄 ∧ (𝑋𝐵 ∧ ¬ 𝑋 𝑊)) → ∃𝑠𝐴 ((¬ 𝑠 𝑊 ∧ (𝑠 (𝑋 𝑊)) = 𝑋) ∧ (𝐶 (𝑋 𝑊)) ∈ 𝐵))
Distinct variable groups:   𝑢,𝑠,𝑧,𝐴   𝐵,𝑠,𝑢,𝑧   𝑢,𝐹   𝐻,𝑠,𝑧   ,𝑠,𝑢,𝑧   𝐾,𝑠,𝑧   ,𝑠,𝑢,𝑧   ,𝑠,𝑢,𝑧   𝑢,𝑁   𝑃,𝑠,𝑢,𝑧   𝑄,𝑠,𝑢,𝑧   𝑈,𝑠,𝑢,𝑧   𝑊,𝑠,𝑢,𝑧   𝑋,𝑠
Allowed substitution hints:   𝐶(𝑧,𝑢,𝑠)   𝐷(𝑧,𝑢,𝑠)   𝐹(𝑧,𝑠)   𝐻(𝑢)   𝐾(𝑢)   𝑁(𝑧,𝑠)   𝑋(𝑧,𝑢)   𝑍(𝑧,𝑢,𝑠)

Proof of Theorem cdleme29ex
StepHypRef Expression
1 simp11 1204 . . 3 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ 𝑃𝑄 ∧ (𝑋𝐵 ∧ ¬ 𝑋 𝑊)) → (𝐾 ∈ HL ∧ 𝑊𝐻))
2 simp3 1138 . . 3 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ 𝑃𝑄 ∧ (𝑋𝐵 ∧ ¬ 𝑋 𝑊)) → (𝑋𝐵 ∧ ¬ 𝑋 𝑊))
3 cdleme26.b . . . 4 𝐵 = (Base‘𝐾)
4 cdleme26.l . . . 4 = (le‘𝐾)
5 cdleme26.j . . . 4 = (join‘𝐾)
6 cdleme26.m . . . 4 = (meet‘𝐾)
7 cdleme26.a . . . 4 𝐴 = (Atoms‘𝐾)
8 cdleme26.h . . . 4 𝐻 = (LHyp‘𝐾)
93, 4, 5, 6, 7, 8lhpmcvr2 39989 . . 3 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑋𝐵 ∧ ¬ 𝑋 𝑊)) → ∃𝑠𝐴𝑠 𝑊 ∧ (𝑠 (𝑋 𝑊)) = 𝑋))
101, 2, 9syl2anc 584 . 2 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ 𝑃𝑄 ∧ (𝑋𝐵 ∧ ¬ 𝑋 𝑊)) → ∃𝑠𝐴𝑠 𝑊 ∧ (𝑠 (𝑋 𝑊)) = 𝑋))
11 simp11l 1285 . . . . . . . . 9 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ 𝑃𝑄 ∧ (𝑋𝐵 ∧ ¬ 𝑋 𝑊)) → 𝐾 ∈ HL)
1211adantr 480 . . . . . . . 8 (((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ 𝑃𝑄 ∧ (𝑋𝐵 ∧ ¬ 𝑋 𝑊)) ∧ (𝑠𝐴 ∧ ¬ 𝑠 𝑊)) → 𝐾 ∈ HL)
1312hllatd 39328 . . . . . . 7 (((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ 𝑃𝑄 ∧ (𝑋𝐵 ∧ ¬ 𝑋 𝑊)) ∧ (𝑠𝐴 ∧ ¬ 𝑠 𝑊)) → 𝐾 ∈ Lat)
14 simp11r 1286 . . . . . . . . 9 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ 𝑃𝑄 ∧ (𝑋𝐵 ∧ ¬ 𝑋 𝑊)) → 𝑊𝐻)
1514adantr 480 . . . . . . . 8 (((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ 𝑃𝑄 ∧ (𝑋𝐵 ∧ ¬ 𝑋 𝑊)) ∧ (𝑠𝐴 ∧ ¬ 𝑠 𝑊)) → 𝑊𝐻)
16 simpl12 1250 . . . . . . . 8 (((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ 𝑃𝑄 ∧ (𝑋𝐵 ∧ ¬ 𝑋 𝑊)) ∧ (𝑠𝐴 ∧ ¬ 𝑠 𝑊)) → (𝑃𝐴 ∧ ¬ 𝑃 𝑊))
17 simpl13 1251 . . . . . . . 8 (((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ 𝑃𝑄 ∧ (𝑋𝐵 ∧ ¬ 𝑋 𝑊)) ∧ (𝑠𝐴 ∧ ¬ 𝑠 𝑊)) → (𝑄𝐴 ∧ ¬ 𝑄 𝑊))
18 simpr 484 . . . . . . . 8 (((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ 𝑃𝑄 ∧ (𝑋𝐵 ∧ ¬ 𝑋 𝑊)) ∧ (𝑠𝐴 ∧ ¬ 𝑠 𝑊)) → (𝑠𝐴 ∧ ¬ 𝑠 𝑊))
19 simpl2 1193 . . . . . . . 8 (((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ 𝑃𝑄 ∧ (𝑋𝐵 ∧ ¬ 𝑋 𝑊)) ∧ (𝑠𝐴 ∧ ¬ 𝑠 𝑊)) → 𝑃𝑄)
20 cdleme27.u . . . . . . . . 9 𝑈 = ((𝑃 𝑄) 𝑊)
21 cdleme27.f . . . . . . . . 9 𝐹 = ((𝑠 𝑈) (𝑄 ((𝑃 𝑠) 𝑊)))
22 cdleme27.z . . . . . . . . 9 𝑍 = ((𝑧 𝑈) (𝑄 ((𝑃 𝑧) 𝑊)))
23 cdleme27.n . . . . . . . . 9 𝑁 = ((𝑃 𝑄) (𝑍 ((𝑠 𝑧) 𝑊)))
24 cdleme27.d . . . . . . . . 9 𝐷 = (𝑢𝐵𝑧𝐴 ((¬ 𝑧 𝑊 ∧ ¬ 𝑧 (𝑃 𝑄)) → 𝑢 = 𝑁))
25 cdleme27.c . . . . . . . . 9 𝐶 = if(𝑠 (𝑃 𝑄), 𝐷, 𝐹)
263, 4, 5, 6, 7, 8, 20, 21, 22, 23, 24, 25cdleme27cl 40331 . . . . . . . 8 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ ((𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ ((𝑠𝐴 ∧ ¬ 𝑠 𝑊) ∧ 𝑃𝑄)) → 𝐶𝐵)
2712, 15, 16, 17, 18, 19, 26syl222anc 1388 . . . . . . 7 (((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ 𝑃𝑄 ∧ (𝑋𝐵 ∧ ¬ 𝑋 𝑊)) ∧ (𝑠𝐴 ∧ ¬ 𝑠 𝑊)) → 𝐶𝐵)
28 simpl3l 1229 . . . . . . . 8 (((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ 𝑃𝑄 ∧ (𝑋𝐵 ∧ ¬ 𝑋 𝑊)) ∧ (𝑠𝐴 ∧ ¬ 𝑠 𝑊)) → 𝑋𝐵)
293, 8lhpbase 39963 . . . . . . . . 9 (𝑊𝐻𝑊𝐵)
3015, 29syl 17 . . . . . . . 8 (((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ 𝑃𝑄 ∧ (𝑋𝐵 ∧ ¬ 𝑋 𝑊)) ∧ (𝑠𝐴 ∧ ¬ 𝑠 𝑊)) → 𝑊𝐵)
313, 6latmcl 18448 . . . . . . . 8 ((𝐾 ∈ Lat ∧ 𝑋𝐵𝑊𝐵) → (𝑋 𝑊) ∈ 𝐵)
3213, 28, 30, 31syl3anc 1373 . . . . . . 7 (((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ 𝑃𝑄 ∧ (𝑋𝐵 ∧ ¬ 𝑋 𝑊)) ∧ (𝑠𝐴 ∧ ¬ 𝑠 𝑊)) → (𝑋 𝑊) ∈ 𝐵)
333, 5latjcl 18447 . . . . . . 7 ((𝐾 ∈ Lat ∧ 𝐶𝐵 ∧ (𝑋 𝑊) ∈ 𝐵) → (𝐶 (𝑋 𝑊)) ∈ 𝐵)
3413, 27, 32, 33syl3anc 1373 . . . . . 6 (((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ 𝑃𝑄 ∧ (𝑋𝐵 ∧ ¬ 𝑋 𝑊)) ∧ (𝑠𝐴 ∧ ¬ 𝑠 𝑊)) → (𝐶 (𝑋 𝑊)) ∈ 𝐵)
3534expr 456 . . . . 5 (((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ 𝑃𝑄 ∧ (𝑋𝐵 ∧ ¬ 𝑋 𝑊)) ∧ 𝑠𝐴) → (¬ 𝑠 𝑊 → (𝐶 (𝑋 𝑊)) ∈ 𝐵))
3635adantrd 491 . . . 4 (((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ 𝑃𝑄 ∧ (𝑋𝐵 ∧ ¬ 𝑋 𝑊)) ∧ 𝑠𝐴) → ((¬ 𝑠 𝑊 ∧ (𝑠 (𝑋 𝑊)) = 𝑋) → (𝐶 (𝑋 𝑊)) ∈ 𝐵))
3736ancld 550 . . 3 (((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ 𝑃𝑄 ∧ (𝑋𝐵 ∧ ¬ 𝑋 𝑊)) ∧ 𝑠𝐴) → ((¬ 𝑠 𝑊 ∧ (𝑠 (𝑋 𝑊)) = 𝑋) → ((¬ 𝑠 𝑊 ∧ (𝑠 (𝑋 𝑊)) = 𝑋) ∧ (𝐶 (𝑋 𝑊)) ∈ 𝐵)))
3837reximdva 3153 . 2 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ 𝑃𝑄 ∧ (𝑋𝐵 ∧ ¬ 𝑋 𝑊)) → (∃𝑠𝐴𝑠 𝑊 ∧ (𝑠 (𝑋 𝑊)) = 𝑋) → ∃𝑠𝐴 ((¬ 𝑠 𝑊 ∧ (𝑠 (𝑋 𝑊)) = 𝑋) ∧ (𝐶 (𝑋 𝑊)) ∈ 𝐵)))
3910, 38mpd 15 1 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ 𝑃𝑄 ∧ (𝑋𝐵 ∧ ¬ 𝑋 𝑊)) → ∃𝑠𝐴 ((¬ 𝑠 𝑊 ∧ (𝑠 (𝑋 𝑊)) = 𝑋) ∧ (𝐶 (𝑋 𝑊)) ∈ 𝐵))
Colors of variables: wff setvar class
Syntax hints:  ¬ wn 3  wi 4  wa 395  w3a 1086   = wceq 1540  wcel 2108  wne 2932  wral 3051  wrex 3060  ifcif 4500   class class class wbr 5119  cfv 6530  crio 7359  (class class class)co 7403  Basecbs 17226  lecple 17276  joincjn 18321  meetcmee 18322  Latclat 18439  Atomscatm 39227  HLchlt 39314  LHypclh 39949
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1795  ax-4 1809  ax-5 1910  ax-6 1967  ax-7 2007  ax-8 2110  ax-9 2118  ax-10 2141  ax-11 2157  ax-12 2177  ax-ext 2707  ax-rep 5249  ax-sep 5266  ax-nul 5276  ax-pow 5335  ax-pr 5402  ax-un 7727
This theorem depends on definitions:  df-bi 207  df-an 396  df-or 848  df-3or 1087  df-3an 1088  df-tru 1543  df-fal 1553  df-ex 1780  df-nf 1784  df-sb 2065  df-mo 2539  df-eu 2568  df-clab 2714  df-cleq 2727  df-clel 2809  df-nfc 2885  df-ne 2933  df-ral 3052  df-rex 3061  df-rmo 3359  df-reu 3360  df-rab 3416  df-v 3461  df-sbc 3766  df-csb 3875  df-dif 3929  df-un 3931  df-in 3933  df-ss 3943  df-nul 4309  df-if 4501  df-pw 4577  df-sn 4602  df-pr 4604  df-op 4608  df-uni 4884  df-iun 4969  df-iin 4970  df-br 5120  df-opab 5182  df-mpt 5202  df-id 5548  df-xp 5660  df-rel 5661  df-cnv 5662  df-co 5663  df-dm 5664  df-rn 5665  df-res 5666  df-ima 5667  df-iota 6483  df-fun 6532  df-fn 6533  df-f 6534  df-f1 6535  df-fo 6536  df-f1o 6537  df-fv 6538  df-riota 7360  df-ov 7406  df-oprab 7407  df-mpo 7408  df-1st 7986  df-2nd 7987  df-proset 18304  df-poset 18323  df-plt 18338  df-lub 18354  df-glb 18355  df-join 18356  df-meet 18357  df-p0 18433  df-p1 18434  df-lat 18440  df-clat 18507  df-oposet 39140  df-ol 39142  df-oml 39143  df-covers 39230  df-ats 39231  df-atl 39262  df-cvlat 39286  df-hlat 39315  df-llines 39463  df-lplanes 39464  df-lvols 39465  df-lines 39466  df-psubsp 39468  df-pmap 39469  df-padd 39761  df-lhyp 39953
This theorem is referenced by:  cdleme29b  40340
  Copyright terms: Public domain W3C validator