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

Theorem cdleme42keg 41457
Description: Part of proof of Lemma E in [Crawley] p. 113. Remove 𝑃𝑄 condition. TODO: FIX COMMENT. TODO: Use instead of cdleme42ke 41456 and even combine with it? (Contributed by NM, 22-Apr-2013.)
Hypotheses
Ref Expression
cdleme41.b 𝐵 = (Base‘𝐾)
cdleme41.l = (le‘𝐾)
cdleme41.j = (join‘𝐾)
cdleme41.m = (meet‘𝐾)
cdleme41.a 𝐴 = (Atoms‘𝐾)
cdleme41.h 𝐻 = (LHyp‘𝐾)
cdleme41.u 𝑈 = ((𝑃 𝑄) 𝑊)
cdleme41.d 𝐷 = ((𝑠 𝑈) (𝑄 ((𝑃 𝑠) 𝑊)))
cdleme41.e 𝐸 = ((𝑡 𝑈) (𝑄 ((𝑃 𝑡) 𝑊)))
cdleme41.g 𝐺 = ((𝑃 𝑄) (𝐸 ((𝑠 𝑡) 𝑊)))
cdleme41.i 𝐼 = (𝑦𝐵𝑡𝐴 ((¬ 𝑡 𝑊 ∧ ¬ 𝑡 (𝑃 𝑄)) → 𝑦 = 𝐺))
cdleme41.n 𝑁 = if(𝑠 (𝑃 𝑄), 𝐼, 𝐷)
cdleme41.o 𝑂 = (𝑧𝐵𝑠𝐴 ((¬ 𝑠 𝑊 ∧ (𝑠 (𝑥 𝑊)) = 𝑥) → 𝑧 = (𝑁 (𝑥 𝑊))))
cdleme41.f 𝐹 = (𝑥𝐵 ↦ if((𝑃𝑄 ∧ ¬ 𝑥 𝑊), 𝑂, 𝑥))
cdleme34e.v 𝑉 = ((𝑅 𝑆) 𝑊)
Assertion
Ref Expression
cdleme42keg ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ ((𝑅𝐴 ∧ ¬ 𝑅 𝑊) ∧ (𝑆𝐴 ∧ ¬ 𝑆 𝑊))) → ((𝐹𝑅) (𝐹𝑆)) = ((𝐹𝑅) 𝑉))
Distinct variable groups:   𝐴,𝑠   ,𝑠   ,𝑠   ,𝑠   𝑃,𝑠   𝑄,𝑠   𝑅,𝑠   𝑆,𝑠   𝑈,𝑠   𝑊,𝑠   𝑦,𝑡,𝐴,𝑠   𝐵,𝑠,𝑡,𝑦   𝑦,𝐷   𝑦,𝐺   𝐸,𝑠,𝑦   𝐻,𝑠,𝑡,𝑦   𝑡, ,𝑦   𝐾,𝑠,𝑡,𝑦   𝑡, ,𝑦   𝑡, ,𝑦   𝑡,𝑃,𝑦   𝑡,𝑄,𝑦   𝑡,𝑅,𝑦   𝑡,𝑆,𝑦   𝑡,𝑈,𝑦   𝑡,𝑊,𝑦   𝑥,𝑧,𝐴   𝑥,𝐵,𝑧   𝑧,𝐸,𝑠   𝑧,𝐻   𝑥, ,𝑧   𝑧,𝐾   𝑥, ,𝑧   𝑥, ,𝑧   𝑥,𝑁,𝑧   𝑥,𝑃,𝑧   𝑥,𝑄,𝑧   𝑥,𝑅,𝑧   𝑥,𝑆,𝑧   𝑥,𝑈,𝑧   𝑥,𝑊,𝑧,𝑠,𝑡,𝑦   𝑉,𝑠,𝑡,𝑥,𝑧
Allowed substitution hints:   𝐷(𝑥, 𝑧, 𝑡, 𝑠)   𝐸(𝑥, 𝑡)   𝐹(𝑥, 𝑦, 𝑧, 𝑡, 𝑠)   𝐺(𝑥, 𝑧, 𝑡, 𝑠)   𝐻(𝑥)   𝐼(𝑥, 𝑦, 𝑧, 𝑡, 𝑠)   𝐾(𝑥)   𝑁(𝑦, 𝑡, 𝑠)   𝑂(𝑥, 𝑦, 𝑧, 𝑡, 𝑠)   𝑉(𝑦)

