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

Theorem cdleme32fvaw 37680
 Description: Show that (𝐹‘𝑅) is an atom not under 𝑊 when 𝑅 is an atom not under 𝑊. (Contributed by NM, 18-Apr-2013.)
Hypotheses
Ref Expression
cdleme32.b 𝐵 = (Base‘𝐾)
cdleme32.l = (le‘𝐾)
cdleme32.j = (join‘𝐾)
cdleme32.m = (meet‘𝐾)
cdleme32.a 𝐴 = (Atoms‘𝐾)
cdleme32.h 𝐻 = (LHyp‘𝐾)
cdleme32.u 𝑈 = ((𝑃 𝑄) 𝑊)
cdleme32.c 𝐶 = ((𝑠 𝑈) (𝑄 ((𝑃 𝑠) 𝑊)))
cdleme32.d 𝐷 = ((𝑡 𝑈) (𝑄 ((𝑃 𝑡) 𝑊)))
cdleme32.e 𝐸 = ((𝑃 𝑄) (𝐷 ((𝑠 𝑡) 𝑊)))
cdleme32.i 𝐼 = (𝑦𝐵𝑡𝐴 ((¬ 𝑡 𝑊 ∧ ¬ 𝑡 (𝑃 𝑄)) → 𝑦 = 𝐸))
cdleme32.n 𝑁 = if(𝑠 (𝑃 𝑄), 𝐼, 𝐶)
cdleme32.o 𝑂 = (𝑧𝐵𝑠𝐴 ((¬ 𝑠 𝑊 ∧ (𝑠 (𝑥 𝑊)) = 𝑥) → 𝑧 = (𝑁 (𝑥 𝑊))))
cdleme32.f 𝐹 = (𝑥𝐵 ↦ if((𝑃𝑄 ∧ ¬ 𝑥 𝑊), 𝑂, 𝑥))
Assertion
Ref Expression
cdleme32fvaw ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ (𝑅𝐴 ∧ ¬ 𝑅 𝑊)) → ((𝐹𝑅) ∈ 𝐴 ∧ ¬ (𝐹𝑅) 𝑊))
Distinct variable groups:   𝑡,𝑠,𝑥,𝑦,𝑧,𝐴   𝐵,𝑠,𝑡,𝑥,𝑦,𝑧   𝑦,𝐶   𝐷,𝑠,𝑦,𝑧   𝑦,𝐸   𝐻,𝑠,𝑡   ,𝑠,𝑡,𝑥,𝑦,𝑧   𝐾,𝑠,𝑡   ,𝑠,𝑡,𝑥,𝑦,𝑧   ,𝑠,𝑡,𝑥,𝑦,𝑧   𝑥,𝑁,𝑧   𝑃,𝑠,𝑡,𝑥,𝑦,𝑧   𝑄,𝑠,𝑡,𝑥,𝑦,𝑧   𝑈,𝑠,𝑡,𝑥,𝑦,𝑧   𝑊,𝑠,𝑡,𝑥,𝑦,𝑧   𝑅,𝑠,𝑡,𝑦   𝑦,𝐻   𝑦,𝐾   𝑥,𝑅,𝑧   𝑧,𝐻   𝑧,𝐾
Allowed substitution hints:   𝐶(𝑥,𝑧,𝑡,𝑠)   𝐷(𝑥,𝑡)   𝐸(𝑥,𝑧,𝑡,𝑠)   𝐹(𝑥,𝑦,𝑧,𝑡,𝑠)   𝐻(𝑥)   𝐼(𝑥,𝑦,𝑧,𝑡,𝑠)   𝐾(𝑥)   𝑁(𝑦,𝑡,𝑠)   𝑂(𝑥,𝑦,𝑧,𝑡,𝑠)

