Theorem trlat 36323

Description: If an atom differs from its translation, the trace is an atom. Equation above Lemma C in [Crawley] p. 112. (Contributed by NM, 23-May-2012.)

Hypotheses

Ref	Expression
trlat.l	⊢ ≤ = (le‘𝐾)
trlat.a	⊢ 𝐴 = (Atoms‘𝐾)
trlat.h	⊢ 𝐻 = (LHyp‘𝐾)
trlat.t	⊢ 𝑇 = ((LTrn‘𝐾)‘𝑊)
trlat.r	⊢ 𝑅 = ((trL‘𝐾)‘𝑊)

Assertion

Ref	Expression
trlat	⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑃 ∈ 𝐴 ∧ ¬ 𝑃 ≤ 𝑊) ∧ (𝐹 ∈ 𝑇 ∧ (𝐹‘𝑃) ≠ 𝑃)) → (𝑅‘𝐹) ∈ 𝐴)

Proof of Theorem trlat

Step	Hyp	Ref	Expression
1		simp1 1127	. . 3 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑃 ∈ 𝐴 ∧ ¬ 𝑃 ≤ 𝑊) ∧ (𝐹 ∈ 𝑇 ∧ (𝐹‘𝑃) ≠ 𝑃)) → (𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻))
2		simp3l 1215	. . 3 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑃 ∈ 𝐴 ∧ ¬ 𝑃 ≤ 𝑊) ∧ (𝐹 ∈ 𝑇 ∧ (𝐹‘𝑃) ≠ 𝑃)) → 𝐹 ∈ 𝑇)
3		simp2 1128	. . 3 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑃 ∈ 𝐴 ∧ ¬ 𝑃 ≤ 𝑊) ∧ (𝐹 ∈ 𝑇 ∧ (𝐹‘𝑃) ≠ 𝑃)) → (𝑃 ∈ 𝐴 ∧ ¬ 𝑃 ≤ 𝑊))
4		trlat.l	. . . 4 ⊢ ≤ = (le‘𝐾)
5		eqid 2778	. . . 4 ⊢ (join‘𝐾) = (join‘𝐾)
6		eqid 2778	. . . 4 ⊢ (meet‘𝐾) = (meet‘𝐾)
7		trlat.a	. . . 4 ⊢ 𝐴 = (Atoms‘𝐾)
8		trlat.h	. . . 4 ⊢ 𝐻 = (LHyp‘𝐾)
9		trlat.t	. . . 4 ⊢ 𝑇 = ((LTrn‘𝐾)‘𝑊)
10		trlat.r	. . . 4 ⊢ 𝑅 = ((trL‘𝐾)‘𝑊)
11	4, 5, 6, 7, 8, 9, 10	trlval2 36317	. . 3 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝐹 ∈ 𝑇 ∧ (𝑃 ∈ 𝐴 ∧ ¬ 𝑃 ≤ 𝑊)) → (𝑅‘𝐹) = ((𝑃(join‘𝐾)(𝐹‘𝑃))(meet‘𝐾)𝑊))
12	1, 2, 3, 11	syl3anc 1439	. 2 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑃 ∈ 𝐴 ∧ ¬ 𝑃 ≤ 𝑊) ∧ (𝐹 ∈ 𝑇 ∧ (𝐹‘𝑃) ≠ 𝑃)) → (𝑅‘𝐹) = ((𝑃(join‘𝐾)(𝐹‘𝑃))(meet‘𝐾)𝑊))
13		simp2l 1213	. . . 4 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑃 ∈ 𝐴 ∧ ¬ 𝑃 ≤ 𝑊) ∧ (𝐹 ∈ 𝑇 ∧ (𝐹‘𝑃) ≠ 𝑃)) → 𝑃 ∈ 𝐴)
14	4, 7, 8, 9	ltrnat 36294	. . . 4 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝐹 ∈ 𝑇 ∧ 𝑃 ∈ 𝐴) → (𝐹‘𝑃) ∈ 𝐴)
15	1, 2, 13, 14	syl3anc 1439	. . 3 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑃 ∈ 𝐴 ∧ ¬ 𝑃 ≤ 𝑊) ∧ (𝐹 ∈ 𝑇 ∧ (𝐹‘𝑃) ≠ 𝑃)) → (𝐹‘𝑃) ∈ 𝐴)
16		simp3r 1216	. . . 4 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑃 ∈ 𝐴 ∧ ¬ 𝑃 ≤ 𝑊) ∧ (𝐹 ∈ 𝑇 ∧ (𝐹‘𝑃) ≠ 𝑃)) → (𝐹‘𝑃) ≠ 𝑃)
17	16	necomd 3024	. . 3 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑃 ∈ 𝐴 ∧ ¬ 𝑃 ≤ 𝑊) ∧ (𝐹 ∈ 𝑇 ∧ (𝐹‘𝑃) ≠ 𝑃)) → 𝑃 ≠ (𝐹‘𝑃))
18	4, 5, 6, 7, 8	lhpat 36197	. . 3 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑃 ∈ 𝐴 ∧ ¬ 𝑃 ≤ 𝑊) ∧ ((𝐹‘𝑃) ∈ 𝐴 ∧ 𝑃 ≠ (𝐹‘𝑃))) → ((𝑃(join‘𝐾)(𝐹‘𝑃))(meet‘𝐾)𝑊) ∈ 𝐴)
19	1, 3, 15, 17, 18	syl112anc 1442	. 2 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑃 ∈ 𝐴 ∧ ¬ 𝑃 ≤ 𝑊) ∧ (𝐹 ∈ 𝑇 ∧ (𝐹‘𝑃) ≠ 𝑃)) → ((𝑃(join‘𝐾)(𝐹‘𝑃))(meet‘𝐾)𝑊) ∈ 𝐴)
20	12, 19	eqeltrd 2859	1 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑃 ∈ 𝐴 ∧ ¬ 𝑃 ≤ 𝑊) ∧ (𝐹 ∈ 𝑇 ∧ (𝐹‘𝑃) ≠ 𝑃)) → (𝑅‘𝐹) ∈ 𝐴)

