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

Theorem cdlemefs27cl 37749
 Description: Part of proof of Lemma E in [Crawley] p. 113. Closure of 𝑁. TODO FIX COMMENT This is the start of a re-proof of cdleme27cl 37702 etc. with the 𝑠 ≤ (𝑃 ∨ 𝑄) condition (so as to not have the 𝐶 hypothesis). (Contributed by NM, 24-Mar-2013.)
Hypotheses
Ref Expression
cdlemefs26.b 𝐵 = (Base‘𝐾)
cdlemefs26.l = (le‘𝐾)
cdlemefs26.j = (join‘𝐾)
cdlemefs26.m = (meet‘𝐾)
cdlemefs26.a 𝐴 = (Atoms‘𝐾)
cdlemefs26.h 𝐻 = (LHyp‘𝐾)
cdlemefs27.u 𝑈 = ((𝑃 𝑄) 𝑊)
cdlemefs27.d 𝐷 = ((𝑡 𝑈) (𝑄 ((𝑃 𝑡) 𝑊)))
cdlemefs27.e 𝐸 = ((𝑃 𝑄) (𝐷 ((𝑠 𝑡) 𝑊)))
cdlemefs27.i 𝐼 = (𝑢𝐵𝑡𝐴 ((¬ 𝑡 𝑊 ∧ ¬ 𝑡 (𝑃 𝑄)) → 𝑢 = 𝐸))
cdlemefs27.n 𝑁 = if(𝑠 (𝑃 𝑄), 𝐼, 𝐶)
Assertion
Ref Expression
cdlemefs27cl ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ ((𝑠𝐴 ∧ ¬ 𝑠 𝑊) ∧ 𝑠 (𝑃 𝑄) ∧ 𝑃𝑄)) → 𝑁𝐵)
Distinct variable groups:   𝑢,𝑡,𝐴   𝑡,𝐵,𝑢   𝑢,𝐸   𝑡,𝐻   𝑡, ,𝑢   𝑡,𝐾   𝑡, ,𝑢   𝑡, ,𝑢   𝑡,𝑃,𝑢   𝑡,𝑄,𝑢   𝑡,𝑈,𝑢   𝑡,𝑊,𝑢   𝑡,𝑠,𝑢
Allowed substitution hints:   𝐴(𝑠)   𝐵(𝑠)   𝐶(𝑢,𝑡,𝑠)   𝐷(𝑢,𝑡,𝑠)   𝑃(𝑠)   𝑄(𝑠)   𝑈(𝑠)   𝐸(𝑡,𝑠)   𝐻(𝑢,𝑠)   𝐼(𝑢,𝑡,𝑠)   (𝑠)   𝐾(𝑢,𝑠)   (𝑠)   (𝑠)   𝑁(𝑢,𝑡,𝑠)   𝑊(𝑠)

