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

Theorem cdlemefs32fva1 36498
 Description: Part of proof of Lemma E in [Crawley] p. 113. TODO: FIX COMMENT. (Contributed by NM, 29-Mar-2013.)
Hypotheses
Ref Expression
cdlemefs32.b 𝐵 = (Base‘𝐾)
cdlemefs32.l = (le‘𝐾)
cdlemefs32.j = (join‘𝐾)
cdlemefs32.m = (meet‘𝐾)
cdlemefs32.a 𝐴 = (Atoms‘𝐾)
cdlemefs32.h 𝐻 = (LHyp‘𝐾)
cdlemefs32.u 𝑈 = ((𝑃 𝑄) 𝑊)
cdlemefs32.d 𝐷 = ((𝑡 𝑈) (𝑄 ((𝑃 𝑡) 𝑊)))
cdlemefs32.e 𝐸 = ((𝑃 𝑄) (𝐷 ((𝑠 𝑡) 𝑊)))
cdlemefs32.i 𝐼 = (𝑦𝐵𝑡𝐴 ((¬ 𝑡 𝑊 ∧ ¬ 𝑡 (𝑃 𝑄)) → 𝑦 = 𝐸))
cdlemefs32.n 𝑁 = if(𝑠 (𝑃 𝑄), 𝐼, 𝐶)
cdleme29fs.o 𝑂 = (𝑧𝐵𝑠𝐴 ((¬ 𝑠 𝑊 ∧ (𝑠 (𝑥 𝑊)) = 𝑥) → 𝑧 = (𝑁 (𝑥 𝑊))))
cdleme29fs.f 𝐹 = (𝑥𝐵 ↦ if((𝑃𝑄 ∧ ¬ 𝑥 𝑊), 𝑂, 𝑥))
Assertion
Ref Expression
cdlemefs32fva1 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ (𝑃𝑄 ∧ (𝑅𝐴 ∧ ¬ 𝑅 𝑊)) ∧ 𝑅 (𝑃 𝑄)) → (𝐹𝑅) = 𝑅 / 𝑠𝑁)
Distinct variable groups:   𝑡,𝑠,𝑥,𝑦,𝑧,𝐴   𝐵,𝑠,𝑡,𝑥,𝑦,𝑧   𝑦,𝐷   𝑦,𝐸   𝐻,𝑠,𝑡,𝑦   ,𝑠,𝑡,𝑥,𝑦,𝑧   𝐾,𝑠,𝑡,𝑦   ,𝑠,𝑡,𝑥,𝑦,𝑧   ,𝑠,𝑡,𝑥,𝑦,𝑧   𝑥,𝑁,𝑧   𝑃,𝑠,𝑡,𝑦,𝑧   𝑄,𝑠,𝑡,𝑦,𝑧   𝑅,𝑠,𝑡,𝑦   𝑡,𝑈,𝑦   𝑊,𝑠,𝑡,𝑥,𝑦,𝑧   𝐷,𝑠   𝑧,𝐻   𝑧,𝐾   𝑧,𝑅,𝑥   𝑥,𝑃   𝑥,𝑄
Allowed substitution hints:   𝐶(𝑥,𝑦,𝑧,𝑡,𝑠)   𝐷(𝑥,𝑧,𝑡)   𝑈(𝑥,𝑧,𝑠)   𝐸(𝑥,𝑧,𝑡,𝑠)   𝐹(𝑥,𝑦,𝑧,𝑡,𝑠)   𝐻(𝑥)   𝐼(𝑥,𝑦,𝑧,𝑡,𝑠)   𝐾(𝑥)   𝑁(𝑦,𝑡,𝑠)   𝑂(𝑥,𝑦,𝑧,𝑡,𝑠)

