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 39599

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 5855	. . . . 5 ⊢ (𝐹 = ( I ↾ (Base‘𝐾)) → (𝐹 ∘ 𝐺) = (( I ↾ (Base‘𝐾)) ∘ 𝐺))
2		eqid 2732	. . . . . . . 8 ⊢ (Base‘𝐾) = (Base‘𝐾)
3		trljco.h	. . . . . . . 8 ⊢ 𝐻 = (LHyp‘𝐾)
4		trljco.t	. . . . . . . 8 ⊢ 𝑇 = ((LTrn‘𝐾)‘𝑊)
5	2, 3, 4	ltrn1o 38983	. . . . . . 7 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝐺 ∈ 𝑇) → 𝐺:(Base‘𝐾)–1-1-onto→(Base‘𝐾))
6	5	3adant2 1131	. . . . . 6 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝐹 ∈ 𝑇 ∧ 𝐺 ∈ 𝑇) → 𝐺:(Base‘𝐾)–1-1-onto→(Base‘𝐾))
7		f1of 6830	. . . . . 6 ⊢ (𝐺:(Base‘𝐾)–1-1-onto→(Base‘𝐾) → 𝐺:(Base‘𝐾)⟶(Base‘𝐾))
8		fcoi2 6763	. . . . . 6 ⊢ (𝐺:(Base‘𝐾)⟶(Base‘𝐾) → (( I ↾ (Base‘𝐾)) ∘ 𝐺) = 𝐺)
9	6, 7, 8	3syl 18	. . . . 5 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝐹 ∈ 𝑇 ∧ 𝐺 ∈ 𝑇) → (( I ↾ (Base‘𝐾)) ∘ 𝐺) = 𝐺)
10	1, 9	sylan9eqr 2794	. . . 4 ⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝐹 ∈ 𝑇 ∧ 𝐺 ∈ 𝑇) ∧ 𝐹 = ( I ↾ (Base‘𝐾))) → (𝐹 ∘ 𝐺) = 𝐺)
11	10	fveq2d 6892	. . 3 ⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝐹 ∈ 𝑇 ∧ 𝐺 ∈ 𝑇) ∧ 𝐹 = ( I ↾ (Base‘𝐾))) → (𝑅‘(𝐹 ∘ 𝐺)) = (𝑅‘𝐺))
12	11	oveq2d 7421	. 2 ⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝐹 ∈ 𝑇 ∧ 𝐺 ∈ 𝑇) ∧ 𝐹 = ( I ↾ (Base‘𝐾))) → ((𝑅‘𝐹) ∨ (𝑅‘(𝐹 ∘ 𝐺))) = ((𝑅‘𝐹) ∨ (𝑅‘𝐺)))
13		simp1l 1197	. . . . . . 7 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝐹 ∈ 𝑇 ∧ 𝐺 ∈ 𝑇) → 𝐾 ∈ HL)
14	13	hllatd 38222	. . . . . 6 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝐹 ∈ 𝑇 ∧ 𝐺 ∈ 𝑇) → 𝐾 ∈ Lat)
15		trljco.r	. . . . . . . 8 ⊢ 𝑅 = ((trL‘𝐾)‘𝑊)
16	2, 3, 4, 15	trlcl 39023	. . . . . . 7 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝐹 ∈ 𝑇) → (𝑅‘𝐹) ∈ (Base‘𝐾))
17	16	3adant3 1132	. . . . . 6 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝐹 ∈ 𝑇 ∧ 𝐺 ∈ 𝑇) → (𝑅‘𝐹) ∈ (Base‘𝐾))
18		trljco.j	. . . . . . 7 ⊢ ∨ = (join‘𝐾)
19	2, 18	latjidm 18411	. . . . . 6 ⊢ ((𝐾 ∈ Lat ∧ (𝑅‘𝐹) ∈ (Base‘𝐾)) → ((𝑅‘𝐹) ∨ (𝑅‘𝐹)) = (𝑅‘𝐹))
20	14, 17, 19	syl2anc 584	. . . . 5 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝐹 ∈ 𝑇 ∧ 𝐺 ∈ 𝑇) → ((𝑅‘𝐹) ∨ (𝑅‘𝐹)) = (𝑅‘𝐹))
21		hlol 38219	. . . . . . 7 ⊢ (𝐾 ∈ HL → 𝐾 ∈ OL)
22	13, 21	syl 17	. . . . . 6 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝐹 ∈ 𝑇 ∧ 𝐺 ∈ 𝑇) → 𝐾 ∈ OL)
23		eqid 2732	. . . . . . 7 ⊢ (0.‘𝐾) = (0.‘𝐾)
24	2, 18, 23	olj01 38083	. . . . . 6 ⊢ ((𝐾 ∈ OL ∧ (𝑅‘𝐹) ∈ (Base‘𝐾)) → ((𝑅‘𝐹) ∨ (0.‘𝐾)) = (𝑅‘𝐹))
25	22, 17, 24	syl2anc 584	. . . . 5 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝐹 ∈ 𝑇 ∧ 𝐺 ∈ 𝑇) → ((𝑅‘𝐹) ∨ (0.‘𝐾)) = (𝑅‘𝐹))
26	20, 25	eqtr4d 2775	. . . 4 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝐹 ∈ 𝑇 ∧ 𝐺 ∈ 𝑇) → ((𝑅‘𝐹) ∨ (𝑅‘𝐹)) = ((𝑅‘𝐹) ∨ (0.‘𝐾)))
27	26	adantr 481	. . 3 ⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝐹 ∈ 𝑇 ∧ 𝐺 ∈ 𝑇) ∧ 𝐺 = ( I ↾ (Base‘𝐾))) → ((𝑅‘𝐹) ∨ (𝑅‘𝐹)) = ((𝑅‘𝐹) ∨ (0.‘𝐾)))
28		coeq2 5856	. . . . . 6 ⊢ (𝐺 = ( I ↾ (Base‘𝐾)) → (𝐹 ∘ 𝐺) = (𝐹 ∘ ( I ↾ (Base‘𝐾))))
29	2, 3, 4	ltrn1o 38983	. . . . . . . 8 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝐹 ∈ 𝑇) → 𝐹:(Base‘𝐾)–1-1-onto→(Base‘𝐾))
30	29	3adant3 1132	. . . . . . 7 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝐹 ∈ 𝑇 ∧ 𝐺 ∈ 𝑇) → 𝐹:(Base‘𝐾)–1-1-onto→(Base‘𝐾))
31		f1of 6830	. . . . . . 7 ⊢ (𝐹:(Base‘𝐾)–1-1-onto→(Base‘𝐾) → 𝐹:(Base‘𝐾)⟶(Base‘𝐾))
32		fcoi1 6762	. . . . . . 7 ⊢ (𝐹:(Base‘𝐾)⟶(Base‘𝐾) → (𝐹 ∘ ( I ↾ (Base‘𝐾))) = 𝐹)
33	30, 31, 32	3syl 18	. . . . . 6 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝐹 ∈ 𝑇 ∧ 𝐺 ∈ 𝑇) → (𝐹 ∘ ( I ↾ (Base‘𝐾))) = 𝐹)
34	28, 33	sylan9eqr 2794	. . . . 5 ⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝐹 ∈ 𝑇 ∧ 𝐺 ∈ 𝑇) ∧ 𝐺 = ( I ↾ (Base‘𝐾))) → (𝐹 ∘ 𝐺) = 𝐹)
35	34	fveq2d 6892	. . . 4 ⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝐹 ∈ 𝑇 ∧ 𝐺 ∈ 𝑇) ∧ 𝐺 = ( I ↾ (Base‘𝐾))) → (𝑅‘(𝐹 ∘ 𝐺)) = (𝑅‘𝐹))
36	35	oveq2d 7421	. . 3 ⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝐹 ∈ 𝑇 ∧ 𝐺 ∈ 𝑇) ∧ 𝐺 = ( I ↾ (Base‘𝐾))) → ((𝑅‘𝐹) ∨ (𝑅‘(𝐹 ∘ 𝐺))) = ((𝑅‘𝐹) ∨ (𝑅‘𝐹)))
37	2, 23, 3, 4, 15	trlid0b 39037	. . . . . 6 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝐺 ∈ 𝑇) → (𝐺 = ( I ↾ (Base‘𝐾)) ↔ (𝑅‘𝐺) = (0.‘𝐾)))
38	37	3adant2 1131	. . . . 5 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝐹 ∈ 𝑇 ∧ 𝐺 ∈ 𝑇) → (𝐺 = ( I ↾ (Base‘𝐾)) ↔ (𝑅‘𝐺) = (0.‘𝐾)))
39	38	biimpa 477	. . . 4 ⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝐹 ∈ 𝑇 ∧ 𝐺 ∈ 𝑇) ∧ 𝐺 = ( I ↾ (Base‘𝐾))) → (𝑅‘𝐺) = (0.‘𝐾))
40	39	oveq2d 7421	. . 3 ⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝐹 ∈ 𝑇 ∧ 𝐺 ∈ 𝑇) ∧ 𝐺 = ( I ↾ (Base‘𝐾))) → ((𝑅‘𝐹) ∨ (𝑅‘𝐺)) = ((𝑅‘𝐹) ∨ (0.‘𝐾)))
41	27, 36, 40	3eqtr4d 2782	. 2 ⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝐹 ∈ 𝑇 ∧ 𝐺 ∈ 𝑇) ∧ 𝐺 = ( I ↾ (Base‘𝐾))) → ((𝑅‘𝐹) ∨ (𝑅‘(𝐹 ∘ 𝐺))) = ((𝑅‘𝐹) ∨ (𝑅‘𝐺)))
42		eqid 2732	. . 3 ⊢ (le‘𝐾) = (le‘𝐾)
43	14	adantr 481	. . 3 ⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝐹 ∈ 𝑇 ∧ 𝐺 ∈ 𝑇) ∧ (𝑅‘𝐹) = (𝑅‘𝐺)) → 𝐾 ∈ Lat)
44		simp1 1136	. . . . . 6 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝐹 ∈ 𝑇 ∧ 𝐺 ∈ 𝑇) → (𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻))
45	3, 4	ltrnco 39578	. . . . . 6 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝐹 ∈ 𝑇 ∧ 𝐺 ∈ 𝑇) → (𝐹 ∘ 𝐺) ∈ 𝑇)
46	2, 3, 4, 15	trlcl 39023	. . . . . 6 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝐹 ∘ 𝐺) ∈ 𝑇) → (𝑅‘(𝐹 ∘ 𝐺)) ∈ (Base‘𝐾))
47	44, 45, 46	syl2anc 584	. . . . 5 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝐹 ∈ 𝑇 ∧ 𝐺 ∈ 𝑇) → (𝑅‘(𝐹 ∘ 𝐺)) ∈ (Base‘𝐾))
48	2, 18	latjcl 18388	. . . . 5 ⊢ ((𝐾 ∈ Lat ∧ (𝑅‘𝐹) ∈ (Base‘𝐾) ∧ (𝑅‘(𝐹 ∘ 𝐺)) ∈ (Base‘𝐾)) → ((𝑅‘𝐹) ∨ (𝑅‘(𝐹 ∘ 𝐺))) ∈ (Base‘𝐾))
49	14, 17, 47, 48	syl3anc 1371	. . . 4 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝐹 ∈ 𝑇 ∧ 𝐺 ∈ 𝑇) → ((𝑅‘𝐹) ∨ (𝑅‘(𝐹 ∘ 𝐺))) ∈ (Base‘𝐾))
50	49	adantr 481	. . 3 ⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝐹 ∈ 𝑇 ∧ 𝐺 ∈ 𝑇) ∧ (𝑅‘𝐹) = (𝑅‘𝐺)) → ((𝑅‘𝐹) ∨ (𝑅‘(𝐹 ∘ 𝐺))) ∈ (Base‘𝐾))
51	2, 3, 4, 15	trlcl 39023	. . . . . 6 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝐺 ∈ 𝑇) → (𝑅‘𝐺) ∈ (Base‘𝐾))
52	51	3adant2 1131	. . . . 5 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝐹 ∈ 𝑇 ∧ 𝐺 ∈ 𝑇) → (𝑅‘𝐺) ∈ (Base‘𝐾))
53	2, 18	latjcl 18388	. . . . 5 ⊢ ((𝐾 ∈ Lat ∧ (𝑅‘𝐹) ∈ (Base‘𝐾) ∧ (𝑅‘𝐺) ∈ (Base‘𝐾)) → ((𝑅‘𝐹) ∨ (𝑅‘𝐺)) ∈ (Base‘𝐾))
54	14, 17, 52, 53	syl3anc 1371	. . . 4 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝐹 ∈ 𝑇 ∧ 𝐺 ∈ 𝑇) → ((𝑅‘𝐹) ∨ (𝑅‘𝐺)) ∈ (Base‘𝐾))
55	54	adantr 481	. . 3 ⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝐹 ∈ 𝑇 ∧ 𝐺 ∈ 𝑇) ∧ (𝑅‘𝐹) = (𝑅‘𝐺)) → ((𝑅‘𝐹) ∨ (𝑅‘𝐺)) ∈ (Base‘𝐾))
56	2, 42, 18	latlej1 18397	. . . . . 6 ⊢ ((𝐾 ∈ Lat ∧ (𝑅‘𝐹) ∈ (Base‘𝐾) ∧ (𝑅‘𝐺) ∈ (Base‘𝐾)) → (𝑅‘𝐹)(le‘𝐾)((𝑅‘𝐹) ∨ (𝑅‘𝐺)))
57	14, 17, 52, 56	syl3anc 1371	. . . . 5 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝐹 ∈ 𝑇 ∧ 𝐺 ∈ 𝑇) → (𝑅‘𝐹)(le‘𝐾)((𝑅‘𝐹) ∨ (𝑅‘𝐺)))
58	42, 18, 3, 4, 15	trlco 39586	. . . . 5 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝐹 ∈ 𝑇 ∧ 𝐺 ∈ 𝑇) → (𝑅‘(𝐹 ∘ 𝐺))(le‘𝐾)((𝑅‘𝐹) ∨ (𝑅‘𝐺)))
59	2, 42, 18	latjle12 18399	. . . . . 6 ⊢ ((𝐾 ∈ Lat ∧ ((𝑅‘𝐹) ∈ (Base‘𝐾) ∧ (𝑅‘(𝐹 ∘ 𝐺)) ∈ (Base‘𝐾) ∧ ((𝑅‘𝐹) ∨ (𝑅‘𝐺)) ∈ (Base‘𝐾))) → (((𝑅‘𝐹)(le‘𝐾)((𝑅‘𝐹) ∨ (𝑅‘𝐺)) ∧ (𝑅‘(𝐹 ∘ 𝐺))(le‘𝐾)((𝑅‘𝐹) ∨ (𝑅‘𝐺))) ↔ ((𝑅‘𝐹) ∨ (𝑅‘(𝐹 ∘ 𝐺)))(le‘𝐾)((𝑅‘𝐹) ∨ (𝑅‘𝐺))))
60	14, 17, 47, 54, 59	syl13anc 1372	. . . . 5 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝐹 ∈ 𝑇 ∧ 𝐺 ∈ 𝑇) → (((𝑅‘𝐹)(le‘𝐾)((𝑅‘𝐹) ∨ (𝑅‘𝐺)) ∧ (𝑅‘(𝐹 ∘ 𝐺))(le‘𝐾)((𝑅‘𝐹) ∨ (𝑅‘𝐺))) ↔ ((𝑅‘𝐹) ∨ (𝑅‘(𝐹 ∘ 𝐺)))(le‘𝐾)((𝑅‘𝐹) ∨ (𝑅‘𝐺))))
61	57, 58, 60	mpbi2and 710	. . . 4 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝐹 ∈ 𝑇 ∧ 𝐺 ∈ 𝑇) → ((𝑅‘𝐹) ∨ (𝑅‘(𝐹 ∘ 𝐺)))(le‘𝐾)((𝑅‘𝐹) ∨ (𝑅‘𝐺)))
62	61	adantr 481	. . 3 ⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝐹 ∈ 𝑇 ∧ 𝐺 ∈ 𝑇) ∧ (𝑅‘𝐹) = (𝑅‘𝐺)) → ((𝑅‘𝐹) ∨ (𝑅‘(𝐹 ∘ 𝐺)))(le‘𝐾)((𝑅‘𝐹) ∨ (𝑅‘𝐺)))
63		simpr 485	. . . . 5 ⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝐹 ∈ 𝑇 ∧ 𝐺 ∈ 𝑇) ∧ (𝑅‘𝐹) = (𝑅‘𝐺)) → (𝑅‘𝐹) = (𝑅‘𝐺))
64	63	oveq2d 7421	. . . 4 ⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝐹 ∈ 𝑇 ∧ 𝐺 ∈ 𝑇) ∧ (𝑅‘𝐹) = (𝑅‘𝐺)) → ((𝑅‘𝐹) ∨ (𝑅‘𝐹)) = ((𝑅‘𝐹) ∨ (𝑅‘𝐺)))
65	2, 42, 18	latlej1 18397	. . . . . . 7 ⊢ ((𝐾 ∈ Lat ∧ (𝑅‘𝐹) ∈ (Base‘𝐾) ∧ (𝑅‘(𝐹 ∘ 𝐺)) ∈ (Base‘𝐾)) → (𝑅‘𝐹)(le‘𝐾)((𝑅‘𝐹) ∨ (𝑅‘(𝐹 ∘ 𝐺))))
66	14, 17, 47, 65	syl3anc 1371	. . . . . 6 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝐹 ∈ 𝑇 ∧ 𝐺 ∈ 𝑇) → (𝑅‘𝐹)(le‘𝐾)((𝑅‘𝐹) ∨ (𝑅‘(𝐹 ∘ 𝐺))))
67	20, 66	eqbrtrd 5169	. . . . 5 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝐹 ∈ 𝑇 ∧ 𝐺 ∈ 𝑇) → ((𝑅‘𝐹) ∨ (𝑅‘𝐹))(le‘𝐾)((𝑅‘𝐹) ∨ (𝑅‘(𝐹 ∘ 𝐺))))
68	67	adantr 481	. . . 4 ⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝐹 ∈ 𝑇 ∧ 𝐺 ∈ 𝑇) ∧ (𝑅‘𝐹) = (𝑅‘𝐺)) → ((𝑅‘𝐹) ∨ (𝑅‘𝐹))(le‘𝐾)((𝑅‘𝐹) ∨ (𝑅‘(𝐹 ∘ 𝐺))))
69	64, 68	eqbrtrrd 5171	. . 3 ⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝐹 ∈ 𝑇 ∧ 𝐺 ∈ 𝑇) ∧ (𝑅‘𝐹) = (𝑅‘𝐺)) → ((𝑅‘𝐹) ∨ (𝑅‘𝐺))(le‘𝐾)((𝑅‘𝐹) ∨ (𝑅‘(𝐹 ∘ 𝐺))))
70	2, 42, 43, 50, 55, 62, 69	latasymd 18394	. 2 ⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝐹 ∈ 𝑇 ∧ 𝐺 ∈ 𝑇) ∧ (𝑅‘𝐹) = (𝑅‘𝐺)) → ((𝑅‘𝐹) ∨ (𝑅‘(𝐹 ∘ 𝐺))) = ((𝑅‘𝐹) ∨ (𝑅‘𝐺)))
71	61	adantr 481	. . 3 ⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝐹 ∈ 𝑇 ∧ 𝐺 ∈ 𝑇) ∧ (𝐹 ≠ ( I ↾ (Base‘𝐾)) ∧ 𝐺 ≠ ( I ↾ (Base‘𝐾)) ∧ (𝑅‘𝐹) ≠ (𝑅‘𝐺))) → ((𝑅‘𝐹) ∨ (𝑅‘(𝐹 ∘ 𝐺)))(le‘𝐾)((𝑅‘𝐹) ∨ (𝑅‘𝐺)))
72		simpl1l 1224	. . . 4 ⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝐹 ∈ 𝑇 ∧ 𝐺 ∈ 𝑇) ∧ (𝐹 ≠ ( I ↾ (Base‘𝐾)) ∧ 𝐺 ≠ ( I ↾ (Base‘𝐾)) ∧ (𝑅‘𝐹) ≠ (𝑅‘𝐺))) → 𝐾 ∈ HL)
73		simpl1 1191	. . . . 5 ⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝐹 ∈ 𝑇 ∧ 𝐺 ∈ 𝑇) ∧ (𝐹 ≠ ( I ↾ (Base‘𝐾)) ∧ 𝐺 ≠ ( I ↾ (Base‘𝐾)) ∧ (𝑅‘𝐹) ≠ (𝑅‘𝐺))) → (𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻))
74		simpl2 1192	. . . . 5 ⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝐹 ∈ 𝑇 ∧ 𝐺 ∈ 𝑇) ∧ (𝐹 ≠ ( I ↾ (Base‘𝐾)) ∧ 𝐺 ≠ ( I ↾ (Base‘𝐾)) ∧ (𝑅‘𝐹) ≠ (𝑅‘𝐺))) → 𝐹 ∈ 𝑇)
75		simpr1 1194	. . . . 5 ⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝐹 ∈ 𝑇 ∧ 𝐺 ∈ 𝑇) ∧ (𝐹 ≠ ( I ↾ (Base‘𝐾)) ∧ 𝐺 ≠ ( I ↾ (Base‘𝐾)) ∧ (𝑅‘𝐹) ≠ (𝑅‘𝐺))) → 𝐹 ≠ ( I ↾ (Base‘𝐾)))
76		eqid 2732	. . . . . 6 ⊢ (Atoms‘𝐾) = (Atoms‘𝐾)
77	2, 76, 3, 4, 15	trlnidat 39032	. . . . 5 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝐹 ∈ 𝑇 ∧ 𝐹 ≠ ( I ↾ (Base‘𝐾))) → (𝑅‘𝐹) ∈ (Atoms‘𝐾))
78	73, 74, 75, 77	syl3anc 1371	. . . 4 ⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝐹 ∈ 𝑇 ∧ 𝐺 ∈ 𝑇) ∧ (𝐹 ≠ ( I ↾ (Base‘𝐾)) ∧ 𝐺 ≠ ( I ↾ (Base‘𝐾)) ∧ (𝑅‘𝐹) ≠ (𝑅‘𝐺))) → (𝑅‘𝐹) ∈ (Atoms‘𝐾))
79		simpl3 1193	. . . . . 6 ⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝐹 ∈ 𝑇 ∧ 𝐺 ∈ 𝑇) ∧ (𝐹 ≠ ( I ↾ (Base‘𝐾)) ∧ 𝐺 ≠ ( I ↾ (Base‘𝐾)) ∧ (𝑅‘𝐹) ≠ (𝑅‘𝐺))) → 𝐺 ∈ 𝑇)
80	74, 79	jca 512	. . . . 5 ⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝐹 ∈ 𝑇 ∧ 𝐺 ∈ 𝑇) ∧ (𝐹 ≠ ( I ↾ (Base‘𝐾)) ∧ 𝐺 ≠ ( I ↾ (Base‘𝐾)) ∧ (𝑅‘𝐹) ≠ (𝑅‘𝐺))) → (𝐹 ∈ 𝑇 ∧ 𝐺 ∈ 𝑇))
81		simpr3 1196	. . . . 5 ⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝐹 ∈ 𝑇 ∧ 𝐺 ∈ 𝑇) ∧ (𝐹 ≠ ( I ↾ (Base‘𝐾)) ∧ 𝐺 ≠ ( I ↾ (Base‘𝐾)) ∧ (𝑅‘𝐹) ≠ (𝑅‘𝐺))) → (𝑅‘𝐹) ≠ (𝑅‘𝐺))
82	76, 3, 4, 15	trlcoat 39582	. . . . 5 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝐹 ∈ 𝑇 ∧ 𝐺 ∈ 𝑇) ∧ (𝑅‘𝐹) ≠ (𝑅‘𝐺)) → (𝑅‘(𝐹 ∘ 𝐺)) ∈ (Atoms‘𝐾))
83	73, 80, 81, 82	syl3anc 1371	. . . 4 ⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝐹 ∈ 𝑇 ∧ 𝐺 ∈ 𝑇) ∧ (𝐹 ≠ ( I ↾ (Base‘𝐾)) ∧ 𝐺 ≠ ( I ↾ (Base‘𝐾)) ∧ (𝑅‘𝐹) ≠ (𝑅‘𝐺))) → (𝑅‘(𝐹 ∘ 𝐺)) ∈ (Atoms‘𝐾))
84		simpr2 1195	. . . . 5 ⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝐹 ∈ 𝑇 ∧ 𝐺 ∈ 𝑇) ∧ (𝐹 ≠ ( I ↾ (Base‘𝐾)) ∧ 𝐺 ≠ ( I ↾ (Base‘𝐾)) ∧ (𝑅‘𝐹) ≠ (𝑅‘𝐺))) → 𝐺 ≠ ( I ↾ (Base‘𝐾)))
85	2, 3, 4, 15	trlcone 39587	. . . . 5 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝐹 ∈ 𝑇 ∧ 𝐺 ∈ 𝑇) ∧ ((𝑅‘𝐹) ≠ (𝑅‘𝐺) ∧ 𝐺 ≠ ( I ↾ (Base‘𝐾)))) → (𝑅‘𝐹) ≠ (𝑅‘(𝐹 ∘ 𝐺)))
86	73, 80, 81, 84, 85	syl112anc 1374	. . . 4 ⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝐹 ∈ 𝑇 ∧ 𝐺 ∈ 𝑇) ∧ (𝐹 ≠ ( I ↾ (Base‘𝐾)) ∧ 𝐺 ≠ ( I ↾ (Base‘𝐾)) ∧ (𝑅‘𝐹) ≠ (𝑅‘𝐺))) → (𝑅‘𝐹) ≠ (𝑅‘(𝐹 ∘ 𝐺)))
87	2, 76, 3, 4, 15	trlnidat 39032	. . . . 5 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝐺 ∈ 𝑇 ∧ 𝐺 ≠ ( I ↾ (Base‘𝐾))) → (𝑅‘𝐺) ∈ (Atoms‘𝐾))
88	73, 79, 84, 87	syl3anc 1371	. . . 4 ⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝐹 ∈ 𝑇 ∧ 𝐺 ∈ 𝑇) ∧ (𝐹 ≠ ( I ↾ (Base‘𝐾)) ∧ 𝐺 ≠ ( I ↾ (Base‘𝐾)) ∧ (𝑅‘𝐹) ≠ (𝑅‘𝐺))) → (𝑅‘𝐺) ∈ (Atoms‘𝐾))
89	42, 18, 76	ps-1 38336	. . . 4 ⊢ ((𝐾 ∈ HL ∧ ((𝑅‘𝐹) ∈ (Atoms‘𝐾) ∧ (𝑅‘(𝐹 ∘ 𝐺)) ∈ (Atoms‘𝐾) ∧ (𝑅‘𝐹) ≠ (𝑅‘(𝐹 ∘ 𝐺))) ∧ ((𝑅‘𝐹) ∈ (Atoms‘𝐾) ∧ (𝑅‘𝐺) ∈ (Atoms‘𝐾))) → (((𝑅‘𝐹) ∨ (𝑅‘(𝐹 ∘ 𝐺)))(le‘𝐾)((𝑅‘𝐹) ∨ (𝑅‘𝐺)) ↔ ((𝑅‘𝐹) ∨ (𝑅‘(𝐹 ∘ 𝐺))) = ((𝑅‘𝐹) ∨ (𝑅‘𝐺))))
90	72, 78, 83, 86, 78, 88, 89	syl132anc 1388	. . 3 ⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝐹 ∈ 𝑇 ∧ 𝐺 ∈ 𝑇) ∧ (𝐹 ≠ ( I ↾ (Base‘𝐾)) ∧ 𝐺 ≠ ( I ↾ (Base‘𝐾)) ∧ (𝑅‘𝐹) ≠ (𝑅‘𝐺))) → (((𝑅‘𝐹) ∨ (𝑅‘(𝐹 ∘ 𝐺)))(le‘𝐾)((𝑅‘𝐹) ∨ (𝑅‘𝐺)) ↔ ((𝑅‘𝐹) ∨ (𝑅‘(𝐹 ∘ 𝐺))) = ((𝑅‘𝐹) ∨ (𝑅‘𝐺))))
91	71, 90	mpbid 231	. 2 ⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝐹 ∈ 𝑇 ∧ 𝐺 ∈ 𝑇) ∧ (𝐹 ≠ ( I ↾ (Base‘𝐾)) ∧ 𝐺 ≠ ( I ↾ (Base‘𝐾)) ∧ (𝑅‘𝐹) ≠ (𝑅‘𝐺))) → ((𝑅‘𝐹) ∨ (𝑅‘(𝐹 ∘ 𝐺))) = ((𝑅‘𝐹) ∨ (𝑅‘𝐺)))
92	12, 41, 70, 91	pm2.61da3ne 3031	1 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝐹 ∈ 𝑇 ∧ 𝐺 ∈ 𝑇) → ((𝑅‘𝐹) ∨ (𝑅‘(𝐹 ∘ 𝐺))) = ((𝑅‘𝐹) ∨ (𝑅‘𝐺)))

