trljco - Mathbox for Norm Megill

	Mathbox for Norm Megill		< Previous Next > Nearby theorems
Mirrors > Home > MPE Home > Th. List > Mathboxes > trljco		Structured version Visualization version GIF version

Theorem trljco 37407

Description: Trace joined with trace of composition. (Contributed by NM, 15-Jun-2013.)

**Hypotheses**
Ref	Expression
trljco.j	⊢ ∨ = (join‘𝐾)
trljco.h	⊢ 𝐻 = (LHyp‘𝐾)
trljco.t	⊢ 𝑇 = ((LTrn‘𝐾)‘𝑊)
trljco.r	⊢ 𝑅 = ((trL‘𝐾)‘𝑊)

**Assertion**
Ref	Expression
trljco	⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝐹 ∈ 𝑇 ∧ 𝐺 ∈ 𝑇) → ((𝑅‘𝐹) ∨ (𝑅‘(𝐹 ∘ 𝐺))) = ((𝑅‘𝐹) ∨ (𝑅‘𝐺)))

**Proof of Theorem trljco**
Step	Hyp	Ref	Expression
1		coeq1 5614	. . . . 5 ⊢ (𝐹 = ( I ↾ (Base‘𝐾)) → (𝐹 ∘ 𝐺) = (( I ↾ (Base‘𝐾)) ∘ 𝐺))
2		eqid 2795	. . . . . . . 8 ⊢ (Base‘𝐾) = (Base‘𝐾)
3		trljco.h	. . . . . . . 8 ⊢ 𝐻 = (LHyp‘𝐾)
4		trljco.t	. . . . . . . 8 ⊢ 𝑇 = ((LTrn‘𝐾)‘𝑊)
5	2, 3, 4	ltrn1o 36791	. . . . . . 7 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝐺 ∈ 𝑇) → 𝐺:(Base‘𝐾)–1-1-onto→(Base‘𝐾))
6	5	3adant2 1124	. . . . . 6 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝐹 ∈ 𝑇 ∧ 𝐺 ∈ 𝑇) → 𝐺:(Base‘𝐾)–1-1-onto→(Base‘𝐾))
7		f1of 6483	. . . . . 6 ⊢ (𝐺:(Base‘𝐾)–1-1-onto→(Base‘𝐾) → 𝐺:(Base‘𝐾)⟶(Base‘𝐾))
8		fcoi2 6421	. . . . . 6 ⊢ (𝐺:(Base‘𝐾)⟶(Base‘𝐾) → (( I ↾ (Base‘𝐾)) ∘ 𝐺) = 𝐺)
9	6, 7, 8	3syl 18	. . . . 5 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝐹 ∈ 𝑇 ∧ 𝐺 ∈ 𝑇) → (( I ↾ (Base‘𝐾)) ∘ 𝐺) = 𝐺)
10	1, 9	sylan9eqr 2853	. . . 4 ⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝐹 ∈ 𝑇 ∧ 𝐺 ∈ 𝑇) ∧ 𝐹 = ( I ↾ (Base‘𝐾))) → (𝐹 ∘ 𝐺) = 𝐺)
11	10	fveq2d 6542	. . 3 ⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝐹 ∈ 𝑇 ∧ 𝐺 ∈ 𝑇) ∧ 𝐹 = ( I ↾ (Base‘𝐾))) → (𝑅‘(𝐹 ∘ 𝐺)) = (𝑅‘𝐺))
12	11	oveq2d 7032	. 2 ⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝐹 ∈ 𝑇 ∧ 𝐺 ∈ 𝑇) ∧ 𝐹 = ( I ↾ (Base‘𝐾))) → ((𝑅‘𝐹) ∨ (𝑅‘(𝐹 ∘ 𝐺))) = ((𝑅‘𝐹) ∨ (𝑅‘𝐺)))
13		simp1l 1190	. . . . . . 7 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝐹 ∈ 𝑇 ∧ 𝐺 ∈ 𝑇) → 𝐾 ∈ HL)
14	13	hllatd 36031	. . . . . 6 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝐹 ∈ 𝑇 ∧ 𝐺 ∈ 𝑇) → 𝐾 ∈ Lat)
15		trljco.r	. . . . . . . 8 ⊢ 𝑅 = ((trL‘𝐾)‘𝑊)
16	2, 3, 4, 15	trlcl 36831	. . . . . . 7 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝐹 ∈ 𝑇) → (𝑅‘𝐹) ∈ (Base‘𝐾))
17	16	3adant3 1125	. . . . . 6 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝐹 ∈ 𝑇 ∧ 𝐺 ∈ 𝑇) → (𝑅‘𝐹) ∈ (Base‘𝐾))
18		trljco.j	. . . . . . 7 ⊢ ∨ = (join‘𝐾)
19	2, 18	latjidm 17513	. . . . . 6 ⊢ ((𝐾 ∈ Lat ∧ (𝑅‘𝐹) ∈ (Base‘𝐾)) → ((𝑅‘𝐹) ∨ (𝑅‘𝐹)) = (𝑅‘𝐹))
20	14, 17, 19	syl2anc 584	. . . . 5 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝐹 ∈ 𝑇 ∧ 𝐺 ∈ 𝑇) → ((𝑅‘𝐹) ∨ (𝑅‘𝐹)) = (𝑅‘𝐹))
21		hlol 36028	. . . . . . 7 ⊢ (𝐾 ∈ HL → 𝐾 ∈ OL)
22	13, 21	syl 17	. . . . . 6 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝐹 ∈ 𝑇 ∧ 𝐺 ∈ 𝑇) → 𝐾 ∈ OL)
23		eqid 2795	. . . . . . 7 ⊢ (0.‘𝐾) = (0.‘𝐾)
24	2, 18, 23	olj01 35892	. . . . . 6 ⊢ ((𝐾 ∈ OL ∧ (𝑅‘𝐹) ∈ (Base‘𝐾)) → ((𝑅‘𝐹) ∨ (0.‘𝐾)) = (𝑅‘𝐹))
25	22, 17, 24	syl2anc 584	. . . . 5 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝐹 ∈ 𝑇 ∧ 𝐺 ∈ 𝑇) → ((𝑅‘𝐹) ∨ (0.‘𝐾)) = (𝑅‘𝐹))
26	20, 25	eqtr4d 2834	. . . 4 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝐹 ∈ 𝑇 ∧ 𝐺 ∈ 𝑇) → ((𝑅‘𝐹) ∨ (𝑅‘𝐹)) = ((𝑅‘𝐹) ∨ (0.‘𝐾)))
27	26	adantr 481	. . 3 ⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝐹 ∈ 𝑇 ∧ 𝐺 ∈ 𝑇) ∧ 𝐺 = ( I ↾ (Base‘𝐾))) → ((𝑅‘𝐹) ∨ (𝑅‘𝐹)) = ((𝑅‘𝐹) ∨ (0.‘𝐾)))
28		coeq2 5615	. . . . . 6 ⊢ (𝐺 = ( I ↾ (Base‘𝐾)) → (𝐹 ∘ 𝐺) = (𝐹 ∘ ( I ↾ (Base‘𝐾))))
29	2, 3, 4	ltrn1o 36791	. . . . . . . 8 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝐹 ∈ 𝑇) → 𝐹:(Base‘𝐾)–1-1-onto→(Base‘𝐾))
30	29	3adant3 1125	. . . . . . 7 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝐹 ∈ 𝑇 ∧ 𝐺 ∈ 𝑇) → 𝐹:(Base‘𝐾)–1-1-onto→(Base‘𝐾))
31		f1of 6483	. . . . . . 7 ⊢ (𝐹:(Base‘𝐾)–1-1-onto→(Base‘𝐾) → 𝐹:(Base‘𝐾)⟶(Base‘𝐾))
32		fcoi1 6420	. . . . . . 7 ⊢ (𝐹:(Base‘𝐾)⟶(Base‘𝐾) → (𝐹 ∘ ( I ↾ (Base‘𝐾))) = 𝐹)
33	30, 31, 32	3syl 18	. . . . . 6 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝐹 ∈ 𝑇 ∧ 𝐺 ∈ 𝑇) → (𝐹 ∘ ( I ↾ (Base‘𝐾))) = 𝐹)
34	28, 33	sylan9eqr 2853	. . . . 5 ⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝐹 ∈ 𝑇 ∧ 𝐺 ∈ 𝑇) ∧ 𝐺 = ( I ↾ (Base‘𝐾))) → (𝐹 ∘ 𝐺) = 𝐹)
35	34	fveq2d 6542	. . . 4 ⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝐹 ∈ 𝑇 ∧ 𝐺 ∈ 𝑇) ∧ 𝐺 = ( I ↾ (Base‘𝐾))) → (𝑅‘(𝐹 ∘ 𝐺)) = (𝑅‘𝐹))
36	35	oveq2d 7032	. . 3 ⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝐹 ∈ 𝑇 ∧ 𝐺 ∈ 𝑇) ∧ 𝐺 = ( I ↾ (Base‘𝐾))) → ((𝑅‘𝐹) ∨ (𝑅‘(𝐹 ∘ 𝐺))) = ((𝑅‘𝐹) ∨ (𝑅‘𝐹)))
37	2, 23, 3, 4, 15	trlid0b 36845	. . . . . 6 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝐺 ∈ 𝑇) → (𝐺 = ( I ↾ (Base‘𝐾)) ↔ (𝑅‘𝐺) = (0.‘𝐾)))
38	37	3adant2 1124	. . . . 5 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝐹 ∈ 𝑇 ∧ 𝐺 ∈ 𝑇) → (𝐺 = ( I ↾ (Base‘𝐾)) ↔ (𝑅‘𝐺) = (0.‘𝐾)))
39	38	biimpa 477	. . . 4 ⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝐹 ∈ 𝑇 ∧ 𝐺 ∈ 𝑇) ∧ 𝐺 = ( I ↾ (Base‘𝐾))) → (𝑅‘𝐺) = (0.‘𝐾))
40	39	oveq2d 7032	. . 3 ⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝐹 ∈ 𝑇 ∧ 𝐺 ∈ 𝑇) ∧ 𝐺 = ( I ↾ (Base‘𝐾))) → ((𝑅‘𝐹) ∨ (𝑅‘𝐺)) = ((𝑅‘𝐹) ∨ (0.‘𝐾)))
41	27, 36, 40	3eqtr4d 2841	. 2 ⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝐹 ∈ 𝑇 ∧ 𝐺 ∈ 𝑇) ∧ 𝐺 = ( I ↾ (Base‘𝐾))) → ((𝑅‘𝐹) ∨ (𝑅‘(𝐹 ∘ 𝐺))) = ((𝑅‘𝐹) ∨ (𝑅‘𝐺)))
42		eqid 2795	. . 3 ⊢ (le‘𝐾) = (le‘𝐾)
43	14	adantr 481	. . 3 ⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝐹 ∈ 𝑇 ∧ 𝐺 ∈ 𝑇) ∧ (𝑅‘𝐹) = (𝑅‘𝐺)) → 𝐾 ∈ Lat)
44		simp1 1129	. . . . . 6 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝐹 ∈ 𝑇 ∧ 𝐺 ∈ 𝑇) → (𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻))
45	3, 4	ltrnco 37386	. . . . . 6 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝐹 ∈ 𝑇 ∧ 𝐺 ∈ 𝑇) → (𝐹 ∘ 𝐺) ∈ 𝑇)
46	2, 3, 4, 15	trlcl 36831	. . . . . 6 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝐹 ∘ 𝐺) ∈ 𝑇) → (𝑅‘(𝐹 ∘ 𝐺)) ∈ (Base‘𝐾))
47	44, 45, 46	syl2anc 584	. . . . 5 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝐹 ∈ 𝑇 ∧ 𝐺 ∈ 𝑇) → (𝑅‘(𝐹 ∘ 𝐺)) ∈ (Base‘𝐾))
48	2, 18	latjcl 17490	. . . . 5 ⊢ ((𝐾 ∈ Lat ∧ (𝑅‘𝐹) ∈ (Base‘𝐾) ∧ (𝑅‘(𝐹 ∘ 𝐺)) ∈ (Base‘𝐾)) → ((𝑅‘𝐹) ∨ (𝑅‘(𝐹 ∘ 𝐺))) ∈ (Base‘𝐾))
49	14, 17, 47, 48	syl3anc 1364	. . . 4 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝐹 ∈ 𝑇 ∧ 𝐺 ∈ 𝑇) → ((𝑅‘𝐹) ∨ (𝑅‘(𝐹 ∘ 𝐺))) ∈ (Base‘𝐾))
50	49	adantr 481	. . 3 ⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝐹 ∈ 𝑇 ∧ 𝐺 ∈ 𝑇) ∧ (𝑅‘𝐹) = (𝑅‘𝐺)) → ((𝑅‘𝐹) ∨ (𝑅‘(𝐹 ∘ 𝐺))) ∈ (Base‘𝐾))
51	2, 3, 4, 15	trlcl 36831	. . . . . 6 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝐺 ∈ 𝑇) → (𝑅‘𝐺) ∈ (Base‘𝐾))
52	51	3adant2 1124	. . . . 5 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝐹 ∈ 𝑇 ∧ 𝐺 ∈ 𝑇) → (𝑅‘𝐺) ∈ (Base‘𝐾))
53	2, 18	latjcl 17490	. . . . 5 ⊢ ((𝐾 ∈ Lat ∧ (𝑅‘𝐹) ∈ (Base‘𝐾) ∧ (𝑅‘𝐺) ∈ (Base‘𝐾)) → ((𝑅‘𝐹) ∨ (𝑅‘𝐺)) ∈ (Base‘𝐾))
54	14, 17, 52, 53	syl3anc 1364	. . . 4 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝐹 ∈ 𝑇 ∧ 𝐺 ∈ 𝑇) → ((𝑅‘𝐹) ∨ (𝑅‘𝐺)) ∈ (Base‘𝐾))
55	54	adantr 481	. . 3 ⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝐹 ∈ 𝑇 ∧ 𝐺 ∈ 𝑇) ∧ (𝑅‘𝐹) = (𝑅‘𝐺)) → ((𝑅‘𝐹) ∨ (𝑅‘𝐺)) ∈ (Base‘𝐾))
56	2, 42, 18	latlej1 17499	. . . . . 6 ⊢ ((𝐾 ∈ Lat ∧ (𝑅‘𝐹) ∈ (Base‘𝐾) ∧ (𝑅‘𝐺) ∈ (Base‘𝐾)) → (𝑅‘𝐹)(le‘𝐾)((𝑅‘𝐹) ∨ (𝑅‘𝐺)))
57	14, 17, 52, 56	syl3anc 1364	. . . . 5 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝐹 ∈ 𝑇 ∧ 𝐺 ∈ 𝑇) → (𝑅‘𝐹)(le‘𝐾)((𝑅‘𝐹) ∨ (𝑅‘𝐺)))
58	42, 18, 3, 4, 15	trlco 37394	. . . . 5 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝐹 ∈ 𝑇 ∧ 𝐺 ∈ 𝑇) → (𝑅‘(𝐹 ∘ 𝐺))(le‘𝐾)((𝑅‘𝐹) ∨ (𝑅‘𝐺)))
59	2, 42, 18	latjle12 17501	. . . . . 6 ⊢ ((𝐾 ∈ Lat ∧ ((𝑅‘𝐹) ∈ (Base‘𝐾) ∧ (𝑅‘(𝐹 ∘ 𝐺)) ∈ (Base‘𝐾) ∧ ((𝑅‘𝐹) ∨ (𝑅‘𝐺)) ∈ (Base‘𝐾))) → (((𝑅‘𝐹)(le‘𝐾)((𝑅‘𝐹) ∨ (𝑅‘𝐺)) ∧ (𝑅‘(𝐹 ∘ 𝐺))(le‘𝐾)((𝑅‘𝐹) ∨ (𝑅‘𝐺))) ↔ ((𝑅‘𝐹) ∨ (𝑅‘(𝐹 ∘ 𝐺)))(le‘𝐾)((𝑅‘𝐹) ∨ (𝑅‘𝐺))))
60	14, 17, 47, 54, 59	syl13anc 1365	. . . . 5 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝐹 ∈ 𝑇 ∧ 𝐺 ∈ 𝑇) → (((𝑅‘𝐹)(le‘𝐾)((𝑅‘𝐹) ∨ (𝑅‘𝐺)) ∧ (𝑅‘(𝐹 ∘ 𝐺))(le‘𝐾)((𝑅‘𝐹) ∨ (𝑅‘𝐺))) ↔ ((𝑅‘𝐹) ∨ (𝑅‘(𝐹 ∘ 𝐺)))(le‘𝐾)((𝑅‘𝐹) ∨ (𝑅‘𝐺))))
61	57, 58, 60	mpbi2and 708	. . . 4 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝐹 ∈ 𝑇 ∧ 𝐺 ∈ 𝑇) → ((𝑅‘𝐹) ∨ (𝑅‘(𝐹 ∘ 𝐺)))(le‘𝐾)((𝑅‘𝐹) ∨ (𝑅‘𝐺)))
62	61	adantr 481	. . 3 ⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝐹 ∈ 𝑇 ∧ 𝐺 ∈ 𝑇) ∧ (𝑅‘𝐹) = (𝑅‘𝐺)) → ((𝑅‘𝐹) ∨ (𝑅‘(𝐹 ∘ 𝐺)))(le‘𝐾)((𝑅‘𝐹) ∨ (𝑅‘𝐺)))
63		simpr 485	. . . . 5 ⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝐹 ∈ 𝑇 ∧ 𝐺 ∈ 𝑇) ∧ (𝑅‘𝐹) = (𝑅‘𝐺)) → (𝑅‘𝐹) = (𝑅‘𝐺))
64	63	oveq2d 7032	. . . 4 ⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝐹 ∈ 𝑇 ∧ 𝐺 ∈ 𝑇) ∧ (𝑅‘𝐹) = (𝑅‘𝐺)) → ((𝑅‘𝐹) ∨ (𝑅‘𝐹)) = ((𝑅‘𝐹) ∨ (𝑅‘𝐺)))
65	2, 42, 18	latlej1 17499	. . . . . . 7 ⊢ ((𝐾 ∈ Lat ∧ (𝑅‘𝐹) ∈ (Base‘𝐾) ∧ (𝑅‘(𝐹 ∘ 𝐺)) ∈ (Base‘𝐾)) → (𝑅‘𝐹)(le‘𝐾)((𝑅‘𝐹) ∨ (𝑅‘(𝐹 ∘ 𝐺))))
66	14, 17, 47, 65	syl3anc 1364	. . . . . 6 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝐹 ∈ 𝑇 ∧ 𝐺 ∈ 𝑇) → (𝑅‘𝐹)(le‘𝐾)((𝑅‘𝐹) ∨ (𝑅‘(𝐹 ∘ 𝐺))))
67	20, 66	eqbrtrd 4984	. . . . 5 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝐹 ∈ 𝑇 ∧ 𝐺 ∈ 𝑇) → ((𝑅‘𝐹) ∨ (𝑅‘𝐹))(le‘𝐾)((𝑅‘𝐹) ∨ (𝑅‘(𝐹 ∘ 𝐺))))
68	67	adantr 481	. . . 4 ⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝐹 ∈ 𝑇 ∧ 𝐺 ∈ 𝑇) ∧ (𝑅‘𝐹) = (𝑅‘𝐺)) → ((𝑅‘𝐹) ∨ (𝑅‘𝐹))(le‘𝐾)((𝑅‘𝐹) ∨ (𝑅‘(𝐹 ∘ 𝐺))))
69	64, 68	eqbrtrrd 4986	. . 3 ⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝐹 ∈ 𝑇 ∧ 𝐺 ∈ 𝑇) ∧ (𝑅‘𝐹) = (𝑅‘𝐺)) → ((𝑅‘𝐹) ∨ (𝑅‘𝐺))(le‘𝐾)((𝑅‘𝐹) ∨ (𝑅‘(𝐹 ∘ 𝐺))))
70	2, 42, 43, 50, 55, 62, 69	latasymd 17496	. 2 ⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝐹 ∈ 𝑇 ∧ 𝐺 ∈ 𝑇) ∧ (𝑅‘𝐹) = (𝑅‘𝐺)) → ((𝑅‘𝐹) ∨ (𝑅‘(𝐹 ∘ 𝐺))) = ((𝑅‘𝐹) ∨ (𝑅‘𝐺)))
71	61	adantr 481	. . 3 ⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝐹 ∈ 𝑇 ∧ 𝐺 ∈ 𝑇) ∧ (𝐹 ≠ ( I ↾ (Base‘𝐾)) ∧ 𝐺 ≠ ( I ↾ (Base‘𝐾)) ∧ (𝑅‘𝐹) ≠ (𝑅‘𝐺))) → ((𝑅‘𝐹) ∨ (𝑅‘(𝐹 ∘ 𝐺)))(le‘𝐾)((𝑅‘𝐹) ∨ (𝑅‘𝐺)))
72		simpl1l 1217	. . . 4 ⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝐹 ∈ 𝑇 ∧ 𝐺 ∈ 𝑇) ∧ (𝐹 ≠ ( I ↾ (Base‘𝐾)) ∧ 𝐺 ≠ ( I ↾ (Base‘𝐾)) ∧ (𝑅‘𝐹) ≠ (𝑅‘𝐺))) → 𝐾 ∈ HL)
73		simpl1 1184	. . . . 5 ⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝐹 ∈ 𝑇 ∧ 𝐺 ∈ 𝑇) ∧ (𝐹 ≠ ( I ↾ (Base‘𝐾)) ∧ 𝐺 ≠ ( I ↾ (Base‘𝐾)) ∧ (𝑅‘𝐹) ≠ (𝑅‘𝐺))) → (𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻))
74		simpl2 1185	. . . . 5 ⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝐹 ∈ 𝑇 ∧ 𝐺 ∈ 𝑇) ∧ (𝐹 ≠ ( I ↾ (Base‘𝐾)) ∧ 𝐺 ≠ ( I ↾ (Base‘𝐾)) ∧ (𝑅‘𝐹) ≠ (𝑅‘𝐺))) → 𝐹 ∈ 𝑇)
75		simpr1 1187	. . . . 5 ⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝐹 ∈ 𝑇 ∧ 𝐺 ∈ 𝑇) ∧ (𝐹 ≠ ( I ↾ (Base‘𝐾)) ∧ 𝐺 ≠ ( I ↾ (Base‘𝐾)) ∧ (𝑅‘𝐹) ≠ (𝑅‘𝐺))) → 𝐹 ≠ ( I ↾ (Base‘𝐾)))
76		eqid 2795	. . . . . 6 ⊢ (Atoms‘𝐾) = (Atoms‘𝐾)
77	2, 76, 3, 4, 15	trlnidat 36840	. . . . 5 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝐹 ∈ 𝑇 ∧ 𝐹 ≠ ( I ↾ (Base‘𝐾))) → (𝑅‘𝐹) ∈ (Atoms‘𝐾))
78	73, 74, 75, 77	syl3anc 1364	. . . 4 ⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝐹 ∈ 𝑇 ∧ 𝐺 ∈ 𝑇) ∧ (𝐹 ≠ ( I ↾ (Base‘𝐾)) ∧ 𝐺 ≠ ( I ↾ (Base‘𝐾)) ∧ (𝑅‘𝐹) ≠ (𝑅‘𝐺))) → (𝑅‘𝐹) ∈ (Atoms‘𝐾))
79		simpl3 1186	. . . . . 6 ⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝐹 ∈ 𝑇 ∧ 𝐺 ∈ 𝑇) ∧ (𝐹 ≠ ( I ↾ (Base‘𝐾)) ∧ 𝐺 ≠ ( I ↾ (Base‘𝐾)) ∧ (𝑅‘𝐹) ≠ (𝑅‘𝐺))) → 𝐺 ∈ 𝑇)
80	74, 79	jca 512	. . . . 5 ⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝐹 ∈ 𝑇 ∧ 𝐺 ∈ 𝑇) ∧ (𝐹 ≠ ( I ↾ (Base‘𝐾)) ∧ 𝐺 ≠ ( I ↾ (Base‘𝐾)) ∧ (𝑅‘𝐹) ≠ (𝑅‘𝐺))) → (𝐹 ∈ 𝑇 ∧ 𝐺 ∈ 𝑇))
81		simpr3 1189	. . . . 5 ⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝐹 ∈ 𝑇 ∧ 𝐺 ∈ 𝑇) ∧ (𝐹 ≠ ( I ↾ (Base‘𝐾)) ∧ 𝐺 ≠ ( I ↾ (Base‘𝐾)) ∧ (𝑅‘𝐹) ≠ (𝑅‘𝐺))) → (𝑅‘𝐹) ≠ (𝑅‘𝐺))
82	76, 3, 4, 15	trlcoat 37390	. . . . 5 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝐹 ∈ 𝑇 ∧ 𝐺 ∈ 𝑇) ∧ (𝑅‘𝐹) ≠ (𝑅‘𝐺)) → (𝑅‘(𝐹 ∘ 𝐺)) ∈ (Atoms‘𝐾))
83	73, 80, 81, 82	syl3anc 1364	. . . 4 ⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝐹 ∈ 𝑇 ∧ 𝐺 ∈ 𝑇) ∧ (𝐹 ≠ ( I ↾ (Base‘𝐾)) ∧ 𝐺 ≠ ( I ↾ (Base‘𝐾)) ∧ (𝑅‘𝐹) ≠ (𝑅‘𝐺))) → (𝑅‘(𝐹 ∘ 𝐺)) ∈ (Atoms‘𝐾))
84		simpr2 1188	. . . . 5 ⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝐹 ∈ 𝑇 ∧ 𝐺 ∈ 𝑇) ∧ (𝐹 ≠ ( I ↾ (Base‘𝐾)) ∧ 𝐺 ≠ ( I ↾ (Base‘𝐾)) ∧ (𝑅‘𝐹) ≠ (𝑅‘𝐺))) → 𝐺 ≠ ( I ↾ (Base‘𝐾)))
85	2, 3, 4, 15	trlcone 37395	. . . . 5 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝐹 ∈ 𝑇 ∧ 𝐺 ∈ 𝑇) ∧ ((𝑅‘𝐹) ≠ (𝑅‘𝐺) ∧ 𝐺 ≠ ( I ↾ (Base‘𝐾)))) → (𝑅‘𝐹) ≠ (𝑅‘(𝐹 ∘ 𝐺)))
86	73, 80, 81, 84, 85	syl112anc 1367	. . . 4 ⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝐹 ∈ 𝑇 ∧ 𝐺 ∈ 𝑇) ∧ (𝐹 ≠ ( I ↾ (Base‘𝐾)) ∧ 𝐺 ≠ ( I ↾ (Base‘𝐾)) ∧ (𝑅‘𝐹) ≠ (𝑅‘𝐺))) → (𝑅‘𝐹) ≠ (𝑅‘(𝐹 ∘ 𝐺)))
87	2, 76, 3, 4, 15	trlnidat 36840	. . . . 5 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝐺 ∈ 𝑇 ∧ 𝐺 ≠ ( I ↾ (Base‘𝐾))) → (𝑅‘𝐺) ∈ (Atoms‘𝐾))
88	73, 79, 84, 87	syl3anc 1364	. . . 4 ⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝐹 ∈ 𝑇 ∧ 𝐺 ∈ 𝑇) ∧ (𝐹 ≠ ( I ↾ (Base‘𝐾)) ∧ 𝐺 ≠ ( I ↾ (Base‘𝐾)) ∧ (𝑅‘𝐹) ≠ (𝑅‘𝐺))) → (𝑅‘𝐺) ∈ (Atoms‘𝐾))
89	42, 18, 76	ps-1 36144	. . . 4 ⊢ ((𝐾 ∈ HL ∧ ((𝑅‘𝐹) ∈ (Atoms‘𝐾) ∧ (𝑅‘(𝐹 ∘ 𝐺)) ∈ (Atoms‘𝐾) ∧ (𝑅‘𝐹) ≠ (𝑅‘(𝐹 ∘ 𝐺))) ∧ ((𝑅‘𝐹) ∈ (Atoms‘𝐾) ∧ (𝑅‘𝐺) ∈ (Atoms‘𝐾))) → (((𝑅‘𝐹) ∨ (𝑅‘(𝐹 ∘ 𝐺)))(le‘𝐾)((𝑅‘𝐹) ∨ (𝑅‘𝐺)) ↔ ((𝑅‘𝐹) ∨ (𝑅‘(𝐹 ∘ 𝐺))) = ((𝑅‘𝐹) ∨ (𝑅‘𝐺))))
90	72, 78, 83, 86, 78, 88, 89	syl132anc 1381	. . 3 ⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝐹 ∈ 𝑇 ∧ 𝐺 ∈ 𝑇) ∧ (𝐹 ≠ ( I ↾ (Base‘𝐾)) ∧ 𝐺 ≠ ( I ↾ (Base‘𝐾)) ∧ (𝑅‘𝐹) ≠ (𝑅‘𝐺))) → (((𝑅‘𝐹) ∨ (𝑅‘(𝐹 ∘ 𝐺)))(le‘𝐾)((𝑅‘𝐹) ∨ (𝑅‘𝐺)) ↔ ((𝑅‘𝐹) ∨ (𝑅‘(𝐹 ∘ 𝐺))) = ((𝑅‘𝐹) ∨ (𝑅‘𝐺))))
91	71, 90	mpbid 233	. 2 ⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝐹 ∈ 𝑇 ∧ 𝐺 ∈ 𝑇) ∧ (𝐹 ≠ ( I ↾ (Base‘𝐾)) ∧ 𝐺 ≠ ( I ↾ (Base‘𝐾)) ∧ (𝑅‘𝐹) ≠ (𝑅‘𝐺))) → ((𝑅‘𝐹) ∨ (𝑅‘(𝐹 ∘ 𝐺))) = ((𝑅‘𝐹) ∨ (𝑅‘𝐺)))
92	12, 41, 70, 91	pm2.61da3ne 3074	1 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝐹 ∈ 𝑇 ∧ 𝐺 ∈ 𝑇) → ((𝑅‘𝐹) ∨ (𝑅‘(𝐹 ∘ 𝐺))) = ((𝑅‘𝐹) ∨ (𝑅‘𝐺)))