Proof of Theorem cdleme32fvaw
StepHypRef Expression
1 simplr 768 . . 3 (((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ (𝑅𝐴 ∧ ¬ 𝑅 𝑊)) ∧ 𝑃 = 𝑄) → (𝑅𝐴 ∧ ¬ 𝑅 𝑊))
2 cdleme32.b . . . . . . . 8 𝐵 = (Base‘𝐾)
3 cdleme32.a . . . . . . . 8 𝐴 = (Atoms‘𝐾)
42, 3atbase 36530 . . . . . . 7 (𝑅𝐴𝑅𝐵)
54ad2antrl 727 . . . . . 6 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ (𝑅𝐴 ∧ ¬ 𝑅 𝑊)) → 𝑅𝐵)
6 cdleme32.f . . . . . . 7 𝐹 = (𝑥𝐵 ↦ if((𝑃𝑄 ∧ ¬ 𝑥 𝑊), 𝑂, 𝑥))
76cdleme31id 37635 . . . . . 6 ((𝑅𝐵𝑃 = 𝑄) → (𝐹𝑅) = 𝑅)
85, 7sylan 583 . . . . 5 (((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ (𝑅𝐴 ∧ ¬ 𝑅 𝑊)) ∧ 𝑃 = 𝑄) → (𝐹𝑅) = 𝑅)
98eleq1d 2900 . . . 4 (((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ (𝑅𝐴 ∧ ¬ 𝑅 𝑊)) ∧ 𝑃 = 𝑄) → ((𝐹𝑅) ∈ 𝐴𝑅𝐴))
108breq1d 5062 . . . . 5 (((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ (𝑅𝐴 ∧ ¬ 𝑅 𝑊)) ∧ 𝑃 = 𝑄) → ((𝐹𝑅) 𝑊𝑅 𝑊))
1110notbid 321 . . . 4 (((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ (𝑅𝐴 ∧ ¬ 𝑅 𝑊)) ∧ 𝑃 = 𝑄) → (¬ (𝐹𝑅) 𝑊 ↔ ¬ 𝑅 𝑊))
129, 11anbi12d 633 . . 3 (((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ (𝑅𝐴 ∧ ¬ 𝑅 𝑊)) ∧ 𝑃 = 𝑄) → (((𝐹𝑅) ∈ 𝐴 ∧ ¬ (𝐹𝑅) 𝑊) ↔ (𝑅𝐴 ∧ ¬ 𝑅 𝑊)))
131, 12mpbird 260 . 2 (((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ (𝑅𝐴 ∧ ¬ 𝑅 𝑊)) ∧ 𝑃 = 𝑄) → ((𝐹𝑅) ∈ 𝐴 ∧ ¬ (𝐹𝑅) 𝑊))
14 simp1 1133 . . . . 5 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ (𝑅𝐴 ∧ ¬ 𝑅 𝑊) ∧ 𝑃𝑄) → ((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)))
15 simp3 1135 . . . . 5 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ (𝑅𝐴 ∧ ¬ 𝑅 𝑊) ∧ 𝑃𝑄) → 𝑃𝑄)
16 simp2 1134 . . . . 5 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ (𝑅𝐴 ∧ ¬ 𝑅 𝑊) ∧ 𝑃𝑄) → (𝑅𝐴 ∧ ¬ 𝑅 𝑊))
17 cdleme32.l . . . . . 6 = (le‘𝐾)
18 cdleme32.j . . . . . 6 = (join‘𝐾)
19 cdleme32.m . . . . . 6 = (meet‘𝐾)
20 cdleme32.h . . . . . 6 𝐻 = (LHyp‘𝐾)
21 cdleme32.u . . . . . 6 𝑈 = ((𝑃 𝑄) 𝑊)
22 cdleme32.c . . . . . 6 𝐶 = ((𝑠 𝑈) (𝑄 ((𝑃 𝑠) 𝑊)))
23 cdleme32.d . . . . . 6 𝐷 = ((𝑡 𝑈) (𝑄 ((𝑃 𝑡) 𝑊)))
24 cdleme32.e . . . . . 6 𝐸 = ((𝑃 𝑄) (𝐷 ((𝑠 𝑡) 𝑊)))
25 cdleme32.i . . . . . 6 𝐼 = (𝑦𝐵𝑡𝐴 ((¬ 𝑡 𝑊 ∧ ¬ 𝑡 (𝑃 𝑄)) → 𝑦 = 𝐸))
26 cdleme32.n . . . . . 6 𝑁 = if(𝑠 (𝑃 𝑄), 𝐼, 𝐶)
272, 17, 18, 19, 3, 20, 21, 22, 23, 24, 25, 26cdleme32snaw 37676 . . . . 5 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ (𝑃𝑄 ∧ (𝑅𝐴 ∧ ¬ 𝑅 𝑊))) → (𝑅 / 𝑠𝑁𝐴 ∧ ¬ 𝑅 / 𝑠𝑁 𝑊))
2814, 15, 16, 27syl12anc 835 . . . 4 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ (𝑅𝐴 ∧ ¬ 𝑅 𝑊) ∧ 𝑃𝑄) → (𝑅 / 𝑠𝑁𝐴 ∧ ¬ 𝑅 / 𝑠𝑁 𝑊))
29 cdleme32.o . . . . . . 7 𝑂 = (𝑧𝐵𝑠𝐴 ((¬ 𝑠 𝑊 ∧ (𝑠 (𝑥 𝑊)) = 𝑥) → 𝑧 = (𝑁 (𝑥 𝑊))))
302, 17, 18, 19, 3, 20, 21, 22, 23, 24, 25, 26, 29, 6cdleme32fva1 37679 . . . . . 6 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ (𝑅𝐴 ∧ ¬ 𝑅 𝑊) ∧ 𝑃𝑄) → (𝐹𝑅) = 𝑅 / 𝑠𝑁)
3130eleq1d 2900 . . . . 5 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ (𝑅𝐴 ∧ ¬ 𝑅 𝑊) ∧ 𝑃𝑄) → ((𝐹𝑅) ∈ 𝐴𝑅 / 𝑠𝑁𝐴))
3230breq1d 5062 . . . . . 6 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ (𝑅𝐴 ∧ ¬ 𝑅 𝑊) ∧ 𝑃𝑄) → ((𝐹𝑅) 𝑊𝑅 / 𝑠𝑁 𝑊))
3332notbid 321 . . . . 5 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ (𝑅𝐴 ∧ ¬ 𝑅 𝑊) ∧ 𝑃𝑄) → (¬ (𝐹𝑅) 𝑊 ↔ ¬ 𝑅 / 𝑠𝑁 𝑊))
3431, 33anbi12d 633 . . . 4 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ (𝑅𝐴 ∧ ¬ 𝑅 𝑊) ∧ 𝑃𝑄) → (((𝐹𝑅) ∈ 𝐴 ∧ ¬ (𝐹𝑅) 𝑊) ↔ (𝑅 / 𝑠𝑁𝐴 ∧ ¬ 𝑅 / 𝑠𝑁 𝑊)))
3528, 34mpbird 260 . . 3 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ (𝑅𝐴 ∧ ¬ 𝑅 𝑊) ∧ 𝑃𝑄) → ((𝐹𝑅) ∈ 𝐴 ∧ ¬ (𝐹𝑅) 𝑊))
36353expa 1115 . 2 (((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ (𝑅𝐴 ∧ ¬ 𝑅 𝑊)) ∧ 𝑃𝑄) → ((𝐹𝑅) ∈ 𝐴 ∧ ¬ (𝐹𝑅) 𝑊))
3713, 36pm2.61dane 3101 1 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ (𝑅𝐴 ∧ ¬ 𝑅 𝑊)) → ((𝐹𝑅) ∈ 𝐴 ∧ ¬ (𝐹𝑅) 𝑊))
 Colors of variables: wff setvar class Syntax hints:  ¬ wn 3   → wi 4   ∧ wa 399   ∧ w3a 1084   = wceq 1538   ∈ wcel 2115   ≠ wne 3014  ∀wral 3133  ⦋csb 3866  ifcif 4450   class class class wbr 5052   ↦ cmpt 5132  ‘cfv 6343  ℩crio 7106  (class class class)co 7149  Basecbs 16483  lecple 16572  joincjn 17554  meetcmee 17555  Atomscatm 36504  HLchlt 36591  LHypclh 37225 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 1912  ax-6 1971  ax-7 2016  ax-8 2117  ax-9 2125  ax-10 2146  ax-11 2162  ax-12 2179  ax-ext 2796  ax-rep 5176  ax-sep 5189  ax-nul 5196  ax-pow 5253  ax-pr 5317  ax-un 7455  ax-riotaBAD 36194 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 2071  df-mo 2624  df-eu 2655  df-clab 2803  df-cleq 2817  df-clel 2896  df-nfc 2964  df-ne 3015  df-ral 3138  df-rex 3139  df-reu 3140  df-rmo 3141  df-rab 3142  df-v 3482  df-sbc 3759  df-csb 3867  df-dif 3922  df-un 3924  df-in 3926  df-ss 3936  df-nul 4277  df-if 4451  df-pw 4524  df-sn 4551  df-pr 4553  df-op 4557  df-uni 4825  df-iun 4907  df-iin 4908  df-br 5053  df-opab 5115  df-mpt 5133  df-id 5447  df-xp 5548  df-rel 5549  df-cnv 5550  df-co 5551  df-dm 5552  df-rn 5553  df-res 5554  df-ima 5555  df-iota 6302  df-fun 6345  df-fn 6346  df-f 6347  df-f1 6348  df-fo 6349  df-f1o 6350  df-fv 6351  df-riota 7107  df-ov 7152  df-oprab 7153  df-mpo 7154  df-1st 7684  df-2nd 7685  df-undef 7935  df-proset 17538  df-poset 17556  df-plt 17568  df-lub 17584  df-glb 17585  df-join 17586  df-meet 17587  df-p0 17649  df-p1 17650  df-lat 17656  df-clat 17718  df-oposet 36417  df-ol 36419  df-oml 36420  df-covers 36507  df-ats 36508  df-atl 36539  df-cvlat 36563  df-hlat 36592  df-llines 36739  df-lplanes 36740  df-lvols 36741  df-lines 36742  df-psubsp 36744  df-pmap 36745  df-padd 37037  df-lhyp 37229 This theorem is referenced by:  cdleme42k  37725  cdleme42ke  37726  cdleme46fvaw  37742
 Copyright terms: Public domain W3C validator