Proof of Theorem cdlemefs32fva1
StepHypRef Expression
1 cdlemefs32.b . 2 𝐵 = (Base‘𝐾)
2 cdlemefs32.l . 2 = (le‘𝐾)
3 cdlemefs32.j . 2 = (join‘𝐾)
4 cdlemefs32.m . 2 = (meet‘𝐾)
5 cdlemefs32.a . 2 𝐴 = (Atoms‘𝐾)
6 cdlemefs32.h . 2 𝐻 = (LHyp‘𝐾)
7 breq1 4876 . 2 (𝑠 = 𝑅 → (𝑠 (𝑃 𝑄) ↔ 𝑅 (𝑃 𝑄)))
8 simp1 1172 . . 3 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ 𝑃𝑄 ∧ (𝑠𝐴 ∧ (¬ 𝑠 𝑊𝑠 (𝑃 𝑄)))) → ((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)))
9 simp3l 1264 . . . 4 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ 𝑃𝑄 ∧ (𝑠𝐴 ∧ (¬ 𝑠 𝑊𝑠 (𝑃 𝑄)))) → 𝑠𝐴)
10 simp3rl 1333 . . . 4 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ 𝑃𝑄 ∧ (𝑠𝐴 ∧ (¬ 𝑠 𝑊𝑠 (𝑃 𝑄)))) → ¬ 𝑠 𝑊)
119, 10jca 509 . . 3 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ 𝑃𝑄 ∧ (𝑠𝐴 ∧ (¬ 𝑠 𝑊𝑠 (𝑃 𝑄)))) → (𝑠𝐴 ∧ ¬ 𝑠 𝑊))
12 simp3rr 1334 . . 3 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ 𝑃𝑄 ∧ (𝑠𝐴 ∧ (¬ 𝑠 𝑊𝑠 (𝑃 𝑄)))) → 𝑠 (𝑃 𝑄))
13 simp2 1173 . . 3 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ 𝑃𝑄 ∧ (𝑠𝐴 ∧ (¬ 𝑠 𝑊𝑠 (𝑃 𝑄)))) → 𝑃𝑄)
14 cdlemefs32.u . . . 4 𝑈 = ((𝑃 𝑄) 𝑊)
15 cdlemefs32.d . . . 4 𝐷 = ((𝑡 𝑈) (𝑄 ((𝑃 𝑡) 𝑊)))
16 cdlemefs32.e . . . 4 𝐸 = ((𝑃 𝑄) (𝐷 ((𝑠 𝑡) 𝑊)))
17 cdlemefs32.i . . . 4 𝐼 = (𝑦𝐵𝑡𝐴 ((¬ 𝑡 𝑊 ∧ ¬ 𝑡 (𝑃 𝑄)) → 𝑦 = 𝐸))
18 cdlemefs32.n . . . 4 𝑁 = if(𝑠 (𝑃 𝑄), 𝐼, 𝐶)
191, 2, 3, 4, 5, 6, 14, 15, 16, 17, 18cdlemefs27cl 36488 . . 3 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ ((𝑠𝐴 ∧ ¬ 𝑠 𝑊) ∧ 𝑠 (𝑃 𝑄) ∧ 𝑃𝑄)) → 𝑁𝐵)
208, 11, 12, 13, 19syl13anc 1497 . 2 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ 𝑃𝑄 ∧ (𝑠𝐴 ∧ (¬ 𝑠 𝑊𝑠 (𝑃 𝑄)))) → 𝑁𝐵)
211, 2, 3, 4, 5, 6, 14, 15, 16, 17, 18cdlemefs32snb 36490 . 2 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ (𝑃𝑄 ∧ (𝑅𝐴 ∧ ¬ 𝑅 𝑊)) ∧ 𝑅 (𝑃 𝑄)) → 𝑅 / 𝑠𝑁𝐵)
22 cdleme29fs.o . 2 𝑂 = (𝑧𝐵𝑠𝐴 ((¬ 𝑠 𝑊 ∧ (𝑠 (𝑥 𝑊)) = 𝑥) → 𝑧 = (𝑁 (𝑥 𝑊))))
23 cdleme29fs.f . 2 𝐹 = (𝑥𝐵 ↦ if((𝑃𝑄 ∧ ¬ 𝑥 𝑊), 𝑂, 𝑥))
241, 2, 3, 4, 5, 6, 7, 20, 21, 22, 23cdlemefrs32fva1 36476 1 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ (𝑃𝑄 ∧ (𝑅𝐴 ∧ ¬ 𝑅 𝑊)) ∧ 𝑅 (𝑃 𝑄)) → (𝐹𝑅) = 𝑅 / 𝑠𝑁)
 Colors of variables: wff setvar class Syntax hints:  ¬ wn 3   → wi 4   ∧ wa 386   ∧ w3a 1113   = wceq 1658   ∈ wcel 2166   ≠ wne 2999  ∀wral 3117  ⦋csb 3757  ifcif 4306   class class class wbr 4873   ↦ cmpt 4952  ‘cfv 6123  ℩crio 6865  (class class class)co 6905  Basecbs 16222  lecple 16312  joincjn 17297  meetcmee 17298  Atomscatm 35338  HLchlt 35425  LHypclh 36059 This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1896  ax-4 1910  ax-5 2011  ax-6 2077  ax-7 2114  ax-8 2168  ax-9 2175  ax-10 2194  ax-11 2209  ax-12 2222  ax-13 2391  ax-ext 2803  ax-rep 4994  ax-sep 5005  ax-nul 5013  ax-pow 5065  ax-pr 5127  ax-un 7209  ax-riotaBAD 35028 This theorem depends on definitions:  df-bi 199  df-an 387  df-or 881  df-3or 1114  df-3an 1115  df-tru 1662  df-ex 1881  df-nf 1885  df-sb 2070  df-mo 2605  df-eu 2640  df-clab 2812  df-cleq 2818  df-clel 2821  df-nfc 2958  df-ne 3000  df-nel 3103  df-ral 3122  df-rex 3123  df-reu 3124  df-rmo 3125  df-rab 3126  df-v 3416  df-sbc 3663  df-csb 3758  df-dif 3801  df-un 3803  df-in 3805  df-ss 3812  df-nul 4145  df-if 4307  df-pw 4380  df-sn 4398  df-pr 4400  df-op 4404  df-uni 4659  df-iun 4742  df-iin 4743  df-br 4874  df-opab 4936  df-mpt 4953  df-id 5250  df-xp 5348  df-rel 5349  df-cnv 5350  df-co 5351  df-dm 5352  df-rn 5353  df-res 5354  df-ima 5355  df-iota 6086  df-fun 6125  df-fn 6126  df-f 6127  df-f1 6128  df-fo 6129  df-f1o 6130  df-fv 6131  df-riota 6866  df-ov 6908  df-oprab 6909  df-mpt2 6910  df-1st 7428  df-2nd 7429  df-undef 7664  df-proset 17281  df-poset 17299  df-plt 17311  df-lub 17327  df-glb 17328  df-join 17329  df-meet 17330  df-p0 17392  df-p1 17393  df-lat 17399  df-clat 17461  df-oposet 35251  df-ol 35253  df-oml 35254  df-covers 35341  df-ats 35342  df-atl 35373  df-cvlat 35397  df-hlat 35426  df-llines 35573  df-lplanes 35574  df-lvols 35575  df-lines 35576  df-psubsp 35578  df-pmap 35579  df-padd 35871  df-lhyp 36063 This theorem is referenced by:  cdlemefs31fv1  36499  cdleme46fsvlpq  36580
 Copyright terms: Public domain W3C validator