Metamath Proof Explorer


Theorem cdleme15d

Description: Part of proof of Lemma E in Crawley p. 113, 3rd paragraph on p. 114, showing, in their notation, s_1 \/ t_1 <_ w. C and X represent s_1 and t_1 respectively. The order of our operations is slightly different. (Contributed by NM, 10-Oct-2012)

Ref Expression
Hypotheses cdleme12.l = ( le ‘ 𝐾 )
cdleme12.j = ( join ‘ 𝐾 )
cdleme12.m = ( meet ‘ 𝐾 )
cdleme12.a 𝐴 = ( Atoms ‘ 𝐾 )
cdleme12.h 𝐻 = ( LHyp ‘ 𝐾 )
cdleme12.u 𝑈 = ( ( 𝑃 𝑄 ) 𝑊 )
cdleme12.f 𝐹 = ( ( 𝑆 𝑈 ) ( 𝑄 ( ( 𝑃 𝑆 ) 𝑊 ) ) )
cdleme12.g 𝐺 = ( ( 𝑇 𝑈 ) ( 𝑄 ( ( 𝑃 𝑇 ) 𝑊 ) ) )
cdleme15.c 𝐶 = ( ( 𝑃 𝑆 ) 𝑊 )
cdleme15.x 𝑋 = ( ( 𝑃 𝑇 ) 𝑊 )
Assertion cdleme15d ( ( ( ( 𝐾 ∈ HL ∧ 𝑊𝐻 ) ∧ ( 𝑃𝐴 ∧ ¬ 𝑃 𝑊 ) ∧ ( 𝑄𝐴 ∧ ¬ 𝑄 𝑊 ) ) ∧ ( ( 𝑆𝐴 ∧ ¬ 𝑆 𝑊 ) ∧ ( 𝑇𝐴 ∧ ¬ 𝑇 𝑊 ) ∧ ( 𝑃𝑄𝑆𝑇 ) ) ∧ ( ¬ 𝑆 ( 𝑃 𝑄 ) ∧ ¬ 𝑇 ( 𝑃 𝑄 ) ∧ ¬ 𝑈 ( 𝑆 𝑇 ) ) ) → ( 𝑋 𝐶 ) 𝑊 )

Proof

