Theorem cdlemg46 41356

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.)

Hypotheses

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

Assertion

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

Distinct variable groups:   ℎ,𝐹   ℎ,𝐻   ℎ,𝐾   𝑅,ℎ   𝑇,ℎ   ℎ,𝑊

Allowed substitution hint:   𝐵(ℎ)

Proof of Theorem cdlemg46

Step	Hyp	Ref	Expression
1		simpl1l 1238	. . 3 ⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝐹 ∈ 𝑇 ∧ ℎ ∈ 𝑇) ∧ (𝐹 ≠ ( I ↾ 𝐵) ∧ ℎ ≠ ( I ↾ 𝐵) ∧ (𝑅‘ℎ) ≠ (𝑅‘𝐹))) ∧ (𝑅‘(ℎ ∘ 𝐹)) ∈ (Atoms‘𝐾)) → 𝐾 ∈ HL)
2		simp1 1149	. . . . 5 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝐹 ∈ 𝑇 ∧ ℎ ∈ 𝑇) ∧ (𝐹 ≠ ( I ↾ 𝐵) ∧ ℎ ≠ ( I ↾ 𝐵) ∧ (𝑅‘ℎ) ≠ (𝑅‘𝐹))) → (𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻))
3		simp2r 1214	. . . . 5 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝐹 ∈ 𝑇 ∧ ℎ ∈ 𝑇) ∧ (𝐹 ≠ ( I ↾ 𝐵) ∧ ℎ ≠ ( I ↾ 𝐵) ∧ (𝑅‘ℎ) ≠ (𝑅‘𝐹))) → ℎ ∈ 𝑇)
4		simp32 1224	. . . . 5 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝐹 ∈ 𝑇 ∧ ℎ ∈ 𝑇) ∧ (𝐹 ≠ ( I ↾ 𝐵) ∧ ℎ ≠ ( I ↾ 𝐵) ∧ (𝑅‘ℎ) ≠ (𝑅‘𝐹))) → ℎ ≠ ( I ↾ 𝐵))
5		cdlemg46.b	. . . . . 6 ⊢ 𝐵 = (Base‘𝐾)
6		eqid 2762	. . . . . 6 ⊢ (Atoms‘𝐾) = (Atoms‘𝐾)
7		cdlemg46.h	. . . . . 6 ⊢ 𝐻 = (LHyp‘𝐾)
8		cdlemg46.t	. . . . . 6 ⊢ 𝑇 = ((LTrn‘𝐾)‘𝑊)
9		cdlemg46.r	. . . . . 6 ⊢ 𝑅 = ((trL‘𝐾)‘𝑊)
10	5, 6, 7, 8, 9	trlnidat 40794	. . . . 5 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ ℎ ∈ 𝑇 ∧ ℎ ≠ ( I ↾ 𝐵)) → (𝑅‘ℎ) ∈ (Atoms‘𝐾))
11	2, 3, 4, 10	syl3anc 1390	. . . 4 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝐹 ∈ 𝑇 ∧ ℎ ∈ 𝑇) ∧ (𝐹 ≠ ( I ↾ 𝐵) ∧ ℎ ≠ ( I ↾ 𝐵) ∧ (𝑅‘ℎ) ≠ (𝑅‘𝐹))) → (𝑅‘ℎ) ∈ (Atoms‘𝐾))
12	11	adantr 484	. . 3 ⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝐹 ∈ 𝑇 ∧ ℎ ∈ 𝑇) ∧ (𝐹 ≠ ( I ↾ 𝐵) ∧ ℎ ≠ ( I ↾ 𝐵) ∧ (𝑅‘ℎ) ≠ (𝑅‘𝐹))) ∧ (𝑅‘(ℎ ∘ 𝐹)) ∈ (Atoms‘𝐾)) → (𝑅‘ℎ) ∈ (Atoms‘𝐾))
13		simp2l 1213	. . . . 5 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝐹 ∈ 𝑇 ∧ ℎ ∈ 𝑇) ∧ (𝐹 ≠ ( I ↾ 𝐵) ∧ ℎ ≠ ( I ↾ 𝐵) ∧ (𝑅‘ℎ) ≠ (𝑅‘𝐹))) → 𝐹 ∈ 𝑇)
14		simp31 1223	. . . . 5 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝐹 ∈ 𝑇 ∧ ℎ ∈ 𝑇) ∧ (𝐹 ≠ ( I ↾ 𝐵) ∧ ℎ ≠ ( I ↾ 𝐵) ∧ (𝑅‘ℎ) ≠ (𝑅‘𝐹))) → 𝐹 ≠ ( I ↾ 𝐵))
15	5, 6, 7, 8, 9	trlnidat 40794	. . . . 5 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝐹 ∈ 𝑇 ∧ 𝐹 ≠ ( I ↾ 𝐵)) → (𝑅‘𝐹) ∈ (Atoms‘𝐾))
16	2, 13, 14, 15	syl3anc 1390	. . . 4 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝐹 ∈ 𝑇 ∧ ℎ ∈ 𝑇) ∧ (𝐹 ≠ ( I ↾ 𝐵) ∧ ℎ ≠ ( I ↾ 𝐵) ∧ (𝑅‘ℎ) ≠ (𝑅‘𝐹))) → (𝑅‘𝐹) ∈ (Atoms‘𝐾))
17	16	adantr 484	. . 3 ⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝐹 ∈ 𝑇 ∧ ℎ ∈ 𝑇) ∧ (𝐹 ≠ ( I ↾ 𝐵) ∧ ℎ ≠ ( I ↾ 𝐵) ∧ (𝑅‘ℎ) ≠ (𝑅‘𝐹))) ∧ (𝑅‘(ℎ ∘ 𝐹)) ∈ (Atoms‘𝐾)) → (𝑅‘𝐹) ∈ (Atoms‘𝐾))
18		simpl33 1270	. . 3 ⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝐹 ∈ 𝑇 ∧ ℎ ∈ 𝑇) ∧ (𝐹 ≠ ( I ↾ 𝐵) ∧ ℎ ≠ ( I ↾ 𝐵) ∧ (𝑅‘ℎ) ≠ (𝑅‘𝐹))) ∧ (𝑅‘(ℎ ∘ 𝐹)) ∈ (Atoms‘𝐾)) → (𝑅‘ℎ) ≠ (𝑅‘𝐹))
19		simpr 488	. . 3 ⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝐹 ∈ 𝑇 ∧ ℎ ∈ 𝑇) ∧ (𝐹 ≠ ( I ↾ 𝐵) ∧ ℎ ≠ ( I ↾ 𝐵) ∧ (𝑅‘ℎ) ≠ (𝑅‘𝐹))) ∧ (𝑅‘(ℎ ∘ 𝐹)) ∈ (Atoms‘𝐾)) → (𝑅‘(ℎ ∘ 𝐹)) ∈ (Atoms‘𝐾))
20	7, 8	ltrnco 41340	. . . . . . . 8 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ ℎ ∈ 𝑇 ∧ 𝐹 ∈ 𝑇) → (ℎ ∘ 𝐹) ∈ 𝑇)
21	2, 3, 13, 20	syl3anc 1390	. . . . . . 7 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝐹 ∈ 𝑇 ∧ ℎ ∈ 𝑇) ∧ (𝐹 ≠ ( I ↾ 𝐵) ∧ ℎ ≠ ( I ↾ 𝐵) ∧ (𝑅‘ℎ) ≠ (𝑅‘𝐹))) → (ℎ ∘ 𝐹) ∈ 𝑇)
22	7, 8	ltrncnv 40767	. . . . . . . 8 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝐹 ∈ 𝑇) → ◡𝐹 ∈ 𝑇)
23	2, 13, 22	syl2anc 593	. . . . . . 7 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝐹 ∈ 𝑇 ∧ ℎ ∈ 𝑇) ∧ (𝐹 ≠ ( I ↾ 𝐵) ∧ ℎ ≠ ( I ↾ 𝐵) ∧ (𝑅‘ℎ) ≠ (𝑅‘𝐹))) → ◡𝐹 ∈ 𝑇)
24		eqid 2762	. . . . . . . 8 ⊢ (le‘𝐾) = (le‘𝐾)
25		eqid 2762	. . . . . . . 8 ⊢ (join‘𝐾) = (join‘𝐾)
26	24, 25, 7, 8, 9	trlco 41348	. . . . . . 7 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (ℎ ∘ 𝐹) ∈ 𝑇 ∧ ◡𝐹 ∈ 𝑇) → (𝑅‘((ℎ ∘ 𝐹) ∘ ◡𝐹))(le‘𝐾)((𝑅‘(ℎ ∘ 𝐹))(join‘𝐾)(𝑅‘◡𝐹)))
27	2, 21, 23, 26	syl3anc 1390	. . . . . 6 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝐹 ∈ 𝑇 ∧ ℎ ∈ 𝑇) ∧ (𝐹 ≠ ( I ↾ 𝐵) ∧ ℎ ≠ ( I ↾ 𝐵) ∧ (𝑅‘ℎ) ≠ (𝑅‘𝐹))) → (𝑅‘((ℎ ∘ 𝐹) ∘ ◡𝐹))(le‘𝐾)((𝑅‘(ℎ ∘ 𝐹))(join‘𝐾)(𝑅‘◡𝐹)))
28		coass 6253	. . . . . . . 8 ⊢ ((ℎ ∘ 𝐹) ∘ ◡𝐹) = (ℎ ∘ (𝐹 ∘ ◡𝐹))
29	5, 7, 8	ltrn1o 40745	. . . . . . . . . . . 12 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝐹 ∈ 𝑇) → 𝐹:𝐵–1-1-onto→𝐵)
30	2, 13, 29	syl2anc 593	. . . . . . . . . . 11 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝐹 ∈ 𝑇 ∧ ℎ ∈ 𝑇) ∧ (𝐹 ≠ ( I ↾ 𝐵) ∧ ℎ ≠ ( I ↾ 𝐵) ∧ (𝑅‘ℎ) ≠ (𝑅‘𝐹))) → 𝐹:𝐵–1-1-onto→𝐵)
31		f1ococnv2 6834	. . . . . . . . . . 11 ⊢ (𝐹:𝐵–1-1-onto→𝐵 → (𝐹 ∘ ◡𝐹) = ( I ↾ 𝐵))
32	30, 31	syl 17	. . . . . . . . . 10 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝐹 ∈ 𝑇 ∧ ℎ ∈ 𝑇) ∧ (𝐹 ≠ ( I ↾ 𝐵) ∧ ℎ ≠ ( I ↾ 𝐵) ∧ (𝑅‘ℎ) ≠ (𝑅‘𝐹))) → (𝐹 ∘ ◡𝐹) = ( I ↾ 𝐵))
33	32	coeq2d 5834	. . . . . . . . 9 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝐹 ∈ 𝑇 ∧ ℎ ∈ 𝑇) ∧ (𝐹 ≠ ( I ↾ 𝐵) ∧ ℎ ≠ ( I ↾ 𝐵) ∧ (𝑅‘ℎ) ≠ (𝑅‘𝐹))) → (ℎ ∘ (𝐹 ∘ ◡𝐹)) = (ℎ ∘ ( I ↾ 𝐵)))
34	5, 7, 8	ltrn1o 40745	. . . . . . . . . . 11 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ ℎ ∈ 𝑇) → ℎ:𝐵–1-1-onto→𝐵)
35	2, 3, 34	syl2anc 593	. . . . . . . . . 10 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝐹 ∈ 𝑇 ∧ ℎ ∈ 𝑇) ∧ (𝐹 ≠ ( I ↾ 𝐵) ∧ ℎ ≠ ( I ↾ 𝐵) ∧ (𝑅‘ℎ) ≠ (𝑅‘𝐹))) → ℎ:𝐵–1-1-onto→𝐵)
36		f1of 6806	. . . . . . . . . 10 ⊢ (ℎ:𝐵–1-1-onto→𝐵 → ℎ:𝐵⟶𝐵)
37		fcoi1 6738	. . . . . . . . . 10 ⊢ (ℎ:𝐵⟶𝐵 → (ℎ ∘ ( I ↾ 𝐵)) = ℎ)
38	35, 36, 37	3syl 18	. . . . . . . . 9 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝐹 ∈ 𝑇 ∧ ℎ ∈ 𝑇) ∧ (𝐹 ≠ ( I ↾ 𝐵) ∧ ℎ ≠ ( I ↾ 𝐵) ∧ (𝑅‘ℎ) ≠ (𝑅‘𝐹))) → (ℎ ∘ ( I ↾ 𝐵)) = ℎ)
39	33, 38	eqtrd 2797	. . . . . . . 8 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝐹 ∈ 𝑇 ∧ ℎ ∈ 𝑇) ∧ (𝐹 ≠ ( I ↾ 𝐵) ∧ ℎ ≠ ( I ↾ 𝐵) ∧ (𝑅‘ℎ) ≠ (𝑅‘𝐹))) → (ℎ ∘ (𝐹 ∘ ◡𝐹)) = ℎ)
40	28, 39	eqtrid 2809	. . . . . . 7 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝐹 ∈ 𝑇 ∧ ℎ ∈ 𝑇) ∧ (𝐹 ≠ ( I ↾ 𝐵) ∧ ℎ ≠ ( I ↾ 𝐵) ∧ (𝑅‘ℎ) ≠ (𝑅‘𝐹))) → ((ℎ ∘ 𝐹) ∘ ◡𝐹) = ℎ)
41	40	fveq2d 6871	. . . . . 6 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝐹 ∈ 𝑇 ∧ ℎ ∈ 𝑇) ∧ (𝐹 ≠ ( I ↾ 𝐵) ∧ ℎ ≠ ( I ↾ 𝐵) ∧ (𝑅‘ℎ) ≠ (𝑅‘𝐹))) → (𝑅‘((ℎ ∘ 𝐹) ∘ ◡𝐹)) = (𝑅‘ℎ))
42	7, 8, 9	trlcnv 40786	. . . . . . . 8 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝐹 ∈ 𝑇) → (𝑅‘◡𝐹) = (𝑅‘𝐹))
43	2, 13, 42	syl2anc 593	. . . . . . 7 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝐹 ∈ 𝑇 ∧ ℎ ∈ 𝑇) ∧ (𝐹 ≠ ( I ↾ 𝐵) ∧ ℎ ≠ ( I ↾ 𝐵) ∧ (𝑅‘ℎ) ≠ (𝑅‘𝐹))) → (𝑅‘◡𝐹) = (𝑅‘𝐹))
44	43	oveq2d 7412	. . . . . 6 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝐹 ∈ 𝑇 ∧ ℎ ∈ 𝑇) ∧ (𝐹 ≠ ( I ↾ 𝐵) ∧ ℎ ≠ ( I ↾ 𝐵) ∧ (𝑅‘ℎ) ≠ (𝑅‘𝐹))) → ((𝑅‘(ℎ ∘ 𝐹))(join‘𝐾)(𝑅‘◡𝐹)) = ((𝑅‘(ℎ ∘ 𝐹))(join‘𝐾)(𝑅‘𝐹)))
45	27, 41, 44	3brtr3d 5131	. . . . 5 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝐹 ∈ 𝑇 ∧ ℎ ∈ 𝑇) ∧ (𝐹 ≠ ( I ↾ 𝐵) ∧ ℎ ≠ ( I ↾ 𝐵) ∧ (𝑅‘ℎ) ≠ (𝑅‘𝐹))) → (𝑅‘ℎ)(le‘𝐾)((𝑅‘(ℎ ∘ 𝐹))(join‘𝐾)(𝑅‘𝐹)))
46	45	adantr 484	. . . 4 ⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝐹 ∈ 𝑇 ∧ ℎ ∈ 𝑇) ∧ (𝐹 ≠ ( I ↾ 𝐵) ∧ ℎ ≠ ( I ↾ 𝐵) ∧ (𝑅‘ℎ) ≠ (𝑅‘𝐹))) ∧ (𝑅‘(ℎ ∘ 𝐹)) ∈ (Atoms‘𝐾)) → (𝑅‘ℎ)(le‘𝐾)((𝑅‘(ℎ ∘ 𝐹))(join‘𝐾)(𝑅‘𝐹)))
47	24, 25, 6	hlatlej2 39997	. . . . 5 ⊢ ((𝐾 ∈ HL ∧ (𝑅‘(ℎ ∘ 𝐹)) ∈ (Atoms‘𝐾) ∧ (𝑅‘𝐹) ∈ (Atoms‘𝐾)) → (𝑅‘𝐹)(le‘𝐾)((𝑅‘(ℎ ∘ 𝐹))(join‘𝐾)(𝑅‘𝐹)))
48	1, 19, 17, 47	syl3anc 1390	. . . 4 ⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝐹 ∈ 𝑇 ∧ ℎ ∈ 𝑇) ∧ (𝐹 ≠ ( I ↾ 𝐵) ∧ ℎ ≠ ( I ↾ 𝐵) ∧ (𝑅‘ℎ) ≠ (𝑅‘𝐹))) ∧ (𝑅‘(ℎ ∘ 𝐹)) ∈ (Atoms‘𝐾)) → (𝑅‘𝐹)(le‘𝐾)((𝑅‘(ℎ ∘ 𝐹))(join‘𝐾)(𝑅‘𝐹)))
49	1	hllatd 39985	. . . . 5 ⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝐹 ∈ 𝑇 ∧ ℎ ∈ 𝑇) ∧ (𝐹 ≠ ( I ↾ 𝐵) ∧ ℎ ≠ ( I ↾ 𝐵) ∧ (𝑅‘ℎ) ≠ (𝑅‘𝐹))) ∧ (𝑅‘(ℎ ∘ 𝐹)) ∈ (Atoms‘𝐾)) → 𝐾 ∈ Lat)
50	5, 6	atbase 39910	. . . . . 6 ⊢ ((𝑅‘ℎ) ∈ (Atoms‘𝐾) → (𝑅‘ℎ) ∈ 𝐵)
51	12, 50	syl 17	. . . . 5 ⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝐹 ∈ 𝑇 ∧ ℎ ∈ 𝑇) ∧ (𝐹 ≠ ( I ↾ 𝐵) ∧ ℎ ≠ ( I ↾ 𝐵) ∧ (𝑅‘ℎ) ≠ (𝑅‘𝐹))) ∧ (𝑅‘(ℎ ∘ 𝐹)) ∈ (Atoms‘𝐾)) → (𝑅‘ℎ) ∈ 𝐵)
52	5, 6	atbase 39910	. . . . . 6 ⊢ ((𝑅‘𝐹) ∈ (Atoms‘𝐾) → (𝑅‘𝐹) ∈ 𝐵)
53	17, 52	syl 17	. . . . 5 ⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝐹 ∈ 𝑇 ∧ ℎ ∈ 𝑇) ∧ (𝐹 ≠ ( I ↾ 𝐵) ∧ ℎ ≠ ( I ↾ 𝐵) ∧ (𝑅‘ℎ) ≠ (𝑅‘𝐹))) ∧ (𝑅‘(ℎ ∘ 𝐹)) ∈ (Atoms‘𝐾)) → (𝑅‘𝐹) ∈ 𝐵)
54	5, 25, 6	hlatjcl 39988	. . . . . 6 ⊢ ((𝐾 ∈ HL ∧ (𝑅‘(ℎ ∘ 𝐹)) ∈ (Atoms‘𝐾) ∧ (𝑅‘𝐹) ∈ (Atoms‘𝐾)) → ((𝑅‘(ℎ ∘ 𝐹))(join‘𝐾)(𝑅‘𝐹)) ∈ 𝐵)
55	1, 19, 17, 54	syl3anc 1390	. . . . 5 ⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝐹 ∈ 𝑇 ∧ ℎ ∈ 𝑇) ∧ (𝐹 ≠ ( I ↾ 𝐵) ∧ ℎ ≠ ( I ↾ 𝐵) ∧ (𝑅‘ℎ) ≠ (𝑅‘𝐹))) ∧ (𝑅‘(ℎ ∘ 𝐹)) ∈ (Atoms‘𝐾)) → ((𝑅‘(ℎ ∘ 𝐹))(join‘𝐾)(𝑅‘𝐹)) ∈ 𝐵)
56	5, 24, 25	latjle12 18482	. . . . 5 ⊢ ((𝐾 ∈ Lat ∧ ((𝑅‘ℎ) ∈ 𝐵 ∧ (𝑅‘𝐹) ∈ 𝐵 ∧ ((𝑅‘(ℎ ∘ 𝐹))(join‘𝐾)(𝑅‘𝐹)) ∈ 𝐵)) → (((𝑅‘ℎ)(le‘𝐾)((𝑅‘(ℎ ∘ 𝐹))(join‘𝐾)(𝑅‘𝐹)) ∧ (𝑅‘𝐹)(le‘𝐾)((𝑅‘(ℎ ∘ 𝐹))(join‘𝐾)(𝑅‘𝐹))) ↔ ((𝑅‘ℎ)(join‘𝐾)(𝑅‘𝐹))(le‘𝐾)((𝑅‘(ℎ ∘ 𝐹))(join‘𝐾)(𝑅‘𝐹))))
57	49, 51, 53, 55, 56	syl13anc 1391	. . . 4 ⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝐹 ∈ 𝑇 ∧ ℎ ∈ 𝑇) ∧ (𝐹 ≠ ( I ↾ 𝐵) ∧ ℎ ≠ ( I ↾ 𝐵) ∧ (𝑅‘ℎ) ≠ (𝑅‘𝐹))) ∧ (𝑅‘(ℎ ∘ 𝐹)) ∈ (Atoms‘𝐾)) → (((𝑅‘ℎ)(le‘𝐾)((𝑅‘(ℎ ∘ 𝐹))(join‘𝐾)(𝑅‘𝐹)) ∧ (𝑅‘𝐹)(le‘𝐾)((𝑅‘(ℎ ∘ 𝐹))(join‘𝐾)(𝑅‘𝐹))) ↔ ((𝑅‘ℎ)(join‘𝐾)(𝑅‘𝐹))(le‘𝐾)((𝑅‘(ℎ ∘ 𝐹))(join‘𝐾)(𝑅‘𝐹))))
58	46, 48, 57	mpbi2and 722	. . 3 ⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝐹 ∈ 𝑇 ∧ ℎ ∈ 𝑇) ∧ (𝐹 ≠ ( I ↾ 𝐵) ∧ ℎ ≠ ( I ↾ 𝐵) ∧ (𝑅‘ℎ) ≠ (𝑅‘𝐹))) ∧ (𝑅‘(ℎ ∘ 𝐹)) ∈ (Atoms‘𝐾)) → ((𝑅‘ℎ)(join‘𝐾)(𝑅‘𝐹))(le‘𝐾)((𝑅‘(ℎ ∘ 𝐹))(join‘𝐾)(𝑅‘𝐹)))
59	24, 25, 6	2atjlej 40100	. . 3 ⊢ ((𝐾 ∈ HL ∧ ((𝑅‘ℎ) ∈ (Atoms‘𝐾) ∧ (𝑅‘𝐹) ∈ (Atoms‘𝐾) ∧ (𝑅‘ℎ) ≠ (𝑅‘𝐹)) ∧ ((𝑅‘(ℎ ∘ 𝐹)) ∈ (Atoms‘𝐾) ∧ (𝑅‘𝐹) ∈ (Atoms‘𝐾) ∧ ((𝑅‘ℎ)(join‘𝐾)(𝑅‘𝐹))(le‘𝐾)((𝑅‘(ℎ ∘ 𝐹))(join‘𝐾)(𝑅‘𝐹)))) → (𝑅‘(ℎ ∘ 𝐹)) ≠ (𝑅‘𝐹))
60	1, 12, 17, 18, 19, 17, 58, 59	syl133anc 1412	. 2 ⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝐹 ∈ 𝑇 ∧ ℎ ∈ 𝑇) ∧ (𝐹 ≠ ( I ↾ 𝐵) ∧ ℎ ≠ ( I ↾ 𝐵) ∧ (𝑅‘ℎ) ≠ (𝑅‘𝐹))) ∧ (𝑅‘(ℎ ∘ 𝐹)) ∈ (Atoms‘𝐾)) → (𝑅‘(ℎ ∘ 𝐹)) ≠ (𝑅‘𝐹))
61		nelne2 3055	. . . 4 ⊢ (((𝑅‘𝐹) ∈ (Atoms‘𝐾) ∧ ¬ (𝑅‘(ℎ ∘ 𝐹)) ∈ (Atoms‘𝐾)) → (𝑅‘𝐹) ≠ (𝑅‘(ℎ ∘ 𝐹)))
62	61	necomd 3012	. . 3 ⊢ (((𝑅‘𝐹) ∈ (Atoms‘𝐾) ∧ ¬ (𝑅‘(ℎ ∘ 𝐹)) ∈ (Atoms‘𝐾)) → (𝑅‘(ℎ ∘ 𝐹)) ≠ (𝑅‘𝐹))
63	16, 62	sylan 589	. 2 ⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝐹 ∈ 𝑇 ∧ ℎ ∈ 𝑇) ∧ (𝐹 ≠ ( I ↾ 𝐵) ∧ ℎ ≠ ( I ↾ 𝐵) ∧ (𝑅‘ℎ) ≠ (𝑅‘𝐹))) ∧ ¬ (𝑅‘(ℎ ∘ 𝐹)) ∈ (Atoms‘𝐾)) → (𝑅‘(ℎ ∘ 𝐹)) ≠ (𝑅‘𝐹))
64	60, 63	pm2.61dan 822	1 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝐹 ∈ 𝑇 ∧ ℎ ∈ 𝑇) ∧ (𝐹 ≠ ( I ↾ 𝐵) ∧ ℎ ≠ ( I ↾ 𝐵) ∧ (𝑅‘ℎ) ≠ (𝑅‘𝐹))) → (𝑅‘(ℎ ∘ 𝐹)) ≠ (𝑅‘𝐹))