Proof of Theorem cdlemefs27cl
StepHypRef Expression
1 cdlemefs27.n . 2 𝑁 = if(𝑠 (𝑃 𝑄), 𝐼, 𝐶)
2 simpr2 1192 . . . 4 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ ((𝑠𝐴 ∧ ¬ 𝑠 𝑊) ∧ 𝑠 (𝑃 𝑄) ∧ 𝑃𝑄)) → 𝑠 (𝑃 𝑄))
32iftrued 4433 . . 3 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ ((𝑠𝐴 ∧ ¬ 𝑠 𝑊) ∧ 𝑠 (𝑃 𝑄) ∧ 𝑃𝑄)) → if(𝑠 (𝑃 𝑄), 𝐼, 𝐶) = 𝐼)
4 simpl1 1188 . . . 4 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ ((𝑠𝐴 ∧ ¬ 𝑠 𝑊) ∧ 𝑠 (𝑃 𝑄) ∧ 𝑃𝑄)) → (𝐾 ∈ HL ∧ 𝑊𝐻))
5 simpl2 1189 . . . 4 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ ((𝑠𝐴 ∧ ¬ 𝑠 𝑊) ∧ 𝑠 (𝑃 𝑄) ∧ 𝑃𝑄)) → (𝑃𝐴 ∧ ¬ 𝑃 𝑊))
6 simpl3 1190 . . . 4 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ ((𝑠𝐴 ∧ ¬ 𝑠 𝑊) ∧ 𝑠 (𝑃 𝑄) ∧ 𝑃𝑄)) → (𝑄𝐴 ∧ ¬ 𝑄 𝑊))
7 simpr1 1191 . . . 4 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ ((𝑠𝐴 ∧ ¬ 𝑠 𝑊) ∧ 𝑠 (𝑃 𝑄) ∧ 𝑃𝑄)) → (𝑠𝐴 ∧ ¬ 𝑠 𝑊))
8 simpr3 1193 . . . 4 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ ((𝑠𝐴 ∧ ¬ 𝑠 𝑊) ∧ 𝑠 (𝑃 𝑄) ∧ 𝑃𝑄)) → 𝑃𝑄)
9 cdlemefs26.b . . . . 5 𝐵 = (Base‘𝐾)
10 cdlemefs26.l . . . . 5 = (le‘𝐾)
11 cdlemefs26.j . . . . 5 = (join‘𝐾)
12 cdlemefs26.m . . . . 5 = (meet‘𝐾)
13 cdlemefs26.a . . . . 5 𝐴 = (Atoms‘𝐾)
14 cdlemefs26.h . . . . 5 𝐻 = (LHyp‘𝐾)
15 cdlemefs27.u . . . . 5 𝑈 = ((𝑃 𝑄) 𝑊)
16 cdlemefs27.d . . . . 5 𝐷 = ((𝑡 𝑈) (𝑄 ((𝑃 𝑡) 𝑊)))
17 cdlemefs27.e . . . . 5 𝐸 = ((𝑃 𝑄) (𝐷 ((𝑠 𝑡) 𝑊)))
18 cdlemefs27.i . . . . 5 𝐼 = (𝑢𝐵𝑡𝐴 ((¬ 𝑡 𝑊 ∧ ¬ 𝑡 (𝑃 𝑄)) → 𝑢 = 𝐸))
199, 10, 11, 12, 13, 14, 15, 16, 17, 18cdleme25cl 37693 . . . 4 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ (𝑠𝐴 ∧ ¬ 𝑠 𝑊) ∧ (𝑃𝑄𝑠 (𝑃 𝑄))) → 𝐼𝐵)
204, 5, 6, 7, 8, 2, 19syl312anc 1388 . . 3 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ ((𝑠𝐴 ∧ ¬ 𝑠 𝑊) ∧ 𝑠 (𝑃 𝑄) ∧ 𝑃𝑄)) → 𝐼𝐵)
213, 20eqeltrd 2890 . 2 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ ((𝑠𝐴 ∧ ¬ 𝑠 𝑊) ∧ 𝑠 (𝑃 𝑄) ∧ 𝑃𝑄)) → if(𝑠 (𝑃 𝑄), 𝐼, 𝐶) ∈ 𝐵)
221, 21eqeltrid 2894 1 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ ((𝑠𝐴 ∧ ¬ 𝑠 𝑊) ∧ 𝑠 (𝑃 𝑄) ∧ 𝑃𝑄)) → 𝑁𝐵)
 Colors of variables: wff setvar class Syntax hints:  ¬ wn 3   → wi 4   ∧ wa 399   ∧ w3a 1084   = wceq 1538   ∈ wcel 2111   ≠ wne 2987  ∀wral 3106  ifcif 4425   class class class wbr 5031  ‘cfv 6327  ℩crio 7097  (class class class)co 7140  Basecbs 16482  lecple 16571  joincjn 17553  meetcmee 17554  Atomscatm 36599  HLchlt 36686  LHypclh 37320 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 1911  ax-6 1970  ax-7 2015  ax-8 2113  ax-9 2121  ax-10 2142  ax-11 2158  ax-12 2175  ax-ext 2770  ax-rep 5155  ax-sep 5168  ax-nul 5175  ax-pow 5232  ax-pr 5296  ax-un 7448 This theorem depends on definitions:  df-bi 210  df-an 400  df-or 845  df-3or 1085  df-3an 1086  df-tru 1541  df-ex 1782  df-nf 1786  df-sb 2070  df-mo 2598  df-eu 2629  df-clab 2777  df-cleq 2791  df-clel 2870  df-nfc 2938  df-ne 2988  df-ral 3111  df-rex 3112  df-reu 3113  df-rmo 3114  df-rab 3115  df-v 3443  df-sbc 3721  df-csb 3829  df-dif 3884  df-un 3886  df-in 3888  df-ss 3898  df-nul 4244  df-if 4426  df-pw 4499  df-sn 4526  df-pr 4528  df-op 4532  df-uni 4802  df-iun 4884  df-iin 4885  df-br 5032  df-opab 5094  df-mpt 5112  df-id 5426  df-xp 5526  df-rel 5527  df-cnv 5528  df-co 5529  df-dm 5530  df-rn 5531  df-res 5532  df-ima 5533  df-iota 6286  df-fun 6329  df-fn 6330  df-f 6331  df-f1 6332  df-fo 6333  df-f1o 6334  df-fv 6335  df-riota 7098  df-ov 7143  df-oprab 7144  df-mpo 7145  df-1st 7678  df-2nd 7679  df-proset 17537  df-poset 17555  df-plt 17567  df-lub 17583  df-glb 17584  df-join 17585  df-meet 17586  df-p0 17648  df-p1 17649  df-lat 17655  df-clat 17717  df-oposet 36512  df-ol 36514  df-oml 36515  df-covers 36602  df-ats 36603  df-atl 36634  df-cvlat 36658  df-hlat 36687  df-llines 36834  df-lplanes 36835  df-lvols 36836  df-lines 36837  df-psubsp 36839  df-pmap 36840  df-padd 37132  df-lhyp 37324 This theorem is referenced by:  cdlemefs29bpre0N  37752  cdlemefs29bpre1N  37753  cdlemefs29cpre1N  37754  cdlemefs29clN  37755  cdlemefs32fvaN  37758  cdlemefs32fva1  37759
 Copyright terms: Public domain W3C validator