Theorem trlnidat 41421

Description: The trace of a lattice translation other than the identity is an atom. Remark above Lemma C in [Crawley] p. 112. (Contributed by NM, 23-May-2012.)

Hypotheses

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

Assertion

Ref	Expression
trlnidat	⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝐹 ∈ 𝑇 ∧ 𝐹 ≠ ( I ↾ 𝐵)) → (𝑅‘𝐹) ∈ 𝐴)

Proof of Theorem trlnidat

Dummy variable 𝑝 is distinct from all other variables.

Step	Hyp	Ref	Expression
1		trlnidat.b	. . 3 ⊢ 𝐵 = (Base‘𝐾)
2		eqid 2763	. . 3 ⊢ (le‘𝐾) = (le‘𝐾)
3		trlnidat.a	. . 3 ⊢ 𝐴 = (Atoms‘𝐾)
4		trlnidat.h	. . 3 ⊢ 𝐻 = (LHyp‘𝐾)
5		trlnidat.t	. . 3 ⊢ 𝑇 = ((LTrn‘𝐾)‘𝑊)
6	1, 2, 3, 4, 5	ltrnnid 41384	. 2 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝐹 ∈ 𝑇 ∧ 𝐹 ≠ ( I ↾ 𝐵)) → ∃𝑝 ∈ 𝐴 (¬ 𝑝(le‘𝐾)𝑊 ∧ (𝐹‘𝑝) ≠ 𝑝))
7		simp11 1222	. . . 4 ⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝐹 ∈ 𝑇 ∧ 𝐹 ≠ ( I ↾ 𝐵)) ∧ 𝑝 ∈ 𝐴 ∧ (¬ 𝑝(le‘𝐾)𝑊 ∧ (𝐹‘𝑝) ≠ 𝑝)) → (𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻))
8		simp2 1155	. . . 4 ⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝐹 ∈ 𝑇 ∧ 𝐹 ≠ ( I ↾ 𝐵)) ∧ 𝑝 ∈ 𝐴 ∧ (¬ 𝑝(le‘𝐾)𝑊 ∧ (𝐹‘𝑝) ≠ 𝑝)) → 𝑝 ∈ 𝐴)
9		simp3l 1220	. . . 4 ⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝐹 ∈ 𝑇 ∧ 𝐹 ≠ ( I ↾ 𝐵)) ∧ 𝑝 ∈ 𝐴 ∧ (¬ 𝑝(le‘𝐾)𝑊 ∧ (𝐹‘𝑝) ≠ 𝑝)) → ¬ 𝑝(le‘𝐾)𝑊)
10		simp12 1223	. . . 4 ⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝐹 ∈ 𝑇 ∧ 𝐹 ≠ ( I ↾ 𝐵)) ∧ 𝑝 ∈ 𝐴 ∧ (¬ 𝑝(le‘𝐾)𝑊 ∧ (𝐹‘𝑝) ≠ 𝑝)) → 𝐹 ∈ 𝑇)
11		simp3r 1221	. . . 4 ⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝐹 ∈ 𝑇 ∧ 𝐹 ≠ ( I ↾ 𝐵)) ∧ 𝑝 ∈ 𝐴 ∧ (¬ 𝑝(le‘𝐾)𝑊 ∧ (𝐹‘𝑝) ≠ 𝑝)) → (𝐹‘𝑝) ≠ 𝑝)
12		trlnidat.r	. . . . 5 ⊢ 𝑅 = ((trL‘𝐾)‘𝑊)
13	2, 3, 4, 5, 12	trlat 41417	. . . 4 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑝 ∈ 𝐴 ∧ ¬ 𝑝(le‘𝐾)𝑊) ∧ (𝐹 ∈ 𝑇 ∧ (𝐹‘𝑝) ≠ 𝑝)) → (𝑅‘𝐹) ∈ 𝐴)
14	7, 8, 9, 10, 11, 13	syl122anc 1407	. . 3 ⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝐹 ∈ 𝑇 ∧ 𝐹 ≠ ( I ↾ 𝐵)) ∧ 𝑝 ∈ 𝐴 ∧ (¬ 𝑝(le‘𝐾)𝑊 ∧ (𝐹‘𝑝) ≠ 𝑝)) → (𝑅‘𝐹) ∈ 𝐴)
15	14	rexlimdv3a 3171	. 2 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝐹 ∈ 𝑇 ∧ 𝐹 ≠ ( I ↾ 𝐵)) → (∃𝑝 ∈ 𝐴 (¬ 𝑝(le‘𝐾)𝑊 ∧ (𝐹‘𝑝) ≠ 𝑝) → (𝑅‘𝐹) ∈ 𝐴))
16	6, 15	mpd 16	1 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝐹 ∈ 𝑇 ∧ 𝐹 ≠ ( I ↾ 𝐵)) → (𝑅‘𝐹) ∈ 𝐴)

