Metamath Proof Explorer


Theorem cdleme35e

Description: Part of proof of Lemma E in Crawley p. 113. TODO: FIX COMMENT. (Contributed by NM, 10-Mar-2013)

Ref Expression
Hypotheses cdleme35.l ⊢ ≤ ˙ = ≤ K
cdleme35.j ⊢ ∨ ˙ = join ⁡ K
cdleme35.m ⊢ ∧ ˙ = meet ⁡ K
cdleme35.a ⊢ A = Atoms ⁡ K
cdleme35.h ⊢ H = LHyp ⁡ K
cdleme35.u ⊢ U = P ∨ ˙ Q ∧ ˙ W
cdleme35.f ⊢ F = R ∨ ˙ U ∧ ˙ Q ∨ ˙ P ∨ ˙ R ∧ ˙ W
Assertion cdleme35e ⊢ K ∈ HL ∧ W ∈ H ∧ P ∈ A ∧ ¬ P ≤ ˙ W ∧ Q ∈ A ∧ ¬ Q ≤ ˙ W ∧ P ≠ Q ∧ R ∈ A ∧ ¬ R ≤ ˙ W ∧ ¬ R ≤ ˙ P ∨ ˙ Q → P ∨ ˙ Q ∨ ˙ F ∧ ˙ W = P ∨ ˙ R

Proof

