Theorem trlcl 40131

Description: Closure of the trace of a lattice translation. (Contributed by NM, 22-May-2012.)

Hypotheses

Ref	Expression
trlcl.b	⊢ 𝐵 = (Base‘𝐾)
trlcl.h	⊢ 𝐻 = (LHyp‘𝐾)
trlcl.t	⊢ 𝑇 = ((LTrn‘𝐾)‘𝑊)
trlcl.r	⊢ 𝑅 = ((trL‘𝐾)‘𝑊)

Assertion

Ref	Expression
trlcl	⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝐹 ∈ 𝑇) → (𝑅‘𝐹) ∈ 𝐵)

Proof of Theorem trlcl

Step	Hyp	Ref	Expression
1		eqid 2729	. . . . 5 ⊢ (le‘𝐾) = (le‘𝐾)
2		eqid 2729	. . . . 5 ⊢ (oc‘𝐾) = (oc‘𝐾)
3		eqid 2729	. . . . 5 ⊢ (Atoms‘𝐾) = (Atoms‘𝐾)
4		trlcl.h	. . . . 5 ⊢ 𝐻 = (LHyp‘𝐾)
5	1, 2, 3, 4	lhpocnel 39985	. . . 4 ⊢ ((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) → (((oc‘𝐾)‘𝑊) ∈ (Atoms‘𝐾) ∧ ¬ ((oc‘𝐾)‘𝑊)(le‘𝐾)𝑊))
6	5	adantr 480	. . 3 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝐹 ∈ 𝑇) → (((oc‘𝐾)‘𝑊) ∈ (Atoms‘𝐾) ∧ ¬ ((oc‘𝐾)‘𝑊)(le‘𝐾)𝑊))
7		eqid 2729	. . . 4 ⊢ (join‘𝐾) = (join‘𝐾)
8		eqid 2729	. . . 4 ⊢ (meet‘𝐾) = (meet‘𝐾)
9		trlcl.t	. . . 4 ⊢ 𝑇 = ((LTrn‘𝐾)‘𝑊)
10		trlcl.r	. . . 4 ⊢ 𝑅 = ((trL‘𝐾)‘𝑊)
11	1, 7, 8, 3, 4, 9, 10	trlval2 40130	. . 3 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝐹 ∈ 𝑇 ∧ (((oc‘𝐾)‘𝑊) ∈ (Atoms‘𝐾) ∧ ¬ ((oc‘𝐾)‘𝑊)(le‘𝐾)𝑊)) → (𝑅‘𝐹) = ((((oc‘𝐾)‘𝑊)(join‘𝐾)(𝐹‘((oc‘𝐾)‘𝑊)))(meet‘𝐾)𝑊))
12	6, 11	mpd3an3 1464	. 2 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝐹 ∈ 𝑇) → (𝑅‘𝐹) = ((((oc‘𝐾)‘𝑊)(join‘𝐾)(𝐹‘((oc‘𝐾)‘𝑊)))(meet‘𝐾)𝑊))
13		hllat 39329	. . . 4 ⊢ (𝐾 ∈ HL → 𝐾 ∈ Lat)
14	13	ad2antrr 726	. . 3 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝐹 ∈ 𝑇) → 𝐾 ∈ Lat)
15		hlop 39328	. . . . . 6 ⊢ (𝐾 ∈ HL → 𝐾 ∈ OP)
16	15	ad2antrr 726	. . . . 5 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝐹 ∈ 𝑇) → 𝐾 ∈ OP)
17		trlcl.b	. . . . . . 7 ⊢ 𝐵 = (Base‘𝐾)
18	17, 4	lhpbase 39965	. . . . . 6 ⊢ (𝑊 ∈ 𝐻 → 𝑊 ∈ 𝐵)
19	18	ad2antlr 727	. . . . 5 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝐹 ∈ 𝑇) → 𝑊 ∈ 𝐵)
20	17, 2	opoccl 39160	. . . . 5 ⊢ ((𝐾 ∈ OP ∧ 𝑊 ∈ 𝐵) → ((oc‘𝐾)‘𝑊) ∈ 𝐵)
21	16, 19, 20	syl2anc 584	. . . 4 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝐹 ∈ 𝑇) → ((oc‘𝐾)‘𝑊) ∈ 𝐵)
22	17, 4, 9	ltrncl 40092	. . . . 5 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝐹 ∈ 𝑇 ∧ ((oc‘𝐾)‘𝑊) ∈ 𝐵) → (𝐹‘((oc‘𝐾)‘𝑊)) ∈ 𝐵)
23	21, 22	mpd3an3 1464	. . . 4 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝐹 ∈ 𝑇) → (𝐹‘((oc‘𝐾)‘𝑊)) ∈ 𝐵)
24	17, 7	latjcl 18374	. . . 4 ⊢ ((𝐾 ∈ Lat ∧ ((oc‘𝐾)‘𝑊) ∈ 𝐵 ∧ (𝐹‘((oc‘𝐾)‘𝑊)) ∈ 𝐵) → (((oc‘𝐾)‘𝑊)(join‘𝐾)(𝐹‘((oc‘𝐾)‘𝑊))) ∈ 𝐵)
25	14, 21, 23, 24	syl3anc 1373	. . 3 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝐹 ∈ 𝑇) → (((oc‘𝐾)‘𝑊)(join‘𝐾)(𝐹‘((oc‘𝐾)‘𝑊))) ∈ 𝐵)
26	17, 8	latmcl 18375	. . 3 ⊢ ((𝐾 ∈ Lat ∧ (((oc‘𝐾)‘𝑊)(join‘𝐾)(𝐹‘((oc‘𝐾)‘𝑊))) ∈ 𝐵 ∧ 𝑊 ∈ 𝐵) → ((((oc‘𝐾)‘𝑊)(join‘𝐾)(𝐹‘((oc‘𝐾)‘𝑊)))(meet‘𝐾)𝑊) ∈ 𝐵)
27	14, 25, 19, 26	syl3anc 1373	. 2 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝐹 ∈ 𝑇) → ((((oc‘𝐾)‘𝑊)(join‘𝐾)(𝐹‘((oc‘𝐾)‘𝑊)))(meet‘𝐾)𝑊) ∈ 𝐵)
28	12, 27	eqeltrd 2828	1 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝐹 ∈ 𝑇) → (𝑅‘𝐹) ∈ 𝐵)