This proof depends on syntax axioms:  ¬ wn 3   → wi 4   ∧ wa 401   ∧ w3a 1103   = wceq 1570   ∈ wcel 2147   ≠ wne 2959  ∃wrex 3090   class class class wbr 5106   I cid 5549   ↾ cres 5657  ‘cfv 6555  Basecbs 17413  lecple 17461  Atomscatm 40511  HLchlt 40598  LHypclh 41232  LTrncltrn 41349  trLctrl 41406

This proof depends on axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1828  ax-4 1842  ax-5 1945  ax-6 2002  ax-7 2043  ax-8 2149  ax-9 2157  ax-10 2180  ax-11 2197  ax-12 2216  ax-ext 2735  ax-rep 5235  ax-sep 5252  ax-nul 5263  ax-pow 5331  ax-pr 5395  ax-un 7772

This proof depends on definitions:  df-bi 210  df-an 402  df-or 862  df-3an 1105  df-tru 1573  df-fal 1583  df-ex 1813  df-nf 1817  df-sb 2102  df-mo 2567  df-eu 2597  df-clab 2742  df-cleq 2755  df-clel 2839  df-nfc 2913  df-ne 2960  df-ral 3081  df-rex 3091  df-rmo 3369  df-reu 3370  df-rab 3417  df-v 3456  df-sbc 3743  df-csb 3852  df-ss 3901  df-dif 4050  df-in 4094  df-un 4154  df-nul 4282  df-if 4486  df-pw 4562  df-sn 4589  df-pr 4591  df-op 4839  df-uni 4871  df-iun 4956  df-br 5107  df-opab 5171  df-mpt 5190  df-id 5550  df-xp 5661  df-rel 5662  df-cnv 5663  df-co 5664  df-dm 5665  df-rn 5666  df-res 5667  df-ima 5668  df-iota 6509  df-fun 6557  df-fn 6558  df-f 6559  df-f1 6560  df-fo 6561  df-f1o 6562  df-fv 6563  df-riota 7397  df-ov 7443  df-oprab 7444  df-mpo 7445  df-map 8874  df-proset 18494  df-poset 18513  df-plt 18528  df-lub 18544  df-glb 18545  df-join 18546  df-meet 18547  df-p0 18623  df-p1 18624  df-lat 18632  df-clat 18699  df-oposet 40424  df-ol 40426  df-oml 40427  df-covers 40514  df-ats 40515  df-atl 40546  df-cvlat 40570  df-hlat 40599  df-lhyp 41236  df-laut 41237  df-ldil 41352  df-ltrn 41353  df-trl 41407

This theorem is used by:  ltrnnidn  41422  trlnidatb  41425  trlcone  41976  cdlemg46  41983  trljco  41988  cdlemh2  42064  cdlemh  42065  tendotr  42078  cdlemk3  42081  cdlemk12  42098  cdlemkole  42101  cdlemk14  42102  cdlemk15  42103  cdlemk1u  42107  cdlemk5u  42109  cdlemk12u  42120  cdlemk37  42162  cdlemk39  42164  cdlemkid1  42170  cdlemk47  42197  cdlemk51  42201  cdlemk52  42202  cdleml1N  42224