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

Theorem cdlemefs44 38821
Description: Value of fs(r) when r is an atom under pq and s is any atom not under pq, using more compact hypotheses. TODO: eliminate and use cdlemefs45 38824 instead TODO: FIX COMMENT. (Contributed by NM, 31-Mar-2013.)
Hypotheses
Ref Expression
cdlemef44.b 𝐵 = (Base‘𝐾)
cdlemef44.l = (le‘𝐾)
cdlemef44.j = (join‘𝐾)
cdlemef44.m = (meet‘𝐾)
cdlemef44.a 𝐴 = (Atoms‘𝐾)
cdlemef44.h 𝐻 = (LHyp‘𝐾)
cdlemef44.u 𝑈 = ((𝑃 𝑄) 𝑊)
cdlemef44.d 𝐷 = ((𝑡 𝑈) (𝑄 ((𝑃 𝑡) 𝑊)))
cdlemef44.o 𝑂 = (𝑧𝐵𝑠𝐴 ((¬ 𝑠 𝑊 ∧ (𝑠 (𝑥 𝑊)) = 𝑥) → 𝑧 = (if(𝑠 (𝑃 𝑄), 𝐼, 𝑠 / 𝑡𝐷) (𝑥 𝑊))))
cdlemef44.f 𝐹 = (𝑥𝐵 ↦ if((𝑃𝑄 ∧ ¬ 𝑥 𝑊), 𝑂, 𝑥))
cdlemefs44.e 𝐸 = ((𝑃 𝑄) (𝐷 ((𝑠 𝑡) 𝑊)))
cdlemefs44.i 𝐼 = (𝑦𝐵𝑡𝐴 ((¬ 𝑡 𝑊 ∧ ¬ 𝑡 (𝑃 𝑄)) → 𝑦 = 𝐸))
Assertion
Ref Expression
cdlemefs44 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ (𝑃𝑄 ∧ (𝑅𝐴 ∧ ¬ 𝑅 𝑊) ∧ (𝑆𝐴 ∧ ¬ 𝑆 𝑊)) ∧ (𝑅 (𝑃 𝑄) ∧ ¬ 𝑆 (𝑃 𝑄))) → (𝐹𝑅) = 𝑅 / 𝑠𝑆 / 𝑡𝐸)
Distinct variable groups:   𝑡,𝑠,𝑥,𝑦,𝑧,𝐴   𝐵,𝑠,𝑡,𝑥,𝑦,𝑧   𝑥,𝐷,𝑦,𝑧   𝑦,𝐸   𝐻,𝑠,𝑡,𝑥,𝑦,𝑧   𝑥,𝐼,𝑧   ,𝑠,𝑡,𝑥,𝑦,𝑧   𝐾,𝑠,𝑡,𝑥,𝑦,𝑧   ,𝑠,𝑡,𝑥,𝑦,𝑧   ,𝑠,𝑡,𝑥,𝑦,𝑧   𝑃,𝑠,𝑡,𝑥,𝑦,𝑧   𝑄,𝑠,𝑡,𝑥,𝑦,𝑧   𝑅,𝑠,𝑡,𝑥,𝑦,𝑧   𝑈,𝑠,𝑡,𝑥,𝑦,𝑧   𝑊,𝑠,𝑡,𝑥,𝑦,𝑧   𝐷,𝑠   𝑆,𝑠,𝑡,𝑦
Allowed substitution hints:   𝐷(𝑡)   𝑆(𝑥,𝑧)   𝐸(𝑥,𝑧,𝑡,𝑠)   𝐹(𝑥,𝑦,𝑧,𝑡,𝑠)   𝐼(𝑦,𝑡,𝑠)   𝑂(𝑥,𝑦,𝑧,𝑡,𝑠)

