Metamath Proof Explorer


Theorem cdlemh2

Description: Part of proof of Lemma H of Crawley p. 118. (Contributed by NM, 16-Jun-2013)

Ref Expression
Hypotheses cdlemh.b 𝐵 = ( Base ‘ 𝐾 )
cdlemh.l = ( le ‘ 𝐾 )
cdlemh.j = ( join ‘ 𝐾 )
cdlemh.m = ( meet ‘ 𝐾 )
cdlemh.a 𝐴 = ( Atoms ‘ 𝐾 )
cdlemh.h 𝐻 = ( LHyp ‘ 𝐾 )
cdlemh.t 𝑇 = ( ( LTrn ‘ 𝐾 ) ‘ 𝑊 )
cdlemh.r 𝑅 = ( ( trL ‘ 𝐾 ) ‘ 𝑊 )
cdlemh.s 𝑆 = ( ( 𝑃 ( 𝑅𝐺 ) ) ( 𝑄 ( 𝑅 ‘ ( 𝐺 𝐹 ) ) ) )
cdlemh.z 0 = ( 0. ‘ 𝐾 )
Assertion cdlemh2 ( ( ( ( 𝐾 ∈ HL ∧ 𝑊𝐻 ) ∧ 𝐹𝑇𝐺𝑇 ) ∧ ( ( 𝑃𝐴 ∧ ¬ 𝑃 𝑊 ) ∧ ( 𝑄𝐴 ∧ ¬ 𝑄 𝑊 ) ) ∧ ( 𝐹 ≠ ( I ↾ 𝐵 ) ∧ 𝐺 ≠ ( I ↾ 𝐵 ) ∧ ( 𝑅𝐹 ) ≠ ( 𝑅𝐺 ) ) ) → ( 𝑆 𝑊 ) = 0 )

Proof

