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 41399

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 5841	. . . . 5 ⊢ (𝐹 = ( I ↾ (Base‘𝐾)) → (𝐹 ∘ 𝐺) = (( I ↾ (Base‘𝐾)) ∘ 𝐺))
2		eqid 2769	. . . . . . . 8 ⊢ (Base‘𝐾) = (Base‘𝐾)
3		trljco.h	. . . . . . . 8 ⊢ 𝐻 = (LHyp‘𝐾)
4		trljco.t	. . . . . . . 8 ⊢ 𝑇 = ((LTrn‘𝐾)‘𝑊)
5	2, 3, 4	ltrn1o 40783	. . . . . . 7 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝐺 ∈ 𝑇) → 𝐺:(Base‘𝐾)–1-1-onto→(Base‘𝐾))
6	5	3adant2 1147	. . . . . 6 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝐹 ∈ 𝑇 ∧ 𝐺 ∈ 𝑇) → 𝐺:(Base‘𝐾)–1-1-onto→(Base‘𝐾))
7		f1of 6818	. . . . . 6 ⊢ (𝐺:(Base‘𝐾)–1-1-onto→(Base‘𝐾) → 𝐺:(Base‘𝐾)⟶(Base‘𝐾))
8		fcoi2 6751	. . . . . 6 ⊢ (𝐺:(Base‘𝐾)⟶(Base‘𝐾) → (( I ↾ (Base‘𝐾)) ∘ 𝐺) = 𝐺)
9	6, 7, 8	3syl 19	. . . . 5 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝐹 ∈ 𝑇 ∧ 𝐺 ∈ 𝑇) → (( I ↾ (Base‘𝐾)) ∘ 𝐺) = 𝐺)
10	1, 9	sylan9eqr 2826	. . . 4 ⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝐹 ∈ 𝑇 ∧ 𝐺 ∈ 𝑇) ∧ 𝐹 = ( I ↾ (Base‘𝐾))) → (𝐹 ∘ 𝐺) = 𝐺)
11	10	fveq2d 6883	. . 3 ⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝐹 ∈ 𝑇 ∧ 𝐺 ∈ 𝑇) ∧ 𝐹 = ( I ↾ (Base‘𝐾))) → (𝑅‘(𝐹 ∘ 𝐺)) = (𝑅‘𝐺))
12	11	oveq2d 7424	. 2 ⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝐹 ∈ 𝑇 ∧ 𝐺 ∈ 𝑇) ∧ 𝐹 = ( I ↾ (Base‘𝐾))) → ((𝑅‘𝐹) ∨ (𝑅‘(𝐹 ∘ 𝐺))) = ((𝑅‘𝐹) ∨ (𝑅‘𝐺)))
13		simp1l 1214	. . . . . . 7 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝐹 ∈ 𝑇 ∧ 𝐺 ∈ 𝑇) → 𝐾 ∈ HL)
14	13	hllatd 40023	. . . . . 6 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝐹 ∈ 𝑇 ∧ 𝐺 ∈ 𝑇) → 𝐾 ∈ Lat)
15		trljco.r	. . . . . . . 8 ⊢ 𝑅 = ((trL‘𝐾)‘𝑊)
16	2, 3, 4, 15	trlcl 40823	. . . . . . 7 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝐹 ∈ 𝑇) → (𝑅‘𝐹) ∈ (Base‘𝐾))
17	16	3adant3 1148	. . . . . 6 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝐹 ∈ 𝑇 ∧ 𝐺 ∈ 𝑇) → (𝑅‘𝐹) ∈ (Base‘𝐾))
18		trljco.j	. . . . . . 7 ⊢ ∨ = (join‘𝐾)
19	2, 18	latjidm 18514	. . . . . 6 ⊢ ((𝐾 ∈ Lat ∧ (𝑅‘𝐹) ∈ (Base‘𝐾)) → ((𝑅‘𝐹) ∨ (𝑅‘𝐹)) = (𝑅‘𝐹))
20	14, 17, 19	syl2anc 595	. . . . 5 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝐹 ∈ 𝑇 ∧ 𝐺 ∈ 𝑇) → ((𝑅‘𝐹) ∨ (𝑅‘𝐹)) = (𝑅‘𝐹))
21		hlol 40020	. . . . . . 7 ⊢ (𝐾 ∈ HL → 𝐾 ∈ OL)
22	13, 21	syl 18	. . . . . 6 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝐹 ∈ 𝑇 ∧ 𝐺 ∈ 𝑇) → 𝐾 ∈ OL)
23		eqid 2769	. . . . . . 7 ⊢ (0.‘𝐾) = (0.‘𝐾)
24	2, 18, 23	olj01 39884	. . . . . 6 ⊢ ((𝐾 ∈ OL ∧ (𝑅‘𝐹) ∈ (Base‘𝐾)) → ((𝑅‘𝐹) ∨ (0.‘𝐾)) = (𝑅‘𝐹))
25	22, 17, 24	syl2anc 595	. . . . 5 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝐹 ∈ 𝑇 ∧ 𝐺 ∈ 𝑇) → ((𝑅‘𝐹) ∨ (0.‘𝐾)) = (𝑅‘𝐹))
26	20, 25	eqtr4d 2807	. . . 4 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝐹 ∈ 𝑇 ∧ 𝐺 ∈ 𝑇) → ((𝑅‘𝐹) ∨ (𝑅‘𝐹)) = ((𝑅‘𝐹) ∨ (0.‘𝐾)))
27	26	adantr 485	. . 3 ⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝐹 ∈ 𝑇 ∧ 𝐺 ∈ 𝑇) ∧ 𝐺 = ( I ↾ (Base‘𝐾))) → ((𝑅‘𝐹) ∨ (𝑅‘𝐹)) = ((𝑅‘𝐹) ∨ (0.‘𝐾)))
28		coeq2 5842	. . . . . 6 ⊢ (𝐺 = ( I ↾ (Base‘𝐾)) → (𝐹 ∘ 𝐺) = (𝐹 ∘ ( I ↾ (Base‘𝐾))))
29	2, 3, 4	ltrn1o 40783	. . . . . . . 8 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝐹 ∈ 𝑇) → 𝐹:(Base‘𝐾)–1-1-onto→(Base‘𝐾))
30	29	3adant3 1148	. . . . . . 7 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝐹 ∈ 𝑇 ∧ 𝐺 ∈ 𝑇) → 𝐹:(Base‘𝐾)–1-1-onto→(Base‘𝐾))
31		f1of 6818	. . . . . . 7 ⊢ (𝐹:(Base‘𝐾)–1-1-onto→(Base‘𝐾) → 𝐹:(Base‘𝐾)⟶(Base‘𝐾))
32		fcoi1 6750	. . . . . . 7 ⊢ (𝐹:(Base‘𝐾)⟶(Base‘𝐾) → (𝐹 ∘ ( I ↾ (Base‘𝐾))) = 𝐹)
33	30, 31, 32	3syl 19	. . . . . 6 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝐹 ∈ 𝑇 ∧ 𝐺 ∈ 𝑇) → (𝐹 ∘ ( I ↾ (Base‘𝐾))) = 𝐹)
34	28, 33	sylan9eqr 2826	. . . . 5 ⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝐹 ∈ 𝑇 ∧ 𝐺 ∈ 𝑇) ∧ 𝐺 = ( I ↾ (Base‘𝐾))) → (𝐹 ∘ 𝐺) = 𝐹)
35	34	fveq2d 6883	. . . 4 ⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝐹 ∈ 𝑇 ∧ 𝐺 ∈ 𝑇) ∧ 𝐺 = ( I ↾ (Base‘𝐾))) → (𝑅‘(𝐹 ∘ 𝐺)) = (𝑅‘𝐹))
36	35	oveq2d 7424	. . 3 ⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝐹 ∈ 𝑇 ∧ 𝐺 ∈ 𝑇) ∧ 𝐺 = ( I ↾ (Base‘𝐾))) → ((𝑅‘𝐹) ∨ (𝑅‘(𝐹 ∘ 𝐺))) = ((𝑅‘𝐹) ∨ (𝑅‘𝐹)))
37	2, 23, 3, 4, 15	trlid0b 40837	. . . . . 6 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝐺 ∈ 𝑇) → (𝐺 = ( I ↾ (Base‘𝐾)) ↔ (𝑅‘𝐺) = (0.‘𝐾)))
38	37	3adant2 1147	. . . . 5 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝐹 ∈ 𝑇 ∧ 𝐺 ∈ 𝑇) → (𝐺 = ( I ↾ (Base‘𝐾)) ↔ (𝑅‘𝐺) = (0.‘𝐾)))
39	38	biimpa 481	. . . 4 ⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝐹 ∈ 𝑇 ∧ 𝐺 ∈ 𝑇) ∧ 𝐺 = ( I ↾ (Base‘𝐾))) → (𝑅‘𝐺) = (0.‘𝐾))
40	39	oveq2d 7424	. . 3 ⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝐹 ∈ 𝑇 ∧ 𝐺 ∈ 𝑇) ∧ 𝐺 = ( I ↾ (Base‘𝐾))) → ((𝑅‘𝐹) ∨ (𝑅‘𝐺)) = ((𝑅‘𝐹) ∨ (0.‘𝐾)))
41	27, 36, 40	3eqtr4d 2814	. 2 ⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝐹 ∈ 𝑇 ∧ 𝐺 ∈ 𝑇) ∧ 𝐺 = ( I ↾ (Base‘𝐾))) → ((𝑅‘𝐹) ∨ (𝑅‘(𝐹 ∘ 𝐺))) = ((𝑅‘𝐹) ∨ (𝑅‘𝐺)))
42		eqid 2769	. . 3 ⊢ (le‘𝐾) = (le‘𝐾)
43	14	adantr 485	. . 3 ⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝐹 ∈ 𝑇 ∧ 𝐺 ∈ 𝑇) ∧ (𝑅‘𝐹) = (𝑅‘𝐺)) → 𝐾 ∈ Lat)
44		simp1 1152	. . . . . 6 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝐹 ∈ 𝑇 ∧ 𝐺 ∈ 𝑇) → (𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻))
45	3, 4	ltrnco 41378	. . . . . 6 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝐹 ∈ 𝑇 ∧ 𝐺 ∈ 𝑇) → (𝐹 ∘ 𝐺) ∈ 𝑇)
46	2, 3, 4, 15	trlcl 40823	. . . . . 6 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝐹 ∘ 𝐺) ∈ 𝑇) → (𝑅‘(𝐹 ∘ 𝐺)) ∈ (Base‘𝐾))
47	44, 45, 46	syl2anc 595	. . . . 5 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝐹 ∈ 𝑇 ∧ 𝐺 ∈ 𝑇) → (𝑅‘(𝐹 ∘ 𝐺)) ∈ (Base‘𝐾))
48	2, 18	latjcl 18491	. . . . 5 ⊢ ((𝐾 ∈ Lat ∧ (𝑅‘𝐹) ∈ (Base‘𝐾) ∧ (𝑅‘(𝐹 ∘ 𝐺)) ∈ (Base‘𝐾)) → ((𝑅‘𝐹) ∨ (𝑅‘(𝐹 ∘ 𝐺))) ∈ (Base‘𝐾))
49	14, 17, 47, 48	syl3anc 1396	. . . 4 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝐹 ∈ 𝑇 ∧ 𝐺 ∈ 𝑇) → ((𝑅‘𝐹) ∨ (𝑅‘(𝐹 ∘ 𝐺))) ∈ (Base‘𝐾))
50	49	adantr 485	. . 3 ⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝐹 ∈ 𝑇 ∧ 𝐺 ∈ 𝑇) ∧ (𝑅‘𝐹) = (𝑅‘𝐺)) → ((𝑅‘𝐹) ∨ (𝑅‘(𝐹 ∘ 𝐺))) ∈ (Base‘𝐾))
51	2, 3, 4, 15	trlcl 40823	. . . . . 6 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝐺 ∈ 𝑇) → (𝑅‘𝐺) ∈ (Base‘𝐾))
52	51	3adant2 1147	. . . . 5 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝐹 ∈ 𝑇 ∧ 𝐺 ∈ 𝑇) → (𝑅‘𝐺) ∈ (Base‘𝐾))
53	2, 18	latjcl 18491	. . . . 5 ⊢ ((𝐾 ∈ Lat ∧ (𝑅‘𝐹) ∈ (Base‘𝐾) ∧ (𝑅‘𝐺) ∈ (Base‘𝐾)) → ((𝑅‘𝐹) ∨ (𝑅‘𝐺)) ∈ (Base‘𝐾))
54	14, 17, 52, 53	syl3anc 1396	. . . 4 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝐹 ∈ 𝑇 ∧ 𝐺 ∈ 𝑇) → ((𝑅‘𝐹) ∨ (𝑅‘𝐺)) ∈ (Base‘𝐾))
55	54	adantr 485	. . 3 ⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝐹 ∈ 𝑇 ∧ 𝐺 ∈ 𝑇) ∧ (𝑅‘𝐹) = (𝑅‘𝐺)) → ((𝑅‘𝐹) ∨ (𝑅‘𝐺)) ∈ (Base‘𝐾))
56	2, 42, 18	latlej1 18500	. . . . . 6 ⊢ ((𝐾 ∈ Lat ∧ (𝑅‘𝐹) ∈ (Base‘𝐾) ∧ (𝑅‘𝐺) ∈ (Base‘𝐾)) → (𝑅‘𝐹)(le‘𝐾)((𝑅‘𝐹) ∨ (𝑅‘𝐺)))
57	14, 17, 52, 56	syl3anc 1396	. . . . 5 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝐹 ∈ 𝑇 ∧ 𝐺 ∈ 𝑇) → (𝑅‘𝐹)(le‘𝐾)((𝑅‘𝐹) ∨ (𝑅‘𝐺)))
58	42, 18, 3, 4, 15	trlco 41386	. . . . 5 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝐹 ∈ 𝑇 ∧ 𝐺 ∈ 𝑇) → (𝑅‘(𝐹 ∘ 𝐺))(le‘𝐾)((𝑅‘𝐹) ∨ (𝑅‘𝐺)))
59	2, 42, 18	latjle12 18502	. . . . . 6 ⊢ ((𝐾 ∈ Lat ∧ ((𝑅‘𝐹) ∈ (Base‘𝐾) ∧ (𝑅‘(𝐹 ∘ 𝐺)) ∈ (Base‘𝐾) ∧ ((𝑅‘𝐹) ∨ (𝑅‘𝐺)) ∈ (Base‘𝐾))) → (((𝑅‘𝐹)(le‘𝐾)((𝑅‘𝐹) ∨ (𝑅‘𝐺)) ∧ (𝑅‘(𝐹 ∘ 𝐺))(le‘𝐾)((𝑅‘𝐹) ∨ (𝑅‘𝐺))) ↔ ((𝑅‘𝐹) ∨ (𝑅‘(𝐹 ∘ 𝐺)))(le‘𝐾)((𝑅‘𝐹) ∨ (𝑅‘𝐺))))
60	14, 17, 47, 54, 59	syl13anc 1397	. . . . 5 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝐹 ∈ 𝑇 ∧ 𝐺 ∈ 𝑇) → (((𝑅‘𝐹)(le‘𝐾)((𝑅‘𝐹) ∨ (𝑅‘𝐺)) ∧ (𝑅‘(𝐹 ∘ 𝐺))(le‘𝐾)((𝑅‘𝐹) ∨ (𝑅‘𝐺))) ↔ ((𝑅‘𝐹) ∨ (𝑅‘(𝐹 ∘ 𝐺)))(le‘𝐾)((𝑅‘𝐹) ∨ (𝑅‘𝐺))))
61	57, 58, 60	mpbi2and 724	. . . 4 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝐹 ∈ 𝑇 ∧ 𝐺 ∈ 𝑇) → ((𝑅‘𝐹) ∨ (𝑅‘(𝐹 ∘ 𝐺)))(le‘𝐾)((𝑅‘𝐹) ∨ (𝑅‘𝐺)))
62	61	adantr 485	. . 3 ⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝐹 ∈ 𝑇 ∧ 𝐺 ∈ 𝑇) ∧ (𝑅‘𝐹) = (𝑅‘𝐺)) → ((𝑅‘𝐹) ∨ (𝑅‘(𝐹 ∘ 𝐺)))(le‘𝐾)((𝑅‘𝐹) ∨ (𝑅‘𝐺)))
63		simpr 489	. . . . 5 ⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝐹 ∈ 𝑇 ∧ 𝐺 ∈ 𝑇) ∧ (𝑅‘𝐹) = (𝑅‘𝐺)) → (𝑅‘𝐹) = (𝑅‘𝐺))
64	63	oveq2d 7424	. . . 4 ⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝐹 ∈ 𝑇 ∧ 𝐺 ∈ 𝑇) ∧ (𝑅‘𝐹) = (𝑅‘𝐺)) → ((𝑅‘𝐹) ∨ (𝑅‘𝐹)) = ((𝑅‘𝐹) ∨ (𝑅‘𝐺)))
65	2, 42, 18	latlej1 18500	. . . . . . 7 ⊢ ((𝐾 ∈ Lat ∧ (𝑅‘𝐹) ∈ (Base‘𝐾) ∧ (𝑅‘(𝐹 ∘ 𝐺)) ∈ (Base‘𝐾)) → (𝑅‘𝐹)(le‘𝐾)((𝑅‘𝐹) ∨ (𝑅‘(𝐹 ∘ 𝐺))))
66	14, 17, 47, 65	syl3anc 1396	. . . . . 6 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝐹 ∈ 𝑇 ∧ 𝐺 ∈ 𝑇) → (𝑅‘𝐹)(le‘𝐾)((𝑅‘𝐹) ∨ (𝑅‘(𝐹 ∘ 𝐺))))
67	20, 66	eqbrtrd 5134	. . . . 5 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝐹 ∈ 𝑇 ∧ 𝐺 ∈ 𝑇) → ((𝑅‘𝐹) ∨ (𝑅‘𝐹))(le‘𝐾)((𝑅‘𝐹) ∨ (𝑅‘(𝐹 ∘ 𝐺))))
68	67	adantr 485	. . . 4 ⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝐹 ∈ 𝑇 ∧ 𝐺 ∈ 𝑇) ∧ (𝑅‘𝐹) = (𝑅‘𝐺)) → ((𝑅‘𝐹) ∨ (𝑅‘𝐹))(le‘𝐾)((𝑅‘𝐹) ∨ (𝑅‘(𝐹 ∘ 𝐺))))
69	64, 68	eqbrtrrd 5136	. . 3 ⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝐹 ∈ 𝑇 ∧ 𝐺 ∈ 𝑇) ∧ (𝑅‘𝐹) = (𝑅‘𝐺)) → ((𝑅‘𝐹) ∨ (𝑅‘𝐺))(le‘𝐾)((𝑅‘𝐹) ∨ (𝑅‘(𝐹 ∘ 𝐺))))
70	2, 42, 43, 50, 55, 62, 69	latasymd 18497	. 2 ⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝐹 ∈ 𝑇 ∧ 𝐺 ∈ 𝑇) ∧ (𝑅‘𝐹) = (𝑅‘𝐺)) → ((𝑅‘𝐹) ∨ (𝑅‘(𝐹 ∘ 𝐺))) = ((𝑅‘𝐹) ∨ (𝑅‘𝐺)))
71	61	adantr 485	. . 3 ⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝐹 ∈ 𝑇 ∧ 𝐺 ∈ 𝑇) ∧ (𝐹 ≠ ( I ↾ (Base‘𝐾)) ∧ 𝐺 ≠ ( I ↾ (Base‘𝐾)) ∧ (𝑅‘𝐹) ≠ (𝑅‘𝐺))) → ((𝑅‘𝐹) ∨ (𝑅‘(𝐹 ∘ 𝐺)))(le‘𝐾)((𝑅‘𝐹) ∨ (𝑅‘𝐺)))
72		simpl1l 1241	. . . 4 ⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝐹 ∈ 𝑇 ∧ 𝐺 ∈ 𝑇) ∧ (𝐹 ≠ ( I ↾ (Base‘𝐾)) ∧ 𝐺 ≠ ( I ↾ (Base‘𝐾)) ∧ (𝑅‘𝐹) ≠ (𝑅‘𝐺))) → 𝐾 ∈ HL)
73		simpl1 1208	. . . . 5 ⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝐹 ∈ 𝑇 ∧ 𝐺 ∈ 𝑇) ∧ (𝐹 ≠ ( I ↾ (Base‘𝐾)) ∧ 𝐺 ≠ ( I ↾ (Base‘𝐾)) ∧ (𝑅‘𝐹) ≠ (𝑅‘𝐺))) → (𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻))
74		simpl2 1209	. . . . 5 ⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝐹 ∈ 𝑇 ∧ 𝐺 ∈ 𝑇) ∧ (𝐹 ≠ ( I ↾ (Base‘𝐾)) ∧ 𝐺 ≠ ( I ↾ (Base‘𝐾)) ∧ (𝑅‘𝐹) ≠ (𝑅‘𝐺))) → 𝐹 ∈ 𝑇)
75		simpr1 1211	. . . . 5 ⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝐹 ∈ 𝑇 ∧ 𝐺 ∈ 𝑇) ∧ (𝐹 ≠ ( I ↾ (Base‘𝐾)) ∧ 𝐺 ≠ ( I ↾ (Base‘𝐾)) ∧ (𝑅‘𝐹) ≠ (𝑅‘𝐺))) → 𝐹 ≠ ( I ↾ (Base‘𝐾)))
76		eqid 2769	. . . . . 6 ⊢ (Atoms‘𝐾) = (Atoms‘𝐾)
77	2, 76, 3, 4, 15	trlnidat 40832	. . . . 5 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝐹 ∈ 𝑇 ∧ 𝐹 ≠ ( I ↾ (Base‘𝐾))) → (𝑅‘𝐹) ∈ (Atoms‘𝐾))
78	73, 74, 75, 77	syl3anc 1396	. . . 4 ⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝐹 ∈ 𝑇 ∧ 𝐺 ∈ 𝑇) ∧ (𝐹 ≠ ( I ↾ (Base‘𝐾)) ∧ 𝐺 ≠ ( I ↾ (Base‘𝐾)) ∧ (𝑅‘𝐹) ≠ (𝑅‘𝐺))) → (𝑅‘𝐹) ∈ (Atoms‘𝐾))
79		simpl3 1210	. . . . . 6 ⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝐹 ∈ 𝑇 ∧ 𝐺 ∈ 𝑇) ∧ (𝐹 ≠ ( I ↾ (Base‘𝐾)) ∧ 𝐺 ≠ ( I ↾ (Base‘𝐾)) ∧ (𝑅‘𝐹) ≠ (𝑅‘𝐺))) → 𝐺 ∈ 𝑇)
80	74, 79	jca 520	. . . . 5 ⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝐹 ∈ 𝑇 ∧ 𝐺 ∈ 𝑇) ∧ (𝐹 ≠ ( I ↾ (Base‘𝐾)) ∧ 𝐺 ≠ ( I ↾ (Base‘𝐾)) ∧ (𝑅‘𝐹) ≠ (𝑅‘𝐺))) → (𝐹 ∈ 𝑇 ∧ 𝐺 ∈ 𝑇))
81		simpr3 1213	. . . . 5 ⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝐹 ∈ 𝑇 ∧ 𝐺 ∈ 𝑇) ∧ (𝐹 ≠ ( I ↾ (Base‘𝐾)) ∧ 𝐺 ≠ ( I ↾ (Base‘𝐾)) ∧ (𝑅‘𝐹) ≠ (𝑅‘𝐺))) → (𝑅‘𝐹) ≠ (𝑅‘𝐺))
82	76, 3, 4, 15	trlcoat 41382	. . . . 5 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝐹 ∈ 𝑇 ∧ 𝐺 ∈ 𝑇) ∧ (𝑅‘𝐹) ≠ (𝑅‘𝐺)) → (𝑅‘(𝐹 ∘ 𝐺)) ∈ (Atoms‘𝐾))
83	73, 80, 81, 82	syl3anc 1396	. . . 4 ⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝐹 ∈ 𝑇 ∧ 𝐺 ∈ 𝑇) ∧ (𝐹 ≠ ( I ↾ (Base‘𝐾)) ∧ 𝐺 ≠ ( I ↾ (Base‘𝐾)) ∧ (𝑅‘𝐹) ≠ (𝑅‘𝐺))) → (𝑅‘(𝐹 ∘ 𝐺)) ∈ (Atoms‘𝐾))
84		simpr2 1212	. . . . 5 ⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝐹 ∈ 𝑇 ∧ 𝐺 ∈ 𝑇) ∧ (𝐹 ≠ ( I ↾ (Base‘𝐾)) ∧ 𝐺 ≠ ( I ↾ (Base‘𝐾)) ∧ (𝑅‘𝐹) ≠ (𝑅‘𝐺))) → 𝐺 ≠ ( I ↾ (Base‘𝐾)))
85	2, 3, 4, 15	trlcone 41387	. . . . 5 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝐹 ∈ 𝑇 ∧ 𝐺 ∈ 𝑇) ∧ ((𝑅‘𝐹) ≠ (𝑅‘𝐺) ∧ 𝐺 ≠ ( I ↾ (Base‘𝐾)))) → (𝑅‘𝐹) ≠ (𝑅‘(𝐹 ∘ 𝐺)))
86	73, 80, 81, 84, 85	syl112anc 1399	. . . 4 ⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝐹 ∈ 𝑇 ∧ 𝐺 ∈ 𝑇) ∧ (𝐹 ≠ ( I ↾ (Base‘𝐾)) ∧ 𝐺 ≠ ( I ↾ (Base‘𝐾)) ∧ (𝑅‘𝐹) ≠ (𝑅‘𝐺))) → (𝑅‘𝐹) ≠ (𝑅‘(𝐹 ∘ 𝐺)))
87	2, 76, 3, 4, 15	trlnidat 40832	. . . . 5 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝐺 ∈ 𝑇 ∧ 𝐺 ≠ ( I ↾ (Base‘𝐾))) → (𝑅‘𝐺) ∈ (Atoms‘𝐾))
88	73, 79, 84, 87	syl3anc 1396	. . . 4 ⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝐹 ∈ 𝑇 ∧ 𝐺 ∈ 𝑇) ∧ (𝐹 ≠ ( I ↾ (Base‘𝐾)) ∧ 𝐺 ≠ ( I ↾ (Base‘𝐾)) ∧ (𝑅‘𝐹) ≠ (𝑅‘𝐺))) → (𝑅‘𝐺) ∈ (Atoms‘𝐾))
89	42, 18, 76	ps-1 40136	. . . 4 ⊢ ((𝐾 ∈ HL ∧ ((𝑅‘𝐹) ∈ (Atoms‘𝐾) ∧ (𝑅‘(𝐹 ∘ 𝐺)) ∈ (Atoms‘𝐾) ∧ (𝑅‘𝐹) ≠ (𝑅‘(𝐹 ∘ 𝐺))) ∧ ((𝑅‘𝐹) ∈ (Atoms‘𝐾) ∧ (𝑅‘𝐺) ∈ (Atoms‘𝐾))) → (((𝑅‘𝐹) ∨ (𝑅‘(𝐹 ∘ 𝐺)))(le‘𝐾)((𝑅‘𝐹) ∨ (𝑅‘𝐺)) ↔ ((𝑅‘𝐹) ∨ (𝑅‘(𝐹 ∘ 𝐺))) = ((𝑅‘𝐹) ∨ (𝑅‘𝐺))))
90	72, 78, 83, 86, 78, 88, 89	syl132anc 1413	. . 3 ⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝐹 ∈ 𝑇 ∧ 𝐺 ∈ 𝑇) ∧ (𝐹 ≠ ( I ↾ (Base‘𝐾)) ∧ 𝐺 ≠ ( I ↾ (Base‘𝐾)) ∧ (𝑅‘𝐹) ≠ (𝑅‘𝐺))) → (((𝑅‘𝐹) ∨ (𝑅‘(𝐹 ∘ 𝐺)))(le‘𝐾)((𝑅‘𝐹) ∨ (𝑅‘𝐺)) ↔ ((𝑅‘𝐹) ∨ (𝑅‘(𝐹 ∘ 𝐺))) = ((𝑅‘𝐹) ∨ (𝑅‘𝐺))))
91	71, 90	mpbid 235	. 2 ⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝐹 ∈ 𝑇 ∧ 𝐺 ∈ 𝑇) ∧ (𝐹 ≠ ( I ↾ (Base‘𝐾)) ∧ 𝐺 ≠ ( I ↾ (Base‘𝐾)) ∧ (𝑅‘𝐹) ≠ (𝑅‘𝐺))) → ((𝑅‘𝐹) ∨ (𝑅‘(𝐹 ∘ 𝐺))) = ((𝑅‘𝐹) ∨ (𝑅‘𝐺)))
92	12, 41, 70, 91	pm2.61da3ne 3053	1 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝐹 ∈ 𝑇 ∧ 𝐺 ∈ 𝑇) → ((𝑅‘𝐹) ∨ (𝑅‘(𝐹 ∘ 𝐺))) = ((𝑅‘𝐹) ∨ (𝑅‘𝐺)))

