Theorem cdlemc2 36212

Description: Part of proof of Lemma C in [Crawley] p. 112. (Contributed by NM, 25-May-2012.)

Hypotheses

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

Assertion

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

Proof of Theorem cdlemc2

Step	Hyp	Ref	Expression
1		simp1l 1255	. . . . 5 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝐹 ∈ 𝑇 ∧ ((𝑃 ∈ 𝐴 ∧ ¬ 𝑃 ≤ 𝑊) ∧ (𝑄 ∈ 𝐴 ∧ ¬ 𝑄 ≤ 𝑊))) → 𝐾 ∈ HL)
2		simp3ll 1326	. . . . 5 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝐹 ∈ 𝑇 ∧ ((𝑃 ∈ 𝐴 ∧ ¬ 𝑃 ≤ 𝑊) ∧ (𝑄 ∈ 𝐴 ∧ ¬ 𝑄 ≤ 𝑊))) → 𝑃 ∈ 𝐴)
3		simp3rl 1328	. . . . 5 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝐹 ∈ 𝑇 ∧ ((𝑃 ∈ 𝐴 ∧ ¬ 𝑃 ≤ 𝑊) ∧ (𝑄 ∈ 𝐴 ∧ ¬ 𝑄 ≤ 𝑊))) → 𝑄 ∈ 𝐴)
4		cdlemc2.l	. . . . . 6 ⊢ ≤ = (le‘𝐾)
5		cdlemc2.j	. . . . . 6 ⊢ ∨ = (join‘𝐾)
6		cdlemc2.a	. . . . . 6 ⊢ 𝐴 = (Atoms‘𝐾)
7	4, 5, 6	hlatlej2 35396	. . . . 5 ⊢ ((𝐾 ∈ HL ∧ 𝑃 ∈ 𝐴 ∧ 𝑄 ∈ 𝐴) → 𝑄 ≤ (𝑃 ∨ 𝑄))
8	1, 2, 3, 7	syl3anc 1491	. . . 4 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝐹 ∈ 𝑇 ∧ ((𝑃 ∈ 𝐴 ∧ ¬ 𝑃 ≤ 𝑊) ∧ (𝑄 ∈ 𝐴 ∧ ¬ 𝑄 ≤ 𝑊))) → 𝑄 ≤ (𝑃 ∨ 𝑄))
9		simp1 1167	. . . . 5 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝐹 ∈ 𝑇 ∧ ((𝑃 ∈ 𝐴 ∧ ¬ 𝑃 ≤ 𝑊) ∧ (𝑄 ∈ 𝐴 ∧ ¬ 𝑄 ≤ 𝑊))) → (𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻))
10		eqid 2800	. . . . . . 7 ⊢ (Base‘𝐾) = (Base‘𝐾)
11	10, 6	atbase 35309	. . . . . 6 ⊢ (𝑄 ∈ 𝐴 → 𝑄 ∈ (Base‘𝐾))
12	3, 11	syl 17	. . . . 5 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝐹 ∈ 𝑇 ∧ ((𝑃 ∈ 𝐴 ∧ ¬ 𝑃 ≤ 𝑊) ∧ (𝑄 ∈ 𝐴 ∧ ¬ 𝑄 ≤ 𝑊))) → 𝑄 ∈ (Base‘𝐾))
13		simp3l 1259	. . . . 5 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝐹 ∈ 𝑇 ∧ ((𝑃 ∈ 𝐴 ∧ ¬ 𝑃 ≤ 𝑊) ∧ (𝑄 ∈ 𝐴 ∧ ¬ 𝑄 ≤ 𝑊))) → (𝑃 ∈ 𝐴 ∧ ¬ 𝑃 ≤ 𝑊))
14		cdlemc2.m	. . . . . 6 ⊢ ∧ = (meet‘𝐾)
15		cdlemc2.h	. . . . . 6 ⊢ 𝐻 = (LHyp‘𝐾)
16	10, 4, 5, 14, 6, 15	cdlemc1 36211	. . . . 5 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝑄 ∈ (Base‘𝐾) ∧ (𝑃 ∈ 𝐴 ∧ ¬ 𝑃 ≤ 𝑊)) → (𝑃 ∨ ((𝑃 ∨ 𝑄) ∧ 𝑊)) = (𝑃 ∨ 𝑄))
17	9, 12, 13, 16	syl3anc 1491	. . . 4 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝐹 ∈ 𝑇 ∧ ((𝑃 ∈ 𝐴 ∧ ¬ 𝑃 ≤ 𝑊) ∧ (𝑄 ∈ 𝐴 ∧ ¬ 𝑄 ≤ 𝑊))) → (𝑃 ∨ ((𝑃 ∨ 𝑄) ∧ 𝑊)) = (𝑃 ∨ 𝑄))
18	8, 17	breqtrrd 4872	. . 3 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝐹 ∈ 𝑇 ∧ ((𝑃 ∈ 𝐴 ∧ ¬ 𝑃 ≤ 𝑊) ∧ (𝑄 ∈ 𝐴 ∧ ¬ 𝑄 ≤ 𝑊))) → 𝑄 ≤ (𝑃 ∨ ((𝑃 ∨ 𝑄) ∧ 𝑊)))
19		simp2 1168	. . . 4 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝐹 ∈ 𝑇 ∧ ((𝑃 ∈ 𝐴 ∧ ¬ 𝑃 ≤ 𝑊) ∧ (𝑄 ∈ 𝐴 ∧ ¬ 𝑄 ≤ 𝑊))) → 𝐹 ∈ 𝑇)
20	1	hllatd 35384	. . . . 5 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝐹 ∈ 𝑇 ∧ ((𝑃 ∈ 𝐴 ∧ ¬ 𝑃 ≤ 𝑊) ∧ (𝑄 ∈ 𝐴 ∧ ¬ 𝑄 ≤ 𝑊))) → 𝐾 ∈ Lat)
21	10, 6	atbase 35309	. . . . . 6 ⊢ (𝑃 ∈ 𝐴 → 𝑃 ∈ (Base‘𝐾))
22	2, 21	syl 17	. . . . 5 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝐹 ∈ 𝑇 ∧ ((𝑃 ∈ 𝐴 ∧ ¬ 𝑃 ≤ 𝑊) ∧ (𝑄 ∈ 𝐴 ∧ ¬ 𝑄 ≤ 𝑊))) → 𝑃 ∈ (Base‘𝐾))
23	10, 5	latjcl 17365	. . . . . . 7 ⊢ ((𝐾 ∈ Lat ∧ 𝑃 ∈ (Base‘𝐾) ∧ 𝑄 ∈ (Base‘𝐾)) → (𝑃 ∨ 𝑄) ∈ (Base‘𝐾))
24	20, 22, 12, 23	syl3anc 1491	. . . . . 6 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝐹 ∈ 𝑇 ∧ ((𝑃 ∈ 𝐴 ∧ ¬ 𝑃 ≤ 𝑊) ∧ (𝑄 ∈ 𝐴 ∧ ¬ 𝑄 ≤ 𝑊))) → (𝑃 ∨ 𝑄) ∈ (Base‘𝐾))
25		simp1r 1256	. . . . . . 7 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝐹 ∈ 𝑇 ∧ ((𝑃 ∈ 𝐴 ∧ ¬ 𝑃 ≤ 𝑊) ∧ (𝑄 ∈ 𝐴 ∧ ¬ 𝑄 ≤ 𝑊))) → 𝑊 ∈ 𝐻)
26	10, 15	lhpbase 36018	. . . . . . 7 ⊢ (𝑊 ∈ 𝐻 → 𝑊 ∈ (Base‘𝐾))
27	25, 26	syl 17	. . . . . 6 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝐹 ∈ 𝑇 ∧ ((𝑃 ∈ 𝐴 ∧ ¬ 𝑃 ≤ 𝑊) ∧ (𝑄 ∈ 𝐴 ∧ ¬ 𝑄 ≤ 𝑊))) → 𝑊 ∈ (Base‘𝐾))
28	10, 14	latmcl 17366	. . . . . 6 ⊢ ((𝐾 ∈ Lat ∧ (𝑃 ∨ 𝑄) ∈ (Base‘𝐾) ∧ 𝑊 ∈ (Base‘𝐾)) → ((𝑃 ∨ 𝑄) ∧ 𝑊) ∈ (Base‘𝐾))
29	20, 24, 27, 28	syl3anc 1491	. . . . 5 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝐹 ∈ 𝑇 ∧ ((𝑃 ∈ 𝐴 ∧ ¬ 𝑃 ≤ 𝑊) ∧ (𝑄 ∈ 𝐴 ∧ ¬ 𝑄 ≤ 𝑊))) → ((𝑃 ∨ 𝑄) ∧ 𝑊) ∈ (Base‘𝐾))
30	10, 5	latjcl 17365	. . . . 5 ⊢ ((𝐾 ∈ Lat ∧ 𝑃 ∈ (Base‘𝐾) ∧ ((𝑃 ∨ 𝑄) ∧ 𝑊) ∈ (Base‘𝐾)) → (𝑃 ∨ ((𝑃 ∨ 𝑄) ∧ 𝑊)) ∈ (Base‘𝐾))
31	20, 22, 29, 30	syl3anc 1491	. . . 4 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝐹 ∈ 𝑇 ∧ ((𝑃 ∈ 𝐴 ∧ ¬ 𝑃 ≤ 𝑊) ∧ (𝑄 ∈ 𝐴 ∧ ¬ 𝑄 ≤ 𝑊))) → (𝑃 ∨ ((𝑃 ∨ 𝑄) ∧ 𝑊)) ∈ (Base‘𝐾))
32		cdlemc2.t	. . . . 5 ⊢ 𝑇 = ((LTrn‘𝐾)‘𝑊)
33	10, 4, 15, 32	ltrnle 36149	. . . 4 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝐹 ∈ 𝑇 ∧ (𝑄 ∈ (Base‘𝐾) ∧ (𝑃 ∨ ((𝑃 ∨ 𝑄) ∧ 𝑊)) ∈ (Base‘𝐾))) → (𝑄 ≤ (𝑃 ∨ ((𝑃 ∨ 𝑄) ∧ 𝑊)) ↔ (𝐹‘𝑄) ≤ (𝐹‘(𝑃 ∨ ((𝑃 ∨ 𝑄) ∧ 𝑊)))))
34	9, 19, 12, 31, 33	syl112anc 1494	. . 3 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝐹 ∈ 𝑇 ∧ ((𝑃 ∈ 𝐴 ∧ ¬ 𝑃 ≤ 𝑊) ∧ (𝑄 ∈ 𝐴 ∧ ¬ 𝑄 ≤ 𝑊))) → (𝑄 ≤ (𝑃 ∨ ((𝑃 ∨ 𝑄) ∧ 𝑊)) ↔ (𝐹‘𝑄) ≤ (𝐹‘(𝑃 ∨ ((𝑃 ∨ 𝑄) ∧ 𝑊)))))
35	18, 34	mpbid 224	. 2 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝐹 ∈ 𝑇 ∧ ((𝑃 ∈ 𝐴 ∧ ¬ 𝑃 ≤ 𝑊) ∧ (𝑄 ∈ 𝐴 ∧ ¬ 𝑄 ≤ 𝑊))) → (𝐹‘𝑄) ≤ (𝐹‘(𝑃 ∨ ((𝑃 ∨ 𝑄) ∧ 𝑊))))
36	10, 5, 15, 32	ltrnj 36152	. . . 4 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝐹 ∈ 𝑇 ∧ (𝑃 ∈ (Base‘𝐾) ∧ ((𝑃 ∨ 𝑄) ∧ 𝑊) ∈ (Base‘𝐾))) → (𝐹‘(𝑃 ∨ ((𝑃 ∨ 𝑄) ∧ 𝑊))) = ((𝐹‘𝑃) ∨ (𝐹‘((𝑃 ∨ 𝑄) ∧ 𝑊))))
37	9, 19, 22, 29, 36	syl112anc 1494	. . 3 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝐹 ∈ 𝑇 ∧ ((𝑃 ∈ 𝐴 ∧ ¬ 𝑃 ≤ 𝑊) ∧ (𝑄 ∈ 𝐴 ∧ ¬ 𝑄 ≤ 𝑊))) → (𝐹‘(𝑃 ∨ ((𝑃 ∨ 𝑄) ∧ 𝑊))) = ((𝐹‘𝑃) ∨ (𝐹‘((𝑃 ∨ 𝑄) ∧ 𝑊))))
38	10, 4, 14	latmle2 17391	. . . . . 6 ⊢ ((𝐾 ∈ Lat ∧ (𝑃 ∨ 𝑄) ∈ (Base‘𝐾) ∧ 𝑊 ∈ (Base‘𝐾)) → ((𝑃 ∨ 𝑄) ∧ 𝑊) ≤ 𝑊)
39	20, 24, 27, 38	syl3anc 1491	. . . . 5 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝐹 ∈ 𝑇 ∧ ((𝑃 ∈ 𝐴 ∧ ¬ 𝑃 ≤ 𝑊) ∧ (𝑄 ∈ 𝐴 ∧ ¬ 𝑄 ≤ 𝑊))) → ((𝑃 ∨ 𝑄) ∧ 𝑊) ≤ 𝑊)
40	10, 4, 15, 32	ltrnval1 36154	. . . . 5 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝐹 ∈ 𝑇 ∧ (((𝑃 ∨ 𝑄) ∧ 𝑊) ∈ (Base‘𝐾) ∧ ((𝑃 ∨ 𝑄) ∧ 𝑊) ≤ 𝑊)) → (𝐹‘((𝑃 ∨ 𝑄) ∧ 𝑊)) = ((𝑃 ∨ 𝑄) ∧ 𝑊))
41	9, 19, 29, 39, 40	syl112anc 1494	. . . 4 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝐹 ∈ 𝑇 ∧ ((𝑃 ∈ 𝐴 ∧ ¬ 𝑃 ≤ 𝑊) ∧ (𝑄 ∈ 𝐴 ∧ ¬ 𝑄 ≤ 𝑊))) → (𝐹‘((𝑃 ∨ 𝑄) ∧ 𝑊)) = ((𝑃 ∨ 𝑄) ∧ 𝑊))
42	41	oveq2d 6895	. . 3 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝐹 ∈ 𝑇 ∧ ((𝑃 ∈ 𝐴 ∧ ¬ 𝑃 ≤ 𝑊) ∧ (𝑄 ∈ 𝐴 ∧ ¬ 𝑄 ≤ 𝑊))) → ((𝐹‘𝑃) ∨ (𝐹‘((𝑃 ∨ 𝑄) ∧ 𝑊))) = ((𝐹‘𝑃) ∨ ((𝑃 ∨ 𝑄) ∧ 𝑊)))
43	37, 42	eqtrd 2834	. 2 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝐹 ∈ 𝑇 ∧ ((𝑃 ∈ 𝐴 ∧ ¬ 𝑃 ≤ 𝑊) ∧ (𝑄 ∈ 𝐴 ∧ ¬ 𝑄 ≤ 𝑊))) → (𝐹‘(𝑃 ∨ ((𝑃 ∨ 𝑄) ∧ 𝑊))) = ((𝐹‘𝑃) ∨ ((𝑃 ∨ 𝑄) ∧ 𝑊)))
44	35, 43	breqtrd 4870	1 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝐹 ∈ 𝑇 ∧ ((𝑃 ∈ 𝐴 ∧ ¬ 𝑃 ≤ 𝑊) ∧ (𝑄 ∈ 𝐴 ∧ ¬ 𝑄 ≤ 𝑊))) → (𝐹‘𝑄) ≤ ((𝐹‘𝑃) ∨ ((𝑃 ∨ 𝑄) ∧ 𝑊)))