Syntax hints:  ¬ wn 3   → wi 4   ∧ wa 395   = wceq 1540   ∈ wcel 2109   class class class wbr 5102  ‘cfv 6499  (class class class)co 7369  Basecbs 17155  lecple 17203  occoc 17204  joincjn 18248  meetcmee 18249  Latclat 18366  OPcops 39138  Atomscatm 39229  HLchlt 39316  LHypclh 39951  LTrncltrn 40068  trLctrl 40125

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1795  ax-4 1809  ax-5 1910  ax-6 1967  ax-7 2008  ax-8 2111  ax-9 2119  ax-10 2142  ax-11 2158  ax-12 2178  ax-ext 2701  ax-rep 5229  ax-sep 5246  ax-nul 5256  ax-pow 5315  ax-pr 5382  ax-un 7691

This theorem depends on definitions:  df-bi 207  df-an 396  df-or 848  df-3an 1088  df-tru 1543  df-fal 1553  df-ex 1780  df-nf 1784  df-sb 2066  df-mo 2533  df-eu 2562  df-clab 2708  df-cleq 2721  df-clel 2803  df-nfc 2878  df-ne 2926  df-ral 3045  df-rex 3054  df-rmo 3351  df-reu 3352  df-rab 3403  df-v 3446  df-sbc 3751  df-csb 3860  df-dif 3914  df-un 3916  df-in 3918  df-ss 3928  df-nul 4293  df-if 4485  df-pw 4561  df-sn 4586  df-pr 4588  df-op 4592  df-uni 4868  df-iun 4953  df-br 5103  df-opab 5165  df-mpt 5184  df-id 5526  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 6452  df-fun 6501  df-fn 6502  df-f 6503  df-f1 6504  df-fo 6505  df-f1o 6506  df-fv 6507  df-riota 7326  df-ov 7372  df-oprab 7373  df-mpo 7374  df-map 8778  df-proset 18231  df-poset 18250  df-plt 18265  df-lub 18281  df-glb 18282  df-join 18283  df-meet 18284  df-p0 18360  df-p1 18361  df-lat 18367  df-oposet 39142  df-ol 39144  df-oml 39145  df-covers 39232  df-ats 39233  df-atl 39264  df-cvlat 39288  df-hlat 39317  df-lhyp 39955  df-laut 39956  df-ldil 40071  df-ltrn 40072  df-trl 40126

This theorem is referenced by:  trljat1  40133  trljat2  40134  trlval3  40154  cdlemc3  40160  cdlemc5  40162  trlord  40536  cdlemg4c  40579  cdlemg4  40584  cdlemg6c  40587  cdlemg10c  40606  cdlemg10  40608  cdlemg12e  40614  cdlemg17dALTN  40631  cdlemg31a  40664  cdlemg31b  40665  cdlemg35  40680  cdlemg44a  40698  trljco  40707  trljco2  40708  tendoidcl  40736  tendococl  40739  tendoid  40740  tendopltp  40747  tendo0tp  40756  cdlemh1  40782  cdlemh2  40783  cdlemi1  40785  cdlemi  40787  cdlemk9  40806  cdlemk9bN  40807  cdlemkvcl  40809  cdlemk10  40810  cdlemk11  40816  cdlemk11u  40838  cdlemk37  40881  cdlemkfid1N  40888  cdlemkid1  40889  cdlemkid2  40891  cdlemk39s-id  40907  cdlemk48  40917  cdlemk50  40919  cdlemk51  40920  cdlemk52  40921  cdlemk39u  40935  tendoex  40942  dialss  41013  dia0  41019  diaglbN  41022  dia1dim  41028  dia2dimlem2  41032  dia2dimlem3  41033  dia2dimlem10  41040  cdlemm10N  41085  dib1dim  41132  diblss  41137  cdlemn2a  41163  dih1dimb  41207  dihopelvalcpre  41215  dih1  41253  dihmeetlem1N  41257  dihglblem5apreN  41258  dihglbcpreN  41267  dih1dimatlem  41296