Proof of Theorem cdlemefs44
StepHypRef Expression
1 cdlemef44.b . . 3 𝐵 = (Base‘𝐾)
2 cdlemef44.l . . 3 = (le‘𝐾)
3 cdlemef44.j . . 3 = (join‘𝐾)
4 cdlemef44.m . . 3 = (meet‘𝐾)
5 cdlemef44.a . . 3 𝐴 = (Atoms‘𝐾)
6 cdlemef44.h . . 3 𝐻 = (LHyp‘𝐾)
7 cdlemef44.u . . 3 𝑈 = ((𝑃 𝑄) 𝑊)
8 cdlemef44.d . . 3 𝐷 = ((𝑡 𝑈) (𝑄 ((𝑃 𝑡) 𝑊)))
9 cdlemefs44.e . . 3 𝐸 = ((𝑃 𝑄) (𝐷 ((𝑠 𝑡) 𝑊)))
10 cdlemefs44.i . . 3 𝐼 = (𝑦𝐵𝑡𝐴 ((¬ 𝑡 𝑊 ∧ ¬ 𝑡 (𝑃 𝑄)) → 𝑦 = 𝐸))
11 eqid 2738 . . 3 if(𝑠 (𝑃 𝑄), 𝐼, 𝑠 / 𝑡𝐷) = if(𝑠 (𝑃 𝑄), 𝐼, 𝑠 / 𝑡𝐷)
12 cdlemef44.o . . 3 𝑂 = (𝑧𝐵𝑠𝐴 ((¬ 𝑠 𝑊 ∧ (𝑠 (𝑥 𝑊)) = 𝑥) → 𝑧 = (if(𝑠 (𝑃 𝑄), 𝐼, 𝑠 / 𝑡𝐷) (𝑥 𝑊))))
13 cdlemef44.f . . 3 𝐹 = (𝑥𝐵 ↦ if((𝑃𝑄 ∧ ¬ 𝑥 𝑊), 𝑂, 𝑥))
14 eqid 2738 . . 3 ((𝑆 𝑈) (𝑄 ((𝑃 𝑆) 𝑊))) = ((𝑆 𝑈) (𝑄 ((𝑃 𝑆) 𝑊)))
15 eqid 2738 . . 3 ((𝑃 𝑄) (((𝑆 𝑈) (𝑄 ((𝑃 𝑆) 𝑊))) ((𝑅 𝑆) 𝑊))) = ((𝑃 𝑄) (((𝑆 𝑈) (𝑄 ((𝑃 𝑆) 𝑊))) ((𝑅 𝑆) 𝑊)))
161, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15cdlemefs31fv1 38819 . 2 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ (𝑃𝑄 ∧ (𝑅𝐴 ∧ ¬ 𝑅 𝑊) ∧ (𝑆𝐴 ∧ ¬ 𝑆 𝑊)) ∧ (𝑅 (𝑃 𝑄) ∧ ¬ 𝑆 (𝑃 𝑄))) → (𝐹𝑅) = ((𝑃 𝑄) (((𝑆 𝑈) (𝑄 ((𝑃 𝑆) 𝑊))) ((𝑅 𝑆) 𝑊))))
17 simp22l 1293 . . 3 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ (𝑃𝑄 ∧ (𝑅𝐴 ∧ ¬ 𝑅 𝑊) ∧ (𝑆𝐴 ∧ ¬ 𝑆 𝑊)) ∧ (𝑅 (𝑃 𝑄) ∧ ¬ 𝑆 (𝑃 𝑄))) → 𝑅𝐴)
18 simp23l 1295 . . 3 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ (𝑃𝑄 ∧ (𝑅𝐴 ∧ ¬ 𝑅 𝑊) ∧ (𝑆𝐴 ∧ ¬ 𝑆 𝑊)) ∧ (𝑅 (𝑃 𝑄) ∧ ¬ 𝑆 (𝑃 𝑄))) → 𝑆𝐴)
198, 9, 14, 15cdleme31sde 38780 . . 3 ((𝑅𝐴𝑆𝐴) → 𝑅 / 𝑠𝑆 / 𝑡𝐸 = ((𝑃 𝑄) (((𝑆 𝑈) (𝑄 ((𝑃 𝑆) 𝑊))) ((𝑅 𝑆) 𝑊))))
2017, 18, 19syl2anc 585 . 2 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ (𝑃𝑄 ∧ (𝑅𝐴 ∧ ¬ 𝑅 𝑊) ∧ (𝑆𝐴 ∧ ¬ 𝑆 𝑊)) ∧ (𝑅 (𝑃 𝑄) ∧ ¬ 𝑆 (𝑃 𝑄))) → 𝑅 / 𝑠𝑆 / 𝑡𝐸 = ((𝑃 𝑄) (((𝑆 𝑈) (𝑄 ((𝑃 𝑆) 𝑊))) ((𝑅 𝑆) 𝑊))))
2116, 20eqtr4d 2781 1 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ (𝑃𝑄 ∧ (𝑅𝐴 ∧ ¬ 𝑅 𝑊) ∧ (𝑆𝐴 ∧ ¬ 𝑆 𝑊)) ∧ (𝑅 (𝑃 𝑄) ∧ ¬ 𝑆 (𝑃 𝑄))) → (𝐹𝑅) = 𝑅 / 𝑠𝑆 / 𝑡𝐸)
Colors of variables: wff setvar class
Syntax hints:  ¬ wn 3  wi 4  wa 397  w3a 1088   = wceq 1542  wcel 2107  wne 2942  wral 3063  csb 3854  ifcif 4485   class class class wbr 5104  cmpt 5187  cfv 6494  crio 7307  (class class class)co 7352  Basecbs 17043  lecple 17100  joincjn 18160  meetcmee 18161  Atomscatm 37657  HLchlt 37744  LHypclh 38379
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 1914  ax-6 1972  ax-7 2012  ax-8 2109  ax-9 2117  ax-10 2138  ax-11 2155  ax-12 2172  ax-ext 2709  ax-rep 5241  ax-sep 5255  ax-nul 5262  ax-pow 5319  ax-pr 5383  ax-un 7665  ax-riotaBAD 37347
This theorem depends on definitions:  df-bi 206  df-an 398  df-or 847  df-3or 1089  df-3an 1090  df-tru 1545  df-fal 1555  df-ex 1783  df-nf 1787  df-sb 2069  df-mo 2540  df-eu 2569  df-clab 2716  df-cleq 2730  df-clel 2816  df-nfc 2888  df-ne 2943  df-ral 3064  df-rex 3073  df-rmo 3352  df-reu 3353  df-rab 3407  df-v 3446  df-sbc 3739  df-csb 3855  df-dif 3912  df-un 3914  df-in 3916  df-ss 3926  df-nul 4282  df-if 4486  df-pw 4561  df-sn 4586  df-pr 4588  df-op 4592  df-uni 4865  df-iun 4955  df-iin 4956  df-br 5105  df-opab 5167  df-mpt 5188  df-id 5530  df-xp 5638  df-rel 5639  df-cnv 5640  df-co 5641  df-dm 5642  df-rn 5643  df-res 5644  df-ima 5645  df-iota 6446  df-fun 6496  df-fn 6497  df-f 6498  df-f1 6499  df-fo 6500  df-f1o 6501  df-fv 6502  df-riota 7308  df-ov 7355  df-oprab 7356  df-mpo 7357  df-1st 7914  df-2nd 7915  df-undef 8197  df-proset 18144  df-poset 18162  df-plt 18179  df-lub 18195  df-glb 18196  df-join 18197  df-meet 18198  df-p0 18274  df-p1 18275  df-lat 18281  df-clat 18348  df-oposet 37570  df-ol 37572  df-oml 37573  df-covers 37660  df-ats 37661  df-atl 37692  df-cvlat 37716  df-hlat 37745  df-llines 37893  df-lplanes 37894  df-lvols 37895  df-lines 37896  df-psubsp 37898  df-pmap 37899  df-padd 38191  df-lhyp 38383
This theorem is referenced by:  cdlemefs45  38824
  Copyright terms: Public domain W3C validator