Theorem cdlemg10c 38865

Description: TODO: FIX COMMENT. TODO: Can this be moved up as a stand-alone theorem in trl* area? (Contributed by NM, 4-May-2013.)

Hypotheses

Ref	Expression
cdlemg8.l	⊢ ≤ = (le‘𝐾)
cdlemg8.j	⊢ ∨ = (join‘𝐾)
cdlemg8.m	⊢ ∧ = (meet‘𝐾)
cdlemg8.a	⊢ 𝐴 = (Atoms‘𝐾)
cdlemg8.h	⊢ 𝐻 = (LHyp‘𝐾)
cdlemg8.t	⊢ 𝑇 = ((LTrn‘𝐾)‘𝑊)
cdlemg10.r	⊢ 𝑅 = ((trL‘𝐾)‘𝑊)

Assertion

Ref	Expression
cdlemg10c	⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ ((𝑃 ∈ 𝐴 ∧ ¬ 𝑃 ≤ 𝑊) ∧ (𝑄 ∈ 𝐴 ∧ ¬ 𝑄 ≤ 𝑊)) ∧ (𝐹 ∈ 𝑇 ∧ 𝐺 ∈ 𝑇)) → ((𝑅‘𝐹) ≤ ((𝐺‘𝑃) ∨ (𝐺‘𝑄)) ↔ (𝑅‘𝐹) ≤ (𝑃 ∨ 𝑄)))

Proof of Theorem cdlemg10c