Step Hyp Ref Expression
1 cdleme12.l = ( le ‘ 𝐾 )
2 cdleme12.j = ( join ‘ 𝐾 )
3 cdleme12.m = ( meet ‘ 𝐾 )
4 cdleme12.a 𝐴 = ( Atoms ‘ 𝐾 )
5 cdleme12.h 𝐻 = ( LHyp ‘ 𝐾 )
6 cdleme12.u 𝑈 = ( ( 𝑃 𝑄 ) 𝑊 )
7 cdleme12.f 𝐹 = ( ( 𝑆 𝑈 ) ( 𝑄 ( ( 𝑃 𝑆 ) 𝑊 ) ) )
8 cdleme12.g 𝐺 = ( ( 𝑇 𝑈 ) ( 𝑄 ( ( 𝑃 𝑇 ) 𝑊 ) ) )
9 cdleme15.c 𝐶 = ( ( 𝑃 𝑆 ) 𝑊 )
10 cdleme15.x 𝑋 = ( ( 𝑃 𝑇 ) 𝑊 )
11 simp11l ( ( ( ( 𝐾 ∈ HL ∧ 𝑊𝐻 ) ∧ ( 𝑃𝐴 ∧ ¬ 𝑃 𝑊 ) ∧ ( 𝑄𝐴 ∧ ¬ 𝑄 𝑊 ) ) ∧ ( ( 𝑆𝐴 ∧ ¬ 𝑆 𝑊 ) ∧ ( 𝑇𝐴 ∧ ¬ 𝑇 𝑊 ) ∧ ( 𝑃𝑄𝑆𝑇 ) ) ∧ ( ¬ 𝑆 ( 𝑃 𝑄 ) ∧ ¬ 𝑇 ( 𝑃 𝑄 ) ∧ ¬ 𝑈 ( 𝑆 𝑇 ) ) ) → 𝐾 ∈ HL )
12 11 hllatd ( ( ( ( 𝐾 ∈ HL ∧ 𝑊𝐻 ) ∧ ( 𝑃𝐴 ∧ ¬ 𝑃 𝑊 ) ∧ ( 𝑄𝐴 ∧ ¬ 𝑄 𝑊 ) ) ∧ ( ( 𝑆𝐴 ∧ ¬ 𝑆 𝑊 ) ∧ ( 𝑇𝐴 ∧ ¬ 𝑇 𝑊 ) ∧ ( 𝑃𝑄𝑆𝑇 ) ) ∧ ( ¬ 𝑆 ( 𝑃 𝑄 ) ∧ ¬ 𝑇 ( 𝑃 𝑄 ) ∧ ¬ 𝑈 ( 𝑆 𝑇 ) ) ) → 𝐾 ∈ Lat )
13 simp12l ( ( ( ( 𝐾 ∈ HL ∧ 𝑊𝐻 ) ∧ ( 𝑃𝐴 ∧ ¬ 𝑃 𝑊 ) ∧ ( 𝑄𝐴 ∧ ¬ 𝑄 𝑊 ) ) ∧ ( ( 𝑆𝐴 ∧ ¬ 𝑆 𝑊 ) ∧ ( 𝑇𝐴 ∧ ¬ 𝑇 𝑊 ) ∧ ( 𝑃𝑄𝑆𝑇 ) ) ∧ ( ¬ 𝑆 ( 𝑃 𝑄 ) ∧ ¬ 𝑇 ( 𝑃 𝑄 ) ∧ ¬ 𝑈 ( 𝑆 𝑇 ) ) ) → 𝑃𝐴 )
14 simp22l ( ( ( ( 𝐾 ∈ HL ∧ 𝑊𝐻 ) ∧ ( 𝑃𝐴 ∧ ¬ 𝑃 𝑊 ) ∧ ( 𝑄𝐴 ∧ ¬ 𝑄 𝑊 ) ) ∧ ( ( 𝑆𝐴 ∧ ¬ 𝑆 𝑊 ) ∧ ( 𝑇𝐴 ∧ ¬ 𝑇 𝑊 ) ∧ ( 𝑃𝑄𝑆𝑇 ) ) ∧ ( ¬ 𝑆 ( 𝑃 𝑄 ) ∧ ¬ 𝑇 ( 𝑃 𝑄 ) ∧ ¬ 𝑈 ( 𝑆 𝑇 ) ) ) → 𝑇𝐴 )
15 eqid ( Base ‘ 𝐾 ) = ( Base ‘ 𝐾 )
16 15 2 4 hlatjcl ( ( 𝐾 ∈ HL ∧ 𝑃𝐴𝑇𝐴 ) → ( 𝑃 𝑇 ) ∈ ( Base ‘ 𝐾 ) )
17 11 13 14 16 syl3anc ( ( ( ( 𝐾 ∈ HL ∧ 𝑊𝐻 ) ∧ ( 𝑃𝐴 ∧ ¬ 𝑃 𝑊 ) ∧ ( 𝑄𝐴 ∧ ¬ 𝑄 𝑊 ) ) ∧ ( ( 𝑆𝐴 ∧ ¬ 𝑆 𝑊 ) ∧ ( 𝑇𝐴 ∧ ¬ 𝑇 𝑊 ) ∧ ( 𝑃𝑄𝑆𝑇 ) ) ∧ ( ¬ 𝑆 ( 𝑃 𝑄 ) ∧ ¬ 𝑇 ( 𝑃 𝑄 ) ∧ ¬ 𝑈 ( 𝑆 𝑇 ) ) ) → ( 𝑃 𝑇 ) ∈ ( Base ‘ 𝐾 ) )
18 simp11r ( ( ( ( 𝐾 ∈ HL ∧ 𝑊𝐻 ) ∧ ( 𝑃𝐴 ∧ ¬ 𝑃 𝑊 ) ∧ ( 𝑄𝐴 ∧ ¬ 𝑄 𝑊 ) ) ∧ ( ( 𝑆𝐴 ∧ ¬ 𝑆 𝑊 ) ∧ ( 𝑇𝐴 ∧ ¬ 𝑇 𝑊 ) ∧ ( 𝑃𝑄𝑆𝑇 ) ) ∧ ( ¬ 𝑆 ( 𝑃 𝑄 ) ∧ ¬ 𝑇 ( 𝑃 𝑄 ) ∧ ¬ 𝑈 ( 𝑆 𝑇 ) ) ) → 𝑊𝐻 )
19 15 5 lhpbase ( 𝑊𝐻𝑊 ∈ ( Base ‘ 𝐾 ) )
20 18 19 syl ( ( ( ( 𝐾 ∈ HL ∧ 𝑊𝐻 ) ∧ ( 𝑃𝐴 ∧ ¬ 𝑃 𝑊 ) ∧ ( 𝑄𝐴 ∧ ¬ 𝑄 𝑊 ) ) ∧ ( ( 𝑆𝐴 ∧ ¬ 𝑆 𝑊 ) ∧ ( 𝑇𝐴 ∧ ¬ 𝑇 𝑊 ) ∧ ( 𝑃𝑄𝑆𝑇 ) ) ∧ ( ¬ 𝑆 ( 𝑃 𝑄 ) ∧ ¬ 𝑇 ( 𝑃 𝑄 ) ∧ ¬ 𝑈 ( 𝑆 𝑇 ) ) ) → 𝑊 ∈ ( Base ‘ 𝐾 ) )
21 15 1 3 latmle2 ( ( 𝐾 ∈ Lat ∧ ( 𝑃 𝑇 ) ∈ ( Base ‘ 𝐾 ) ∧ 𝑊 ∈ ( Base ‘ 𝐾 ) ) → ( ( 𝑃 𝑇 ) 𝑊 ) 𝑊 )
22 12 17 20 21 syl3anc ( ( ( ( 𝐾 ∈ HL ∧ 𝑊𝐻 ) ∧ ( 𝑃𝐴 ∧ ¬ 𝑃 𝑊 ) ∧ ( 𝑄𝐴 ∧ ¬ 𝑄 𝑊 ) ) ∧ ( ( 𝑆𝐴 ∧ ¬ 𝑆 𝑊 ) ∧ ( 𝑇𝐴 ∧ ¬ 𝑇 𝑊 ) ∧ ( 𝑃𝑄𝑆𝑇 ) ) ∧ ( ¬ 𝑆 ( 𝑃 𝑄 ) ∧ ¬ 𝑇 ( 𝑃 𝑄 ) ∧ ¬ 𝑈 ( 𝑆 𝑇 ) ) ) → ( ( 𝑃 𝑇 ) 𝑊 ) 𝑊 )
23 10 22 eqbrtrid ( ( ( ( 𝐾 ∈ HL ∧ 𝑊𝐻 ) ∧ ( 𝑃𝐴 ∧ ¬ 𝑃 𝑊 ) ∧ ( 𝑄𝐴 ∧ ¬ 𝑄 𝑊 ) ) ∧ ( ( 𝑆𝐴 ∧ ¬ 𝑆 𝑊 ) ∧ ( 𝑇𝐴 ∧ ¬ 𝑇 𝑊 ) ∧ ( 𝑃𝑄𝑆𝑇 ) ) ∧ ( ¬ 𝑆 ( 𝑃 𝑄 ) ∧ ¬ 𝑇 ( 𝑃 𝑄 ) ∧ ¬ 𝑈 ( 𝑆 𝑇 ) ) ) → 𝑋 𝑊 )
24 simp21l ( ( ( ( 𝐾 ∈ HL ∧ 𝑊𝐻 ) ∧ ( 𝑃𝐴 ∧ ¬ 𝑃 𝑊 ) ∧ ( 𝑄𝐴 ∧ ¬ 𝑄 𝑊 ) ) ∧ ( ( 𝑆𝐴 ∧ ¬ 𝑆 𝑊 ) ∧ ( 𝑇𝐴 ∧ ¬ 𝑇 𝑊 ) ∧ ( 𝑃𝑄𝑆𝑇 ) ) ∧ ( ¬ 𝑆 ( 𝑃 𝑄 ) ∧ ¬ 𝑇 ( 𝑃 𝑄 ) ∧ ¬ 𝑈 ( 𝑆 𝑇 ) ) ) → 𝑆𝐴 )
25 15 2 4 hlatjcl ( ( 𝐾 ∈ HL ∧ 𝑃𝐴𝑆𝐴 ) → ( 𝑃 𝑆 ) ∈ ( Base ‘ 𝐾 ) )
26 11 13 24 25 syl3anc ( ( ( ( 𝐾 ∈ HL ∧ 𝑊𝐻 ) ∧ ( 𝑃𝐴 ∧ ¬ 𝑃 𝑊 ) ∧ ( 𝑄𝐴 ∧ ¬ 𝑄 𝑊 ) ) ∧ ( ( 𝑆𝐴 ∧ ¬ 𝑆 𝑊 ) ∧ ( 𝑇𝐴 ∧ ¬ 𝑇 𝑊 ) ∧ ( 𝑃𝑄𝑆𝑇 ) ) ∧ ( ¬ 𝑆 ( 𝑃 𝑄 ) ∧ ¬ 𝑇 ( 𝑃 𝑄 ) ∧ ¬ 𝑈 ( 𝑆 𝑇 ) ) ) → ( 𝑃 𝑆 ) ∈ ( Base ‘ 𝐾 ) )
27 15 1 3 latmle2 ( ( 𝐾 ∈ Lat ∧ ( 𝑃 𝑆 ) ∈ ( Base ‘ 𝐾 ) ∧ 𝑊 ∈ ( Base ‘ 𝐾 ) ) → ( ( 𝑃 𝑆 ) 𝑊 ) 𝑊 )
28 12 26 20 27 syl3anc ( ( ( ( 𝐾 ∈ HL ∧ 𝑊𝐻 ) ∧ ( 𝑃𝐴 ∧ ¬ 𝑃 𝑊 ) ∧ ( 𝑄𝐴 ∧ ¬ 𝑄 𝑊 ) ) ∧ ( ( 𝑆𝐴 ∧ ¬ 𝑆 𝑊 ) ∧ ( 𝑇𝐴 ∧ ¬ 𝑇 𝑊 ) ∧ ( 𝑃𝑄𝑆𝑇 ) ) ∧ ( ¬ 𝑆 ( 𝑃 𝑄 ) ∧ ¬ 𝑇 ( 𝑃 𝑄 ) ∧ ¬ 𝑈 ( 𝑆 𝑇 ) ) ) → ( ( 𝑃 𝑆 ) 𝑊 ) 𝑊 )
29 9 28 eqbrtrid ( ( ( ( 𝐾 ∈ HL ∧ 𝑊𝐻 ) ∧ ( 𝑃𝐴 ∧ ¬ 𝑃 𝑊 ) ∧ ( 𝑄𝐴 ∧ ¬ 𝑄 𝑊 ) ) ∧ ( ( 𝑆𝐴 ∧ ¬ 𝑆 𝑊 ) ∧ ( 𝑇𝐴 ∧ ¬ 𝑇 𝑊 ) ∧ ( 𝑃𝑄𝑆𝑇 ) ) ∧ ( ¬ 𝑆 ( 𝑃 𝑄 ) ∧ ¬ 𝑇 ( 𝑃 𝑄 ) ∧ ¬ 𝑈 ( 𝑆 𝑇 ) ) ) → 𝐶 𝑊 )
30 15 3 latmcl ( ( 𝐾 ∈ Lat ∧ ( 𝑃 𝑇 ) ∈ ( Base ‘ 𝐾 ) ∧ 𝑊 ∈ ( Base ‘ 𝐾 ) ) → ( ( 𝑃 𝑇 ) 𝑊 ) ∈ ( Base ‘ 𝐾 ) )
31 12 17 20 30 syl3anc ( ( ( ( 𝐾 ∈ HL ∧ 𝑊𝐻 ) ∧ ( 𝑃𝐴 ∧ ¬ 𝑃 𝑊 ) ∧ ( 𝑄𝐴 ∧ ¬ 𝑄 𝑊 ) ) ∧ ( ( 𝑆𝐴 ∧ ¬ 𝑆 𝑊 ) ∧ ( 𝑇𝐴 ∧ ¬ 𝑇 𝑊 ) ∧ ( 𝑃𝑄𝑆𝑇 ) ) ∧ ( ¬ 𝑆 ( 𝑃 𝑄 ) ∧ ¬ 𝑇 ( 𝑃 𝑄 ) ∧ ¬ 𝑈 ( 𝑆 𝑇 ) ) ) → ( ( 𝑃 𝑇 ) 𝑊 ) ∈ ( Base ‘ 𝐾 ) )
32 10 31 eqeltrid ( ( ( ( 𝐾 ∈ HL ∧ 𝑊𝐻 ) ∧ ( 𝑃𝐴 ∧ ¬ 𝑃 𝑊 ) ∧ ( 𝑄𝐴 ∧ ¬ 𝑄 𝑊 ) ) ∧ ( ( 𝑆𝐴 ∧ ¬ 𝑆 𝑊 ) ∧ ( 𝑇𝐴 ∧ ¬ 𝑇 𝑊 ) ∧ ( 𝑃𝑄𝑆𝑇 ) ) ∧ ( ¬ 𝑆 ( 𝑃 𝑄 ) ∧ ¬ 𝑇 ( 𝑃 𝑄 ) ∧ ¬ 𝑈 ( 𝑆 𝑇 ) ) ) → 𝑋 ∈ ( Base ‘ 𝐾 ) )
33 15 3 latmcl ( ( 𝐾 ∈ Lat ∧ ( 𝑃 𝑆 ) ∈ ( Base ‘ 𝐾 ) ∧ 𝑊 ∈ ( Base ‘ 𝐾 ) ) → ( ( 𝑃 𝑆 ) 𝑊 ) ∈ ( Base ‘ 𝐾 ) )
34 12 26 20 33 syl3anc ( ( ( ( 𝐾 ∈ HL ∧ 𝑊𝐻 ) ∧ ( 𝑃𝐴 ∧ ¬ 𝑃 𝑊 ) ∧ ( 𝑄𝐴 ∧ ¬ 𝑄 𝑊 ) ) ∧ ( ( 𝑆𝐴 ∧ ¬ 𝑆 𝑊 ) ∧ ( 𝑇𝐴 ∧ ¬ 𝑇 𝑊 ) ∧ ( 𝑃𝑄𝑆𝑇 ) ) ∧ ( ¬ 𝑆 ( 𝑃 𝑄 ) ∧ ¬ 𝑇 ( 𝑃 𝑄 ) ∧ ¬ 𝑈 ( 𝑆 𝑇 ) ) ) → ( ( 𝑃 𝑆 ) 𝑊 ) ∈ ( Base ‘ 𝐾 ) )
35 9 34 eqeltrid ( ( ( ( 𝐾 ∈ HL ∧ 𝑊𝐻 ) ∧ ( 𝑃𝐴 ∧ ¬ 𝑃 𝑊 ) ∧ ( 𝑄𝐴 ∧ ¬ 𝑄 𝑊 ) ) ∧ ( ( 𝑆𝐴 ∧ ¬ 𝑆 𝑊 ) ∧ ( 𝑇𝐴 ∧ ¬ 𝑇 𝑊 ) ∧ ( 𝑃𝑄𝑆𝑇 ) ) ∧ ( ¬ 𝑆 ( 𝑃 𝑄 ) ∧ ¬ 𝑇 ( 𝑃 𝑄 ) ∧ ¬ 𝑈 ( 𝑆 𝑇 ) ) ) → 𝐶 ∈ ( Base ‘ 𝐾 ) )
36 15 1 2 latjle12 ( ( 𝐾 ∈ Lat ∧ ( 𝑋 ∈ ( Base ‘ 𝐾 ) ∧ 𝐶 ∈ ( Base ‘ 𝐾 ) ∧ 𝑊 ∈ ( Base ‘ 𝐾 ) ) ) → ( ( 𝑋 𝑊𝐶 𝑊 ) ↔ ( 𝑋 𝐶 ) 𝑊 ) )
37 12 32 35 20 36 syl13anc ( ( ( ( 𝐾 ∈ HL ∧ 𝑊𝐻 ) ∧ ( 𝑃𝐴 ∧ ¬ 𝑃 𝑊 ) ∧ ( 𝑄𝐴 ∧ ¬ 𝑄 𝑊 ) ) ∧ ( ( 𝑆𝐴 ∧ ¬ 𝑆 𝑊 ) ∧ ( 𝑇𝐴 ∧ ¬ 𝑇 𝑊 ) ∧ ( 𝑃𝑄𝑆𝑇 ) ) ∧ ( ¬ 𝑆 ( 𝑃 𝑄 ) ∧ ¬ 𝑇 ( 𝑃 𝑄 ) ∧ ¬ 𝑈 ( 𝑆 𝑇 ) ) ) → ( ( 𝑋 𝑊𝐶 𝑊 ) ↔ ( 𝑋 𝐶 ) 𝑊 ) )
38 23 29 37 mpbi2and ( ( ( ( 𝐾 ∈ HL ∧ 𝑊𝐻 ) ∧ ( 𝑃𝐴 ∧ ¬ 𝑃 𝑊 ) ∧ ( 𝑄𝐴 ∧ ¬ 𝑄 𝑊 ) ) ∧ ( ( 𝑆𝐴 ∧ ¬ 𝑆 𝑊 ) ∧ ( 𝑇𝐴 ∧ ¬ 𝑇 𝑊 ) ∧ ( 𝑃𝑄𝑆𝑇 ) ) ∧ ( ¬ 𝑆 ( 𝑃 𝑄 ) ∧ ¬ 𝑇 ( 𝑃 𝑄 ) ∧ ¬ 𝑈 ( 𝑆 𝑇 ) ) ) → ( 𝑋 𝐶 ) 𝑊 )