Theorem trlcl 40143

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 39997	. . . 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 40142	. . 3 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝐹 ∈ 𝑇 ∧ (((oc‘𝐾)‘𝑊) ∈ (Atoms‘𝐾) ∧ ¬ ((oc‘𝐾)‘𝑊)(le‘𝐾)𝑊)) → (𝑅‘𝐹) = ((((oc‘𝐾)‘𝑊)(join‘𝐾)(𝐹‘((oc‘𝐾)‘𝑊)))(meet‘𝐾)𝑊))
12	6, 11	mpd3an3 1464	. 2 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝐹 ∈ 𝑇) → (𝑅‘𝐹) = ((((oc‘𝐾)‘𝑊)(join‘𝐾)(𝐹‘((oc‘𝐾)‘𝑊)))(meet‘𝐾)𝑊))
13		hllat 39342	. . . 4 ⊢ (𝐾 ∈ HL → 𝐾 ∈ Lat)
14	13	ad2antrr 726	. . 3 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝐹 ∈ 𝑇) → 𝐾 ∈ Lat)
15		hlop 39341	. . . . . 6 ⊢ (𝐾 ∈ HL → 𝐾 ∈ OP)
16	15	ad2antrr 726	. . . . 5 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝐹 ∈ 𝑇) → 𝐾 ∈ OP)
17		trlcl.b	. . . . . . 7 ⊢ 𝐵 = (Base‘𝐾)
18	17, 4	lhpbase 39977	. . . . . 6 ⊢ (𝑊 ∈ 𝐻 → 𝑊 ∈ 𝐵)
19	18	ad2antlr 727	. . . . 5 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝐹 ∈ 𝑇) → 𝑊 ∈ 𝐵)
20	17, 2	opoccl 39173	. . . . 5 ⊢ ((𝐾 ∈ OP ∧ 𝑊 ∈ 𝐵) → ((oc‘𝐾)‘𝑊) ∈ 𝐵)
21	16, 19, 20	syl2anc 584	. . . 4 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝐹 ∈ 𝑇) → ((oc‘𝐾)‘𝑊) ∈ 𝐵)
22	17, 4, 9	ltrncl 40104	. . . . 5 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝐹 ∈ 𝑇 ∧ ((oc‘𝐾)‘𝑊) ∈ 𝐵) → (𝐹‘((oc‘𝐾)‘𝑊)) ∈ 𝐵)
23	21, 22	mpd3an3 1464	. . . 4 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝐹 ∈ 𝑇) → (𝐹‘((oc‘𝐾)‘𝑊)) ∈ 𝐵)
24	17, 7	latjcl 18345	. . . 4 ⊢ ((𝐾 ∈ Lat ∧ ((oc‘𝐾)‘𝑊) ∈ 𝐵 ∧ (𝐹‘((oc‘𝐾)‘𝑊)) ∈ 𝐵) → (((oc‘𝐾)‘𝑊)(join‘𝐾)(𝐹‘((oc‘𝐾)‘𝑊))) ∈ 𝐵)
25	14, 21, 23, 24	syl3anc 1373	. . 3 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝐹 ∈ 𝑇) → (((oc‘𝐾)‘𝑊)(join‘𝐾)(𝐹‘((oc‘𝐾)‘𝑊))) ∈ 𝐵)
26	17, 8	latmcl 18346	. . 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 5092  ‘cfv 6482  (class class class)co 7349  Basecbs 17120  lecple 17168  occoc 17169  joincjn 18217  meetcmee 18218  Latclat 18337  OPcops 39151  Atomscatm 39242  HLchlt 39329  LHypclh 39963  LTrncltrn 40080  trLctrl 40137

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 5218  ax-sep 5235  ax-nul 5245  ax-pow 5304  ax-pr 5371  ax-un 7671

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 3343  df-reu 3344  df-rab 3395  df-v 3438  df-sbc 3743  df-csb 3852  df-dif 3906  df-un 3908  df-in 3910  df-ss 3920  df-nul 4285  df-if 4477  df-pw 4553  df-sn 4578  df-pr 4580  df-op 4584  df-uni 4859  df-iun 4943  df-br 5093  df-opab 5155  df-mpt 5174  df-id 5514  df-xp 5625  df-rel 5626  df-cnv 5627  df-co 5628  df-dm 5629  df-rn 5630  df-res 5631  df-ima 5632  df-iota 6438  df-fun 6484  df-fn 6485  df-f 6486  df-f1 6487  df-fo 6488  df-f1o 6489  df-fv 6490  df-riota 7306  df-ov 7352  df-oprab 7353  df-mpo 7354  df-map 8755  df-proset 18200  df-poset 18219  df-plt 18234  df-lub 18250  df-glb 18251  df-join 18252  df-meet 18253  df-p0 18329  df-p1 18330  df-lat 18338  df-oposet 39155  df-ol 39157  df-oml 39158  df-covers 39245  df-ats 39246  df-atl 39277  df-cvlat 39301  df-hlat 39330  df-lhyp 39967  df-laut 39968  df-ldil 40083  df-ltrn 40084  df-trl 40138

This theorem is referenced by:  trljat1  40145  trljat2  40146  trlval3  40166  cdlemc3  40172  cdlemc5  40174  trlord  40548  cdlemg4c  40591  cdlemg4  40596  cdlemg6c  40599  cdlemg10c  40618  cdlemg10  40620  cdlemg12e  40626  cdlemg17dALTN  40643  cdlemg31a  40676  cdlemg31b  40677  cdlemg35  40692  cdlemg44a  40710  trljco  40719  trljco2  40720  tendoidcl  40748  tendococl  40751  tendoid  40752  tendopltp  40759  tendo0tp  40768  cdlemh1  40794  cdlemh2  40795  cdlemi1  40797  cdlemi  40799  cdlemk9  40818  cdlemk9bN  40819  cdlemkvcl  40821  cdlemk10  40822  cdlemk11  40828  cdlemk11u  40850  cdlemk37  40893  cdlemkfid1N  40900  cdlemkid1  40901  cdlemkid2  40903  cdlemk39s-id  40919  cdlemk48  40929  cdlemk50  40931  cdlemk51  40932  cdlemk52  40933  cdlemk39u  40947  tendoex  40954  dialss  41025  dia0  41031  diaglbN  41034  dia1dim  41040  dia2dimlem2  41044  dia2dimlem3  41045  dia2dimlem10  41052  cdlemm10N  41097  dib1dim  41144  diblss  41149  cdlemn2a  41175  dih1dimb  41219  dihopelvalcpre  41227  dih1  41265  dihmeetlem1N  41269  dihglblem5apreN  41270  dihglbcpreN  41279  dih1dimatlem  41308