Step	Hyp	Ref	Expression
1		simp1 1135	. . . 4 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ ((𝑃 ∈ 𝐴 ∧ ¬ 𝑃 ≤ 𝑊) ∧ (𝑄 ∈ 𝐴 ∧ ¬ 𝑄 ≤ 𝑊)) ∧ (𝐹 ∈ 𝑇 ∧ 𝐺 ∈ 𝑇)) → (𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻))
2		simp3l 1200	. . . 4 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ ((𝑃 ∈ 𝐴 ∧ ¬ 𝑃 ≤ 𝑊) ∧ (𝑄 ∈ 𝐴 ∧ ¬ 𝑄 ≤ 𝑊)) ∧ (𝐹 ∈ 𝑇 ∧ 𝐺 ∈ 𝑇)) → 𝐹 ∈ 𝑇)
3		cdlemg8.l	. . . . 5 ⊢ ≤ = (le‘𝐾)
4		cdlemg8.h	. . . . 5 ⊢ 𝐻 = (LHyp‘𝐾)
5		cdlemg8.t	. . . . 5 ⊢ 𝑇 = ((LTrn‘𝐾)‘𝑊)
6		cdlemg10.r	. . . . 5 ⊢ 𝑅 = ((trL‘𝐾)‘𝑊)
7	3, 4, 5, 6	trlle 38410	. . . 4 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝐹 ∈ 𝑇) → (𝑅‘𝐹) ≤ 𝑊)
8	1, 2, 7	syl2anc 584	. . 3 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ ((𝑃 ∈ 𝐴 ∧ ¬ 𝑃 ≤ 𝑊) ∧ (𝑄 ∈ 𝐴 ∧ ¬ 𝑄 ≤ 𝑊)) ∧ (𝐹 ∈ 𝑇 ∧ 𝐺 ∈ 𝑇)) → (𝑅‘𝐹) ≤ 𝑊)
9	8	biantrud 532	. 2 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ ((𝑃 ∈ 𝐴 ∧ ¬ 𝑃 ≤ 𝑊) ∧ (𝑄 ∈ 𝐴 ∧ ¬ 𝑄 ≤ 𝑊)) ∧ (𝐹 ∈ 𝑇 ∧ 𝐺 ∈ 𝑇)) → ((𝑅‘𝐹) ≤ ((𝐺‘𝑃) ∨ (𝐺‘𝑄)) ↔ ((𝑅‘𝐹) ≤ ((𝐺‘𝑃) ∨ (𝐺‘𝑄)) ∧ (𝑅‘𝐹) ≤ 𝑊)))
10		simp1l 1196	. . . 4 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ ((𝑃 ∈ 𝐴 ∧ ¬ 𝑃 ≤ 𝑊) ∧ (𝑄 ∈ 𝐴 ∧ ¬ 𝑄 ≤ 𝑊)) ∧ (𝐹 ∈ 𝑇 ∧ 𝐺 ∈ 𝑇)) → 𝐾 ∈ HL)
11	10	hllatd 37590	. . 3 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ ((𝑃 ∈ 𝐴 ∧ ¬ 𝑃 ≤ 𝑊) ∧ (𝑄 ∈ 𝐴 ∧ ¬ 𝑄 ≤ 𝑊)) ∧ (𝐹 ∈ 𝑇 ∧ 𝐺 ∈ 𝑇)) → 𝐾 ∈ Lat)
12		eqid 2737	. . . . 5 ⊢ (Base‘𝐾) = (Base‘𝐾)
13	12, 4, 5, 6	trlcl 38390	. . . 4 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝐹 ∈ 𝑇) → (𝑅‘𝐹) ∈ (Base‘𝐾))
14	1, 2, 13	syl2anc 584	. . 3 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ ((𝑃 ∈ 𝐴 ∧ ¬ 𝑃 ≤ 𝑊) ∧ (𝑄 ∈ 𝐴 ∧ ¬ 𝑄 ≤ 𝑊)) ∧ (𝐹 ∈ 𝑇 ∧ 𝐺 ∈ 𝑇)) → (𝑅‘𝐹) ∈ (Base‘𝐾))
15		simp3r 1201	. . . . 5 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ ((𝑃 ∈ 𝐴 ∧ ¬ 𝑃 ≤ 𝑊) ∧ (𝑄 ∈ 𝐴 ∧ ¬ 𝑄 ≤ 𝑊)) ∧ (𝐹 ∈ 𝑇 ∧ 𝐺 ∈ 𝑇)) → 𝐺 ∈ 𝑇)
16		simp2ll 1239	. . . . 5 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ ((𝑃 ∈ 𝐴 ∧ ¬ 𝑃 ≤ 𝑊) ∧ (𝑄 ∈ 𝐴 ∧ ¬ 𝑄 ≤ 𝑊)) ∧ (𝐹 ∈ 𝑇 ∧ 𝐺 ∈ 𝑇)) → 𝑃 ∈ 𝐴)
17		cdlemg8.a	. . . . . 6 ⊢ 𝐴 = (Atoms‘𝐾)
18	3, 17, 4, 5	ltrnat 38366	. . . . 5 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝐺 ∈ 𝑇 ∧ 𝑃 ∈ 𝐴) → (𝐺‘𝑃) ∈ 𝐴)
19	1, 15, 16, 18	syl3anc 1370	. . . 4 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ ((𝑃 ∈ 𝐴 ∧ ¬ 𝑃 ≤ 𝑊) ∧ (𝑄 ∈ 𝐴 ∧ ¬ 𝑄 ≤ 𝑊)) ∧ (𝐹 ∈ 𝑇 ∧ 𝐺 ∈ 𝑇)) → (𝐺‘𝑃) ∈ 𝐴)
20		simp2rl 1241	. . . . 5 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ ((𝑃 ∈ 𝐴 ∧ ¬ 𝑃 ≤ 𝑊) ∧ (𝑄 ∈ 𝐴 ∧ ¬ 𝑄 ≤ 𝑊)) ∧ (𝐹 ∈ 𝑇 ∧ 𝐺 ∈ 𝑇)) → 𝑄 ∈ 𝐴)
21	3, 17, 4, 5	ltrnat 38366	. . . . 5 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝐺 ∈ 𝑇 ∧ 𝑄 ∈ 𝐴) → (𝐺‘𝑄) ∈ 𝐴)
22	1, 15, 20, 21	syl3anc 1370	. . . 4 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ ((𝑃 ∈ 𝐴 ∧ ¬ 𝑃 ≤ 𝑊) ∧ (𝑄 ∈ 𝐴 ∧ ¬ 𝑄 ≤ 𝑊)) ∧ (𝐹 ∈ 𝑇 ∧ 𝐺 ∈ 𝑇)) → (𝐺‘𝑄) ∈ 𝐴)
23		cdlemg8.j	. . . . 5 ⊢ ∨ = (join‘𝐾)
24	12, 23, 17	hlatjcl 37593	. . . 4 ⊢ ((𝐾 ∈ HL ∧ (𝐺‘𝑃) ∈ 𝐴 ∧ (𝐺‘𝑄) ∈ 𝐴) → ((𝐺‘𝑃) ∨ (𝐺‘𝑄)) ∈ (Base‘𝐾))
25	10, 19, 22, 24	syl3anc 1370	. . 3 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ ((𝑃 ∈ 𝐴 ∧ ¬ 𝑃 ≤ 𝑊) ∧ (𝑄 ∈ 𝐴 ∧ ¬ 𝑄 ≤ 𝑊)) ∧ (𝐹 ∈ 𝑇 ∧ 𝐺 ∈ 𝑇)) → ((𝐺‘𝑃) ∨ (𝐺‘𝑄)) ∈ (Base‘𝐾))
26		simp1r 1197	. . . 4 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ ((𝑃 ∈ 𝐴 ∧ ¬ 𝑃 ≤ 𝑊) ∧ (𝑄 ∈ 𝐴 ∧ ¬ 𝑄 ≤ 𝑊)) ∧ (𝐹 ∈ 𝑇 ∧ 𝐺 ∈ 𝑇)) → 𝑊 ∈ 𝐻)
27	12, 4	lhpbase 38224	. . . 4 ⊢ (𝑊 ∈ 𝐻 → 𝑊 ∈ (Base‘𝐾))
28	26, 27	syl 17	. . 3 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ ((𝑃 ∈ 𝐴 ∧ ¬ 𝑃 ≤ 𝑊) ∧ (𝑄 ∈ 𝐴 ∧ ¬ 𝑄 ≤ 𝑊)) ∧ (𝐹 ∈ 𝑇 ∧ 𝐺 ∈ 𝑇)) → 𝑊 ∈ (Base‘𝐾))
29		cdlemg8.m	. . . 4 ⊢ ∧ = (meet‘𝐾)
30	12, 3, 29	latlem12 18251	. . 3 ⊢ ((𝐾 ∈ Lat ∧ ((𝑅‘𝐹) ∈ (Base‘𝐾) ∧ ((𝐺‘𝑃) ∨ (𝐺‘𝑄)) ∈ (Base‘𝐾) ∧ 𝑊 ∈ (Base‘𝐾))) → (((𝑅‘𝐹) ≤ ((𝐺‘𝑃) ∨ (𝐺‘𝑄)) ∧ (𝑅‘𝐹) ≤ 𝑊) ↔ (𝑅‘𝐹) ≤ (((𝐺‘𝑃) ∨ (𝐺‘𝑄)) ∧ 𝑊)))
31	11, 14, 25, 28, 30	syl13anc 1371	. 2 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ ((𝑃 ∈ 𝐴 ∧ ¬ 𝑃 ≤ 𝑊) ∧ (𝑄 ∈ 𝐴 ∧ ¬ 𝑄 ≤ 𝑊)) ∧ (𝐹 ∈ 𝑇 ∧ 𝐺 ∈ 𝑇)) → (((𝑅‘𝐹) ≤ ((𝐺‘𝑃) ∨ (𝐺‘𝑄)) ∧ (𝑅‘𝐹) ≤ 𝑊) ↔ (𝑅‘𝐹) ≤ (((𝐺‘𝑃) ∨ (𝐺‘𝑄)) ∧ 𝑊)))
32	12, 23, 17	hlatjcl 37593	. . . . 5 ⊢ ((𝐾 ∈ HL ∧ 𝑃 ∈ 𝐴 ∧ 𝑄 ∈ 𝐴) → (𝑃 ∨ 𝑄) ∈ (Base‘𝐾))
33	10, 16, 20, 32	syl3anc 1370	. . . 4 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ ((𝑃 ∈ 𝐴 ∧ ¬ 𝑃 ≤ 𝑊) ∧ (𝑄 ∈ 𝐴 ∧ ¬ 𝑄 ≤ 𝑊)) ∧ (𝐹 ∈ 𝑇 ∧ 𝐺 ∈ 𝑇)) → (𝑃 ∨ 𝑄) ∈ (Base‘𝐾))
34	12, 3, 29	latlem12 18251	. . . 4 ⊢ ((𝐾 ∈ Lat ∧ ((𝑅‘𝐹) ∈ (Base‘𝐾) ∧ (𝑃 ∨ 𝑄) ∈ (Base‘𝐾) ∧ 𝑊 ∈ (Base‘𝐾))) → (((𝑅‘𝐹) ≤ (𝑃 ∨ 𝑄) ∧ (𝑅‘𝐹) ≤ 𝑊) ↔ (𝑅‘𝐹) ≤ ((𝑃 ∨ 𝑄) ∧ 𝑊)))
35	11, 14, 33, 28, 34	syl13anc 1371	. . 3 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ ((𝑃 ∈ 𝐴 ∧ ¬ 𝑃 ≤ 𝑊) ∧ (𝑄 ∈ 𝐴 ∧ ¬ 𝑄 ≤ 𝑊)) ∧ (𝐹 ∈ 𝑇 ∧ 𝐺 ∈ 𝑇)) → (((𝑅‘𝐹) ≤ (𝑃 ∨ 𝑄) ∧ (𝑅‘𝐹) ≤ 𝑊) ↔ (𝑅‘𝐹) ≤ ((𝑃 ∨ 𝑄) ∧ 𝑊)))
36	8	biantrud 532	. . 3 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ ((𝑃 ∈ 𝐴 ∧ ¬ 𝑃 ≤ 𝑊) ∧ (𝑄 ∈ 𝐴 ∧ ¬ 𝑄 ≤ 𝑊)) ∧ (𝐹 ∈ 𝑇 ∧ 𝐺 ∈ 𝑇)) → ((𝑅‘𝐹) ≤ (𝑃 ∨ 𝑄) ↔ ((𝑅‘𝐹) ≤ (𝑃 ∨ 𝑄) ∧ (𝑅‘𝐹) ≤ 𝑊)))
37	3, 23, 29, 17, 4, 5	cdlemg10b 38861	. . . . 5 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ ((𝑃 ∈ 𝐴 ∧ ¬ 𝑃 ≤ 𝑊) ∧ (𝑄 ∈ 𝐴 ∧ ¬ 𝑄 ≤ 𝑊)) ∧ 𝐺 ∈ 𝑇) → (((𝐺‘𝑃) ∨ (𝐺‘𝑄)) ∧ 𝑊) = ((𝑃 ∨ 𝑄) ∧ 𝑊))
38	37	3adant3l 1179	. . . 4 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ ((𝑃 ∈ 𝐴 ∧ ¬ 𝑃 ≤ 𝑊) ∧ (𝑄 ∈ 𝐴 ∧ ¬ 𝑄 ≤ 𝑊)) ∧ (𝐹 ∈ 𝑇 ∧ 𝐺 ∈ 𝑇)) → (((𝐺‘𝑃) ∨ (𝐺‘𝑄)) ∧ 𝑊) = ((𝑃 ∨ 𝑄) ∧ 𝑊))
39	38	breq2d 5097	. . 3 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ ((𝑃 ∈ 𝐴 ∧ ¬ 𝑃 ≤ 𝑊) ∧ (𝑄 ∈ 𝐴 ∧ ¬ 𝑄 ≤ 𝑊)) ∧ (𝐹 ∈ 𝑇 ∧ 𝐺 ∈ 𝑇)) → ((𝑅‘𝐹) ≤ (((𝐺‘𝑃) ∨ (𝐺‘𝑄)) ∧ 𝑊) ↔ (𝑅‘𝐹) ≤ ((𝑃 ∨ 𝑄) ∧ 𝑊)))
40	35, 36, 39	3bitr4rd 311	. 2 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ ((𝑃 ∈ 𝐴 ∧ ¬ 𝑃 ≤ 𝑊) ∧ (𝑄 ∈ 𝐴 ∧ ¬ 𝑄 ≤ 𝑊)) ∧ (𝐹 ∈ 𝑇 ∧ 𝐺 ∈ 𝑇)) → ((𝑅‘𝐹) ≤ (((𝐺‘𝑃) ∨ (𝐺‘𝑄)) ∧ 𝑊) ↔ (𝑅‘𝐹) ≤ (𝑃 ∨ 𝑄)))
41	9, 31, 40	3bitrd 304	1 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ ((𝑃 ∈ 𝐴 ∧ ¬ 𝑃 ≤ 𝑊) ∧ (𝑄 ∈ 𝐴 ∧ ¬ 𝑄 ≤ 𝑊)) ∧ (𝐹 ∈ 𝑇 ∧ 𝐺 ∈ 𝑇)) → ((𝑅‘𝐹) ≤ ((𝐺‘𝑃) ∨ (𝐺‘𝑄)) ↔ (𝑅‘𝐹) ≤ (𝑃 ∨ 𝑄)))

