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

Theorem cdleme50ltrn 38987
Description: Part of proof of Lemma E in [Crawley] p. 113. 𝐹 is a lattice translation. TODO: fix comment. (Contributed by NM, 10-Apr-2013.)
Hypotheses
Ref Expression
cdlemef50.b 𝐵 = (Base‘𝐾)
cdlemef50.l = (le‘𝐾)
cdlemef50.j = (join‘𝐾)
cdlemef50.m = (meet‘𝐾)
cdlemef50.a 𝐴 = (Atoms‘𝐾)
cdlemef50.h 𝐻 = (LHyp‘𝐾)
cdlemef50.u 𝑈 = ((𝑃 𝑄) 𝑊)
cdlemef50.d 𝐷 = ((𝑡 𝑈) (𝑄 ((𝑃 𝑡) 𝑊)))
cdlemefs50.e 𝐸 = ((𝑃 𝑄) (𝐷 ((𝑠 𝑡) 𝑊)))
cdlemef50.f 𝐹 = (𝑥𝐵 ↦ if((𝑃𝑄 ∧ ¬ 𝑥 𝑊), (𝑧𝐵𝑠𝐴 ((¬ 𝑠 𝑊 ∧ (𝑠 (𝑥 𝑊)) = 𝑥) → 𝑧 = (if(𝑠 (𝑃 𝑄), (𝑦𝐵𝑡𝐴 ((¬ 𝑡 𝑊 ∧ ¬ 𝑡 (𝑃 𝑄)) → 𝑦 = 𝐸)), 𝑠 / 𝑡𝐷) (𝑥 𝑊)))), 𝑥))
cdleme50ltrn.t 𝑇 = ((LTrn‘𝐾)‘𝑊)
Assertion
Ref Expression
cdleme50ltrn (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) → 𝐹𝑇)
Distinct variable groups:   𝑡,𝑠,𝑥,𝑦,𝑧,   ,𝑠,𝑡,𝑥,𝑦,𝑧   ,𝑠,𝑡,𝑥,𝑦,𝑧   𝐴,𝑠,𝑡,𝑥,𝑦,𝑧   𝐵,𝑠,𝑡,𝑥,𝑦,𝑧   𝐷,𝑠,𝑥,𝑦,𝑧   𝑥,𝐸,𝑦,𝑧   𝐻,𝑠,𝑡,𝑥,𝑦,𝑧   𝐾,𝑠,𝑡,𝑥,𝑦,𝑧   𝑃,𝑠,𝑡,𝑥,𝑦,𝑧   𝑄,𝑠,𝑡,𝑥,𝑦,𝑧   𝑈,𝑠,𝑡,𝑥,𝑦,𝑧   𝑊,𝑠,𝑡,𝑥,𝑦,𝑧
Allowed substitution hints:   𝐷(𝑡)   𝑇(𝑥,𝑦,𝑧,𝑡,𝑠)   𝐸(𝑡,𝑠)   𝐹(𝑥,𝑦,𝑧,𝑡,𝑠)

