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

Theorem trlcnv 37799
Description: The trace of the converse of a lattice translation. (Contributed by NM, 10-May-2013.)
Hypotheses
Ref Expression
trlcnv.h 𝐻 = (LHyp‘𝐾)
trlcnv.t 𝑇 = ((LTrn‘𝐾)‘𝑊)
trlcnv.r 𝑅 = ((trL‘𝐾)‘𝑊)
Assertion
Ref Expression
trlcnv (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ 𝐹𝑇) → (𝑅𝐹) = (𝑅𝐹))

Proof of Theorem trlcnv
Dummy variable 𝑝 is distinct from all other variables.
StepHypRef Expression
1 eqid 2738 . . . 4 (le‘𝐾) = (le‘𝐾)
2 eqid 2738 . . . 4 (Atoms‘𝐾) = (Atoms‘𝐾)
3 trlcnv.h . . . 4 𝐻 = (LHyp‘𝐾)
41, 2, 3lhpexnle 37640 . . 3 ((𝐾 ∈ HL ∧ 𝑊𝐻) → ∃𝑝 ∈ (Atoms‘𝐾) ¬ 𝑝(le‘𝐾)𝑊)
54adantr 484 . 2 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ 𝐹𝑇) → ∃𝑝 ∈ (Atoms‘𝐾) ¬ 𝑝(le‘𝐾)𝑊)
6 eqid 2738 . . . . . . . . . 10 (Base‘𝐾) = (Base‘𝐾)
7 trlcnv.t . . . . . . . . . 10 𝑇 = ((LTrn‘𝐾)‘𝑊)
86, 3, 7ltrn1o 37758 . . . . . . . . 9 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ 𝐹𝑇) → 𝐹:(Base‘𝐾)–1-1-onto→(Base‘𝐾))
983adant3 1133 . . . . . . . 8 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ 𝐹𝑇 ∧ (𝑝 ∈ (Atoms‘𝐾) ∧ ¬ 𝑝(le‘𝐾)𝑊)) → 𝐹:(Base‘𝐾)–1-1-onto→(Base‘𝐾))
10 simp3l 1202 . . . . . . . . 9 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ 𝐹𝑇 ∧ (𝑝 ∈ (Atoms‘𝐾) ∧ ¬ 𝑝(le‘𝐾)𝑊)) → 𝑝 ∈ (Atoms‘𝐾))
116, 2atbase 36923 . . . . . . . . 9 (𝑝 ∈ (Atoms‘𝐾) → 𝑝 ∈ (Base‘𝐾))
1210, 11syl 17 . . . . . . . 8 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ 𝐹𝑇 ∧ (𝑝 ∈ (Atoms‘𝐾) ∧ ¬ 𝑝(le‘𝐾)𝑊)) → 𝑝 ∈ (Base‘𝐾))
13 f1ocnvfv1 7045 . . . . . . . 8 ((𝐹:(Base‘𝐾)–1-1-onto→(Base‘𝐾) ∧ 𝑝 ∈ (Base‘𝐾)) → (𝐹‘(𝐹𝑝)) = 𝑝)
149, 12, 13syl2anc 587 . . . . . . 7 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ 𝐹𝑇 ∧ (𝑝 ∈ (Atoms‘𝐾) ∧ ¬ 𝑝(le‘𝐾)𝑊)) → (𝐹‘(𝐹𝑝)) = 𝑝)
1514oveq2d 7187 . . . . . 6 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ 𝐹𝑇 ∧ (𝑝 ∈ (Atoms‘𝐾) ∧ ¬ 𝑝(le‘𝐾)𝑊)) → ((𝐹𝑝)(join‘𝐾)(𝐹‘(𝐹𝑝))) = ((𝐹𝑝)(join‘𝐾)𝑝))
16 simp1l 1198 . . . . . . 7 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ 𝐹𝑇 ∧ (𝑝 ∈ (Atoms‘𝐾) ∧ ¬ 𝑝(le‘𝐾)𝑊)) → 𝐾 ∈ HL)
171, 2, 3, 7ltrnat 37774 . . . . . . . 8 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ 𝐹𝑇𝑝 ∈ (Atoms‘𝐾)) → (𝐹𝑝) ∈ (Atoms‘𝐾))
18173adant3r 1182 . . . . . . 7 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ 𝐹𝑇 ∧ (𝑝 ∈ (Atoms‘𝐾) ∧ ¬ 𝑝(le‘𝐾)𝑊)) → (𝐹𝑝) ∈ (Atoms‘𝐾))
19 eqid 2738 . . . . . . . 8 (join‘𝐾) = (join‘𝐾)
2019, 2hlatjcom 37002 . . . . . . 7 ((𝐾 ∈ HL ∧ (𝐹𝑝) ∈ (Atoms‘𝐾) ∧ 𝑝 ∈ (Atoms‘𝐾)) → ((𝐹𝑝)(join‘𝐾)𝑝) = (𝑝(join‘𝐾)(𝐹𝑝)))
2116, 18, 10, 20syl3anc 1372 . . . . . 6 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ 𝐹𝑇 ∧ (𝑝 ∈ (Atoms‘𝐾) ∧ ¬ 𝑝(le‘𝐾)𝑊)) → ((𝐹𝑝)(join‘𝐾)𝑝) = (𝑝(join‘𝐾)(𝐹𝑝)))
2215, 21eqtrd 2773 . . . . 5 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ 𝐹𝑇 ∧ (𝑝 ∈ (Atoms‘𝐾) ∧ ¬ 𝑝(le‘𝐾)𝑊)) → ((𝐹𝑝)(join‘𝐾)(𝐹‘(𝐹𝑝))) = (𝑝(join‘𝐾)(𝐹𝑝)))
2322oveq1d 7186 . . . 4 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ 𝐹𝑇 ∧ (𝑝 ∈ (Atoms‘𝐾) ∧ ¬ 𝑝(le‘𝐾)𝑊)) → (((𝐹𝑝)(join‘𝐾)(𝐹‘(𝐹𝑝)))(meet‘𝐾)𝑊) = ((𝑝(join‘𝐾)(𝐹𝑝))(meet‘𝐾)𝑊))
24 simp1 1137 . . . . 5 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ 𝐹𝑇 ∧ (𝑝 ∈ (Atoms‘𝐾) ∧ ¬ 𝑝(le‘𝐾)𝑊)) → (𝐾 ∈ HL ∧ 𝑊𝐻))
253, 7ltrncnv 37780 . . . . . 6 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ 𝐹𝑇) → 𝐹𝑇)
26253adant3 1133 . . . . 5 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ 𝐹𝑇 ∧ (𝑝 ∈ (Atoms‘𝐾) ∧ ¬ 𝑝(le‘𝐾)𝑊)) → 𝐹𝑇)
271, 2, 3, 7ltrnel 37773 . . . . 5 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ 𝐹𝑇 ∧ (𝑝 ∈ (Atoms‘𝐾) ∧ ¬ 𝑝(le‘𝐾)𝑊)) → ((𝐹𝑝) ∈ (Atoms‘𝐾) ∧ ¬ (𝐹𝑝)(le‘𝐾)𝑊))
28 eqid 2738 . . . . . 6 (meet‘𝐾) = (meet‘𝐾)
29 trlcnv.r . . . . . 6 𝑅 = ((trL‘𝐾)‘𝑊)
301, 19, 28, 2, 3, 7, 29trlval2 37797 . . . . 5 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ 𝐹𝑇 ∧ ((𝐹𝑝) ∈ (Atoms‘𝐾) ∧ ¬ (𝐹𝑝)(le‘𝐾)𝑊)) → (𝑅𝐹) = (((𝐹𝑝)(join‘𝐾)(𝐹‘(𝐹𝑝)))(meet‘𝐾)𝑊))
3124, 26, 27, 30syl3anc 1372 . . . 4 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ 𝐹𝑇 ∧ (𝑝 ∈ (Atoms‘𝐾) ∧ ¬ 𝑝(le‘𝐾)𝑊)) → (𝑅𝐹) = (((𝐹𝑝)(join‘𝐾)(𝐹‘(𝐹𝑝)))(meet‘𝐾)𝑊))
321, 19, 28, 2, 3, 7, 29trlval2 37797 . . . 4 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ 𝐹𝑇 ∧ (𝑝 ∈ (Atoms‘𝐾) ∧ ¬ 𝑝(le‘𝐾)𝑊)) → (𝑅𝐹) = ((𝑝(join‘𝐾)(𝐹𝑝))(meet‘𝐾)𝑊))
3323, 31, 323eqtr4d 2783 . . 3 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ 𝐹𝑇 ∧ (𝑝 ∈ (Atoms‘𝐾) ∧ ¬ 𝑝(le‘𝐾)𝑊)) → (𝑅𝐹) = (𝑅𝐹))
34333expa 1119 . 2 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ 𝐹𝑇) ∧ (𝑝 ∈ (Atoms‘𝐾) ∧ ¬ 𝑝(le‘𝐾)𝑊)) → (𝑅𝐹) = (𝑅𝐹))
355, 34rexlimddv 3201 1 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ 𝐹𝑇) → (𝑅𝐹) = (𝑅𝐹))
Colors of variables: wff setvar class
Syntax hints:  ¬ wn 3  wi 4  wa 399  w3a 1088   = wceq 1542  wcel 2113  wrex 3054   class class class wbr 5031  ccnv 5525  1-1-ontowf1o 6339  cfv 6340  (class class class)co 7171  Basecbs 16587  lecple 16676  joincjn 17671  meetcmee 17672  Atomscatm 36897  HLchlt 36984  LHypclh 37618  LTrncltrn 37735  trLctrl 37792
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 1916  ax-6 1974  ax-7 2019  ax-8 2115  ax-9 2123  ax-10 2144  ax-11 2161  ax-12 2178  ax-ext 2710  ax-rep 5155  ax-sep 5168  ax-nul 5175  ax-pow 5233  ax-pr 5297  ax-un 7480
This theorem depends on definitions:  df-bi 210  df-an 400  df-or 847  df-3an 1090  df-tru 1545  df-fal 1555  df-ex 1787  df-nf 1791  df-sb 2074  df-mo 2540  df-eu 2570  df-clab 2717  df-cleq 2730  df-clel 2811  df-nfc 2881  df-ne 2935  df-ral 3058  df-rex 3059  df-reu 3060  df-rab 3062  df-v 3400  df-sbc 3683  df-csb 3792  df-dif 3847  df-un 3849  df-in 3851  df-ss 3861  df-nul 4213  df-if 4416  df-pw 4491  df-sn 4518  df-pr 4520  df-op 4524  df-uni 4798  df-iun 4884  df-br 5032  df-opab 5094  df-mpt 5112  df-id 5430  df-xp 5532  df-rel 5533  df-cnv 5534  df-co 5535  df-dm 5536  df-rn 5537  df-res 5538  df-ima 5539  df-iota 6298  df-fun 6342  df-fn 6343  df-f 6344  df-f1 6345  df-fo 6346  df-f1o 6347  df-fv 6348  df-riota 7128  df-ov 7174  df-oprab 7175  df-mpo 7176  df-map 8440  df-proset 17655  df-poset 17673  df-plt 17685  df-lub 17701  df-glb 17702  df-join 17703  df-meet 17704  df-p0 17766  df-p1 17767  df-lat 17773  df-clat 17835  df-oposet 36810  df-ol 36812  df-oml 36813  df-covers 36900  df-ats 36901  df-atl 36932  df-cvlat 36956  df-hlat 36985  df-lhyp 37622  df-laut 37623  df-ldil 37738  df-ltrn 37739  df-trl 37793
This theorem is referenced by:  trlcocnv  38354  trlcoat  38357  trlcocnvat  38358  trlcone  38362  cdlemg46  38369  tendoicl  38430  cdlemh1  38449  cdlemh2  38450  cdlemh  38451  cdlemk3  38467  cdlemk12  38484  cdlemk12u  38506  cdlemkfid1N  38555  cdlemkid1  38556  cdlemkid2  38558  cdlemk45  38581
  Copyright terms: Public domain W3C validator