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

Theorem cdlemk43N 41662
Description: Part of proof of Lemma K of [Crawley] p. 118. TODO: fix comment. (Contributed by NM, 31-Jul-2013.) (New usage is discouraged.)
Hypotheses
Ref Expression
cdlemk5.b 𝐵 = (Base‘𝐾)
cdlemk5.l = (le‘𝐾)
cdlemk5.j = (join‘𝐾)
cdlemk5.m = (meet‘𝐾)
cdlemk5.a 𝐴 = (Atoms‘𝐾)
cdlemk5.h 𝐻 = (LHyp‘𝐾)
cdlemk5.t 𝑇 = ((LTrn‘𝐾)‘𝑊)
cdlemk5.r 𝑅 = ((trL‘𝐾)‘𝑊)
cdlemk5.z 𝑍 = ((𝑃 (𝑅𝑏)) ((𝑁𝑃) (𝑅‘(𝑏𝐹))))
cdlemk5.y 𝑌 = ((𝑃 (𝑅𝑔)) (𝑍 (𝑅‘(𝑔𝑏))))
cdlemk5.x 𝑋 = (𝑧𝑇𝑏𝑇 ((𝑏 ≠ ( I ↾ 𝐵) ∧ (𝑅𝑏) ≠ (𝑅𝐹) ∧ (𝑅𝑏) ≠ (𝑅𝑔)) → (𝑧𝑃) = 𝑌))
cdlemk5.u 𝑈 = (𝑔𝑇 ↦ if(𝐹 = 𝑁, 𝑔, 𝑋))
Assertion
Ref Expression
cdlemk43N ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑅𝐹) = (𝑅𝑁)) ∧ ((𝐹𝑇𝑁𝑇𝐹𝑁) ∧ (𝐺𝑇𝐺 ≠ ( I ↾ 𝐵)) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊)) ∧ (𝑏𝑇 ∧ (𝑏 ≠ ( I ↾ 𝐵) ∧ (𝑅𝑏) ≠ (𝑅𝐹) ∧ (𝑅𝑏) ≠ (𝑅𝐺)))) → ((𝑈𝐺)‘𝑃) = 𝐺 / 𝑔𝑌)
Distinct variable groups:   ,𝑔   ,𝑔   𝐵,𝑔   𝑃,𝑔   𝑅,𝑔   𝑇,𝑔   𝑔,𝑍   𝑔,𝑏,𝐺,𝑧   ,𝑏,𝑧   ,𝑏   𝑧,𝑔,   ,𝑏,𝑧   𝐴,𝑏,𝑔,𝑧   𝐵,𝑏,𝑧   𝐹,𝑏,𝑔,𝑧   𝑧,𝐺   𝐻,𝑏,𝑔,𝑧   𝐾,𝑏,𝑔,𝑧   𝑁,𝑏,𝑔,𝑧   𝑃,𝑏,𝑧   𝑅,𝑏,𝑧   𝑇,𝑏,𝑧   𝑊,𝑏,𝑔,𝑧   𝑧,𝑌   𝐺,𝑏
Allowed substitution hints:   𝑈(𝑧,𝑔,𝑏)   𝑋(𝑧,𝑔,𝑏)   𝑌(𝑔,𝑏)   𝑍(𝑧,𝑏)

