Metamath Proof Explorer


Theorem 3atlem5

Description: Lemma for 3at . (Contributed by NM, 23-Jun-2012)

Ref Expression
Hypotheses 3at.l = ( le ‘ 𝐾 )
3at.j = ( join ‘ 𝐾 )
3at.a 𝐴 = ( Atoms ‘ 𝐾 )
Assertion 3atlem5 ( ( ( 𝐾 ∈ HL ∧ ( 𝑃𝐴𝑄𝐴𝑅𝐴 ) ∧ ( 𝑆𝐴𝑇𝐴𝑈𝐴 ) ) ∧ ( ¬ 𝑅 ( 𝑃 𝑄 ) ∧ 𝑃𝑄 ∧ ¬ 𝑄 ( 𝑃 𝑈 ) ) ∧ ( ( 𝑃 𝑄 ) 𝑅 ) ( ( 𝑆 𝑇 ) 𝑈 ) ) → ( ( 𝑃 𝑄 ) 𝑅 ) = ( ( 𝑆 𝑇 ) 𝑈 ) )

Proof

Step Hyp Ref Expression
1 3at.l = ( le ‘ 𝐾 )
2 3at.j = ( join ‘ 𝐾 )
3 3at.a 𝐴 = ( Atoms ‘ 𝐾 )
4 oveq2 ( 𝑈 = 𝑃 → ( ( 𝑆 𝑇 ) 𝑈 ) = ( ( 𝑆 𝑇 ) 𝑃 ) )
5 4 eqcoms ( 𝑃 = 𝑈 → ( ( 𝑆 𝑇 ) 𝑈 ) = ( ( 𝑆 𝑇 ) 𝑃 ) )
6 5 breq2d ( 𝑃 = 𝑈 → ( ( ( 𝑃 𝑄 ) 𝑅 ) ( ( 𝑆 𝑇 ) 𝑈 ) ↔ ( ( 𝑃 𝑄 ) 𝑅 ) ( ( 𝑆 𝑇 ) 𝑃 ) ) )
7 5 eqeq2d ( 𝑃 = 𝑈 → ( ( ( 𝑃 𝑄 ) 𝑅 ) = ( ( 𝑆 𝑇 ) 𝑈 ) ↔ ( ( 𝑃 𝑄 ) 𝑅 ) = ( ( 𝑆 𝑇 ) 𝑃 ) ) )
8 6 7 imbi12d ( 𝑃 = 𝑈 → ( ( ( ( 𝑃 𝑄 ) 𝑅 ) ( ( 𝑆 𝑇 ) 𝑈 ) → ( ( 𝑃 𝑄 ) 𝑅 ) = ( ( 𝑆 𝑇 ) 𝑈 ) ) ↔ ( ( ( 𝑃 𝑄 ) 𝑅 ) ( ( 𝑆 𝑇 ) 𝑃 ) → ( ( 𝑃 𝑄 ) 𝑅 ) = ( ( 𝑆 𝑇 ) 𝑃 ) ) ) )
9 simp1l ( ( ( ( 𝐾 ∈ HL ∧ ( 𝑃𝐴𝑄𝐴𝑅𝐴 ) ∧ ( 𝑆𝐴𝑇𝐴𝑈𝐴 ) ) ∧ ( ¬ 𝑅 ( 𝑃 𝑄 ) ∧ 𝑃𝑄 ∧ ¬ 𝑄 ( 𝑃 𝑈 ) ) ) ∧ 𝑃𝑈 ∧ ( ( 𝑃 𝑄 ) 𝑅 ) ( ( 𝑆 𝑇 ) 𝑈 ) ) → ( 𝐾 ∈ HL ∧ ( 𝑃𝐴𝑄𝐴𝑅𝐴 ) ∧ ( 𝑆𝐴𝑇𝐴𝑈𝐴 ) ) )
10 simp1r1 ( ( ( ( 𝐾 ∈ HL ∧ ( 𝑃𝐴𝑄𝐴𝑅𝐴 ) ∧ ( 𝑆𝐴𝑇𝐴𝑈𝐴 ) ) ∧ ( ¬ 𝑅 ( 𝑃 𝑄 ) ∧ 𝑃𝑄 ∧ ¬ 𝑄 ( 𝑃 𝑈 ) ) ) ∧ 𝑃𝑈 ∧ ( ( 𝑃 𝑄 ) 𝑅 ) ( ( 𝑆 𝑇 ) 𝑈 ) ) → ¬ 𝑅 ( 𝑃 𝑄 ) )
11 simp2 ( ( ( ( 𝐾 ∈ HL ∧ ( 𝑃𝐴𝑄𝐴𝑅𝐴 ) ∧ ( 𝑆𝐴𝑇𝐴𝑈𝐴 ) ) ∧ ( ¬ 𝑅 ( 𝑃 𝑄 ) ∧ 𝑃𝑄 ∧ ¬ 𝑄 ( 𝑃 𝑈 ) ) ) ∧ 𝑃𝑈 ∧ ( ( 𝑃 𝑄 ) 𝑅 ) ( ( 𝑆 𝑇 ) 𝑈 ) ) → 𝑃𝑈 )
12 simp1r3 ( ( ( ( 𝐾 ∈ HL ∧ ( 𝑃𝐴𝑄𝐴𝑅𝐴 ) ∧ ( 𝑆𝐴𝑇𝐴𝑈𝐴 ) ) ∧ ( ¬ 𝑅 ( 𝑃 𝑄 ) ∧ 𝑃𝑄 ∧ ¬ 𝑄 ( 𝑃 𝑈 ) ) ) ∧ 𝑃𝑈 ∧ ( ( 𝑃 𝑄 ) 𝑅 ) ( ( 𝑆 𝑇 ) 𝑈 ) ) → ¬ 𝑄 ( 𝑃 𝑈 ) )
13 simp3 ( ( ( ( 𝐾 ∈ HL ∧ ( 𝑃𝐴𝑄𝐴𝑅𝐴 ) ∧ ( 𝑆𝐴𝑇𝐴𝑈𝐴 ) ) ∧ ( ¬ 𝑅 ( 𝑃 𝑄 ) ∧ 𝑃𝑄 ∧ ¬ 𝑄 ( 𝑃 𝑈 ) ) ) ∧ 𝑃𝑈 ∧ ( ( 𝑃 𝑄 ) 𝑅 ) ( ( 𝑆 𝑇 ) 𝑈 ) ) → ( ( 𝑃 𝑄 ) 𝑅 ) ( ( 𝑆 𝑇 ) 𝑈 ) )
14 1 2 3 3atlem3 ( ( ( 𝐾 ∈ HL ∧ ( 𝑃𝐴𝑄𝐴𝑅𝐴 ) ∧ ( 𝑆𝐴𝑇𝐴𝑈𝐴 ) ) ∧ ( ¬ 𝑅 ( 𝑃 𝑄 ) ∧ 𝑃𝑈 ∧ ¬ 𝑄 ( 𝑃 𝑈 ) ) ∧ ( ( 𝑃 𝑄 ) 𝑅 ) ( ( 𝑆 𝑇 ) 𝑈 ) ) → ( ( 𝑃 𝑄 ) 𝑅 ) = ( ( 𝑆 𝑇 ) 𝑈 ) )
15 9 10 11 12 13 14 syl131anc ( ( ( ( 𝐾 ∈ HL ∧ ( 𝑃𝐴𝑄𝐴𝑅𝐴 ) ∧ ( 𝑆𝐴𝑇𝐴𝑈𝐴 ) ) ∧ ( ¬ 𝑅 ( 𝑃 𝑄 ) ∧ 𝑃𝑄 ∧ ¬ 𝑄 ( 𝑃 𝑈 ) ) ) ∧ 𝑃𝑈 ∧ ( ( 𝑃 𝑄 ) 𝑅 ) ( ( 𝑆 𝑇 ) 𝑈 ) ) → ( ( 𝑃 𝑄 ) 𝑅 ) = ( ( 𝑆 𝑇 ) 𝑈 ) )
16 15 3expia ( ( ( ( 𝐾 ∈ HL ∧ ( 𝑃𝐴𝑄𝐴𝑅𝐴 ) ∧ ( 𝑆𝐴𝑇𝐴𝑈𝐴 ) ) ∧ ( ¬ 𝑅 ( 𝑃 𝑄 ) ∧ 𝑃𝑄 ∧ ¬ 𝑄 ( 𝑃 𝑈 ) ) ) ∧ 𝑃𝑈 ) → ( ( ( 𝑃 𝑄 ) 𝑅 ) ( ( 𝑆 𝑇 ) 𝑈 ) → ( ( 𝑃 𝑄 ) 𝑅 ) = ( ( 𝑆 𝑇 ) 𝑈 ) ) )
17 simp11 ( ( ( 𝐾 ∈ HL ∧ ( 𝑃𝐴𝑄𝐴𝑅𝐴 ) ∧ ( 𝑆𝐴𝑇𝐴𝑈𝐴 ) ) ∧ ( ¬ 𝑅 ( 𝑃 𝑄 ) ∧ 𝑃𝑄 ∧ ¬ 𝑄 ( 𝑃 𝑈 ) ) ∧ ( ( 𝑅 𝑄 ) 𝑃 ) ( ( 𝑆 𝑇 ) 𝑃 ) ) → 𝐾 ∈ HL )
18 simp123 ( ( ( 𝐾 ∈ HL ∧ ( 𝑃𝐴𝑄𝐴𝑅𝐴 ) ∧ ( 𝑆𝐴𝑇𝐴𝑈𝐴 ) ) ∧ ( ¬ 𝑅 ( 𝑃 𝑄 ) ∧ 𝑃𝑄 ∧ ¬ 𝑄 ( 𝑃 𝑈 ) ) ∧ ( ( 𝑅 𝑄 ) 𝑃 ) ( ( 𝑆 𝑇 ) 𝑃 ) ) → 𝑅𝐴 )
19 simp122 ( ( ( 𝐾 ∈ HL ∧ ( 𝑃𝐴𝑄𝐴𝑅𝐴 ) ∧ ( 𝑆𝐴𝑇𝐴𝑈𝐴 ) ) ∧ ( ¬ 𝑅 ( 𝑃 𝑄 ) ∧ 𝑃𝑄 ∧ ¬ 𝑄 ( 𝑃 𝑈 ) ) ∧ ( ( 𝑅 𝑄 ) 𝑃 ) ( ( 𝑆 𝑇 ) 𝑃 ) ) → 𝑄𝐴 )
20 simp121 ( ( ( 𝐾 ∈ HL ∧ ( 𝑃𝐴𝑄𝐴𝑅𝐴 ) ∧ ( 𝑆𝐴𝑇𝐴𝑈𝐴 ) ) ∧ ( ¬ 𝑅 ( 𝑃 𝑄 ) ∧ 𝑃𝑄 ∧ ¬ 𝑄 ( 𝑃 𝑈 ) ) ∧ ( ( 𝑅 𝑄 ) 𝑃 ) ( ( 𝑆 𝑇 ) 𝑃 ) ) → 𝑃𝐴 )
21 18 19 20 3jca ( ( ( 𝐾 ∈ HL ∧ ( 𝑃𝐴𝑄𝐴𝑅𝐴 ) ∧ ( 𝑆𝐴𝑇𝐴𝑈𝐴 ) ) ∧ ( ¬ 𝑅 ( 𝑃 𝑄 ) ∧ 𝑃𝑄 ∧ ¬ 𝑄 ( 𝑃 𝑈 ) ) ∧ ( ( 𝑅 𝑄 ) 𝑃 ) ( ( 𝑆 𝑇 ) 𝑃 ) ) → ( 𝑅𝐴𝑄𝐴𝑃𝐴 ) )
22 simp131 ( ( ( 𝐾 ∈ HL ∧ ( 𝑃𝐴𝑄𝐴𝑅𝐴 ) ∧ ( 𝑆𝐴𝑇𝐴𝑈𝐴 ) ) ∧ ( ¬ 𝑅 ( 𝑃 𝑄 ) ∧ 𝑃𝑄 ∧ ¬ 𝑄 ( 𝑃 𝑈 ) ) ∧ ( ( 𝑅 𝑄 ) 𝑃 ) ( ( 𝑆 𝑇 ) 𝑃 ) ) → 𝑆𝐴 )
23 simp132 ( ( ( 𝐾 ∈ HL ∧ ( 𝑃𝐴𝑄𝐴𝑅𝐴 ) ∧ ( 𝑆𝐴𝑇𝐴𝑈𝐴 ) ) ∧ ( ¬ 𝑅 ( 𝑃 𝑄 ) ∧ 𝑃𝑄 ∧ ¬ 𝑄 ( 𝑃 𝑈 ) ) ∧ ( ( 𝑅 𝑄 ) 𝑃 ) ( ( 𝑆 𝑇 ) 𝑃 ) ) → 𝑇𝐴 )
24 22 23 jca ( ( ( 𝐾 ∈ HL ∧ ( 𝑃𝐴𝑄𝐴𝑅𝐴 ) ∧ ( 𝑆𝐴𝑇𝐴𝑈𝐴 ) ) ∧ ( ¬ 𝑅 ( 𝑃 𝑄 ) ∧ 𝑃𝑄 ∧ ¬ 𝑄 ( 𝑃 𝑈 ) ) ∧ ( ( 𝑅 𝑄 ) 𝑃 ) ( ( 𝑆 𝑇 ) 𝑃 ) ) → ( 𝑆𝐴𝑇𝐴 ) )
25 simp21 ( ( ( 𝐾 ∈ HL ∧ ( 𝑃𝐴𝑄𝐴𝑅𝐴 ) ∧ ( 𝑆𝐴𝑇𝐴𝑈𝐴 ) ) ∧ ( ¬ 𝑅 ( 𝑃 𝑄 ) ∧ 𝑃𝑄 ∧ ¬ 𝑄 ( 𝑃 𝑈 ) ) ∧ ( ( 𝑅 𝑄 ) 𝑃 ) ( ( 𝑆 𝑇 ) 𝑃 ) ) → ¬ 𝑅 ( 𝑃 𝑄 ) )
26 simp22 ( ( ( 𝐾 ∈ HL ∧ ( 𝑃𝐴𝑄𝐴𝑅𝐴 ) ∧ ( 𝑆𝐴𝑇𝐴𝑈𝐴 ) ) ∧ ( ¬ 𝑅 ( 𝑃 𝑄 ) ∧ 𝑃𝑄 ∧ ¬ 𝑄 ( 𝑃 𝑈 ) ) ∧ ( ( 𝑅 𝑄 ) 𝑃 ) ( ( 𝑆 𝑇 ) 𝑃 ) ) → 𝑃𝑄 )
27 1 2 3 hlatexch2 ( ( 𝐾 ∈ HL ∧ ( 𝑃𝐴𝑅𝐴𝑄𝐴 ) ∧ 𝑃𝑄 ) → ( 𝑃 ( 𝑅 𝑄 ) → 𝑅 ( 𝑃 𝑄 ) ) )
28 17 20 18 19 26 27 syl131anc ( ( ( 𝐾 ∈ HL ∧ ( 𝑃𝐴𝑄𝐴𝑅𝐴 ) ∧ ( 𝑆𝐴𝑇𝐴𝑈𝐴 ) ) ∧ ( ¬ 𝑅 ( 𝑃 𝑄 ) ∧ 𝑃𝑄 ∧ ¬ 𝑄 ( 𝑃 𝑈 ) ) ∧ ( ( 𝑅 𝑄 ) 𝑃 ) ( ( 𝑆 𝑇 ) 𝑃 ) ) → ( 𝑃 ( 𝑅 𝑄 ) → 𝑅 ( 𝑃 𝑄 ) ) )
29 25 28 mtod ( ( ( 𝐾 ∈ HL ∧ ( 𝑃𝐴𝑄𝐴𝑅𝐴 ) ∧ ( 𝑆𝐴𝑇𝐴𝑈𝐴 ) ) ∧ ( ¬ 𝑅 ( 𝑃 𝑄 ) ∧ 𝑃𝑄 ∧ ¬ 𝑄 ( 𝑃 𝑈 ) ) ∧ ( ( 𝑅 𝑄 ) 𝑃 ) ( ( 𝑆 𝑇 ) 𝑃 ) ) → ¬ 𝑃 ( 𝑅 𝑄 ) )
30 17 hllatd ( ( ( 𝐾 ∈ HL ∧ ( 𝑃𝐴𝑄𝐴𝑅𝐴 ) ∧ ( 𝑆𝐴𝑇𝐴𝑈𝐴 ) ) ∧ ( ¬ 𝑅 ( 𝑃 𝑄 ) ∧ 𝑃𝑄 ∧ ¬ 𝑄 ( 𝑃 𝑈 ) ) ∧ ( ( 𝑅 𝑄 ) 𝑃 ) ( ( 𝑆 𝑇 ) 𝑃 ) ) → 𝐾 ∈ Lat )
31 eqid ( Base ‘ 𝐾 ) = ( Base ‘ 𝐾 )
32 31 3 atbase ( 𝑅𝐴𝑅 ∈ ( Base ‘ 𝐾 ) )
33 18 32 syl ( ( ( 𝐾 ∈ HL ∧ ( 𝑃𝐴𝑄𝐴𝑅𝐴 ) ∧ ( 𝑆𝐴𝑇𝐴𝑈𝐴 ) ) ∧ ( ¬ 𝑅 ( 𝑃 𝑄 ) ∧ 𝑃𝑄 ∧ ¬ 𝑄 ( 𝑃 𝑈 ) ) ∧ ( ( 𝑅 𝑄 ) 𝑃 ) ( ( 𝑆 𝑇 ) 𝑃 ) ) → 𝑅 ∈ ( Base ‘ 𝐾 ) )
34 31 3 atbase ( 𝑃𝐴𝑃 ∈ ( Base ‘ 𝐾 ) )
35 20 34 syl ( ( ( 𝐾 ∈ HL ∧ ( 𝑃𝐴𝑄𝐴𝑅𝐴 ) ∧ ( 𝑆𝐴𝑇𝐴𝑈𝐴 ) ) ∧ ( ¬ 𝑅 ( 𝑃 𝑄 ) ∧ 𝑃𝑄 ∧ ¬ 𝑄 ( 𝑃 𝑈 ) ) ∧ ( ( 𝑅 𝑄 ) 𝑃 ) ( ( 𝑆 𝑇 ) 𝑃 ) ) → 𝑃 ∈ ( Base ‘ 𝐾 ) )
36 31 3 atbase ( 𝑄𝐴𝑄 ∈ ( Base ‘ 𝐾 ) )
37 19 36 syl ( ( ( 𝐾 ∈ HL ∧ ( 𝑃𝐴𝑄𝐴𝑅𝐴 ) ∧ ( 𝑆𝐴𝑇𝐴𝑈𝐴 ) ) ∧ ( ¬ 𝑅 ( 𝑃 𝑄 ) ∧ 𝑃𝑄 ∧ ¬ 𝑄 ( 𝑃 𝑈 ) ) ∧ ( ( 𝑅 𝑄 ) 𝑃 ) ( ( 𝑆 𝑇 ) 𝑃 ) ) → 𝑄 ∈ ( Base ‘ 𝐾 ) )
38 31 1 2 latnlej1r ( ( 𝐾 ∈ Lat ∧ ( 𝑅 ∈ ( Base ‘ 𝐾 ) ∧ 𝑃 ∈ ( Base ‘ 𝐾 ) ∧ 𝑄 ∈ ( Base ‘ 𝐾 ) ) ∧ ¬ 𝑅 ( 𝑃 𝑄 ) ) → 𝑅𝑄 )
39 30 33 35 37 25 38 syl131anc ( ( ( 𝐾 ∈ HL ∧ ( 𝑃𝐴𝑄𝐴𝑅𝐴 ) ∧ ( 𝑆𝐴𝑇𝐴𝑈𝐴 ) ) ∧ ( ¬ 𝑅 ( 𝑃 𝑄 ) ∧ 𝑃𝑄 ∧ ¬ 𝑄 ( 𝑃 𝑈 ) ) ∧ ( ( 𝑅 𝑄 ) 𝑃 ) ( ( 𝑆 𝑇 ) 𝑃 ) ) → 𝑅𝑄 )
40 simp3 ( ( ( 𝐾 ∈ HL ∧ ( 𝑃𝐴𝑄𝐴𝑅𝐴 ) ∧ ( 𝑆𝐴𝑇𝐴𝑈𝐴 ) ) ∧ ( ¬ 𝑅 ( 𝑃 𝑄 ) ∧ 𝑃𝑄 ∧ ¬ 𝑄 ( 𝑃 𝑈 ) ) ∧ ( ( 𝑅 𝑄 ) 𝑃 ) ( ( 𝑆 𝑇 ) 𝑃 ) ) → ( ( 𝑅 𝑄 ) 𝑃 ) ( ( 𝑆 𝑇 ) 𝑃 ) )
41 1 2 3 3atlem4 ( ( ( 𝐾 ∈ HL ∧ ( 𝑅𝐴𝑄𝐴𝑃𝐴 ) ∧ ( 𝑆𝐴𝑇𝐴 ) ) ∧ ( ¬ 𝑃 ( 𝑅 𝑄 ) ∧ 𝑅𝑄 ) ∧ ( ( 𝑅 𝑄 ) 𝑃 ) ( ( 𝑆 𝑇 ) 𝑃 ) ) → ( ( 𝑅 𝑄 ) 𝑃 ) = ( ( 𝑆 𝑇 ) 𝑃 ) )
42 17 21 24 29 39 40 41 syl321anc ( ( ( 𝐾 ∈ HL ∧ ( 𝑃𝐴𝑄𝐴𝑅𝐴 ) ∧ ( 𝑆𝐴𝑇𝐴𝑈𝐴 ) ) ∧ ( ¬ 𝑅 ( 𝑃 𝑄 ) ∧ 𝑃𝑄 ∧ ¬ 𝑄 ( 𝑃 𝑈 ) ) ∧ ( ( 𝑅 𝑄 ) 𝑃 ) ( ( 𝑆 𝑇 ) 𝑃 ) ) → ( ( 𝑅 𝑄 ) 𝑃 ) = ( ( 𝑆 𝑇 ) 𝑃 ) )
43 42 3expia ( ( ( 𝐾 ∈ HL ∧ ( 𝑃𝐴𝑄𝐴𝑅𝐴 ) ∧ ( 𝑆𝐴𝑇𝐴𝑈𝐴 ) ) ∧ ( ¬ 𝑅 ( 𝑃 𝑄 ) ∧ 𝑃𝑄 ∧ ¬ 𝑄 ( 𝑃 𝑈 ) ) ) → ( ( ( 𝑅 𝑄 ) 𝑃 ) ( ( 𝑆 𝑇 ) 𝑃 ) → ( ( 𝑅 𝑄 ) 𝑃 ) = ( ( 𝑆 𝑇 ) 𝑃 ) ) )
44 simpl1 ( ( ( 𝐾 ∈ HL ∧ ( 𝑃𝐴𝑄𝐴𝑅𝐴 ) ∧ ( 𝑆𝐴𝑇𝐴𝑈𝐴 ) ) ∧ ( ¬ 𝑅 ( 𝑃 𝑄 ) ∧ 𝑃𝑄 ∧ ¬ 𝑄 ( 𝑃 𝑈 ) ) ) → 𝐾 ∈ HL )
45 44 hllatd ( ( ( 𝐾 ∈ HL ∧ ( 𝑃𝐴𝑄𝐴𝑅𝐴 ) ∧ ( 𝑆𝐴𝑇𝐴𝑈𝐴 ) ) ∧ ( ¬ 𝑅 ( 𝑃 𝑄 ) ∧ 𝑃𝑄 ∧ ¬ 𝑄 ( 𝑃 𝑈 ) ) ) → 𝐾 ∈ Lat )
46 simpl21 ( ( ( 𝐾 ∈ HL ∧ ( 𝑃𝐴𝑄𝐴𝑅𝐴 ) ∧ ( 𝑆𝐴𝑇𝐴𝑈𝐴 ) ) ∧ ( ¬ 𝑅 ( 𝑃 𝑄 ) ∧ 𝑃𝑄 ∧ ¬ 𝑄 ( 𝑃 𝑈 ) ) ) → 𝑃𝐴 )
47 46 34 syl ( ( ( 𝐾 ∈ HL ∧ ( 𝑃𝐴𝑄𝐴𝑅𝐴 ) ∧ ( 𝑆𝐴𝑇𝐴𝑈𝐴 ) ) ∧ ( ¬ 𝑅 ( 𝑃 𝑄 ) ∧ 𝑃𝑄 ∧ ¬ 𝑄 ( 𝑃 𝑈 ) ) ) → 𝑃 ∈ ( Base ‘ 𝐾 ) )
48 simpl22 ( ( ( 𝐾 ∈ HL ∧ ( 𝑃𝐴𝑄𝐴𝑅𝐴 ) ∧ ( 𝑆𝐴𝑇𝐴𝑈𝐴 ) ) ∧ ( ¬ 𝑅 ( 𝑃 𝑄 ) ∧ 𝑃𝑄 ∧ ¬ 𝑄 ( 𝑃 𝑈 ) ) ) → 𝑄𝐴 )
49 48 36 syl ( ( ( 𝐾 ∈ HL ∧ ( 𝑃𝐴𝑄𝐴𝑅𝐴 ) ∧ ( 𝑆𝐴𝑇𝐴𝑈𝐴 ) ) ∧ ( ¬ 𝑅 ( 𝑃 𝑄 ) ∧ 𝑃𝑄 ∧ ¬ 𝑄 ( 𝑃 𝑈 ) ) ) → 𝑄 ∈ ( Base ‘ 𝐾 ) )
50 simpl23 ( ( ( 𝐾 ∈ HL ∧ ( 𝑃𝐴𝑄𝐴𝑅𝐴 ) ∧ ( 𝑆𝐴𝑇𝐴𝑈𝐴 ) ) ∧ ( ¬ 𝑅 ( 𝑃 𝑄 ) ∧ 𝑃𝑄 ∧ ¬ 𝑄 ( 𝑃 𝑈 ) ) ) → 𝑅𝐴 )
51 50 32 syl ( ( ( 𝐾 ∈ HL ∧ ( 𝑃𝐴𝑄𝐴𝑅𝐴 ) ∧ ( 𝑆𝐴𝑇𝐴𝑈𝐴 ) ) ∧ ( ¬ 𝑅 ( 𝑃 𝑄 ) ∧ 𝑃𝑄 ∧ ¬ 𝑄 ( 𝑃 𝑈 ) ) ) → 𝑅 ∈ ( Base ‘ 𝐾 ) )
52 31 2 latj31 ( ( 𝐾 ∈ Lat ∧ ( 𝑃 ∈ ( Base ‘ 𝐾 ) ∧ 𝑄 ∈ ( Base ‘ 𝐾 ) ∧ 𝑅 ∈ ( Base ‘ 𝐾 ) ) ) → ( ( 𝑃 𝑄 ) 𝑅 ) = ( ( 𝑅 𝑄 ) 𝑃 ) )
53 45 47 49 51 52 syl13anc ( ( ( 𝐾 ∈ HL ∧ ( 𝑃𝐴𝑄𝐴𝑅𝐴 ) ∧ ( 𝑆𝐴𝑇𝐴𝑈𝐴 ) ) ∧ ( ¬ 𝑅 ( 𝑃 𝑄 ) ∧ 𝑃𝑄 ∧ ¬ 𝑄 ( 𝑃 𝑈 ) ) ) → ( ( 𝑃 𝑄 ) 𝑅 ) = ( ( 𝑅 𝑄 ) 𝑃 ) )
54 53 breq1d ( ( ( 𝐾 ∈ HL ∧ ( 𝑃𝐴𝑄𝐴𝑅𝐴 ) ∧ ( 𝑆𝐴𝑇𝐴𝑈𝐴 ) ) ∧ ( ¬ 𝑅 ( 𝑃 𝑄 ) ∧ 𝑃𝑄 ∧ ¬ 𝑄 ( 𝑃 𝑈 ) ) ) → ( ( ( 𝑃 𝑄 ) 𝑅 ) ( ( 𝑆 𝑇 ) 𝑃 ) ↔ ( ( 𝑅 𝑄 ) 𝑃 ) ( ( 𝑆 𝑇 ) 𝑃 ) ) )
55 53 eqeq1d ( ( ( 𝐾 ∈ HL ∧ ( 𝑃𝐴𝑄𝐴𝑅𝐴 ) ∧ ( 𝑆𝐴𝑇𝐴𝑈𝐴 ) ) ∧ ( ¬ 𝑅 ( 𝑃 𝑄 ) ∧ 𝑃𝑄 ∧ ¬ 𝑄 ( 𝑃 𝑈 ) ) ) → ( ( ( 𝑃 𝑄 ) 𝑅 ) = ( ( 𝑆 𝑇 ) 𝑃 ) ↔ ( ( 𝑅 𝑄 ) 𝑃 ) = ( ( 𝑆 𝑇 ) 𝑃 ) ) )
56 43 54 55 3imtr4d ( ( ( 𝐾 ∈ HL ∧ ( 𝑃𝐴𝑄𝐴𝑅𝐴 ) ∧ ( 𝑆𝐴𝑇𝐴𝑈𝐴 ) ) ∧ ( ¬ 𝑅 ( 𝑃 𝑄 ) ∧ 𝑃𝑄 ∧ ¬ 𝑄 ( 𝑃 𝑈 ) ) ) → ( ( ( 𝑃 𝑄 ) 𝑅 ) ( ( 𝑆 𝑇 ) 𝑃 ) → ( ( 𝑃 𝑄 ) 𝑅 ) = ( ( 𝑆 𝑇 ) 𝑃 ) ) )
57 8 16 56 pm2.61ne ( ( ( 𝐾 ∈ HL ∧ ( 𝑃𝐴𝑄𝐴𝑅𝐴 ) ∧ ( 𝑆𝐴𝑇𝐴𝑈𝐴 ) ) ∧ ( ¬ 𝑅 ( 𝑃 𝑄 ) ∧ 𝑃𝑄 ∧ ¬ 𝑄 ( 𝑃 𝑈 ) ) ) → ( ( ( 𝑃 𝑄 ) 𝑅 ) ( ( 𝑆 𝑇 ) 𝑈 ) → ( ( 𝑃 𝑄 ) 𝑅 ) = ( ( 𝑆 𝑇 ) 𝑈 ) ) )
58 57 3impia ( ( ( 𝐾 ∈ HL ∧ ( 𝑃𝐴𝑄𝐴𝑅𝐴 ) ∧ ( 𝑆𝐴𝑇𝐴𝑈𝐴 ) ) ∧ ( ¬ 𝑅 ( 𝑃 𝑄 ) ∧ 𝑃𝑄 ∧ ¬ 𝑄 ( 𝑃 𝑈 ) ) ∧ ( ( 𝑃 𝑄 ) 𝑅 ) ( ( 𝑆 𝑇 ) 𝑈 ) ) → ( ( 𝑃 𝑄 ) 𝑅 ) = ( ( 𝑆 𝑇 ) 𝑈 ) )