Step Hyp Ref Expression
1 cdlemh.b 𝐵 = ( Base ‘ 𝐾 )
2 cdlemh.l = ( le ‘ 𝐾 )
3 cdlemh.j = ( join ‘ 𝐾 )
4 cdlemh.m = ( meet ‘ 𝐾 )
5 cdlemh.a 𝐴 = ( Atoms ‘ 𝐾 )
6 cdlemh.h 𝐻 = ( LHyp ‘ 𝐾 )
7 cdlemh.t 𝑇 = ( ( LTrn ‘ 𝐾 ) ‘ 𝑊 )
8 cdlemh.r 𝑅 = ( ( trL ‘ 𝐾 ) ‘ 𝑊 )
9 cdlemh.s 𝑆 = ( ( 𝑃 ( 𝑅𝐺 ) ) ( 𝑄 ( 𝑅 ‘ ( 𝐺 𝐹 ) ) ) )
10 cdlemh.z 0 = ( 0. ‘ 𝐾 )
11 9 oveq1i ( 𝑆 𝑊 ) = ( ( ( 𝑃 ( 𝑅𝐺 ) ) ( 𝑄 ( 𝑅 ‘ ( 𝐺 𝐹 ) ) ) ) 𝑊 )
12 simp11l ( ( ( ( 𝐾 ∈ HL ∧ 𝑊𝐻 ) ∧ 𝐹𝑇𝐺𝑇 ) ∧ ( ( 𝑃𝐴 ∧ ¬ 𝑃 𝑊 ) ∧ ( 𝑄𝐴 ∧ ¬ 𝑄 𝑊 ) ) ∧ ( 𝐹 ≠ ( I ↾ 𝐵 ) ∧ 𝐺 ≠ ( I ↾ 𝐵 ) ∧ ( 𝑅𝐹 ) ≠ ( 𝑅𝐺 ) ) ) → 𝐾 ∈ HL )
13 hlol ( 𝐾 ∈ HL → 𝐾 ∈ OL )
14 12 13 syl ( ( ( ( 𝐾 ∈ HL ∧ 𝑊𝐻 ) ∧ 𝐹𝑇𝐺𝑇 ) ∧ ( ( 𝑃𝐴 ∧ ¬ 𝑃 𝑊 ) ∧ ( 𝑄𝐴 ∧ ¬ 𝑄 𝑊 ) ) ∧ ( 𝐹 ≠ ( I ↾ 𝐵 ) ∧ 𝐺 ≠ ( I ↾ 𝐵 ) ∧ ( 𝑅𝐹 ) ≠ ( 𝑅𝐺 ) ) ) → 𝐾 ∈ OL )
15 12 hllatd ( ( ( ( 𝐾 ∈ HL ∧ 𝑊𝐻 ) ∧ 𝐹𝑇𝐺𝑇 ) ∧ ( ( 𝑃𝐴 ∧ ¬ 𝑃 𝑊 ) ∧ ( 𝑄𝐴 ∧ ¬ 𝑄 𝑊 ) ) ∧ ( 𝐹 ≠ ( I ↾ 𝐵 ) ∧ 𝐺 ≠ ( I ↾ 𝐵 ) ∧ ( 𝑅𝐹 ) ≠ ( 𝑅𝐺 ) ) ) → 𝐾 ∈ Lat )
16 simp2ll ( ( ( ( 𝐾 ∈ HL ∧ 𝑊𝐻 ) ∧ 𝐹𝑇𝐺𝑇 ) ∧ ( ( 𝑃𝐴 ∧ ¬ 𝑃 𝑊 ) ∧ ( 𝑄𝐴 ∧ ¬ 𝑄 𝑊 ) ) ∧ ( 𝐹 ≠ ( I ↾ 𝐵 ) ∧ 𝐺 ≠ ( I ↾ 𝐵 ) ∧ ( 𝑅𝐹 ) ≠ ( 𝑅𝐺 ) ) ) → 𝑃𝐴 )
17 1 5 atbase ( 𝑃𝐴𝑃𝐵 )
18 16 17 syl ( ( ( ( 𝐾 ∈ HL ∧ 𝑊𝐻 ) ∧ 𝐹𝑇𝐺𝑇 ) ∧ ( ( 𝑃𝐴 ∧ ¬ 𝑃 𝑊 ) ∧ ( 𝑄𝐴 ∧ ¬ 𝑄 𝑊 ) ) ∧ ( 𝐹 ≠ ( I ↾ 𝐵 ) ∧ 𝐺 ≠ ( I ↾ 𝐵 ) ∧ ( 𝑅𝐹 ) ≠ ( 𝑅𝐺 ) ) ) → 𝑃𝐵 )
19 simp11r ( ( ( ( 𝐾 ∈ HL ∧ 𝑊𝐻 ) ∧ 𝐹𝑇𝐺𝑇 ) ∧ ( ( 𝑃𝐴 ∧ ¬ 𝑃 𝑊 ) ∧ ( 𝑄𝐴 ∧ ¬ 𝑄 𝑊 ) ) ∧ ( 𝐹 ≠ ( I ↾ 𝐵 ) ∧ 𝐺 ≠ ( I ↾ 𝐵 ) ∧ ( 𝑅𝐹 ) ≠ ( 𝑅𝐺 ) ) ) → 𝑊𝐻 )
20 12 19 jca ( ( ( ( 𝐾 ∈ HL ∧ 𝑊𝐻 ) ∧ 𝐹𝑇𝐺𝑇 ) ∧ ( ( 𝑃𝐴 ∧ ¬ 𝑃 𝑊 ) ∧ ( 𝑄𝐴 ∧ ¬ 𝑄 𝑊 ) ) ∧ ( 𝐹 ≠ ( I ↾ 𝐵 ) ∧ 𝐺 ≠ ( I ↾ 𝐵 ) ∧ ( 𝑅𝐹 ) ≠ ( 𝑅𝐺 ) ) ) → ( 𝐾 ∈ HL ∧ 𝑊𝐻 ) )
21 simp13 ( ( ( ( 𝐾 ∈ HL ∧ 𝑊𝐻 ) ∧ 𝐹𝑇𝐺𝑇 ) ∧ ( ( 𝑃𝐴 ∧ ¬ 𝑃 𝑊 ) ∧ ( 𝑄𝐴 ∧ ¬ 𝑄 𝑊 ) ) ∧ ( 𝐹 ≠ ( I ↾ 𝐵 ) ∧ 𝐺 ≠ ( I ↾ 𝐵 ) ∧ ( 𝑅𝐹 ) ≠ ( 𝑅𝐺 ) ) ) → 𝐺𝑇 )
22 1 6 7 8 trlcl ( ( ( 𝐾 ∈ HL ∧ 𝑊𝐻 ) ∧ 𝐺𝑇 ) → ( 𝑅𝐺 ) ∈ 𝐵 )
23 20 21 22 syl2anc ( ( ( ( 𝐾 ∈ HL ∧ 𝑊𝐻 ) ∧ 𝐹𝑇𝐺𝑇 ) ∧ ( ( 𝑃𝐴 ∧ ¬ 𝑃 𝑊 ) ∧ ( 𝑄𝐴 ∧ ¬ 𝑄 𝑊 ) ) ∧ ( 𝐹 ≠ ( I ↾ 𝐵 ) ∧ 𝐺 ≠ ( I ↾ 𝐵 ) ∧ ( 𝑅𝐹 ) ≠ ( 𝑅𝐺 ) ) ) → ( 𝑅𝐺 ) ∈ 𝐵 )
24 1 3 latjcl ( ( 𝐾 ∈ Lat ∧ 𝑃𝐵 ∧ ( 𝑅𝐺 ) ∈ 𝐵 ) → ( 𝑃 ( 𝑅𝐺 ) ) ∈ 𝐵 )
25 15 18 23 24 syl3anc ( ( ( ( 𝐾 ∈ HL ∧ 𝑊𝐻 ) ∧ 𝐹𝑇𝐺𝑇 ) ∧ ( ( 𝑃𝐴 ∧ ¬ 𝑃 𝑊 ) ∧ ( 𝑄𝐴 ∧ ¬ 𝑄 𝑊 ) ) ∧ ( 𝐹 ≠ ( I ↾ 𝐵 ) ∧ 𝐺 ≠ ( I ↾ 𝐵 ) ∧ ( 𝑅𝐹 ) ≠ ( 𝑅𝐺 ) ) ) → ( 𝑃 ( 𝑅𝐺 ) ) ∈ 𝐵 )
26 simp2rl ( ( ( ( 𝐾 ∈ HL ∧ 𝑊𝐻 ) ∧ 𝐹𝑇𝐺𝑇 ) ∧ ( ( 𝑃𝐴 ∧ ¬ 𝑃 𝑊 ) ∧ ( 𝑄𝐴 ∧ ¬ 𝑄 𝑊 ) ) ∧ ( 𝐹 ≠ ( I ↾ 𝐵 ) ∧ 𝐺 ≠ ( I ↾ 𝐵 ) ∧ ( 𝑅𝐹 ) ≠ ( 𝑅𝐺 ) ) ) → 𝑄𝐴 )
27 1 5 atbase ( 𝑄𝐴𝑄𝐵 )
28 26 27 syl ( ( ( ( 𝐾 ∈ HL ∧ 𝑊𝐻 ) ∧ 𝐹𝑇𝐺𝑇 ) ∧ ( ( 𝑃𝐴 ∧ ¬ 𝑃 𝑊 ) ∧ ( 𝑄𝐴 ∧ ¬ 𝑄 𝑊 ) ) ∧ ( 𝐹 ≠ ( I ↾ 𝐵 ) ∧ 𝐺 ≠ ( I ↾ 𝐵 ) ∧ ( 𝑅𝐹 ) ≠ ( 𝑅𝐺 ) ) ) → 𝑄𝐵 )
29 simp12 ( ( ( ( 𝐾 ∈ HL ∧ 𝑊𝐻 ) ∧ 𝐹𝑇𝐺𝑇 ) ∧ ( ( 𝑃𝐴 ∧ ¬ 𝑃 𝑊 ) ∧ ( 𝑄𝐴 ∧ ¬ 𝑄 𝑊 ) ) ∧ ( 𝐹 ≠ ( I ↾ 𝐵 ) ∧ 𝐺 ≠ ( I ↾ 𝐵 ) ∧ ( 𝑅𝐹 ) ≠ ( 𝑅𝐺 ) ) ) → 𝐹𝑇 )
30 6 7 ltrncnv ( ( ( 𝐾 ∈ HL ∧ 𝑊𝐻 ) ∧ 𝐹𝑇 ) → 𝐹𝑇 )
31 20 29 30 syl2anc ( ( ( ( 𝐾 ∈ HL ∧ 𝑊𝐻 ) ∧ 𝐹𝑇𝐺𝑇 ) ∧ ( ( 𝑃𝐴 ∧ ¬ 𝑃 𝑊 ) ∧ ( 𝑄𝐴 ∧ ¬ 𝑄 𝑊 ) ) ∧ ( 𝐹 ≠ ( I ↾ 𝐵 ) ∧ 𝐺 ≠ ( I ↾ 𝐵 ) ∧ ( 𝑅𝐹 ) ≠ ( 𝑅𝐺 ) ) ) → 𝐹𝑇 )
32 6 7 ltrnco ( ( ( 𝐾 ∈ HL ∧ 𝑊𝐻 ) ∧ 𝐺𝑇 𝐹𝑇 ) → ( 𝐺 𝐹 ) ∈ 𝑇 )
33 20 21 31 32 syl3anc ( ( ( ( 𝐾 ∈ HL ∧ 𝑊𝐻 ) ∧ 𝐹𝑇𝐺𝑇 ) ∧ ( ( 𝑃𝐴 ∧ ¬ 𝑃 𝑊 ) ∧ ( 𝑄𝐴 ∧ ¬ 𝑄 𝑊 ) ) ∧ ( 𝐹 ≠ ( I ↾ 𝐵 ) ∧ 𝐺 ≠ ( I ↾ 𝐵 ) ∧ ( 𝑅𝐹 ) ≠ ( 𝑅𝐺 ) ) ) → ( 𝐺 𝐹 ) ∈ 𝑇 )
34 1 6 7 8 trlcl ( ( ( 𝐾 ∈ HL ∧ 𝑊𝐻 ) ∧ ( 𝐺 𝐹 ) ∈ 𝑇 ) → ( 𝑅 ‘ ( 𝐺 𝐹 ) ) ∈ 𝐵 )
35 20 33 34 syl2anc ( ( ( ( 𝐾 ∈ HL ∧ 𝑊𝐻 ) ∧ 𝐹𝑇𝐺𝑇 ) ∧ ( ( 𝑃𝐴 ∧ ¬ 𝑃 𝑊 ) ∧ ( 𝑄𝐴 ∧ ¬ 𝑄 𝑊 ) ) ∧ ( 𝐹 ≠ ( I ↾ 𝐵 ) ∧ 𝐺 ≠ ( I ↾ 𝐵 ) ∧ ( 𝑅𝐹 ) ≠ ( 𝑅𝐺 ) ) ) → ( 𝑅 ‘ ( 𝐺 𝐹 ) ) ∈ 𝐵 )
36 1 3 latjcl ( ( 𝐾 ∈ Lat ∧ 𝑄𝐵 ∧ ( 𝑅 ‘ ( 𝐺 𝐹 ) ) ∈ 𝐵 ) → ( 𝑄 ( 𝑅 ‘ ( 𝐺 𝐹 ) ) ) ∈ 𝐵 )
37 15 28 35 36 syl3anc ( ( ( ( 𝐾 ∈ HL ∧ 𝑊𝐻 ) ∧ 𝐹𝑇𝐺𝑇 ) ∧ ( ( 𝑃𝐴 ∧ ¬ 𝑃 𝑊 ) ∧ ( 𝑄𝐴 ∧ ¬ 𝑄 𝑊 ) ) ∧ ( 𝐹 ≠ ( I ↾ 𝐵 ) ∧ 𝐺 ≠ ( I ↾ 𝐵 ) ∧ ( 𝑅𝐹 ) ≠ ( 𝑅𝐺 ) ) ) → ( 𝑄 ( 𝑅 ‘ ( 𝐺 𝐹 ) ) ) ∈ 𝐵 )
38 1 6 lhpbase ( 𝑊𝐻𝑊𝐵 )
39 19 38 syl ( ( ( ( 𝐾 ∈ HL ∧ 𝑊𝐻 ) ∧ 𝐹𝑇𝐺𝑇 ) ∧ ( ( 𝑃𝐴 ∧ ¬ 𝑃 𝑊 ) ∧ ( 𝑄𝐴 ∧ ¬ 𝑄 𝑊 ) ) ∧ ( 𝐹 ≠ ( I ↾ 𝐵 ) ∧ 𝐺 ≠ ( I ↾ 𝐵 ) ∧ ( 𝑅𝐹 ) ≠ ( 𝑅𝐺 ) ) ) → 𝑊𝐵 )
40 1 4 latmassOLD ( ( 𝐾 ∈ OL ∧ ( ( 𝑃 ( 𝑅𝐺 ) ) ∈ 𝐵 ∧ ( 𝑄 ( 𝑅 ‘ ( 𝐺 𝐹 ) ) ) ∈ 𝐵𝑊𝐵 ) ) → ( ( ( 𝑃 ( 𝑅𝐺 ) ) ( 𝑄 ( 𝑅 ‘ ( 𝐺 𝐹 ) ) ) ) 𝑊 ) = ( ( 𝑃 ( 𝑅𝐺 ) ) ( ( 𝑄 ( 𝑅 ‘ ( 𝐺 𝐹 ) ) ) 𝑊 ) ) )
41 14 25 37 39 40 syl13anc ( ( ( ( 𝐾 ∈ HL ∧ 𝑊𝐻 ) ∧ 𝐹𝑇𝐺𝑇 ) ∧ ( ( 𝑃𝐴 ∧ ¬ 𝑃 𝑊 ) ∧ ( 𝑄𝐴 ∧ ¬ 𝑄 𝑊 ) ) ∧ ( 𝐹 ≠ ( I ↾ 𝐵 ) ∧ 𝐺 ≠ ( I ↾ 𝐵 ) ∧ ( 𝑅𝐹 ) ≠ ( 𝑅𝐺 ) ) ) → ( ( ( 𝑃 ( 𝑅𝐺 ) ) ( 𝑄 ( 𝑅 ‘ ( 𝐺 𝐹 ) ) ) ) 𝑊 ) = ( ( 𝑃 ( 𝑅𝐺 ) ) ( ( 𝑄 ( 𝑅 ‘ ( 𝐺 𝐹 ) ) ) 𝑊 ) ) )
42 simp2r ( ( ( ( 𝐾 ∈ HL ∧ 𝑊𝐻 ) ∧ 𝐹𝑇𝐺𝑇 ) ∧ ( ( 𝑃𝐴 ∧ ¬ 𝑃 𝑊 ) ∧ ( 𝑄𝐴 ∧ ¬ 𝑄 𝑊 ) ) ∧ ( 𝐹 ≠ ( I ↾ 𝐵 ) ∧ 𝐺 ≠ ( I ↾ 𝐵 ) ∧ ( 𝑅𝐹 ) ≠ ( 𝑅𝐺 ) ) ) → ( 𝑄𝐴 ∧ ¬ 𝑄 𝑊 ) )
43 2 4 10 5 6 lhpmat ( ( ( 𝐾 ∈ HL ∧ 𝑊𝐻 ) ∧ ( 𝑄𝐴 ∧ ¬ 𝑄 𝑊 ) ) → ( 𝑄 𝑊 ) = 0 )
44 20 42 43 syl2anc ( ( ( ( 𝐾 ∈ HL ∧ 𝑊𝐻 ) ∧ 𝐹𝑇𝐺𝑇 ) ∧ ( ( 𝑃𝐴 ∧ ¬ 𝑃 𝑊 ) ∧ ( 𝑄𝐴 ∧ ¬ 𝑄 𝑊 ) ) ∧ ( 𝐹 ≠ ( I ↾ 𝐵 ) ∧ 𝐺 ≠ ( I ↾ 𝐵 ) ∧ ( 𝑅𝐹 ) ≠ ( 𝑅𝐺 ) ) ) → ( 𝑄 𝑊 ) = 0 )
45 44 oveq1d ( ( ( ( 𝐾 ∈ HL ∧ 𝑊𝐻 ) ∧ 𝐹𝑇𝐺𝑇 ) ∧ ( ( 𝑃𝐴 ∧ ¬ 𝑃 𝑊 ) ∧ ( 𝑄𝐴 ∧ ¬ 𝑄 𝑊 ) ) ∧ ( 𝐹 ≠ ( I ↾ 𝐵 ) ∧ 𝐺 ≠ ( I ↾ 𝐵 ) ∧ ( 𝑅𝐹 ) ≠ ( 𝑅𝐺 ) ) ) → ( ( 𝑄 𝑊 ) ( 𝑅 ‘ ( 𝐺 𝐹 ) ) ) = ( 0 ( 𝑅 ‘ ( 𝐺 𝐹 ) ) ) )
46 2 6 7 8 trlle ( ( ( 𝐾 ∈ HL ∧ 𝑊𝐻 ) ∧ ( 𝐺 𝐹 ) ∈ 𝑇 ) → ( 𝑅 ‘ ( 𝐺 𝐹 ) ) 𝑊 )
47 20 33 46 syl2anc ( ( ( ( 𝐾 ∈ HL ∧ 𝑊𝐻 ) ∧ 𝐹𝑇𝐺𝑇 ) ∧ ( ( 𝑃𝐴 ∧ ¬ 𝑃 𝑊 ) ∧ ( 𝑄𝐴 ∧ ¬ 𝑄 𝑊 ) ) ∧ ( 𝐹 ≠ ( I ↾ 𝐵 ) ∧ 𝐺 ≠ ( I ↾ 𝐵 ) ∧ ( 𝑅𝐹 ) ≠ ( 𝑅𝐺 ) ) ) → ( 𝑅 ‘ ( 𝐺 𝐹 ) ) 𝑊 )
48 1 2 3 4 5 atmod4i2 ( ( 𝐾 ∈ HL ∧ ( 𝑄𝐴 ∧ ( 𝑅 ‘ ( 𝐺 𝐹 ) ) ∈ 𝐵𝑊𝐵 ) ∧ ( 𝑅 ‘ ( 𝐺 𝐹 ) ) 𝑊 ) → ( ( 𝑄 𝑊 ) ( 𝑅 ‘ ( 𝐺 𝐹 ) ) ) = ( ( 𝑄 ( 𝑅 ‘ ( 𝐺 𝐹 ) ) ) 𝑊 ) )
49 12 26 35 39 47 48 syl131anc ( ( ( ( 𝐾 ∈ HL ∧ 𝑊𝐻 ) ∧ 𝐹𝑇𝐺𝑇 ) ∧ ( ( 𝑃𝐴 ∧ ¬ 𝑃 𝑊 ) ∧ ( 𝑄𝐴 ∧ ¬ 𝑄 𝑊 ) ) ∧ ( 𝐹 ≠ ( I ↾ 𝐵 ) ∧ 𝐺 ≠ ( I ↾ 𝐵 ) ∧ ( 𝑅𝐹 ) ≠ ( 𝑅𝐺 ) ) ) → ( ( 𝑄 𝑊 ) ( 𝑅 ‘ ( 𝐺 𝐹 ) ) ) = ( ( 𝑄 ( 𝑅 ‘ ( 𝐺 𝐹 ) ) ) 𝑊 ) )
50 1 3 10 olj02 ( ( 𝐾 ∈ OL ∧ ( 𝑅 ‘ ( 𝐺 𝐹 ) ) ∈ 𝐵 ) → ( 0 ( 𝑅 ‘ ( 𝐺 𝐹 ) ) ) = ( 𝑅 ‘ ( 𝐺 𝐹 ) ) )
51 14 35 50 syl2anc ( ( ( ( 𝐾 ∈ HL ∧ 𝑊𝐻 ) ∧ 𝐹𝑇𝐺𝑇 ) ∧ ( ( 𝑃𝐴 ∧ ¬ 𝑃 𝑊 ) ∧ ( 𝑄𝐴 ∧ ¬ 𝑄 𝑊 ) ) ∧ ( 𝐹 ≠ ( I ↾ 𝐵 ) ∧ 𝐺 ≠ ( I ↾ 𝐵 ) ∧ ( 𝑅𝐹 ) ≠ ( 𝑅𝐺 ) ) ) → ( 0 ( 𝑅 ‘ ( 𝐺 𝐹 ) ) ) = ( 𝑅 ‘ ( 𝐺 𝐹 ) ) )
52 45 49 51 3eqtr3rd ( ( ( ( 𝐾 ∈ HL ∧ 𝑊𝐻 ) ∧ 𝐹𝑇𝐺𝑇 ) ∧ ( ( 𝑃𝐴 ∧ ¬ 𝑃 𝑊 ) ∧ ( 𝑄𝐴 ∧ ¬ 𝑄 𝑊 ) ) ∧ ( 𝐹 ≠ ( I ↾ 𝐵 ) ∧ 𝐺 ≠ ( I ↾ 𝐵 ) ∧ ( 𝑅𝐹 ) ≠ ( 𝑅𝐺 ) ) ) → ( 𝑅 ‘ ( 𝐺 𝐹 ) ) = ( ( 𝑄 ( 𝑅 ‘ ( 𝐺 𝐹 ) ) ) 𝑊 ) )
53 52 oveq2d ( ( ( ( 𝐾 ∈ HL ∧ 𝑊𝐻 ) ∧ 𝐹𝑇𝐺𝑇 ) ∧ ( ( 𝑃𝐴 ∧ ¬ 𝑃 𝑊 ) ∧ ( 𝑄𝐴 ∧ ¬ 𝑄 𝑊 ) ) ∧ ( 𝐹 ≠ ( I ↾ 𝐵 ) ∧ 𝐺 ≠ ( I ↾ 𝐵 ) ∧ ( 𝑅𝐹 ) ≠ ( 𝑅𝐺 ) ) ) → ( ( 𝑃 ( 𝑅𝐺 ) ) ( 𝑅 ‘ ( 𝐺 𝐹 ) ) ) = ( ( 𝑃 ( 𝑅𝐺 ) ) ( ( 𝑄 ( 𝑅 ‘ ( 𝐺 𝐹 ) ) ) 𝑊 ) ) )
54 simp2l ( ( ( ( 𝐾 ∈ HL ∧ 𝑊𝐻 ) ∧ 𝐹𝑇𝐺𝑇 ) ∧ ( ( 𝑃𝐴 ∧ ¬ 𝑃 𝑊 ) ∧ ( 𝑄𝐴 ∧ ¬ 𝑄 𝑊 ) ) ∧ ( 𝐹 ≠ ( I ↾ 𝐵 ) ∧ 𝐺 ≠ ( I ↾ 𝐵 ) ∧ ( 𝑅𝐹 ) ≠ ( 𝑅𝐺 ) ) ) → ( 𝑃𝐴 ∧ ¬ 𝑃 𝑊 ) )
55 21 31 jca ( ( ( ( 𝐾 ∈ HL ∧ 𝑊𝐻 ) ∧ 𝐹𝑇𝐺𝑇 ) ∧ ( ( 𝑃𝐴 ∧ ¬ 𝑃 𝑊 ) ∧ ( 𝑄𝐴 ∧ ¬ 𝑄 𝑊 ) ) ∧ ( 𝐹 ≠ ( I ↾ 𝐵 ) ∧ 𝐺 ≠ ( I ↾ 𝐵 ) ∧ ( 𝑅𝐹 ) ≠ ( 𝑅𝐺 ) ) ) → ( 𝐺𝑇 𝐹𝑇 ) )
56 simp33 ( ( ( ( 𝐾 ∈ HL ∧ 𝑊𝐻 ) ∧ 𝐹𝑇𝐺𝑇 ) ∧ ( ( 𝑃𝐴 ∧ ¬ 𝑃 𝑊 ) ∧ ( 𝑄𝐴 ∧ ¬ 𝑄 𝑊 ) ) ∧ ( 𝐹 ≠ ( I ↾ 𝐵 ) ∧ 𝐺 ≠ ( I ↾ 𝐵 ) ∧ ( 𝑅𝐹 ) ≠ ( 𝑅𝐺 ) ) ) → ( 𝑅𝐹 ) ≠ ( 𝑅𝐺 ) )
57 56 necomd ( ( ( ( 𝐾 ∈ HL ∧ 𝑊𝐻 ) ∧ 𝐹𝑇𝐺𝑇 ) ∧ ( ( 𝑃𝐴 ∧ ¬ 𝑃 𝑊 ) ∧ ( 𝑄𝐴 ∧ ¬ 𝑄 𝑊 ) ) ∧ ( 𝐹 ≠ ( I ↾ 𝐵 ) ∧ 𝐺 ≠ ( I ↾ 𝐵 ) ∧ ( 𝑅𝐹 ) ≠ ( 𝑅𝐺 ) ) ) → ( 𝑅𝐺 ) ≠ ( 𝑅𝐹 ) )
58 6 7 8 trlcnv ( ( ( 𝐾 ∈ HL ∧ 𝑊𝐻 ) ∧ 𝐹𝑇 ) → ( 𝑅 𝐹 ) = ( 𝑅𝐹 ) )
59 20 29 58 syl2anc ( ( ( ( 𝐾 ∈ HL ∧ 𝑊𝐻 ) ∧ 𝐹𝑇𝐺𝑇 ) ∧ ( ( 𝑃𝐴 ∧ ¬ 𝑃 𝑊 ) ∧ ( 𝑄𝐴 ∧ ¬ 𝑄 𝑊 ) ) ∧ ( 𝐹 ≠ ( I ↾ 𝐵 ) ∧ 𝐺 ≠ ( I ↾ 𝐵 ) ∧ ( 𝑅𝐹 ) ≠ ( 𝑅𝐺 ) ) ) → ( 𝑅 𝐹 ) = ( 𝑅𝐹 ) )
60 57 59 neeqtrrd ( ( ( ( 𝐾 ∈ HL ∧ 𝑊𝐻 ) ∧ 𝐹𝑇𝐺𝑇 ) ∧ ( ( 𝑃𝐴 ∧ ¬ 𝑃 𝑊 ) ∧ ( 𝑄𝐴 ∧ ¬ 𝑄 𝑊 ) ) ∧ ( 𝐹 ≠ ( I ↾ 𝐵 ) ∧ 𝐺 ≠ ( I ↾ 𝐵 ) ∧ ( 𝑅𝐹 ) ≠ ( 𝑅𝐺 ) ) ) → ( 𝑅𝐺 ) ≠ ( 𝑅 𝐹 ) )
61 simp31 ( ( ( ( 𝐾 ∈ HL ∧ 𝑊𝐻 ) ∧ 𝐹𝑇𝐺𝑇 ) ∧ ( ( 𝑃𝐴 ∧ ¬ 𝑃 𝑊 ) ∧ ( 𝑄𝐴 ∧ ¬ 𝑄 𝑊 ) ) ∧ ( 𝐹 ≠ ( I ↾ 𝐵 ) ∧ 𝐺 ≠ ( I ↾ 𝐵 ) ∧ ( 𝑅𝐹 ) ≠ ( 𝑅𝐺 ) ) ) → 𝐹 ≠ ( I ↾ 𝐵 ) )
62 1 6 7 ltrncnvnid ( ( ( 𝐾 ∈ HL ∧ 𝑊𝐻 ) ∧ 𝐹𝑇𝐹 ≠ ( I ↾ 𝐵 ) ) → 𝐹 ≠ ( I ↾ 𝐵 ) )
63 20 29 61 62 syl3anc ( ( ( ( 𝐾 ∈ HL ∧ 𝑊𝐻 ) ∧ 𝐹𝑇𝐺𝑇 ) ∧ ( ( 𝑃𝐴 ∧ ¬ 𝑃 𝑊 ) ∧ ( 𝑄𝐴 ∧ ¬ 𝑄 𝑊 ) ) ∧ ( 𝐹 ≠ ( I ↾ 𝐵 ) ∧ 𝐺 ≠ ( I ↾ 𝐵 ) ∧ ( 𝑅𝐹 ) ≠ ( 𝑅𝐺 ) ) ) → 𝐹 ≠ ( I ↾ 𝐵 ) )
64 1 6 7 8 trlcone ( ( ( 𝐾 ∈ HL ∧ 𝑊𝐻 ) ∧ ( 𝐺𝑇 𝐹𝑇 ) ∧ ( ( 𝑅𝐺 ) ≠ ( 𝑅 𝐹 ) ∧ 𝐹 ≠ ( I ↾ 𝐵 ) ) ) → ( 𝑅𝐺 ) ≠ ( 𝑅 ‘ ( 𝐺 𝐹 ) ) )
65 20 55 60 63 64 syl112anc ( ( ( ( 𝐾 ∈ HL ∧ 𝑊𝐻 ) ∧ 𝐹𝑇𝐺𝑇 ) ∧ ( ( 𝑃𝐴 ∧ ¬ 𝑃 𝑊 ) ∧ ( 𝑄𝐴 ∧ ¬ 𝑄 𝑊 ) ) ∧ ( 𝐹 ≠ ( I ↾ 𝐵 ) ∧ 𝐺 ≠ ( I ↾ 𝐵 ) ∧ ( 𝑅𝐹 ) ≠ ( 𝑅𝐺 ) ) ) → ( 𝑅𝐺 ) ≠ ( 𝑅 ‘ ( 𝐺 𝐹 ) ) )
66 simp32 ( ( ( ( 𝐾 ∈ HL ∧ 𝑊𝐻 ) ∧ 𝐹𝑇𝐺𝑇 ) ∧ ( ( 𝑃𝐴 ∧ ¬ 𝑃 𝑊 ) ∧ ( 𝑄𝐴 ∧ ¬ 𝑄 𝑊 ) ) ∧ ( 𝐹 ≠ ( I ↾ 𝐵 ) ∧ 𝐺 ≠ ( I ↾ 𝐵 ) ∧ ( 𝑅𝐹 ) ≠ ( 𝑅𝐺 ) ) ) → 𝐺 ≠ ( I ↾ 𝐵 ) )
67 1 5 6 7 8 trlnidat ( ( ( 𝐾 ∈ HL ∧ 𝑊𝐻 ) ∧ 𝐺𝑇𝐺 ≠ ( I ↾ 𝐵 ) ) → ( 𝑅𝐺 ) ∈ 𝐴 )
68 20 21 66 67 syl3anc ( ( ( ( 𝐾 ∈ HL ∧ 𝑊𝐻 ) ∧ 𝐹𝑇𝐺𝑇 ) ∧ ( ( 𝑃𝐴 ∧ ¬ 𝑃 𝑊 ) ∧ ( 𝑄𝐴 ∧ ¬ 𝑄 𝑊 ) ) ∧ ( 𝐹 ≠ ( I ↾ 𝐵 ) ∧ 𝐺 ≠ ( I ↾ 𝐵 ) ∧ ( 𝑅𝐹 ) ≠ ( 𝑅𝐺 ) ) ) → ( 𝑅𝐺 ) ∈ 𝐴 )
69 2 6 7 8 trlle ( ( ( 𝐾 ∈ HL ∧ 𝑊𝐻 ) ∧ 𝐺𝑇 ) → ( 𝑅𝐺 ) 𝑊 )
70 20 21 69 syl2anc ( ( ( ( 𝐾 ∈ HL ∧ 𝑊𝐻 ) ∧ 𝐹𝑇𝐺𝑇 ) ∧ ( ( 𝑃𝐴 ∧ ¬ 𝑃 𝑊 ) ∧ ( 𝑄𝐴 ∧ ¬ 𝑄 𝑊 ) ) ∧ ( 𝐹 ≠ ( I ↾ 𝐵 ) ∧ 𝐺 ≠ ( I ↾ 𝐵 ) ∧ ( 𝑅𝐹 ) ≠ ( 𝑅𝐺 ) ) ) → ( 𝑅𝐺 ) 𝑊 )
71 5 6 7 8 trlcoat ( ( ( 𝐾 ∈ HL ∧ 𝑊𝐻 ) ∧ ( 𝐺𝑇 𝐹𝑇 ) ∧ ( 𝑅𝐺 ) ≠ ( 𝑅 𝐹 ) ) → ( 𝑅 ‘ ( 𝐺 𝐹 ) ) ∈ 𝐴 )
72 20 55 60 71 syl3anc ( ( ( ( 𝐾 ∈ HL ∧ 𝑊𝐻 ) ∧ 𝐹𝑇𝐺𝑇 ) ∧ ( ( 𝑃𝐴 ∧ ¬ 𝑃 𝑊 ) ∧ ( 𝑄𝐴 ∧ ¬ 𝑄 𝑊 ) ) ∧ ( 𝐹 ≠ ( I ↾ 𝐵 ) ∧ 𝐺 ≠ ( I ↾ 𝐵 ) ∧ ( 𝑅𝐹 ) ≠ ( 𝑅𝐺 ) ) ) → ( 𝑅 ‘ ( 𝐺 𝐹 ) ) ∈ 𝐴 )
73 2 3 4 10 5 6 lhp2at0 ( ( ( ( 𝐾 ∈ HL ∧ 𝑊𝐻 ) ∧ ( 𝑃𝐴 ∧ ¬ 𝑃 𝑊 ) ∧ ( 𝑅𝐺 ) ≠ ( 𝑅 ‘ ( 𝐺 𝐹 ) ) ) ∧ ( ( 𝑅𝐺 ) ∈ 𝐴 ∧ ( 𝑅𝐺 ) 𝑊 ) ∧ ( ( 𝑅 ‘ ( 𝐺 𝐹 ) ) ∈ 𝐴 ∧ ( 𝑅 ‘ ( 𝐺 𝐹 ) ) 𝑊 ) ) → ( ( 𝑃 ( 𝑅𝐺 ) ) ( 𝑅 ‘ ( 𝐺 𝐹 ) ) ) = 0 )
74 20 54 65 68 70 72 47 73 syl322anc ( ( ( ( 𝐾 ∈ HL ∧ 𝑊𝐻 ) ∧ 𝐹𝑇𝐺𝑇 ) ∧ ( ( 𝑃𝐴 ∧ ¬ 𝑃 𝑊 ) ∧ ( 𝑄𝐴 ∧ ¬ 𝑄 𝑊 ) ) ∧ ( 𝐹 ≠ ( I ↾ 𝐵 ) ∧ 𝐺 ≠ ( I ↾ 𝐵 ) ∧ ( 𝑅𝐹 ) ≠ ( 𝑅𝐺 ) ) ) → ( ( 𝑃 ( 𝑅𝐺 ) ) ( 𝑅 ‘ ( 𝐺 𝐹 ) ) ) = 0 )
75 41 53 74 3eqtr2rd ( ( ( ( 𝐾 ∈ HL ∧ 𝑊𝐻 ) ∧ 𝐹𝑇𝐺𝑇 ) ∧ ( ( 𝑃𝐴 ∧ ¬ 𝑃 𝑊 ) ∧ ( 𝑄𝐴 ∧ ¬ 𝑄 𝑊 ) ) ∧ ( 𝐹 ≠ ( I ↾ 𝐵 ) ∧ 𝐺 ≠ ( I ↾ 𝐵 ) ∧ ( 𝑅𝐹 ) ≠ ( 𝑅𝐺 ) ) ) → 0 = ( ( ( 𝑃 ( 𝑅𝐺 ) ) ( 𝑄 ( 𝑅 ‘ ( 𝐺 𝐹 ) ) ) ) 𝑊 ) )
76 11 75 eqtr4id ( ( ( ( 𝐾 ∈ HL ∧ 𝑊𝐻 ) ∧ 𝐹𝑇𝐺𝑇 ) ∧ ( ( 𝑃𝐴 ∧ ¬ 𝑃 𝑊 ) ∧ ( 𝑄𝐴 ∧ ¬ 𝑄 𝑊 ) ) ∧ ( 𝐹 ≠ ( I ↾ 𝐵 ) ∧ 𝐺 ≠ ( I ↾ 𝐵 ) ∧ ( 𝑅𝐹 ) ≠ ( 𝑅𝐺 ) ) ) → ( 𝑆 𝑊 ) = 0 )