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

Theorem cdleme50laut 38570
Description: Part of proof of Lemma D in [Crawley] p. 113. 𝐹 is a lattice automorphism. TODO: fix comment. (Contributed by NM, 9-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(𝑠 (𝑃 𝑄), (𝑦𝐵𝑡𝐴 ((¬ 𝑡 𝑊 ∧ ¬ 𝑡 (𝑃 𝑄)) → 𝑦 = 𝐸)), 𝑠 / 𝑡𝐷) (𝑥 𝑊)))), 𝑥))
cdleme50laut.i 𝐼 = (LAut‘𝐾)
Assertion
Ref Expression
cdleme50laut (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) → 𝐹𝐼)
Distinct variable groups:   𝑡,𝑠,𝑥,𝑦,𝑧,   ,𝑠,𝑡,𝑥,𝑦,𝑧   ,𝑠,𝑡,𝑥,𝑦,𝑧   𝐴,𝑠,𝑡,𝑥,𝑦,𝑧   𝐵,𝑠,𝑡,𝑥,𝑦,𝑧   𝐷,𝑠,𝑥,𝑦,𝑧   𝑥,𝐸,𝑦,𝑧   𝐻,𝑠,𝑡,𝑥,𝑦,𝑧   𝐾,𝑠,𝑡,𝑥,𝑦,𝑧   𝑃,𝑠,𝑡,𝑥,𝑦,𝑧   𝑄,𝑠,𝑡,𝑥,𝑦,𝑧   𝑈,𝑠,𝑡,𝑥,𝑦,𝑧   𝑊,𝑠,𝑡,𝑥,𝑦,𝑧
Allowed substitution hints:   𝐷(𝑡)   𝐸(𝑡,𝑠)   𝐹(𝑥,𝑦,𝑧,𝑡,𝑠)   𝐼(𝑥,𝑦,𝑧,𝑡,𝑠)

Proof of Theorem cdleme50laut
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(𝑠 (𝑃 𝑄), (𝑦𝐵𝑡𝐴 ((¬ 𝑡 𝑊 ∧ ¬ 𝑡 (𝑃 𝑄)) → 𝑦 = 𝐸)), 𝑠 / 𝑡𝐷) (𝑥 𝑊)))), 𝑥))
111, 2, 3, 4, 5, 6, 7, 8, 9, 10cdleme50f1o 38569 . 2 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) → 𝐹:𝐵1-1-onto𝐵)
121, 2, 3, 4, 5, 6, 7, 8, 9, 10cdleme50lebi 38563 . . 3 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ (𝑑𝐵𝑒𝐵)) → (𝑑 𝑒 ↔ (𝐹𝑑) (𝐹𝑒)))
1312ralrimivva 3117 . 2 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) → ∀𝑑𝐵𝑒𝐵 (𝑑 𝑒 ↔ (𝐹𝑑) (𝐹𝑒)))
14 simp1l 1196 . . 3 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) → 𝐾 ∈ HL)
15 cdleme50laut.i . . . 4 𝐼 = (LAut‘𝐾)
161, 2, 15islaut 38106 . . 3 (𝐾 ∈ HL → (𝐹𝐼 ↔ (𝐹:𝐵1-1-onto𝐵 ∧ ∀𝑑𝐵𝑒𝐵 (𝑑 𝑒 ↔ (𝐹𝑑) (𝐹𝑒)))))
1714, 16syl 17 . 2 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) → (𝐹𝐼 ↔ (𝐹:𝐵1-1-onto𝐵 ∧ ∀𝑑𝐵𝑒𝐵 (𝑑 𝑒 ↔ (𝐹𝑑) (𝐹𝑒)))))
1811, 13, 17mpbir2and 710 1 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) → 𝐹𝐼)
Colors of variables: wff setvar class
Syntax hints:  ¬ wn 3  wi 4  wb 205  wa 396  w3a 1086   = wceq 1542  wcel 2110  wne 2945  wral 3066  csb 3837  ifcif 4465   class class class wbr 5079  cmpt 5162  1-1-ontowf1o 6431  cfv 6432  crio 7228  (class class class)co 7272  Basecbs 16923  lecple 16980  joincjn 18040  meetcmee 18041  Atomscatm 37286  HLchlt 37373  LHypclh 38007  LAutclaut 38008
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1802  ax-4 1816  ax-5 1917  ax-6 1975  ax-7 2015  ax-8 2112  ax-9 2120  ax-10 2141  ax-11 2158  ax-12 2175  ax-ext 2711  ax-rep 5214  ax-sep 5227  ax-nul 5234  ax-pow 5292  ax-pr 5356  ax-un 7583  ax-riotaBAD 36976
This theorem depends on definitions:  df-bi 206  df-an 397  df-or 845  df-3or 1087  df-3an 1088  df-tru 1545  df-fal 1555  df-ex 1787  df-nf 1791  df-sb 2072  df-mo 2542  df-eu 2571  df-clab 2718  df-cleq 2732  df-clel 2818  df-nfc 2891  df-ne 2946  df-ral 3071  df-rex 3072  df-reu 3073  df-rmo 3074  df-rab 3075  df-v 3433  df-sbc 3721  df-csb 3838  df-dif 3895  df-un 3897  df-in 3899  df-ss 3909  df-nul 4263  df-if 4466  df-pw 4541  df-sn 4568  df-pr 4570  df-op 4574  df-uni 4846  df-iun 4932  df-iin 4933  df-br 5080  df-opab 5142  df-mpt 5163  df-id 5490  df-xp 5596  df-rel 5597  df-cnv 5598  df-co 5599  df-dm 5600  df-rn 5601  df-res 5602  df-ima 5603  df-iota 6390  df-fun 6434  df-fn 6435  df-f 6436  df-f1 6437  df-fo 6438  df-f1o 6439  df-fv 6440  df-riota 7229  df-ov 7275  df-oprab 7276  df-mpo 7277  df-1st 7825  df-2nd 7826  df-undef 8081  df-map 8609  df-proset 18024  df-poset 18042  df-plt 18059  df-lub 18075  df-glb 18076  df-join 18077  df-meet 18078  df-p0 18154  df-p1 18155  df-lat 18161  df-clat 18228  df-oposet 37199  df-ol 37201  df-oml 37202  df-covers 37289  df-ats 37290  df-atl 37321  df-cvlat 37345  df-hlat 37374  df-llines 37521  df-lplanes 37522  df-lvols 37523  df-lines 37524  df-psubsp 37526  df-pmap 37527  df-padd 37819  df-lhyp 38011  df-laut 38012
This theorem is referenced by:  cdleme50ldil  38571
  Copyright terms: Public domain W3C validator