Proof of Theorem cdleme50ltrn
Dummy variables 𝑒 𝑑 are mutually distinct and distinct from all other variables.
StepHypRef Expression
1 cdlemef50.b . . 3 𝐵 = (Base‘𝐾)
2 cdlemef50.l . . 3 = (le‘𝐾)
3 cdlemef50.j . . 3 = (join‘𝐾)
4 cdlemef50.m . . 3 = (meet‘𝐾)
5 cdlemef50.a . . 3 𝐴 = (Atoms‘𝐾)
6 cdlemef50.h . . 3 𝐻 = (LHyp‘𝐾)
7 cdlemef50.u . . 3 𝑈 = ((𝑃 𝑄) 𝑊)
8 cdlemef50.d . . 3 𝐷 = ((𝑡 𝑈) (𝑄 ((𝑃 𝑡) 𝑊)))
9 cdlemefs50.e . . 3 𝐸 = ((𝑃 𝑄) (𝐷 ((𝑠 𝑡) 𝑊)))
10 cdlemef50.f . . 3 𝐹 = (𝑥𝐵 ↦ if((𝑃𝑄 ∧ ¬ 𝑥 𝑊), (𝑧𝐵𝑠𝐴 ((¬ 𝑠 𝑊 ∧ (𝑠 (𝑥 𝑊)) = 𝑥) → 𝑧 = (if(𝑠 (𝑃 𝑄), (𝑦𝐵𝑡𝐴 ((¬ 𝑡 𝑊 ∧ ¬ 𝑡 (𝑃 𝑄)) → 𝑦 = 𝐸)), 𝑠 / 𝑡𝐷) (𝑥 𝑊)))), 𝑥))
11 eqid 2736 . . 3 ((LDil‘𝐾)‘𝑊) = ((LDil‘𝐾)‘𝑊)
121, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11cdleme50ldil 38978 . 2 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) → 𝐹 ∈ ((LDil‘𝐾)‘𝑊))
13 simp1 1136 . . . . . 6 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ (𝑑𝐴𝑒𝐴) ∧ (¬ 𝑑 𝑊 ∧ ¬ 𝑒 𝑊)) → ((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)))
14 simp2l 1199 . . . . . 6 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ (𝑑𝐴𝑒𝐴) ∧ (¬ 𝑑 𝑊 ∧ ¬ 𝑒 𝑊)) → 𝑑𝐴)
15 simp3l 1201 . . . . . 6 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ (𝑑𝐴𝑒𝐴) ∧ (¬ 𝑑 𝑊 ∧ ¬ 𝑒 𝑊)) → ¬ 𝑑 𝑊)
161, 2, 3, 4, 5, 6, 7, 8, 9, 10cdleme50trn123 38984 . . . . . 6 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ (𝑑𝐴 ∧ ¬ 𝑑 𝑊)) → ((𝑑 (𝐹𝑑)) 𝑊) = 𝑈)
1713, 14, 15, 16syl12anc 835 . . . . 5 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ (𝑑𝐴𝑒𝐴) ∧ (¬ 𝑑 𝑊 ∧ ¬ 𝑒 𝑊)) → ((𝑑 (𝐹𝑑)) 𝑊) = 𝑈)
18 simp2r 1200 . . . . . 6 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ (𝑑𝐴𝑒𝐴) ∧ (¬ 𝑑 𝑊 ∧ ¬ 𝑒 𝑊)) → 𝑒𝐴)
19 simp3r 1202 . . . . . 6 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ (𝑑𝐴𝑒𝐴) ∧ (¬ 𝑑 𝑊 ∧ ¬ 𝑒 𝑊)) → ¬ 𝑒 𝑊)
201, 2, 3, 4, 5, 6, 7, 8, 9, 10cdleme50trn123 38984 . . . . . 6 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ (𝑒𝐴 ∧ ¬ 𝑒 𝑊)) → ((𝑒 (𝐹𝑒)) 𝑊) = 𝑈)
2113, 18, 19, 20syl12anc 835 . . . . 5 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ (𝑑𝐴𝑒𝐴) ∧ (¬ 𝑑 𝑊 ∧ ¬ 𝑒 𝑊)) → ((𝑒 (𝐹𝑒)) 𝑊) = 𝑈)
2217, 21eqtr4d 2779 . . . 4 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ (𝑑𝐴𝑒𝐴) ∧ (¬ 𝑑 𝑊 ∧ ¬ 𝑒 𝑊)) → ((𝑑 (𝐹𝑑)) 𝑊) = ((𝑒 (𝐹𝑒)) 𝑊))
23223exp 1119 . . 3 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) → ((𝑑𝐴𝑒𝐴) → ((¬ 𝑑 𝑊 ∧ ¬ 𝑒 𝑊) → ((𝑑 (𝐹𝑑)) 𝑊) = ((𝑒 (𝐹𝑒)) 𝑊))))
2423ralrimivv 3193 . 2 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) → ∀𝑑𝐴𝑒𝐴 ((¬ 𝑑 𝑊 ∧ ¬ 𝑒 𝑊) → ((𝑑 (𝐹𝑑)) 𝑊) = ((𝑒 (𝐹𝑒)) 𝑊)))
25 cdleme50ltrn.t . . . 4 𝑇 = ((LTrn‘𝐾)‘𝑊)
262, 3, 4, 5, 6, 11, 25isltrn 38549 . . 3 ((𝐾 ∈ HL ∧ 𝑊𝐻) → (𝐹𝑇 ↔ (𝐹 ∈ ((LDil‘𝐾)‘𝑊) ∧ ∀𝑑𝐴𝑒𝐴 ((¬ 𝑑 𝑊 ∧ ¬ 𝑒 𝑊) → ((𝑑 (𝐹𝑑)) 𝑊) = ((𝑒 (𝐹𝑒)) 𝑊)))))
27263ad2ant1 1133 . 2 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) → (𝐹𝑇 ↔ (𝐹 ∈ ((LDil‘𝐾)‘𝑊) ∧ ∀𝑑𝐴𝑒𝐴 ((¬ 𝑑 𝑊 ∧ ¬ 𝑒 𝑊) → ((𝑑 (𝐹𝑑)) 𝑊) = ((𝑒 (𝐹𝑒)) 𝑊)))))
2812, 24, 27mpbir2and 711 1 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) → 𝐹𝑇)
Colors of variables: wff setvar class
Syntax hints:  ¬ wn 3  wi 4  wb 205  wa 396  w3a 1087   = wceq 1541  wcel 2106  wne 2941  wral 3062  csb 3853  ifcif 4484   class class class wbr 5103  cmpt 5186  cfv 6493  crio 7308  (class class class)co 7353  Basecbs 17075  lecple 17132  joincjn 18192  meetcmee 18193  Atomscatm 37692  HLchlt 37779  LHypclh 38414  LDilcldil 38530  LTrncltrn 38531
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 1913  ax-6 1971  ax-7 2011  ax-8 2108  ax-9 2116  ax-10 2137  ax-11 2154  ax-12 2171  ax-ext 2707  ax-rep 5240  ax-sep 5254  ax-nul 5261  ax-pow 5318  ax-pr 5382  ax-un 7668  ax-riotaBAD 37382
This theorem depends on definitions:  df-bi 206  df-an 397  df-or 846  df-3or 1088  df-3an 1089  df-tru 1544  df-fal 1554  df-ex 1782  df-nf 1786  df-sb 2068  df-mo 2538  df-eu 2567  df-clab 2714  df-cleq 2728  df-clel 2814  df-nfc 2887  df-ne 2942  df-ral 3063  df-rex 3072  df-rmo 3351  df-reu 3352  df-rab 3406  df-v 3445  df-sbc 3738  df-csb 3854  df-dif 3911  df-un 3913  df-in 3915  df-ss 3925  df-nul 4281  df-if 4485  df-pw 4560  df-sn 4585  df-pr 4587  df-op 4591  df-uni 4864  df-iun 4954  df-iin 4955  df-br 5104  df-opab 5166  df-mpt 5187  df-id 5529  df-xp 5637  df-rel 5638  df-cnv 5639  df-co 5640  df-dm 5641  df-rn 5642  df-res 5643  df-ima 5644  df-iota 6445  df-fun 6495  df-fn 6496  df-f 6497  df-f1 6498  df-fo 6499  df-f1o 6500  df-fv 6501  df-riota 7309  df-ov 7356  df-oprab 7357  df-mpo 7358  df-1st 7917  df-2nd 7918  df-undef 8200  df-map 8763  df-proset 18176  df-poset 18194  df-plt 18211  df-lub 18227  df-glb 18228  df-join 18229  df-meet 18230  df-p0 18306  df-p1 18307  df-lat 18313  df-clat 18380  df-oposet 37605  df-ol 37607  df-oml 37608  df-covers 37695  df-ats 37696  df-atl 37727  df-cvlat 37751  df-hlat 37780  df-llines 37928  df-lplanes 37929  df-lvols 37930  df-lines 37931  df-psubsp 37933  df-pmap 37934  df-padd 38226  df-lhyp 38418  df-laut 38419  df-ldil 38534  df-ltrn 38535
This theorem is referenced by:  cdleme51finvtrN  38988  cdleme50ex  38989  cdlemg1a  39000  cdlemg1ltrnlem  39004
  Copyright terms: Public domain W3C validator