Syntax hints:  ¬ wn 3   → wi 4   ∧ wa 386   ∧ w3a 1071   = wceq 1601   ∈ wcel 2107   ≠ wne 2969   class class class wbr 4886  ‘cfv 6135  (class class class)co 6922  lecple 16345  joincjn 17330  meetcmee 17331  Atomscatm 35417  HLchlt 35504  LHypclh 36138  LTrncltrn 36255  trLctrl 36312

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1839  ax-4 1853  ax-5 1953  ax-6 2021  ax-7 2055  ax-8 2109  ax-9 2116  ax-10 2135  ax-11 2150  ax-12 2163  ax-13 2334  ax-ext 2754  ax-rep 5006  ax-sep 5017  ax-nul 5025  ax-pow 5077  ax-pr 5138  ax-un 7226

This theorem depends on definitions:  df-bi 199  df-an 387  df-or 837  df-3an 1073  df-tru 1605  df-ex 1824  df-nf 1828  df-sb 2012  df-mo 2551  df-eu 2587  df-clab 2764  df-cleq 2770  df-clel 2774  df-nfc 2921  df-ne 2970  df-ral 3095  df-rex 3096  df-reu 3097  df-rab 3099  df-v 3400  df-sbc 3653  df-csb 3752  df-dif 3795  df-un 3797  df-in 3799  df-ss 3806  df-nul 4142  df-if 4308  df-pw 4381  df-sn 4399  df-pr 4401  df-op 4405  df-uni 4672  df-iun 4755  df-br 4887  df-opab 4949  df-mpt 4966  df-id 5261  df-xp 5361  df-rel 5362  df-cnv 5363  df-co 5364  df-dm 5365  df-rn 5366  df-res 5367  df-ima 5368  df-iota 6099  df-fun 6137  df-fn 6138  df-f 6139  df-f1 6140  df-fo 6141  df-f1o 6142  df-fv 6143  df-riota 6883  df-ov 6925  df-oprab 6926  df-mpt2 6927  df-map 8142  df-proset 17314  df-poset 17332  df-plt 17344  df-lub 17360  df-glb 17361  df-join 17362  df-meet 17363  df-p0 17425  df-p1 17426  df-lat 17432  df-clat 17494  df-oposet 35330  df-ol 35332  df-oml 35333  df-covers 35420  df-ats 35421  df-atl 35452  df-cvlat 35476  df-hlat 35505  df-lhyp 36142  df-laut 36143  df-ldil 36258  df-ltrn 36259  df-trl 36313

This theorem is referenced by:  trlator0  36325  trlnidat  36327  trlnle  36340  trlval3  36341  trlval4  36342  cdlemc5  36349  cdlemg17dALTN  36818  cdlemg27a  36846  cdlemg31b0N  36848  cdlemg27b  36850  cdlemg31c  36853  cdlemg35  36867  dia2dimlem1  37218  dia2dimlem2  37219  dia2dimlem3  37220