Colors of variables: wff setvar class

Syntax hints: → wi 4 ↔ wb 205 ∧ wa 396 ∧ w3a 1087 = wceq 1541 ∈ wcel 2106 ≠ wne 2940 class class class wbr 5147 I cid 5572 ↾ cres 5677 ∘ ccom 5679 ⟶wf 6536 –1-1-onto→wf1o 6539 ‘cfv 6540 (class class class)co 7405 Basecbs 17140 lecple 17200 joincjn 18260 0.cp0 18372 Latclat 18380 OLcol 38032 Atomscatm 38121 HLchlt 38208 LHypclh 38843 LTrncltrn 38960 trLctrl 39017

This theorem was proved from axioms: ax-mp 5 ax-1 6 ax-2 7 ax-3 8 ax-gen 1797 ax-4 1811 ax-5 1913 ax-6 1971 ax-7 2011 ax-8 2108 ax-9 2116 ax-10 2137 ax-11 2154 ax-12 2171 ax-ext 2703 ax-rep 5284 ax-sep 5298 ax-nul 5305 ax-pow 5362 ax-pr 5426 ax-un 7721 ax-riotaBAD 37811

This theorem depends on definitions: df-bi 206 df-an 397 df-or 846 df-3or 1088 df-3an 1089 df-tru 1544 df-fal 1554 df-ex 1782 df-nf 1786 df-sb 2068 df-mo 2534 df-eu 2563 df-clab 2710 df-cleq 2724 df-clel 2810 df-nfc 2885 df-ne 2941 df-ral 3062 df-rex 3071 df-rmo 3376 df-reu 3377 df-rab 3433 df-v 3476 df-sbc 3777 df-csb 3893 df-dif 3950 df-un 3952 df-in 3954 df-ss 3964 df-nul 4322 df-if 4528 df-pw 4603 df-sn 4628 df-pr 4630 df-op 4634 df-uni 4908 df-iun 4998 df-iin 4999 df-br 5148 df-opab 5210 df-mpt 5231 df-id 5573 df-xp 5681 df-rel 5682 df-cnv 5683 df-co 5684 df-dm 5685 df-rn 5686 df-res 5687 df-ima 5688 df-iota 6492 df-fun 6542 df-fn 6543 df-f 6544 df-f1 6545 df-fo 6546 df-f1o 6547 df-fv 6548 df-riota 7361 df-ov 7408 df-oprab 7409 df-mpo 7410 df-1st 7971 df-2nd 7972 df-undef 8254 df-map 8818 df-proset 18244 df-poset 18262 df-plt 18279 df-lub 18295 df-glb 18296 df-join 18297 df-meet 18298 df-p0 18374 df-p1 18375 df-lat 18381 df-clat 18448 df-oposet 38034 df-ol 38036 df-oml 38037 df-covers 38124 df-ats 38125 df-atl 38156 df-cvlat 38180 df-hlat 38209 df-llines 38357 df-lplanes 38358 df-lvols 38359 df-lines 38360 df-psubsp 38362 df-pmap 38363 df-padd 38655 df-lhyp 38847 df-laut 38848 df-ldil 38963 df-ltrn 38964 df-trl 39018

This theorem is referenced by: trljco2 39600 cdlemkid1 39781

W3C validator