Metamath Proof Explorer


Theorem dalemcnes

Description: Lemma for dath . Frequently-used utility lemma. (Contributed by NM, 13-Aug-2012)

Ref Expression
Hypotheses dalema.ph ( 𝜑 ↔ ( ( ( 𝐾 ∈ HL ∧ 𝐶 ∈ ( Base ‘ 𝐾 ) ) ∧ ( 𝑃𝐴𝑄𝐴𝑅𝐴 ) ∧ ( 𝑆𝐴𝑇𝐴𝑈𝐴 ) ) ∧ ( 𝑌𝑂𝑍𝑂 ) ∧ ( ( ¬ 𝐶 ( 𝑃 𝑄 ) ∧ ¬ 𝐶 ( 𝑄 𝑅 ) ∧ ¬ 𝐶 ( 𝑅 𝑃 ) ) ∧ ( ¬ 𝐶 ( 𝑆 𝑇 ) ∧ ¬ 𝐶 ( 𝑇 𝑈 ) ∧ ¬ 𝐶 ( 𝑈 𝑆 ) ) ∧ ( 𝐶 ( 𝑃 𝑆 ) ∧ 𝐶 ( 𝑄 𝑇 ) ∧ 𝐶 ( 𝑅 𝑈 ) ) ) ) )
dalemc.l = ( le ‘ 𝐾 )
dalemc.j = ( join ‘ 𝐾 )
dalemc.a 𝐴 = ( Atoms ‘ 𝐾 )
Assertion dalemcnes ( 𝜑𝐶𝑆 )

Proof

Step Hyp Ref Expression
1 dalema.ph ( 𝜑 ↔ ( ( ( 𝐾 ∈ HL ∧ 𝐶 ∈ ( Base ‘ 𝐾 ) ) ∧ ( 𝑃𝐴𝑄𝐴𝑅𝐴 ) ∧ ( 𝑆𝐴𝑇𝐴𝑈𝐴 ) ) ∧ ( 𝑌𝑂𝑍𝑂 ) ∧ ( ( ¬ 𝐶 ( 𝑃 𝑄 ) ∧ ¬ 𝐶 ( 𝑄 𝑅 ) ∧ ¬ 𝐶 ( 𝑅 𝑃 ) ) ∧ ( ¬ 𝐶 ( 𝑆 𝑇 ) ∧ ¬ 𝐶 ( 𝑇 𝑈 ) ∧ ¬ 𝐶 ( 𝑈 𝑆 ) ) ∧ ( 𝐶 ( 𝑃 𝑆 ) ∧ 𝐶 ( 𝑄 𝑇 ) ∧ 𝐶 ( 𝑅 𝑈 ) ) ) ) )
2 dalemc.l = ( le ‘ 𝐾 )
3 dalemc.j = ( join ‘ 𝐾 )
4 dalemc.a 𝐴 = ( Atoms ‘ 𝐾 )
5 1 dalemkelat ( 𝜑𝐾 ∈ Lat )
6 1 4 dalemceb ( 𝜑𝐶 ∈ ( Base ‘ 𝐾 ) )
7 1 4 dalemseb ( 𝜑𝑆 ∈ ( Base ‘ 𝐾 ) )
8 1 4 dalemteb ( 𝜑𝑇 ∈ ( Base ‘ 𝐾 ) )
9 simp321 ( ( ( ( 𝐾 ∈ HL ∧ 𝐶 ∈ ( Base ‘ 𝐾 ) ) ∧ ( 𝑃𝐴𝑄𝐴𝑅𝐴 ) ∧ ( 𝑆𝐴𝑇𝐴𝑈𝐴 ) ) ∧ ( 𝑌𝑂𝑍𝑂 ) ∧ ( ( ¬ 𝐶 ( 𝑃 𝑄 ) ∧ ¬ 𝐶 ( 𝑄 𝑅 ) ∧ ¬ 𝐶 ( 𝑅 𝑃 ) ) ∧ ( ¬ 𝐶 ( 𝑆 𝑇 ) ∧ ¬ 𝐶 ( 𝑇 𝑈 ) ∧ ¬ 𝐶 ( 𝑈 𝑆 ) ) ∧ ( 𝐶 ( 𝑃 𝑆 ) ∧ 𝐶 ( 𝑄 𝑇 ) ∧ 𝐶 ( 𝑅 𝑈 ) ) ) ) → ¬ 𝐶 ( 𝑆 𝑇 ) )
10 1 9 sylbi ( 𝜑 → ¬ 𝐶 ( 𝑆 𝑇 ) )
11 eqid ( Base ‘ 𝐾 ) = ( Base ‘ 𝐾 )
12 11 2 3 latnlej1l ( ( 𝐾 ∈ Lat ∧ ( 𝐶 ∈ ( Base ‘ 𝐾 ) ∧ 𝑆 ∈ ( Base ‘ 𝐾 ) ∧ 𝑇 ∈ ( Base ‘ 𝐾 ) ) ∧ ¬ 𝐶 ( 𝑆 𝑇 ) ) → 𝐶𝑆 )
13 5 6 7 8 10 12 syl131anc ( 𝜑𝐶𝑆 )