Colors of variables: wff setvar class

Syntax hints: → wi 4 ↔ wb 207 ∧ wa 396 ∧ w3a 1080 = wceq 1522 ∈ wcel 2081 ≠ wne 2984 class class class wbr 4962 I cid 5347 ↾ cres 5445 ∘ ccom 5447 ⟶wf 6221 –1-1-onto→wf1o 6224 ‘cfv 6225 (class class class)co 7016 Basecbs 16312 lecple 16401 joincjn 17383 0.cp0 17476 Latclat 17484 OLcol 35841 Atomscatm 35930 HLchlt 36017 LHypclh 36651 LTrncltrn 36768 trLctrl 36825

This theorem was proved from axioms: ax-mp 5 ax-1 6 ax-2 7 ax-3 8 ax-gen 1777 ax-4 1791 ax-5 1888 ax-6 1947 ax-7 1992 ax-8 2083 ax-9 2091 ax-10 2112 ax-11 2126 ax-12 2141 ax-13 2344 ax-ext 2769 ax-rep 5081 ax-sep 5094 ax-nul 5101 ax-pow 5157 ax-pr 5221 ax-un 7319 ax-riotaBAD 35620

This theorem depends on definitions: df-bi 208 df-an 397 df-or 843 df-3or 1081 df-3an 1082 df-tru 1525 df-ex 1762 df-nf 1766 df-sb 2043 df-mo 2576 df-eu 2612 df-clab 2776 df-cleq 2788 df-clel 2863 df-nfc 2935 df-ne 2985 df-ral 3110 df-rex 3111 df-reu 3112 df-rmo 3113 df-rab 3114 df-v 3439 df-sbc 3707 df-csb 3812 df-dif 3862 df-un 3864 df-in 3866 df-ss 3874 df-nul 4212 df-if 4382 df-pw 4455 df-sn 4473 df-pr 4475 df-op 4479 df-uni 4746 df-iun 4827 df-iin 4828 df-br 4963 df-opab 5025 df-mpt 5042 df-id 5348 df-xp 5449 df-rel 5450 df-cnv 5451 df-co 5452 df-dm 5453 df-rn 5454 df-res 5455 df-ima 5456 df-iota 6189 df-fun 6227 df-fn 6228 df-f 6229 df-f1 6230 df-fo 6231 df-f1o 6232 df-fv 6233 df-riota 6977 df-ov 7019 df-oprab 7020 df-mpo 7021 df-1st 7545 df-2nd 7546 df-undef 7790 df-map 8258 df-proset 17367 df-poset 17385 df-plt 17397 df-lub 17413 df-glb 17414 df-join 17415 df-meet 17416 df-p0 17478 df-p1 17479 df-lat 17485 df-clat 17547 df-oposet 35843 df-ol 35845 df-oml 35846 df-covers 35933 df-ats 35934 df-atl 35965 df-cvlat 35989 df-hlat 36018 df-llines 36165 df-lplanes 36166 df-lvols 36167 df-lines 36168 df-psubsp 36170 df-pmap 36171 df-padd 36463 df-lhyp 36655 df-laut 36656 df-ldil 36771 df-ltrn 36772 df-trl 36826

This theorem is referenced by: trljco2 37408 cdlemkid1 37589

W3C validator