Step Hyp Ref Expression
1 cdleme35.l ⊢ ≤ ˙ = ≤ K
2 cdleme35.j ⊢ ∨ ˙ = join ⁡ K
3 cdleme35.m ⊢ ∧ ˙ = meet ⁡ K
4 cdleme35.a ⊢ A = Atoms ⁡ K
5 cdleme35.h ⊢ H = LHyp ⁡ K
6 cdleme35.u ⊢ U = P ∨ ˙ Q ∧ ˙ W
7 cdleme35.f ⊢ F = R ∨ ˙ U ∧ ˙ Q ∨ ˙ P ∨ ˙ R ∧ ˙ W
8 1 2 3 4 5 6 7 cdleme35d ⊢ K ∈ HL ∧ W ∈ H ∧ P ∈ A ∧ ¬ P ≤ ˙ W ∧ Q ∈ A ∧ ¬ Q ≤ ˙ W ∧ P ≠ Q ∧ R ∈ A ∧ ¬ R ≤ ˙ W ∧ ¬ R ≤ ˙ P ∨ ˙ Q → Q ∨ ˙ F ∧ ˙ W = P ∨ ˙ R ∧ ˙ W
9 8 oveq2d ⊢ K ∈ HL ∧ W ∈ H ∧ P ∈ A ∧ ¬ P ≤ ˙ W ∧ Q ∈ A ∧ ¬ Q ≤ ˙ W ∧ P ≠ Q ∧ R ∈ A ∧ ¬ R ≤ ˙ W ∧ ¬ R ≤ ˙ P ∨ ˙ Q → P ∨ ˙ Q ∨ ˙ F ∧ ˙ W = P ∨ ˙ P ∨ ˙ R ∧ ˙ W
10 simp11l ⊢ K ∈ HL ∧ W ∈ H ∧ P ∈ A ∧ ¬ P ≤ ˙ W ∧ Q ∈ A ∧ ¬ Q ≤ ˙ W ∧ P ≠ Q ∧ R ∈ A ∧ ¬ R ≤ ˙ W ∧ ¬ R ≤ ˙ P ∨ ˙ Q → K ∈ HL
11 simp12l ⊢ K ∈ HL ∧ W ∈ H ∧ P ∈ A ∧ ¬ P ≤ ˙ W ∧ Q ∈ A ∧ ¬ Q ≤ ˙ W ∧ P ≠ Q ∧ R ∈ A ∧ ¬ R ≤ ˙ W ∧ ¬ R ≤ ˙ P ∨ ˙ Q → P ∈ A
12 simp2rl ⊢ K ∈ HL ∧ W ∈ H ∧ P ∈ A ∧ ¬ P ≤ ˙ W ∧ Q ∈ A ∧ ¬ Q ≤ ˙ W ∧ P ≠ Q ∧ R ∈ A ∧ ¬ R ≤ ˙ W ∧ ¬ R ≤ ˙ P ∨ ˙ Q → R ∈ A
13 eqid ⊢ Base K = Base K
14 13 2 4 hlatjcl ⊢ K ∈ HL ∧ P ∈ A ∧ R ∈ A → P ∨ ˙ R ∈ Base K
15 10 11 12 14 syl3anc ⊢ K ∈ HL ∧ W ∈ H ∧ P ∈ A ∧ ¬ P ≤ ˙ W ∧ Q ∈ A ∧ ¬ Q ≤ ˙ W ∧ P ≠ Q ∧ R ∈ A ∧ ¬ R ≤ ˙ W ∧ ¬ R ≤ ˙ P ∨ ˙ Q → P ∨ ˙ R ∈ Base K
16 simp11r ⊢ K ∈ HL ∧ W ∈ H ∧ P ∈ A ∧ ¬ P ≤ ˙ W ∧ Q ∈ A ∧ ¬ Q ≤ ˙ W ∧ P ≠ Q ∧ R ∈ A ∧ ¬ R ≤ ˙ W ∧ ¬ R ≤ ˙ P ∨ ˙ Q → W ∈ H
17 13 5 lhpbase ⊢ W ∈ H → W ∈ Base K
18 16 17 syl ⊢ K ∈ HL ∧ W ∈ H ∧ P ∈ A ∧ ¬ P ≤ ˙ W ∧ Q ∈ A ∧ ¬ Q ≤ ˙ W ∧ P ≠ Q ∧ R ∈ A ∧ ¬ R ≤ ˙ W ∧ ¬ R ≤ ˙ P ∨ ˙ Q → W ∈ Base K
19 1 2 4 hlatlej1 ⊢ K ∈ HL ∧ P ∈ A ∧ R ∈ A → P ≤ ˙ P ∨ ˙ R
20 10 11 12 19 syl3anc ⊢ K ∈ HL ∧ W ∈ H ∧ P ∈ A ∧ ¬ P ≤ ˙ W ∧ Q ∈ A ∧ ¬ Q ≤ ˙ W ∧ P ≠ Q ∧ R ∈ A ∧ ¬ R ≤ ˙ W ∧ ¬ R ≤ ˙ P ∨ ˙ Q → P ≤ ˙ P ∨ ˙ R
21 13 1 2 3 4 atmod3i1 ⊢ K ∈ HL ∧ P ∈ A ∧ P ∨ ˙ R ∈ Base K ∧ W ∈ Base K ∧ P ≤ ˙ P ∨ ˙ R → P ∨ ˙ P ∨ ˙ R ∧ ˙ W = P ∨ ˙ R ∧ ˙ P ∨ ˙ W
22 10 11 15 18 20 21 syl131anc ⊢ K ∈ HL ∧ W ∈ H ∧ P ∈ A ∧ ¬ P ≤ ˙ W ∧ Q ∈ A ∧ ¬ Q ≤ ˙ W ∧ P ≠ Q ∧ R ∈ A ∧ ¬ R ≤ ˙ W ∧ ¬ R ≤ ˙ P ∨ ˙ Q → P ∨ ˙ P ∨ ˙ R ∧ ˙ W = P ∨ ˙ R ∧ ˙ P ∨ ˙ W
23 simp11 ⊢ K ∈ HL ∧ W ∈ H ∧ P ∈ A ∧ ¬ P ≤ ˙ W ∧ Q ∈ A ∧ ¬ Q ≤ ˙ W ∧ P ≠ Q ∧ R ∈ A ∧ ¬ R ≤ ˙ W ∧ ¬ R ≤ ˙ P ∨ ˙ Q → K ∈ HL ∧ W ∈ H
24 simp12 ⊢ K ∈ HL ∧ W ∈ H ∧ P ∈ A ∧ ¬ P ≤ ˙ W ∧ Q ∈ A ∧ ¬ Q ≤ ˙ W ∧ P ≠ Q ∧ R ∈ A ∧ ¬ R ≤ ˙ W ∧ ¬ R ≤ ˙ P ∨ ˙ Q → P ∈ A ∧ ¬ P ≤ ˙ W
25 eqid ⊢ 1. ⁡ K = 1. ⁡ K
26 1 2 25 4 5 lhpjat2 ⊢ K ∈ HL ∧ W ∈ H ∧ P ∈ A ∧ ¬ P ≤ ˙ W → P ∨ ˙ W = 1. ⁡ K
27 23 24 26 syl2anc ⊢ K ∈ HL ∧ W ∈ H ∧ P ∈ A ∧ ¬ P ≤ ˙ W ∧ Q ∈ A ∧ ¬ Q ≤ ˙ W ∧ P ≠ Q ∧ R ∈ A ∧ ¬ R ≤ ˙ W ∧ ¬ R ≤ ˙ P ∨ ˙ Q → P ∨ ˙ W = 1. ⁡ K
28 27 oveq2d ⊢ K ∈ HL ∧ W ∈ H ∧ P ∈ A ∧ ¬ P ≤ ˙ W ∧ Q ∈ A ∧ ¬ Q ≤ ˙ W ∧ P ≠ Q ∧ R ∈ A ∧ ¬ R ≤ ˙ W ∧ ¬ R ≤ ˙ P ∨ ˙ Q → P ∨ ˙ R ∧ ˙ P ∨ ˙ W = P ∨ ˙ R ∧ ˙ 1. ⁡ K
29 hlol ⊢ K ∈ HL → K ∈ OL
30 10 29 syl ⊢ K ∈ HL ∧ W ∈ H ∧ P ∈ A ∧ ¬ P ≤ ˙ W ∧ Q ∈ A ∧ ¬ Q ≤ ˙ W ∧ P ≠ Q ∧ R ∈ A ∧ ¬ R ≤ ˙ W ∧ ¬ R ≤ ˙ P ∨ ˙ Q → K ∈ OL
31 13 3 25 olm11 ⊢ K ∈ OL ∧ P ∨ ˙ R ∈ Base K → P ∨ ˙ R ∧ ˙ 1. ⁡ K = P ∨ ˙ R
32 30 15 31 syl2anc ⊢ K ∈ HL ∧ W ∈ H ∧ P ∈ A ∧ ¬ P ≤ ˙ W ∧ Q ∈ A ∧ ¬ Q ≤ ˙ W ∧ P ≠ Q ∧ R ∈ A ∧ ¬ R ≤ ˙ W ∧ ¬ R ≤ ˙ P ∨ ˙ Q → P ∨ ˙ R ∧ ˙ 1. ⁡ K = P ∨ ˙ R
33 28 32 eqtrd ⊢ K ∈ HL ∧ W ∈ H ∧ P ∈ A ∧ ¬ P ≤ ˙ W ∧ Q ∈ A ∧ ¬ Q ≤ ˙ W ∧ P ≠ Q ∧ R ∈ A ∧ ¬ R ≤ ˙ W ∧ ¬ R ≤ ˙ P ∨ ˙ Q → P ∨ ˙ R ∧ ˙ P ∨ ˙ W = P ∨ ˙ R
34 9 22 33 3eqtrd ⊢ K ∈ HL ∧ W ∈ H ∧ P ∈ A ∧ ¬ P ≤ ˙ W ∧ Q ∈ A ∧ ¬ Q ≤ ˙ W ∧ P ≠ Q ∧ R ∈ A ∧ ¬ R ≤ ˙ W ∧ ¬ R ≤ ˙ P ∨ ˙ Q → P ∨ ˙ Q ∨ ˙ F ∧ ˙ W = P ∨ ˙ R