Proof of Theorem cdleme42keg
StepHypRef Expression
1 simpll1 1231 . . . 4 (((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ ((𝑅𝐴 ∧ ¬ 𝑅 𝑊) ∧ (𝑆𝐴 ∧ ¬ 𝑆 𝑊))) ∧ 𝑃 = 𝑄) → (𝐾 ∈ HL ∧ 𝑊𝐻))
2 simplrl 789 . . . 4 (((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ ((𝑅𝐴 ∧ ¬ 𝑅 𝑊) ∧ (𝑆𝐴 ∧ ¬ 𝑆 𝑊))) ∧ 𝑃 = 𝑄) → (𝑅𝐴 ∧ ¬ 𝑅 𝑊))
3 simplrr 790 . . . 4 (((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ ((𝑅𝐴 ∧ ¬ 𝑅 𝑊) ∧ (𝑆𝐴 ∧ ¬ 𝑆 𝑊))) ∧ 𝑃 = 𝑄) → (𝑆𝐴 ∧ ¬ 𝑆 𝑊))
4 cdleme41.b . . . . 5 𝐵 = (Base‘𝐾)
5 cdleme41.l . . . . 5 = (le‘𝐾)
6 cdleme41.j . . . . 5 = (join‘𝐾)
7 cdleme41.m . . . . 5 = (meet‘𝐾)
8 cdleme41.a . . . . 5 𝐴 = (Atoms‘𝐾)
9 cdleme41.h . . . . 5 𝐻 = (LHyp‘𝐾)
10 cdleme34e.v . . . . 5 𝑉 = ((𝑅 𝑆) 𝑊)
114, 5, 6, 7, 8, 9, 10cdleme42a 41442 . . . 4 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑅𝐴 ∧ ¬ 𝑅 𝑊) ∧ (𝑆𝐴 ∧ ¬ 𝑆 𝑊)) → (𝑅 𝑆) = (𝑅 𝑉))
121, 2, 3, 11syl3anc 1398 . . 3 (((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ ((𝑅𝐴 ∧ ¬ 𝑅 𝑊) ∧ (𝑆𝐴 ∧ ¬ 𝑆 𝑊))) ∧ 𝑃 = 𝑄) → (𝑅 𝑆) = (𝑅 𝑉))
13 simprll 791 . . . . . 6 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ ((𝑅𝐴 ∧ ¬ 𝑅 𝑊) ∧ (𝑆𝐴 ∧ ¬ 𝑆 𝑊))) → 𝑅𝐴)
144, 8atbase 40260 . . . . . 6 (𝑅𝐴𝑅𝐵)
1513, 14syl 18 . . . . 5 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ ((𝑅𝐴 ∧ ¬ 𝑅 𝑊) ∧ (𝑆𝐴 ∧ ¬ 𝑆 𝑊))) → 𝑅𝐵)
16 cdleme41.f . . . . . 6 𝐹 = (𝑥𝐵 ↦ if((𝑃𝑄 ∧ ¬ 𝑥 𝑊), 𝑂, 𝑥))
1716cdleme31id 41365 . . . . 5 ((𝑅𝐵𝑃 = 𝑄) → (𝐹𝑅) = 𝑅)
1815, 17sylan 592 . . . 4 (((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ ((𝑅𝐴 ∧ ¬ 𝑅 𝑊) ∧ (𝑆𝐴 ∧ ¬ 𝑆 𝑊))) ∧ 𝑃 = 𝑄) → (𝐹𝑅) = 𝑅)
19 simprrl 793 . . . . . 6 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ ((𝑅𝐴 ∧ ¬ 𝑅 𝑊) ∧ (𝑆𝐴 ∧ ¬ 𝑆 𝑊))) → 𝑆𝐴)
204, 8atbase 40260 . . . . . 6 (𝑆𝐴𝑆𝐵)
2119, 20syl 18 . . . . 5 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ ((𝑅𝐴 ∧ ¬ 𝑅 𝑊) ∧ (𝑆𝐴 ∧ ¬ 𝑆 𝑊))) → 𝑆𝐵)
2216cdleme31id 41365 . . . . 5 ((𝑆𝐵𝑃 = 𝑄) → (𝐹𝑆) = 𝑆)
2321, 22sylan 592 . . . 4 (((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ ((𝑅𝐴 ∧ ¬ 𝑅 𝑊) ∧ (𝑆𝐴 ∧ ¬ 𝑆 𝑊))) ∧ 𝑃 = 𝑄) → (𝐹𝑆) = 𝑆)
2418, 23oveq12d 7427 . . 3 (((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ ((𝑅𝐴 ∧ ¬ 𝑅 𝑊) ∧ (𝑆𝐴 ∧ ¬ 𝑆 𝑊))) ∧ 𝑃 = 𝑄) → ((𝐹𝑅) (𝐹𝑆)) = (𝑅 𝑆))
2518oveq1d 7424 . . 3 (((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ ((𝑅𝐴 ∧ ¬ 𝑅 𝑊) ∧ (𝑆𝐴 ∧ ¬ 𝑆 𝑊))) ∧ 𝑃 = 𝑄) → ((𝐹𝑅) 𝑉) = (𝑅 𝑉))
2612, 24, 253eqtr4d 2805 . 2 (((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ ((𝑅𝐴 ∧ ¬ 𝑅 𝑊) ∧ (𝑆𝐴 ∧ ¬ 𝑆 𝑊))) ∧ 𝑃 = 𝑄) → ((𝐹𝑅) (𝐹𝑆)) = ((𝐹𝑅) 𝑉))
27 simpll 779 . . 3 (((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ ((𝑅𝐴 ∧ ¬ 𝑅 𝑊) ∧ (𝑆𝐴 ∧ ¬ 𝑆 𝑊))) ∧ 𝑃𝑄) → ((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)))
28 simpr 490 . . 3 (((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ ((𝑅𝐴 ∧ ¬ 𝑅 𝑊) ∧ (𝑆𝐴 ∧ ¬ 𝑆 𝑊))) ∧ 𝑃𝑄) → 𝑃𝑄)
29 simplrl 789 . . 3 (((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ ((𝑅𝐴 ∧ ¬ 𝑅 𝑊) ∧ (𝑆𝐴 ∧ ¬ 𝑆 𝑊))) ∧ 𝑃𝑄) → (𝑅𝐴 ∧ ¬ 𝑅 𝑊))
30 simplrr 790 . . 3 (((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ ((𝑅𝐴 ∧ ¬ 𝑅 𝑊) ∧ (𝑆𝐴 ∧ ¬ 𝑆 𝑊))) ∧ 𝑃𝑄) → (𝑆𝐴 ∧ ¬ 𝑆 𝑊))
31 cdleme41.u . . . 4 𝑈 = ((𝑃 𝑄) 𝑊)
32 cdleme41.d . . . 4 𝐷 = ((𝑠 𝑈) (𝑄 ((𝑃 𝑠) 𝑊)))
33 cdleme41.e . . . 4 𝐸 = ((𝑡 𝑈) (𝑄 ((𝑃 𝑡) 𝑊)))
34 cdleme41.g . . . 4 𝐺 = ((𝑃 𝑄) (𝐸 ((𝑠 𝑡) 𝑊)))
35 cdleme41.i . . . 4 𝐼 = (𝑦𝐵𝑡𝐴 ((¬ 𝑡 𝑊 ∧ ¬ 𝑡 (𝑃 𝑄)) → 𝑦 = 𝐺))
36 cdleme41.n . . . 4 𝑁 = if(𝑠 (𝑃 𝑄), 𝐼, 𝐷)
37 cdleme41.o . . . 4 𝑂 = (𝑧𝐵𝑠𝐴 ((¬ 𝑠 𝑊 ∧ (𝑠 (𝑥 𝑊)) = 𝑥) → 𝑧 = (𝑁 (𝑥 𝑊))))
384, 5, 6, 7, 8, 9, 31, 32, 33, 34, 35, 36, 37, 16, 10cdleme42ke 41456 . . 3 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ (𝑃𝑄 ∧ (𝑅𝐴 ∧ ¬ 𝑅 𝑊) ∧ (𝑆𝐴 ∧ ¬ 𝑆 𝑊))) → ((𝐹𝑅) (𝐹𝑆)) = ((𝐹𝑅) 𝑉))
3927, 28, 29, 30, 38syl13anc 1399 . 2 (((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ ((𝑅𝐴 ∧ ¬ 𝑅 𝑊) ∧ (𝑆𝐴 ∧ ¬ 𝑆 𝑊))) ∧ 𝑃𝑄) → ((𝐹𝑅) (𝐹𝑆)) = ((𝐹𝑅) 𝑉))
4026, 39pm2.61dane 3042 1 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ ((𝑅𝐴 ∧ ¬ 𝑅 𝑊) ∧ (𝑆𝐴 ∧ ¬ 𝑆 𝑊))) → ((𝐹𝑅) (𝐹𝑆)) = ((𝐹𝑅) 𝑉))
Colors of variables:    wff setvar class
This proof depends on syntax axioms:  ¬ wn 3  wi 4  wa 401  w3a 1103   = wceq 1570  wcel 2145  wne 2955  wral 3076  ifcif 4482   class class class wbr 5103  cmpt 5186  cfv 6528  crio 7365  (class class class)co 7409  Basecbs 17334  lecple 17382  joincjn 18432  meetcmee 18433  Atomscatm 40234  HLchlt 40321  LHypclh 40955
This proof depends on axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1828  ax-4 1842  ax-5 1943  ax-6 2000  ax-7 2041  ax-8 2147  ax-9 2155  ax-10 2178  ax-11 2194  ax-12 2213  ax-ext 2732  ax-rep 5232  ax-sep 5249  ax-nul 5260  ax-pow 5327  ax-pr 5391  ax-un 7735  ax-riotaBAD 39924
This proof depends on definitions:  df-bi 210  df-an 402  df-or 862  df-3or 1104  df-3an 1105  df-tru 1573  df-fal 1583  df-ex 1813  df-nf 1817  df-sb 2100  df-mo 2564  df-eu 2594  df-clab 2739  df-cleq 2752  df-clel 2835  df-nfc 2909  df-ne 2956  df-ral 3077  df-rex 3087  df-rmo 3365  df-reu 3366  df-rab 3413  df-v 3452  df-sbc 3740  df-csb 3848  df-dif 3902  df-un 3904  df-in 3906  df-ss 3916  df-nul 4280  df-if 4483  df-pw 4559  df-sn 4585  df-pr 4587  df-op 4591  df-uni 4868  df-iun 4953  df-iin 4954  df-br 5104  df-opab 5168  df-mpt 5187  df-id 5543  df-xp 5654  df-rel 5655  df-cnv 5656  df-co 5657  df-dm 5658  df-rn 5659  df-res 5660  df-ima 5661  df-iota 6484  df-fun 6530  df-fn 6531  df-f 6532  df-f1 6533  df-fo 6534  df-f1o 6535  df-fv 6536  df-riota 7366  df-ov 7412  df-oprab 7413  df-mpo 7414  df-1st 7985  df-2nd 7986  df-undef 8269  df-proset 18415  df-poset 18434  df-plt 18449  df-lub 18465  df-glb 18466  df-join 18467  df-meet 18468  df-p0 18544  df-p1 18545  df-lat 18553  df-clat 18620  df-oposet 40147  df-ol 40149  df-oml 40150  df-covers 40237  df-ats 40238  df-atl 40269  df-cvlat 40293  df-hlat 40322  df-llines 40469  df-lplanes 40470  df-lvols 40471  df-lines 40472  df-psubsp 40474  df-pmap 40475  df-padd 40767  df-lhyp 40959
This theorem is used by:  cdlemg2klem  41566
  Copyright terms: Public domain W3C validator