Colors of variables: wff setvar class

Syntax hints: → wi 4 ↔ wb 209 ∧ wa 400 ∧ w3a 1101 = wceq 1567 ∈ wcel 2149 ≠ wne 2964 class class class wbr 5110 I cid 5553 ↾ cres 5661 ∘ ccom 5663 ⟶wf 6530 –1-1-onto→wf1o 6533 ‘cfv 6534 (class class class)co 7408 Basecbs 17265 lecple 17313 joincjn 18363 0.cp0 18473 Latclat 18483 OLcol 39833 Atomscatm 39922 HLchlt 40009 LHypclh 40643 LTrncltrn 40760 trLctrl 40817

This theorem was proved from axioms: ax-mp 5 ax-1 6 ax-2 7 ax-3 8 ax-gen 1822 ax-4 1836 ax-5 1937 ax-6 1994 ax-7 2035 ax-8 2151 ax-9 2159 ax-10 2182 ax-11 2198 ax-12 2219 ax-ext 2741 ax-rep 5239 ax-sep 5258 ax-nul 5268 ax-pow 5334 ax-pr 5402 ax-un 7730 ax-riotaBAD 39612

This theorem depends on definitions: df-bi 210 df-an 401 df-or 861 df-3or 1102 df-3an 1103 df-tru 1570 df-fal 1580 df-ex 1807 df-nf 1811 df-sb 2098 df-mo 2573 df-eu 2603 df-clab 2748 df-cleq 2761 df-clel 2844 df-nfc 2918 df-ne 2965 df-ral 3086 df-rex 3096 df-rmo 3376 df-reu 3377 df-rab 3424 df-v 3465 df-sbc 3754 df-csb 3862 df-dif 3916 df-un 3918 df-in 3920 df-ss 3930 df-nul 4295 df-if 4490 df-pw 4566 df-sn 4592 df-pr 4594 df-op 4598 df-uni 4874 df-iun 4959 df-iin 4960 df-br 5111 df-opab 5175 df-mpt 5194 df-id 5554 df-xp 5665 df-rel 5666 df-cnv 5667 df-co 5668 df-dm 5669 df-rn 5670 df-res 5671 df-ima 5672 df-iota 6490 df-fun 6536 df-fn 6537 df-f 6538 df-f1 6539 df-fo 6540 df-f1o 6541 df-fv 6542 df-riota 7365 df-ov 7411 df-oprab 7412 df-mpo 7413 df-1st 7982 df-2nd 7983 df-undef 8265 df-map 8822 df-proset 18346 df-poset 18365 df-plt 18380 df-lub 18396 df-glb 18397 df-join 18398 df-meet 18399 df-p0 18475 df-p1 18476 df-lat 18484 df-clat 18551 df-oposet 39835 df-ol 39837 df-oml 39838 df-covers 39925 df-ats 39926 df-atl 39957 df-cvlat 39981 df-hlat 40010 df-llines 40157 df-lplanes 40158 df-lvols 40159 df-lines 40160 df-psubsp 40162 df-pmap 40163 df-padd 40455 df-lhyp 40647 df-laut 40648 df-ldil 40763 df-ltrn 40764 df-trl 40818

This theorem is referenced by: trljco2 41400 cdlemkid1 41581

W3C validator