Syntax hints:  ¬ wn 3   → wi 4   ↔ wb 198   ∧ wa 385   ∧ w3a 1108   = wceq 1653   ∈ wcel 2157   class class class wbr 4844  ‘cfv 6102  (class class class)co 6879  Basecbs 16183  lecple 16273  joincjn 17258  meetcmee 17259  Latclat 17359  Atomscatm 35283  HLchlt 35370  LHypclh 36004  LTrncltrn 36121

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1891  ax-4 1905  ax-5 2006  ax-6 2072  ax-7 2107  ax-8 2159  ax-9 2166  ax-10 2185  ax-11 2200  ax-12 2213  ax-13 2378  ax-ext 2778  ax-rep 4965  ax-sep 4976  ax-nul 4984  ax-pow 5036  ax-pr 5098  ax-un 7184

This theorem depends on definitions:  df-bi 199  df-an 386  df-or 875  df-3an 1110  df-tru 1657  df-ex 1876  df-nf 1880  df-sb 2065  df-mo 2592  df-eu 2610  df-clab 2787  df-cleq 2793  df-clel 2796  df-nfc 2931  df-ne 2973  df-ral 3095  df-rex 3096  df-reu 3097  df-rab 3099  df-v 3388  df-sbc 3635  df-csb 3730  df-dif 3773  df-un 3775  df-in 3777  df-ss 3784  df-nul 4117  df-if 4279  df-pw 4352  df-sn 4370  df-pr 4372  df-op 4376  df-uni 4630  df-iun 4713  df-iin 4714  df-br 4845  df-opab 4907  df-mpt 4924  df-id 5221  df-xp 5319  df-rel 5320  df-cnv 5321  df-co 5322  df-dm 5323  df-rn 5324  df-res 5325  df-ima 5326  df-iota 6065  df-fun 6104  df-fn 6105  df-f 6106  df-f1 6107  df-fo 6108  df-f1o 6109  df-fv 6110  df-riota 6840  df-ov 6882  df-oprab 6883  df-mpt2 6884  df-1st 7402  df-2nd 7403  df-map 8098  df-proset 17242  df-poset 17260  df-plt 17272  df-lub 17288  df-glb 17289  df-join 17290  df-meet 17291  df-p0 17353  df-p1 17354  df-lat 17360  df-clat 17422  df-oposet 35196  df-ol 35198  df-oml 35199  df-covers 35286  df-ats 35287  df-atl 35318  df-cvlat 35342  df-hlat 35371  df-psubsp 35523  df-pmap 35524  df-padd 35816  df-lhyp 36008  df-laut 36009  df-ldil 36124  df-ltrn 36125

This theorem is referenced by:  cdlemc5  36215