Proof of Theorem cdlemk43N
StepHypRef Expression
1 simp213 1330 . . . 4 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑅𝐹) = (𝑅𝑁)) ∧ ((𝐹𝑇𝑁𝑇𝐹𝑁) ∧ (𝐺𝑇𝐺 ≠ ( I ↾ 𝐵)) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊)) ∧ (𝑏𝑇 ∧ (𝑏 ≠ ( I ↾ 𝐵) ∧ (𝑅𝑏) ≠ (𝑅𝐹) ∧ (𝑅𝑏) ≠ (𝑅𝐺)))) → 𝐹𝑁)
2 simp22l 1309 . . . 4 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑅𝐹) = (𝑅𝑁)) ∧ ((𝐹𝑇𝑁𝑇𝐹𝑁) ∧ (𝐺𝑇𝐺 ≠ ( I ↾ 𝐵)) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊)) ∧ (𝑏𝑇 ∧ (𝑏 ≠ ( I ↾ 𝐵) ∧ (𝑅𝑏) ≠ (𝑅𝐹) ∧ (𝑅𝑏) ≠ (𝑅𝐺)))) → 𝐺𝑇)
3 cdlemk5.x . . . . 5 𝑋 = (𝑧𝑇𝑏𝑇 ((𝑏 ≠ ( I ↾ 𝐵) ∧ (𝑅𝑏) ≠ (𝑅𝐹) ∧ (𝑅𝑏) ≠ (𝑅𝑔)) → (𝑧𝑃) = 𝑌))
4 cdlemk5.u . . . . 5 𝑈 = (𝑔𝑇 ↦ if(𝐹 = 𝑁, 𝑔, 𝑋))
53, 4cdlemk40f 41618 . . . 4 ((𝐹𝑁𝐺𝑇) → (𝑈𝐺) = 𝐺 / 𝑔𝑋)
61, 2, 5syl2anc 595 . . 3 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑅𝐹) = (𝑅𝑁)) ∧ ((𝐹𝑇𝑁𝑇𝐹𝑁) ∧ (𝐺𝑇𝐺 ≠ ( I ↾ 𝐵)) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊)) ∧ (𝑏𝑇 ∧ (𝑏 ≠ ( I ↾ 𝐵) ∧ (𝑅𝑏) ≠ (𝑅𝐹) ∧ (𝑅𝑏) ≠ (𝑅𝐺)))) → (𝑈𝐺) = 𝐺 / 𝑔𝑋)
76fveq1d 6884 . 2 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑅𝐹) = (𝑅𝑁)) ∧ ((𝐹𝑇𝑁𝑇𝐹𝑁) ∧ (𝐺𝑇𝐺 ≠ ( I ↾ 𝐵)) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊)) ∧ (𝑏𝑇 ∧ (𝑏 ≠ ( I ↾ 𝐵) ∧ (𝑅𝑏) ≠ (𝑅𝐹) ∧ (𝑅𝑏) ≠ (𝑅𝐺)))) → ((𝑈𝐺)‘𝑃) = (𝐺 / 𝑔𝑋𝑃))
8 simp1l 1214 . . 3 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑅𝐹) = (𝑅𝑁)) ∧ ((𝐹𝑇𝑁𝑇𝐹𝑁) ∧ (𝐺𝑇𝐺 ≠ ( I ↾ 𝐵)) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊)) ∧ (𝑏𝑇 ∧ (𝑏 ≠ ( I ↾ 𝐵) ∧ (𝑅𝑏) ≠ (𝑅𝐹) ∧ (𝑅𝑏) ≠ (𝑅𝐺)))) → (𝐾 ∈ HL ∧ 𝑊𝐻))
9 simp211 1328 . . . 4 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑅𝐹) = (𝑅𝑁)) ∧ ((𝐹𝑇𝑁𝑇𝐹𝑁) ∧ (𝐺𝑇𝐺 ≠ ( I ↾ 𝐵)) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊)) ∧ (𝑏𝑇 ∧ (𝑏 ≠ ( I ↾ 𝐵) ∧ (𝑅𝑏) ≠ (𝑅𝐹) ∧ (𝑅𝑏) ≠ (𝑅𝐺)))) → 𝐹𝑇)
10 simp212 1329 . . . . 5 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑅𝐹) = (𝑅𝑁)) ∧ ((𝐹𝑇𝑁𝑇𝐹𝑁) ∧ (𝐺𝑇𝐺 ≠ ( I ↾ 𝐵)) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊)) ∧ (𝑏𝑇 ∧ (𝑏 ≠ ( I ↾ 𝐵) ∧ (𝑅𝑏) ≠ (𝑅𝐹) ∧ (𝑅𝑏) ≠ (𝑅𝐺)))) → 𝑁𝑇)
11 simp1r 1215 . . . . 5 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑅𝐹) = (𝑅𝑁)) ∧ ((𝐹𝑇𝑁𝑇𝐹𝑁) ∧ (𝐺𝑇𝐺 ≠ ( I ↾ 𝐵)) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊)) ∧ (𝑏𝑇 ∧ (𝑏 ≠ ( I ↾ 𝐵) ∧ (𝑅𝑏) ≠ (𝑅𝐹) ∧ (𝑅𝑏) ≠ (𝑅𝐺)))) → (𝑅𝐹) = (𝑅𝑁))
12 cdlemk5.b . . . . . 6 𝐵 = (Base‘𝐾)
13 cdlemk5.h . . . . . 6 𝐻 = (LHyp‘𝐾)
14 cdlemk5.t . . . . . 6 𝑇 = ((LTrn‘𝐾)‘𝑊)
15 cdlemk5.r . . . . . 6 𝑅 = ((trL‘𝐾)‘𝑊)
1612, 13, 14, 15trlnid 40878 . . . . 5 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝐹𝑇𝑁𝑇) ∧ (𝐹𝑁 ∧ (𝑅𝐹) = (𝑅𝑁))) → 𝐹 ≠ ( I ↾ 𝐵))
178, 9, 10, 1, 11, 16syl122anc 1404 . . . 4 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑅𝐹) = (𝑅𝑁)) ∧ ((𝐹𝑇𝑁𝑇𝐹𝑁) ∧ (𝐺𝑇𝐺 ≠ ( I ↾ 𝐵)) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊)) ∧ (𝑏𝑇 ∧ (𝑏 ≠ ( I ↾ 𝐵) ∧ (𝑅𝑏) ≠ (𝑅𝐹) ∧ (𝑅𝑏) ≠ (𝑅𝐺)))) → 𝐹 ≠ ( I ↾ 𝐵))
189, 17jca 520 . . 3 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑅𝐹) = (𝑅𝑁)) ∧ ((𝐹𝑇𝑁𝑇𝐹𝑁) ∧ (𝐺𝑇𝐺 ≠ ( I ↾ 𝐵)) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊)) ∧ (𝑏𝑇 ∧ (𝑏 ≠ ( I ↾ 𝐵) ∧ (𝑅𝑏) ≠ (𝑅𝐹) ∧ (𝑅𝑏) ≠ (𝑅𝐺)))) → (𝐹𝑇𝐹 ≠ ( I ↾ 𝐵)))
19 simp22 1224 . . 3 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑅𝐹) = (𝑅𝑁)) ∧ ((𝐹𝑇𝑁𝑇𝐹𝑁) ∧ (𝐺𝑇𝐺 ≠ ( I ↾ 𝐵)) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊)) ∧ (𝑏𝑇 ∧ (𝑏 ≠ ( I ↾ 𝐵) ∧ (𝑅𝑏) ≠ (𝑅𝐹) ∧ (𝑅𝑏) ≠ (𝑅𝐺)))) → (𝐺𝑇𝐺 ≠ ( I ↾ 𝐵)))
20 simp23 1225 . . 3 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑅𝐹) = (𝑅𝑁)) ∧ ((𝐹𝑇𝑁𝑇𝐹𝑁) ∧ (𝐺𝑇𝐺 ≠ ( I ↾ 𝐵)) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊)) ∧ (𝑏𝑇 ∧ (𝑏 ≠ ( I ↾ 𝐵) ∧ (𝑅𝑏) ≠ (𝑅𝐹) ∧ (𝑅𝑏) ≠ (𝑅𝐺)))) → (𝑃𝐴 ∧ ¬ 𝑃 𝑊))
21 simp3 1154 . . 3 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑅𝐹) = (𝑅𝑁)) ∧ ((𝐹𝑇𝑁𝑇𝐹𝑁) ∧ (𝐺𝑇𝐺 ≠ ( I ↾ 𝐵)) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊)) ∧ (𝑏𝑇 ∧ (𝑏 ≠ ( I ↾ 𝐵) ∧ (𝑅𝑏) ≠ (𝑅𝐹) ∧ (𝑅𝑏) ≠ (𝑅𝐺)))) → (𝑏𝑇 ∧ (𝑏 ≠ ( I ↾ 𝐵) ∧ (𝑅𝑏) ≠ (𝑅𝐹) ∧ (𝑅𝑏) ≠ (𝑅𝐺))))
22 cdlemk5.l . . . 4 = (le‘𝐾)
23 cdlemk5.j . . . 4 = (join‘𝐾)
24 cdlemk5.m . . . 4 = (meet‘𝐾)
25 cdlemk5.a . . . 4 𝐴 = (Atoms‘𝐾)
26 cdlemk5.z . . . 4 𝑍 = ((𝑃 (𝑅𝑏)) ((𝑁𝑃) (𝑅‘(𝑏𝐹))))
27 cdlemk5.y . . . 4 𝑌 = ((𝑃 (𝑅𝑔)) (𝑍 (𝑅‘(𝑔𝑏))))
2812, 22, 23, 24, 25, 13, 14, 15, 26, 27, 3cdlemk42 41640 . . 3 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝐹𝑇𝐹 ≠ ( I ↾ 𝐵)) ∧ (𝐺𝑇𝐺 ≠ ( I ↾ 𝐵))) ∧ (𝑁𝑇 ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑅𝐹) = (𝑅𝑁)) ∧ (𝑏𝑇 ∧ (𝑏 ≠ ( I ↾ 𝐵) ∧ (𝑅𝑏) ≠ (𝑅𝐹) ∧ (𝑅𝑏) ≠ (𝑅𝐺)))) → (𝐺 / 𝑔𝑋𝑃) = 𝐺 / 𝑔𝑌)
298, 18, 19, 10, 20, 11, 21, 28syl331anc 1420 . 2 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑅𝐹) = (𝑅𝑁)) ∧ ((𝐹𝑇𝑁𝑇𝐹𝑁) ∧ (𝐺𝑇𝐺 ≠ ( I ↾ 𝐵)) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊)) ∧ (𝑏𝑇 ∧ (𝑏 ≠ ( I ↾ 𝐵) ∧ (𝑅𝑏) ≠ (𝑅𝐹) ∧ (𝑅𝑏) ≠ (𝑅𝐺)))) → (𝐺 / 𝑔𝑋𝑃) = 𝐺 / 𝑔𝑌)
307, 29eqtrd 2804 1 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑅𝐹) = (𝑅𝑁)) ∧ ((𝐹𝑇𝑁𝑇𝐹𝑁) ∧ (𝐺𝑇𝐺 ≠ ( I ↾ 𝐵)) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊)) ∧ (𝑏𝑇 ∧ (𝑏 ≠ ( I ↾ 𝐵) ∧ (𝑅𝑏) ≠ (𝑅𝐹) ∧ (𝑅𝑏) ≠ (𝑅𝐺)))) → ((𝑈𝐺)‘𝑃) = 𝐺 / 𝑔𝑌)
Colors of variables: wff setvar class
Syntax hints:  ¬ wn 3  wi 4  wa 400  w3a 1101   = wceq 1567  wcel 2149  wne 2964  wral 3085  csb 3859  ifcif 4490   class class class wbr 5111  cmpt 5194   I cid 5556  ccnv 5661  cres 5664  ccom 5666  cfv 6537  crio 7367  (class class class)co 7411  Basecbs 17269  lecple 17317  joincjn 18367  meetcmee 18368  Atomscatm 39962  HLchlt 40049  LHypclh 40683  LTrncltrn 40800  trLctrl 40857
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1822  ax-4 1836  ax-5 1937  ax-6 1994  ax-7 2035  ax-8 2151  ax-9 2159  ax-10 2182  ax-11 2198  ax-12 2219  ax-ext 2741  ax-rep 5240  ax-sep 5259  ax-nul 5271  ax-pow 5337  ax-pr 5405  ax-un 7733  ax-riotaBAD 39652
This theorem depends on definitions:  df-bi 210  df-an 401  df-or 861  df-3or 1102  df-3an 1103  df-tru 1570  df-fal 1580  df-ex 1807  df-nf 1811  df-sb 2098  df-mo 2573  df-eu 2603  df-clab 2748  df-cleq 2761  df-clel 2844  df-nfc 2918  df-ne 2965  df-ral 3086  df-rex 3096  df-rmo 3375  df-reu 3376  df-rab 3423  df-v 3463  df-sbc 3752  df-csb 3860  df-dif 3914  df-un 3916  df-in 3918  df-ss 3928  df-nul 4293  df-if 4491  df-pw 4567  df-sn 4593  df-pr 4595  df-op 4599  df-uni 4875  df-iun 4960  df-iin 4961  df-br 5112  df-opab 5176  df-mpt 5195  df-id 5557  df-xp 5668  df-rel 5669  df-cnv 5670  df-co 5671  df-dm 5672  df-rn 5673  df-res 5674  df-ima 5675  df-iota 6493  df-fun 6539  df-fn 6540  df-f 6541  df-f1 6542  df-fo 6543  df-f1o 6544  df-fv 6545  df-riota 7368  df-ov 7414  df-oprab 7415  df-mpo 7416  df-1st 7986  df-2nd 7987  df-undef 8269  df-map 8826  df-proset 18350  df-poset 18369  df-plt 18384  df-lub 18400  df-glb 18401  df-join 18402  df-meet 18403  df-p0 18479  df-p1 18480  df-lat 18488  df-clat 18555  df-oposet 39875  df-ol 39877  df-oml 39878  df-covers 39965  df-ats 39966  df-atl 39997  df-cvlat 40021  df-hlat 40050  df-llines 40197  df-lplanes 40198  df-lvols 40199  df-lines 40200  df-psubsp 40202  df-pmap 40203  df-padd 40495  df-lhyp 40687  df-laut 40688  df-ldil 40803  df-ltrn 40804  df-trl 40858
This theorem is referenced by: (None)
  Copyright terms: Public domain W3C validator