Syntax hints:  ¬ wn 3   → wi 4   ↔ wb 208   ∧ wa 399   ∧ w3a 1098   = wceq 1560   ∈ wcel 2142   ≠ wne 2957   class class class wbr 5100   I cid 5541  ^◡ccnv 5646   ↾ cres 5649   ∘ ccom 5651  ⟶wf 6517  –1-1-onto→wf1o 6520  ‘cfv 6521  (class class class)co 7396  Basecbs 17245  lecple 17293  joincjn 18343  Latclat 18463  Atomscatm 39884  HLchlt 39971  LHypclh 40605  LTrncltrn 40722  trLctrl 40779

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1815  ax-4 1829  ax-5 1930  ax-6 1987  ax-7 2028  ax-8 2144  ax-9 2152  ax-10 2175  ax-11 2191  ax-12 2212  ax-ext 2734  ax-rep 5227  ax-sep 5246  ax-nul 5256  ax-pow 5322  ax-pr 5390  ax-un 7718  ax-riotaBAD 39574

This theorem depends on definitions:  df-bi 209  df-an 400  df-or 859  df-3or 1099  df-3an 1100  df-tru 1563  df-fal 1573  df-ex 1800  df-nf 1804  df-sb 2091  df-mo 2566  df-eu 2596  df-clab 2741  df-cleq 2754  df-clel 2837  df-nfc 2911  df-ne 2958  df-ral 3077  df-rex 3087  df-rmo 3367  df-reu 3368  df-rab 3415  df-v 3456  df-sbc 3745  df-csb 3853  df-dif 3907  df-un 3909  df-in 3911  df-ss 3921  df-nul 4286  df-if 4481  df-pw 4557  df-sn 4583  df-pr 4585  df-op 4589  df-uni 4866  df-iun 4951  df-iin 4952  df-br 5101  df-opab 5163  df-mpt 5182  df-id 5542  df-xp 5653  df-rel 5654  df-cnv 5655  df-co 5656  df-dm 5657  df-rn 5658  df-res 5659  df-ima 5660  df-iota 6477  df-fun 6523  df-fn 6524  df-f 6525  df-f1 6526  df-fo 6527  df-f1o 6528  df-fv 6529  df-riota 7353  df-ov 7399  df-oprab 7400  df-mpo 7401  df-1st 7970  df-2nd 7971  df-undef 8253  df-map 8810  df-proset 18326  df-poset 18345  df-plt 18360  df-lub 18376  df-glb 18377  df-join 18378  df-meet 18379  df-p0 18455  df-p1 18456  df-lat 18464  df-clat 18531  df-oposet 39797  df-ol 39799  df-oml 39800  df-covers 39887  df-ats 39888  df-atl 39919  df-cvlat 39943  df-hlat 39972  df-llines 40119  df-lplanes 40120  df-lvols 40121  df-lines 40122  df-psubsp 40124  df-pmap 40125  df-padd 40417  df-lhyp 40609  df-laut 40610  df-ldil 40725  df-ltrn 40726  df-trl 40780

This theorem is referenced by:  cdlemg47  41357