Syntax hints:  ¬ wn 3   → wi 4   ↔ wb 205   ∧ wa 396   ∧ w3a 1086   = wceq 1540   ∈ wcel 2105   class class class wbr 5085  ‘cfv 6463  (class class class)co 7313  Basecbs 16979  lecple 17036  joincjn 18096  meetcmee 18097  Latclat 18216  Atomscatm 37489  HLchlt 37576  LHypclh 38210  LTrncltrn 38327  trLctrl 38384

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1796  ax-4 1810  ax-5 1912  ax-6 1970  ax-7 2010  ax-8 2107  ax-9 2115  ax-10 2136  ax-11 2153  ax-12 2170  ax-ext 2708  ax-rep 5222  ax-sep 5236  ax-nul 5243  ax-pow 5301  ax-pr 5365  ax-un 7626  ax-riotaBAD 37179

This theorem depends on definitions:  df-bi 206  df-an 397  df-or 845  df-3or 1087  df-3an 1088  df-tru 1543  df-fal 1553  df-ex 1781  df-nf 1785  df-sb 2067  df-mo 2539  df-eu 2568  df-clab 2715  df-cleq 2729  df-clel 2815  df-nfc 2887  df-ne 2942  df-ral 3063  df-rex 3072  df-rmo 3350  df-reu 3351  df-rab 3405  df-v 3443  df-sbc 3726  df-csb 3842  df-dif 3899  df-un 3901  df-in 3903  df-ss 3913  df-nul 4267  df-if 4470  df-pw 4545  df-sn 4570  df-pr 4572  df-op 4576  df-uni 4849  df-iun 4937  df-iin 4938  df-br 5086  df-opab 5148  df-mpt 5169  df-id 5505  df-xp 5611  df-rel 5612  df-cnv 5613  df-co 5614  df-dm 5615  df-rn 5616  df-res 5617  df-ima 5618  df-iota 6415  df-fun 6465  df-fn 6466  df-f 6467  df-f1 6468  df-fo 6469  df-f1o 6470  df-fv 6471  df-riota 7270  df-ov 7316  df-oprab 7317  df-mpo 7318  df-1st 7874  df-2nd 7875  df-undef 8134  df-map 8663  df-proset 18080  df-poset 18098  df-plt 18115  df-lub 18131  df-glb 18132  df-join 18133  df-meet 18134  df-p0 18210  df-p1 18211  df-lat 18217  df-clat 18284  df-oposet 37402  df-ol 37404  df-oml 37405  df-covers 37492  df-ats 37493  df-atl 37524  df-cvlat 37548  df-hlat 37577  df-llines 37724  df-lplanes 37725  df-lvols 37726  df-lines 37727  df-psubsp 37729  df-pmap 37730  df-padd 38022  df-lhyp 38214  df-laut 38215  df-ldil 38330  df-ltrn 38331  df-trl 38385

This theorem is referenced by:  cdlemg10a  38866  cdlemg12d  38872