Metamath Proof Explorer


Theorem cdlemg46

Description: Part of proof of Lemma G of Crawley p. 116, seventh line of third paragraph on p. 117: "hf and f have different traces." (Contributed by NM, 5-Jun-2013)

Ref Expression
Hypotheses cdlemg46.b ⊢ B = Base K
cdlemg46.h ⊢ H = LHyp ⁡ K
cdlemg46.t ⊢ T = LTrn ⁡ K ⁡ W
cdlemg46.r ⊢ R = trL ⁡ K ⁡ W
Assertion cdlemg46 ⊢ K ∈ HL ∧ W ∈ H ∧ F ∈ T ∧ h ∈ T ∧ F ≠ I ↾ B ∧ h ≠ I ↾ B ∧ R ⁡ h ≠ R ⁡ F → R ⁡ h ∘ F ≠ R ⁡ F

Proof

Step Hyp Ref Expression
1 cdlemg46.b ⊢ B = Base K
2 cdlemg46.h ⊢ H = LHyp ⁡ K
3 cdlemg46.t ⊢ T = LTrn ⁡ K ⁡ W
4 cdlemg46.r ⊢ R = trL ⁡ K ⁡ W
5 simpl1l ⊢ K ∈ HL ∧ W ∈ H ∧ F ∈ T ∧ h ∈ T ∧ F ≠ I ↾ B ∧ h ≠ I ↾ B ∧ R ⁡ h ≠ R ⁡ F ∧ R ⁡ h ∘ F ∈ Atoms ⁡ K → K ∈ HL
6 simp1 ⊢ K ∈ HL ∧ W ∈ H ∧ F ∈ T ∧ h ∈ T ∧ F ≠ I ↾ B ∧ h ≠ I ↾ B ∧ R ⁡ h ≠ R ⁡ F → K ∈ HL ∧ W ∈ H
7 simp2r ⊢ K ∈ HL ∧ W ∈ H ∧ F ∈ T ∧ h ∈ T ∧ F ≠ I ↾ B ∧ h ≠ I ↾ B ∧ R ⁡ h ≠ R ⁡ F → h ∈ T
8 simp32 ⊢ K ∈ HL ∧ W ∈ H ∧ F ∈ T ∧ h ∈ T ∧ F ≠ I ↾ B ∧ h ≠ I ↾ B ∧ R ⁡ h ≠ R ⁡ F → h ≠ I ↾ B
9 eqid ⊢ Atoms ⁡ K = Atoms ⁡ K
10 1 9 2 3 4 trlnidat ⊢ K ∈ HL ∧ W ∈ H ∧ h ∈ T ∧ h ≠ I ↾ B → R ⁡ h ∈ Atoms ⁡ K
11 6 7 8 10 syl3anc ⊢ K ∈ HL ∧ W ∈ H ∧ F ∈ T ∧ h ∈ T ∧ F ≠ I ↾ B ∧ h ≠ I ↾ B ∧ R ⁡ h ≠ R ⁡ F → R ⁡ h ∈ Atoms ⁡ K
12 11 adantr ⊢ K ∈ HL ∧ W ∈ H ∧ F ∈ T ∧ h ∈ T ∧ F ≠ I ↾ B ∧ h ≠ I ↾ B ∧ R ⁡ h ≠ R ⁡ F ∧ R ⁡ h ∘ F ∈ Atoms ⁡ K → R ⁡ h ∈ Atoms ⁡ K
13 simp2l ⊢ K ∈ HL ∧ W ∈ H ∧ F ∈ T ∧ h ∈ T ∧ F ≠ I ↾ B ∧ h ≠ I ↾ B ∧ R ⁡ h ≠ R ⁡ F → F ∈ T
14 simp31 ⊢ K ∈ HL ∧ W ∈ H ∧ F ∈ T ∧ h ∈ T ∧ F ≠ I ↾ B ∧ h ≠ I ↾ B ∧ R ⁡ h ≠ R ⁡ F → F ≠ I ↾ B
15 1 9 2 3 4 trlnidat ⊢ K ∈ HL ∧ W ∈ H ∧ F ∈ T ∧ F ≠ I ↾ B → R ⁡ F ∈ Atoms ⁡ K
16 6 13 14 15 syl3anc ⊢ K ∈ HL ∧ W ∈ H ∧ F ∈ T ∧ h ∈ T ∧ F ≠ I ↾ B ∧ h ≠ I ↾ B ∧ R ⁡ h ≠ R ⁡ F → R ⁡ F ∈ Atoms ⁡ K
17 16 adantr ⊢ K ∈ HL ∧ W ∈ H ∧ F ∈ T ∧ h ∈ T ∧ F ≠ I ↾ B ∧ h ≠ I ↾ B ∧ R ⁡ h ≠ R ⁡ F ∧ R ⁡ h ∘ F ∈ Atoms ⁡ K → R ⁡ F ∈ Atoms ⁡ K
18 simpl33 ⊢ K ∈ HL ∧ W ∈ H ∧ F ∈ T ∧ h ∈ T ∧ F ≠ I ↾ B ∧ h ≠ I ↾ B ∧ R ⁡ h ≠ R ⁡ F ∧ R ⁡ h ∘ F ∈ Atoms ⁡ K → R ⁡ h ≠ R ⁡ F
19 simpr ⊢ K ∈ HL ∧ W ∈ H ∧ F ∈ T ∧ h ∈ T ∧ F ≠ I ↾ B ∧ h ≠ I ↾ B ∧ R ⁡ h ≠ R ⁡ F ∧ R ⁡ h ∘ F ∈ Atoms ⁡ K → R ⁡ h ∘ F ∈ Atoms ⁡ K
20 2 3 ltrnco ⊢ K ∈ HL ∧ W ∈ H ∧ h ∈ T ∧ F ∈ T → h ∘ F ∈ T
21 6 7 13 20 syl3anc ⊢ K ∈ HL ∧ W ∈ H ∧ F ∈ T ∧ h ∈ T ∧ F ≠ I ↾ B ∧ h ≠ I ↾ B ∧ R ⁡ h ≠ R ⁡ F → h ∘ F ∈ T
22 2 3 ltrncnv ⊢ K ∈ HL ∧ W ∈ H ∧ F ∈ T → F -1 ∈ T
23 6 13 22 syl2anc ⊢ K ∈ HL ∧ W ∈ H ∧ F ∈ T ∧ h ∈ T ∧ F ≠ I ↾ B ∧ h ≠ I ↾ B ∧ R ⁡ h ≠ R ⁡ F → F -1 ∈ T
24 eqid ⊢ ≤ K = ≤ K
25 eqid ⊢ join ⁡ K = join ⁡ K
26 24 25 2 3 4 trlco ⊢ K ∈ HL ∧ W ∈ H ∧ h ∘ F ∈ T ∧ F -1 ∈ T → R ⁡ h ∘ F ∘ F -1 ≤ K R ⁡ h ∘ F join ⁡ K R ⁡ F -1
27 6 21 23 26 syl3anc ⊢ K ∈ HL ∧ W ∈ H ∧ F ∈ T ∧ h ∈ T ∧ F ≠ I ↾ B ∧ h ≠ I ↾ B ∧ R ⁡ h ≠ R ⁡ F → R ⁡ h ∘ F ∘ F -1 ≤ K R ⁡ h ∘ F join ⁡ K R ⁡ F -1
28 coass ⊢ h ∘ F ∘ F -1 = h ∘ F ∘ F -1
29 1 2 3 ltrn1o ⊢ K ∈ HL ∧ W ∈ H ∧ F ∈ T → F : B ⟶ 1-1 onto B
30 6 13 29 syl2anc ⊢ K ∈ HL ∧ W ∈ H ∧ F ∈ T ∧ h ∈ T ∧ F ≠ I ↾ B ∧ h ≠ I ↾ B ∧ R ⁡ h ≠ R ⁡ F → F : B ⟶ 1-1 onto B
31 f1ococnv2 ⊢ F : B ⟶ 1-1 onto B → F ∘ F -1 = I ↾ B
32 30 31 syl ⊢ K ∈ HL ∧ W ∈ H ∧ F ∈ T ∧ h ∈ T ∧ F ≠ I ↾ B ∧ h ≠ I ↾ B ∧ R ⁡ h ≠ R ⁡ F → F ∘ F -1 = I ↾ B
33 32 coeq2d ⊢ K ∈ HL ∧ W ∈ H ∧ F ∈ T ∧ h ∈ T ∧ F ≠ I ↾ B ∧ h ≠ I ↾ B ∧ R ⁡ h ≠ R ⁡ F → h ∘ F ∘ F -1 = h ∘ I ↾ B
34 1 2 3 ltrn1o ⊢ K ∈ HL ∧ W ∈ H ∧ h ∈ T → h : B ⟶ 1-1 onto B
35 6 7 34 syl2anc ⊢ K ∈ HL ∧ W ∈ H ∧ F ∈ T ∧ h ∈ T ∧ F ≠ I ↾ B ∧ h ≠ I ↾ B ∧ R ⁡ h ≠ R ⁡ F → h : B ⟶ 1-1 onto B
36 f1of ⊢ h : B ⟶ 1-1 onto B → h : B ⟶ B
37 fcoi1 ⊢ h : B ⟶ B → h ∘ I ↾ B = h
38 35 36 37 3syl ⊢ K ∈ HL ∧ W ∈ H ∧ F ∈ T ∧ h ∈ T ∧ F ≠ I ↾ B ∧ h ≠ I ↾ B ∧ R ⁡ h ≠ R ⁡ F → h ∘ I ↾ B = h
39 33 38 eqtrd ⊢ K ∈ HL ∧ W ∈ H ∧ F ∈ T ∧ h ∈ T ∧ F ≠ I ↾ B ∧ h ≠ I ↾ B ∧ R ⁡ h ≠ R ⁡ F → h ∘ F ∘ F -1 = h
40 28 39 eqtrid ⊢ K ∈ HL ∧ W ∈ H ∧ F ∈ T ∧ h ∈ T ∧ F ≠ I ↾ B ∧ h ≠ I ↾ B ∧ R ⁡ h ≠ R ⁡ F → h ∘ F ∘ F -1 = h
41 40 fveq2d ⊢ K ∈ HL ∧ W ∈ H ∧ F ∈ T ∧ h ∈ T ∧ F ≠ I ↾ B ∧ h ≠ I ↾ B ∧ R ⁡ h ≠ R ⁡ F → R ⁡ h ∘ F ∘ F -1 = R ⁡ h
42 2 3 4 trlcnv ⊢ K ∈ HL ∧ W ∈ H ∧ F ∈ T → R ⁡ F -1 = R ⁡ F
43 6 13 42 syl2anc ⊢ K ∈ HL ∧ W ∈ H ∧ F ∈ T ∧ h ∈ T ∧ F ≠ I ↾ B ∧ h ≠ I ↾ B ∧ R ⁡ h ≠ R ⁡ F → R ⁡ F -1 = R ⁡ F
44 43 oveq2d ⊢ K ∈ HL ∧ W ∈ H ∧ F ∈ T ∧ h ∈ T ∧ F ≠ I ↾ B ∧ h ≠ I ↾ B ∧ R ⁡ h ≠ R ⁡ F → R ⁡ h ∘ F join ⁡ K R ⁡ F -1 = R ⁡ h ∘ F join ⁡ K R ⁡ F
45 27 41 44 3brtr3d ⊢ K ∈ HL ∧ W ∈ H ∧ F ∈ T ∧ h ∈ T ∧ F ≠ I ↾ B ∧ h ≠ I ↾ B ∧ R ⁡ h ≠ R ⁡ F → R ⁡ h ≤ K R ⁡ h ∘ F join ⁡ K R ⁡ F
46 45 adantr ⊢ K ∈ HL ∧ W ∈ H ∧ F ∈ T ∧ h ∈ T ∧ F ≠ I ↾ B ∧ h ≠ I ↾ B ∧ R ⁡ h ≠ R ⁡ F ∧ R ⁡ h ∘ F ∈ Atoms ⁡ K → R ⁡ h ≤ K R ⁡ h ∘ F join ⁡ K R ⁡ F
47 24 25 9 hlatlej2 ⊢ K ∈ HL ∧ R ⁡ h ∘ F ∈ Atoms ⁡ K ∧ R ⁡ F ∈ Atoms ⁡ K → R ⁡ F ≤ K R ⁡ h ∘ F join ⁡ K R ⁡ F
48 5 19 17 47 syl3anc ⊢ K ∈ HL ∧ W ∈ H ∧ F ∈ T ∧ h ∈ T ∧ F ≠ I ↾ B ∧ h ≠ I ↾ B ∧ R ⁡ h ≠ R ⁡ F ∧ R ⁡ h ∘ F ∈ Atoms ⁡ K → R ⁡ F ≤ K R ⁡ h ∘ F join ⁡ K R ⁡ F
49 5 hllatd ⊢ K ∈ HL ∧ W ∈ H ∧ F ∈ T ∧ h ∈ T ∧ F ≠ I ↾ B ∧ h ≠ I ↾ B ∧ R ⁡ h ≠ R ⁡ F ∧ R ⁡ h ∘ F ∈ Atoms ⁡ K → K ∈ Lat
50 1 9 atbase ⊢ R ⁡ h ∈ Atoms ⁡ K → R ⁡ h ∈ B
51 12 50 syl ⊢ K ∈ HL ∧ W ∈ H ∧ F ∈ T ∧ h ∈ T ∧ F ≠ I ↾ B ∧ h ≠ I ↾ B ∧ R ⁡ h ≠ R ⁡ F ∧ R ⁡ h ∘ F ∈ Atoms ⁡ K → R ⁡ h ∈ B
52 1 9 atbase ⊢ R ⁡ F ∈ Atoms ⁡ K → R ⁡ F ∈ B
53 17 52 syl ⊢ K ∈ HL ∧ W ∈ H ∧ F ∈ T ∧ h ∈ T ∧ F ≠ I ↾ B ∧ h ≠ I ↾ B ∧ R ⁡ h ≠ R ⁡ F ∧ R ⁡ h ∘ F ∈ Atoms ⁡ K → R ⁡ F ∈ B
54 1 25 9 hlatjcl ⊢ K ∈ HL ∧ R ⁡ h ∘ F ∈ Atoms ⁡ K ∧ R ⁡ F ∈ Atoms ⁡ K → R ⁡ h ∘ F join ⁡ K R ⁡ F ∈ B
55 5 19 17 54 syl3anc ⊢ K ∈ HL ∧ W ∈ H ∧ F ∈ T ∧ h ∈ T ∧ F ≠ I ↾ B ∧ h ≠ I ↾ B ∧ R ⁡ h ≠ R ⁡ F ∧ R ⁡ h ∘ F ∈ Atoms ⁡ K → R ⁡ h ∘ F join ⁡ K R ⁡ F ∈ B
56 1 24 25 latjle12 ⊢ K ∈ Lat ∧ R ⁡ h ∈ B ∧ R ⁡ F ∈ B ∧ R ⁡ h ∘ F join ⁡ K R ⁡ F ∈ B → R ⁡ h ≤ K R ⁡ h ∘ F join ⁡ K R ⁡ F ∧ R ⁡ F ≤ K R ⁡ h ∘ F join ⁡ K R ⁡ F ↔ R ⁡ h join ⁡ K R ⁡ F ≤ K R ⁡ h ∘ F join ⁡ K R ⁡ F
57 49 51 53 55 56 syl13anc ⊢ K ∈ HL ∧ W ∈ H ∧ F ∈ T ∧ h ∈ T ∧ F ≠ I ↾ B ∧ h ≠ I ↾ B ∧ R ⁡ h ≠ R ⁡ F ∧ R ⁡ h ∘ F ∈ Atoms ⁡ K → R ⁡ h ≤ K R ⁡ h ∘ F join ⁡ K R ⁡ F ∧ R ⁡ F ≤ K R ⁡ h ∘ F join ⁡ K R ⁡ F ↔ R ⁡ h join ⁡ K R ⁡ F ≤ K R ⁡ h ∘ F join ⁡ K R ⁡ F
58 46 48 57 mpbi2and ⊢ K ∈ HL ∧ W ∈ H ∧ F ∈ T ∧ h ∈ T ∧ F ≠ I ↾ B ∧ h ≠ I ↾ B ∧ R ⁡ h ≠ R ⁡ F ∧ R ⁡ h ∘ F ∈ Atoms ⁡ K → R ⁡ h join ⁡ K R ⁡ F ≤ K R ⁡ h ∘ F join ⁡ K R ⁡ F
59 24 25 9 2atjlej ⊢ K ∈ HL ∧ R ⁡ h ∈ Atoms ⁡ K ∧ R ⁡ F ∈ Atoms ⁡ K ∧ R ⁡ h ≠ R ⁡ F ∧ R ⁡ h ∘ F ∈ Atoms ⁡ K ∧ R ⁡ F ∈ Atoms ⁡ K ∧ R ⁡ h join ⁡ K R ⁡ F ≤ K R ⁡ h ∘ F join ⁡ K R ⁡ F → R ⁡ h ∘ F ≠ R ⁡ F
60 5 12 17 18 19 17 58 59 syl133anc ⊢ K ∈ HL ∧ W ∈ H ∧ F ∈ T ∧ h ∈ T ∧ F ≠ I ↾ B ∧ h ≠ I ↾ B ∧ R ⁡ h ≠ R ⁡ F ∧ R ⁡ h ∘ F ∈ Atoms ⁡ K → R ⁡ h ∘ F ≠ R ⁡ F
61 nelne2 ⊢ R ⁡ F ∈ Atoms ⁡ K ∧ ¬ R ⁡ h ∘ F ∈ Atoms ⁡ K → R ⁡ F ≠ R ⁡ h ∘ F
62 61 necomd ⊢ R ⁡ F ∈ Atoms ⁡ K ∧ ¬ R ⁡ h ∘ F ∈ Atoms ⁡ K → R ⁡ h ∘ F ≠ R ⁡ F
63 16 62 sylan ⊢ K ∈ HL ∧ W ∈ H ∧ F ∈ T ∧ h ∈ T ∧ F ≠ I ↾ B ∧ h ≠ I ↾ B ∧ R ⁡ h ≠ R ⁡ F ∧ ¬ R ⁡ h ∘ F ∈ Atoms ⁡ K → R ⁡ h ∘ F ≠ R ⁡ F
64 60 63 pm2.61dan ⊢ K ∈ HL ∧ W ∈ H ∧ F ∈ T ∧ h ∈ T ∧ F ≠ I ↾ B ∧ h ≠ I ↾ B ∧ R ⁡ h ≠ R ⁡ F → R ⁡ h ∘ F ≠ R ⁡ F