Metamath Proof Explorer


Theorem cdleme18d

Description: Part of proof of Lemma E in Crawley p. 114, 4th sentence of 4th paragraph. F , G , D , E represent f(s), f_s(r), f(t), f_t(r) respectively. We show f_s(r) = f_t(r) for all possible r (which must equal p or q in the case of exactly 3 atoms in p \/ q/0 , i.e., when -. E. r e. A ... ). (Contributed by NM, 12-Nov-2012)

Ref Expression
Hypotheses cdleme18d.l = ( le ‘ 𝐾 )
cdleme18d.j = ( join ‘ 𝐾 )
cdleme18d.m = ( meet ‘ 𝐾 )
cdleme18d.a 𝐴 = ( Atoms ‘ 𝐾 )
cdleme18d.h 𝐻 = ( LHyp ‘ 𝐾 )
cdleme18d.u 𝑈 = ( ( 𝑃 𝑄 ) 𝑊 )
cdleme18d.f 𝐹 = ( ( 𝑆 𝑈 ) ( 𝑄 ( ( 𝑃 𝑆 ) 𝑊 ) ) )
cdleme18d.g 𝐺 = ( ( 𝑃 𝑄 ) ( 𝐹 ( ( 𝑅 𝑆 ) 𝑊 ) ) )
cdleme18d.d 𝐷 = ( ( 𝑇 𝑈 ) ( 𝑄 ( ( 𝑃 𝑇 ) 𝑊 ) ) )
cdleme18d.e 𝐸 = ( ( 𝑃 𝑄 ) ( 𝐷 ( ( 𝑅 𝑇 ) 𝑊 ) ) )
Assertion cdleme18d ( ( ( ( 𝐾 ∈ HL ∧ 𝑊𝐻 ) ∧ ( 𝑃𝐴 ∧ ¬ 𝑃 𝑊 ) ∧ ( 𝑄𝐴 ∧ ¬ 𝑄 𝑊 ) ) ∧ ( ( 𝑅𝐴 ∧ ¬ 𝑅 𝑊 ) ∧ ( 𝑆𝐴 ∧ ¬ 𝑆 𝑊 ) ∧ ( 𝑇𝐴 ∧ ¬ 𝑇 𝑊 ) ) ∧ ( 𝑃𝑄 ∧ ( 𝑅 ( 𝑃 𝑄 ) ∧ ¬ 𝑆 ( 𝑃 𝑄 ) ∧ ¬ 𝑇 ( 𝑃 𝑄 ) ) ∧ ¬ ∃ 𝑟𝐴 ( ¬ 𝑟 𝑊 ∧ ( 𝑃 𝑟 ) = ( 𝑄 𝑟 ) ) ) ) → 𝐺 = 𝐸 )

Proof

Step Hyp Ref Expression
1 cdleme18d.l = ( le ‘ 𝐾 )
2 cdleme18d.j = ( join ‘ 𝐾 )
3 cdleme18d.m = ( meet ‘ 𝐾 )
4 cdleme18d.a 𝐴 = ( Atoms ‘ 𝐾 )
5 cdleme18d.h 𝐻 = ( LHyp ‘ 𝐾 )
6 cdleme18d.u 𝑈 = ( ( 𝑃 𝑄 ) 𝑊 )
7 cdleme18d.f 𝐹 = ( ( 𝑆 𝑈 ) ( 𝑄 ( ( 𝑃 𝑆 ) 𝑊 ) ) )
8 cdleme18d.g 𝐺 = ( ( 𝑃 𝑄 ) ( 𝐹 ( ( 𝑅 𝑆 ) 𝑊 ) ) )
9 cdleme18d.d 𝐷 = ( ( 𝑇 𝑈 ) ( 𝑄 ( ( 𝑃 𝑇 ) 𝑊 ) ) )
10 cdleme18d.e 𝐸 = ( ( 𝑃 𝑄 ) ( 𝐷 ( ( 𝑅 𝑇 ) 𝑊 ) ) )
11 eleq1 ( 𝑅 = 𝑃 → ( 𝑅𝐴𝑃𝐴 ) )
12 breq1 ( 𝑅 = 𝑃 → ( 𝑅 𝑊𝑃 𝑊 ) )
13 12 notbid ( 𝑅 = 𝑃 → ( ¬ 𝑅 𝑊 ↔ ¬ 𝑃 𝑊 ) )
14 11 13 anbi12d ( 𝑅 = 𝑃 → ( ( 𝑅𝐴 ∧ ¬ 𝑅 𝑊 ) ↔ ( 𝑃𝐴 ∧ ¬ 𝑃 𝑊 ) ) )
15 14 3anbi1d ( 𝑅 = 𝑃 → ( ( ( 𝑅𝐴 ∧ ¬ 𝑅 𝑊 ) ∧ ( 𝑆𝐴 ∧ ¬ 𝑆 𝑊 ) ∧ ( 𝑇𝐴 ∧ ¬ 𝑇 𝑊 ) ) ↔ ( ( 𝑃𝐴 ∧ ¬ 𝑃 𝑊 ) ∧ ( 𝑆𝐴 ∧ ¬ 𝑆 𝑊 ) ∧ ( 𝑇𝐴 ∧ ¬ 𝑇 𝑊 ) ) ) )
16 15 3anbi2d ( 𝑅 = 𝑃 → ( ( ( ( 𝐾 ∈ HL ∧ 𝑊𝐻 ) ∧ ( 𝑃𝐴 ∧ ¬ 𝑃 𝑊 ) ∧ ( 𝑄𝐴 ∧ ¬ 𝑄 𝑊 ) ) ∧ ( ( 𝑅𝐴 ∧ ¬ 𝑅 𝑊 ) ∧ ( 𝑆𝐴 ∧ ¬ 𝑆 𝑊 ) ∧ ( 𝑇𝐴 ∧ ¬ 𝑇 𝑊 ) ) ∧ ( 𝑃𝑄 ∧ ( 𝑅 ( 𝑃 𝑄 ) ∧ ¬ 𝑆 ( 𝑃 𝑄 ) ∧ ¬ 𝑇 ( 𝑃 𝑄 ) ) ∧ ¬ ∃ 𝑟𝐴 ( ¬ 𝑟 𝑊 ∧ ( 𝑃 𝑟 ) = ( 𝑄 𝑟 ) ) ) ) ↔ ( ( ( 𝐾 ∈ HL ∧ 𝑊𝐻 ) ∧ ( 𝑃𝐴 ∧ ¬ 𝑃 𝑊 ) ∧ ( 𝑄𝐴 ∧ ¬ 𝑄 𝑊 ) ) ∧ ( ( 𝑃𝐴 ∧ ¬ 𝑃 𝑊 ) ∧ ( 𝑆𝐴 ∧ ¬ 𝑆 𝑊 ) ∧ ( 𝑇𝐴 ∧ ¬ 𝑇 𝑊 ) ) ∧ ( 𝑃𝑄 ∧ ( 𝑅 ( 𝑃 𝑄 ) ∧ ¬ 𝑆 ( 𝑃 𝑄 ) ∧ ¬ 𝑇 ( 𝑃 𝑄 ) ) ∧ ¬ ∃ 𝑟𝐴 ( ¬ 𝑟 𝑊 ∧ ( 𝑃 𝑟 ) = ( 𝑄 𝑟 ) ) ) ) ) )
17 simp11 ( ( ( ( 𝐾 ∈ HL ∧ 𝑊𝐻 ) ∧ ( 𝑃𝐴 ∧ ¬ 𝑃 𝑊 ) ∧ ( 𝑄𝐴 ∧ ¬ 𝑄 𝑊 ) ) ∧ ( ( 𝑃𝐴 ∧ ¬ 𝑃 𝑊 ) ∧ ( 𝑆𝐴 ∧ ¬ 𝑆 𝑊 ) ∧ ( 𝑇𝐴 ∧ ¬ 𝑇 𝑊 ) ) ∧ ( 𝑃𝑄 ∧ ( 𝑅 ( 𝑃 𝑄 ) ∧ ¬ 𝑆 ( 𝑃 𝑄 ) ∧ ¬ 𝑇 ( 𝑃 𝑄 ) ) ∧ ¬ ∃ 𝑟𝐴 ( ¬ 𝑟 𝑊 ∧ ( 𝑃 𝑟 ) = ( 𝑄 𝑟 ) ) ) ) → ( 𝐾 ∈ HL ∧ 𝑊𝐻 ) )
18 simp21 ( ( ( ( 𝐾 ∈ HL ∧ 𝑊𝐻 ) ∧ ( 𝑃𝐴 ∧ ¬ 𝑃 𝑊 ) ∧ ( 𝑄𝐴 ∧ ¬ 𝑄 𝑊 ) ) ∧ ( ( 𝑃𝐴 ∧ ¬ 𝑃 𝑊 ) ∧ ( 𝑆𝐴 ∧ ¬ 𝑆 𝑊 ) ∧ ( 𝑇𝐴 ∧ ¬ 𝑇 𝑊 ) ) ∧ ( 𝑃𝑄 ∧ ( 𝑅 ( 𝑃 𝑄 ) ∧ ¬ 𝑆 ( 𝑃 𝑄 ) ∧ ¬ 𝑇 ( 𝑃 𝑄 ) ) ∧ ¬ ∃ 𝑟𝐴 ( ¬ 𝑟 𝑊 ∧ ( 𝑃 𝑟 ) = ( 𝑄 𝑟 ) ) ) ) → ( 𝑃𝐴 ∧ ¬ 𝑃 𝑊 ) )
19 simp13l ( ( ( ( 𝐾 ∈ HL ∧ 𝑊𝐻 ) ∧ ( 𝑃𝐴 ∧ ¬ 𝑃 𝑊 ) ∧ ( 𝑄𝐴 ∧ ¬ 𝑄 𝑊 ) ) ∧ ( ( 𝑃𝐴 ∧ ¬ 𝑃 𝑊 ) ∧ ( 𝑆𝐴 ∧ ¬ 𝑆 𝑊 ) ∧ ( 𝑇𝐴 ∧ ¬ 𝑇 𝑊 ) ) ∧ ( 𝑃𝑄 ∧ ( 𝑅 ( 𝑃 𝑄 ) ∧ ¬ 𝑆 ( 𝑃 𝑄 ) ∧ ¬ 𝑇 ( 𝑃 𝑄 ) ) ∧ ¬ ∃ 𝑟𝐴 ( ¬ 𝑟 𝑊 ∧ ( 𝑃 𝑟 ) = ( 𝑄 𝑟 ) ) ) ) → 𝑄𝐴 )
20 simp22 ( ( ( ( 𝐾 ∈ HL ∧ 𝑊𝐻 ) ∧ ( 𝑃𝐴 ∧ ¬ 𝑃 𝑊 ) ∧ ( 𝑄𝐴 ∧ ¬ 𝑄 𝑊 ) ) ∧ ( ( 𝑃𝐴 ∧ ¬ 𝑃 𝑊 ) ∧ ( 𝑆𝐴 ∧ ¬ 𝑆 𝑊 ) ∧ ( 𝑇𝐴 ∧ ¬ 𝑇 𝑊 ) ) ∧ ( 𝑃𝑄 ∧ ( 𝑅 ( 𝑃 𝑄 ) ∧ ¬ 𝑆 ( 𝑃 𝑄 ) ∧ ¬ 𝑇 ( 𝑃 𝑄 ) ) ∧ ¬ ∃ 𝑟𝐴 ( ¬ 𝑟 𝑊 ∧ ( 𝑃 𝑟 ) = ( 𝑄 𝑟 ) ) ) ) → ( 𝑆𝐴 ∧ ¬ 𝑆 𝑊 ) )
21 simp322 ( ( ( ( 𝐾 ∈ HL ∧ 𝑊𝐻 ) ∧ ( 𝑃𝐴 ∧ ¬ 𝑃 𝑊 ) ∧ ( 𝑄𝐴 ∧ ¬ 𝑄 𝑊 ) ) ∧ ( ( 𝑃𝐴 ∧ ¬ 𝑃 𝑊 ) ∧ ( 𝑆𝐴 ∧ ¬ 𝑆 𝑊 ) ∧ ( 𝑇𝐴 ∧ ¬ 𝑇 𝑊 ) ) ∧ ( 𝑃𝑄 ∧ ( 𝑅 ( 𝑃 𝑄 ) ∧ ¬ 𝑆 ( 𝑃 𝑄 ) ∧ ¬ 𝑇 ( 𝑃 𝑄 ) ) ∧ ¬ ∃ 𝑟𝐴 ( ¬ 𝑟 𝑊 ∧ ( 𝑃 𝑟 ) = ( 𝑄 𝑟 ) ) ) ) → ¬ 𝑆 ( 𝑃 𝑄 ) )
22 eqid ( ( 𝑃 𝑄 ) ( 𝐹 ( ( 𝑃 𝑆 ) 𝑊 ) ) ) = ( ( 𝑃 𝑄 ) ( 𝐹 ( ( 𝑃 𝑆 ) 𝑊 ) ) )
23 1 2 3 4 5 6 7 22 cdleme17d1 ( ( ( 𝐾 ∈ HL ∧ 𝑊𝐻 ) ∧ ( ( 𝑃𝐴 ∧ ¬ 𝑃 𝑊 ) ∧ 𝑄𝐴 ∧ ( 𝑆𝐴 ∧ ¬ 𝑆 𝑊 ) ) ∧ ¬ 𝑆 ( 𝑃 𝑄 ) ) → ( ( 𝑃 𝑄 ) ( 𝐹 ( ( 𝑃 𝑆 ) 𝑊 ) ) ) = 𝑄 )
24 17 18 19 20 21 23 syl131anc ( ( ( ( 𝐾 ∈ HL ∧ 𝑊𝐻 ) ∧ ( 𝑃𝐴 ∧ ¬ 𝑃 𝑊 ) ∧ ( 𝑄𝐴 ∧ ¬ 𝑄 𝑊 ) ) ∧ ( ( 𝑃𝐴 ∧ ¬ 𝑃 𝑊 ) ∧ ( 𝑆𝐴 ∧ ¬ 𝑆 𝑊 ) ∧ ( 𝑇𝐴 ∧ ¬ 𝑇 𝑊 ) ) ∧ ( 𝑃𝑄 ∧ ( 𝑅 ( 𝑃 𝑄 ) ∧ ¬ 𝑆 ( 𝑃 𝑄 ) ∧ ¬ 𝑇 ( 𝑃 𝑄 ) ) ∧ ¬ ∃ 𝑟𝐴 ( ¬ 𝑟 𝑊 ∧ ( 𝑃 𝑟 ) = ( 𝑄 𝑟 ) ) ) ) → ( ( 𝑃 𝑄 ) ( 𝐹 ( ( 𝑃 𝑆 ) 𝑊 ) ) ) = 𝑄 )
25 simp23 ( ( ( ( 𝐾 ∈ HL ∧ 𝑊𝐻 ) ∧ ( 𝑃𝐴 ∧ ¬ 𝑃 𝑊 ) ∧ ( 𝑄𝐴 ∧ ¬ 𝑄 𝑊 ) ) ∧ ( ( 𝑃𝐴 ∧ ¬ 𝑃 𝑊 ) ∧ ( 𝑆𝐴 ∧ ¬ 𝑆 𝑊 ) ∧ ( 𝑇𝐴 ∧ ¬ 𝑇 𝑊 ) ) ∧ ( 𝑃𝑄 ∧ ( 𝑅 ( 𝑃 𝑄 ) ∧ ¬ 𝑆 ( 𝑃 𝑄 ) ∧ ¬ 𝑇 ( 𝑃 𝑄 ) ) ∧ ¬ ∃ 𝑟𝐴 ( ¬ 𝑟 𝑊 ∧ ( 𝑃 𝑟 ) = ( 𝑄 𝑟 ) ) ) ) → ( 𝑇𝐴 ∧ ¬ 𝑇 𝑊 ) )
26 simp323 ( ( ( ( 𝐾 ∈ HL ∧ 𝑊𝐻 ) ∧ ( 𝑃𝐴 ∧ ¬ 𝑃 𝑊 ) ∧ ( 𝑄𝐴 ∧ ¬ 𝑄 𝑊 ) ) ∧ ( ( 𝑃𝐴 ∧ ¬ 𝑃 𝑊 ) ∧ ( 𝑆𝐴 ∧ ¬ 𝑆 𝑊 ) ∧ ( 𝑇𝐴 ∧ ¬ 𝑇 𝑊 ) ) ∧ ( 𝑃𝑄 ∧ ( 𝑅 ( 𝑃 𝑄 ) ∧ ¬ 𝑆 ( 𝑃 𝑄 ) ∧ ¬ 𝑇 ( 𝑃 𝑄 ) ) ∧ ¬ ∃ 𝑟𝐴 ( ¬ 𝑟 𝑊 ∧ ( 𝑃 𝑟 ) = ( 𝑄 𝑟 ) ) ) ) → ¬ 𝑇 ( 𝑃 𝑄 ) )
27 eqid ( ( 𝑃 𝑄 ) ( 𝐷 ( ( 𝑃 𝑇 ) 𝑊 ) ) ) = ( ( 𝑃 𝑄 ) ( 𝐷 ( ( 𝑃 𝑇 ) 𝑊 ) ) )
28 1 2 3 4 5 6 9 27 cdleme17d1 ( ( ( 𝐾 ∈ HL ∧ 𝑊𝐻 ) ∧ ( ( 𝑃𝐴 ∧ ¬ 𝑃 𝑊 ) ∧ 𝑄𝐴 ∧ ( 𝑇𝐴 ∧ ¬ 𝑇 𝑊 ) ) ∧ ¬ 𝑇 ( 𝑃 𝑄 ) ) → ( ( 𝑃 𝑄 ) ( 𝐷 ( ( 𝑃 𝑇 ) 𝑊 ) ) ) = 𝑄 )
29 17 18 19 25 26 28 syl131anc ( ( ( ( 𝐾 ∈ HL ∧ 𝑊𝐻 ) ∧ ( 𝑃𝐴 ∧ ¬ 𝑃 𝑊 ) ∧ ( 𝑄𝐴 ∧ ¬ 𝑄 𝑊 ) ) ∧ ( ( 𝑃𝐴 ∧ ¬ 𝑃 𝑊 ) ∧ ( 𝑆𝐴 ∧ ¬ 𝑆 𝑊 ) ∧ ( 𝑇𝐴 ∧ ¬ 𝑇 𝑊 ) ) ∧ ( 𝑃𝑄 ∧ ( 𝑅 ( 𝑃 𝑄 ) ∧ ¬ 𝑆 ( 𝑃 𝑄 ) ∧ ¬ 𝑇 ( 𝑃 𝑄 ) ) ∧ ¬ ∃ 𝑟𝐴 ( ¬ 𝑟 𝑊 ∧ ( 𝑃 𝑟 ) = ( 𝑄 𝑟 ) ) ) ) → ( ( 𝑃 𝑄 ) ( 𝐷 ( ( 𝑃 𝑇 ) 𝑊 ) ) ) = 𝑄 )
30 24 29 eqtr4d ( ( ( ( 𝐾 ∈ HL ∧ 𝑊𝐻 ) ∧ ( 𝑃𝐴 ∧ ¬ 𝑃 𝑊 ) ∧ ( 𝑄𝐴 ∧ ¬ 𝑄 𝑊 ) ) ∧ ( ( 𝑃𝐴 ∧ ¬ 𝑃 𝑊 ) ∧ ( 𝑆𝐴 ∧ ¬ 𝑆 𝑊 ) ∧ ( 𝑇𝐴 ∧ ¬ 𝑇 𝑊 ) ) ∧ ( 𝑃𝑄 ∧ ( 𝑅 ( 𝑃 𝑄 ) ∧ ¬ 𝑆 ( 𝑃 𝑄 ) ∧ ¬ 𝑇 ( 𝑃 𝑄 ) ) ∧ ¬ ∃ 𝑟𝐴 ( ¬ 𝑟 𝑊 ∧ ( 𝑃 𝑟 ) = ( 𝑄 𝑟 ) ) ) ) → ( ( 𝑃 𝑄 ) ( 𝐹 ( ( 𝑃 𝑆 ) 𝑊 ) ) ) = ( ( 𝑃 𝑄 ) ( 𝐷 ( ( 𝑃 𝑇 ) 𝑊 ) ) ) )
31 16 30 syl6bi ( 𝑅 = 𝑃 → ( ( ( ( 𝐾 ∈ HL ∧ 𝑊𝐻 ) ∧ ( 𝑃𝐴 ∧ ¬ 𝑃 𝑊 ) ∧ ( 𝑄𝐴 ∧ ¬ 𝑄 𝑊 ) ) ∧ ( ( 𝑅𝐴 ∧ ¬ 𝑅 𝑊 ) ∧ ( 𝑆𝐴 ∧ ¬ 𝑆 𝑊 ) ∧ ( 𝑇𝐴 ∧ ¬ 𝑇 𝑊 ) ) ∧ ( 𝑃𝑄 ∧ ( 𝑅 ( 𝑃 𝑄 ) ∧ ¬ 𝑆 ( 𝑃 𝑄 ) ∧ ¬ 𝑇 ( 𝑃 𝑄 ) ) ∧ ¬ ∃ 𝑟𝐴 ( ¬ 𝑟 𝑊 ∧ ( 𝑃 𝑟 ) = ( 𝑄 𝑟 ) ) ) ) → ( ( 𝑃 𝑄 ) ( 𝐹 ( ( 𝑃 𝑆 ) 𝑊 ) ) ) = ( ( 𝑃 𝑄 ) ( 𝐷 ( ( 𝑃 𝑇 ) 𝑊 ) ) ) ) )
32 8 10 eqeq12i ( 𝐺 = 𝐸 ↔ ( ( 𝑃 𝑄 ) ( 𝐹 ( ( 𝑅 𝑆 ) 𝑊 ) ) ) = ( ( 𝑃 𝑄 ) ( 𝐷 ( ( 𝑅 𝑇 ) 𝑊 ) ) ) )
33 oveq1 ( 𝑅 = 𝑃 → ( 𝑅 𝑆 ) = ( 𝑃 𝑆 ) )
34 33 oveq1d ( 𝑅 = 𝑃 → ( ( 𝑅 𝑆 ) 𝑊 ) = ( ( 𝑃 𝑆 ) 𝑊 ) )
35 34 oveq2d ( 𝑅 = 𝑃 → ( 𝐹 ( ( 𝑅 𝑆 ) 𝑊 ) ) = ( 𝐹 ( ( 𝑃 𝑆 ) 𝑊 ) ) )
36 35 oveq2d ( 𝑅 = 𝑃 → ( ( 𝑃 𝑄 ) ( 𝐹 ( ( 𝑅 𝑆 ) 𝑊 ) ) ) = ( ( 𝑃 𝑄 ) ( 𝐹 ( ( 𝑃 𝑆 ) 𝑊 ) ) ) )
37 oveq1 ( 𝑅 = 𝑃 → ( 𝑅 𝑇 ) = ( 𝑃 𝑇 ) )
38 37 oveq1d ( 𝑅 = 𝑃 → ( ( 𝑅 𝑇 ) 𝑊 ) = ( ( 𝑃 𝑇 ) 𝑊 ) )
39 38 oveq2d ( 𝑅 = 𝑃 → ( 𝐷 ( ( 𝑅 𝑇 ) 𝑊 ) ) = ( 𝐷 ( ( 𝑃 𝑇 ) 𝑊 ) ) )
40 39 oveq2d ( 𝑅 = 𝑃 → ( ( 𝑃 𝑄 ) ( 𝐷 ( ( 𝑅 𝑇 ) 𝑊 ) ) ) = ( ( 𝑃 𝑄 ) ( 𝐷 ( ( 𝑃 𝑇 ) 𝑊 ) ) ) )
41 36 40 eqeq12d ( 𝑅 = 𝑃 → ( ( ( 𝑃 𝑄 ) ( 𝐹 ( ( 𝑅 𝑆 ) 𝑊 ) ) ) = ( ( 𝑃 𝑄 ) ( 𝐷 ( ( 𝑅 𝑇 ) 𝑊 ) ) ) ↔ ( ( 𝑃 𝑄 ) ( 𝐹 ( ( 𝑃 𝑆 ) 𝑊 ) ) ) = ( ( 𝑃 𝑄 ) ( 𝐷 ( ( 𝑃 𝑇 ) 𝑊 ) ) ) ) )
42 32 41 syl5bb ( 𝑅 = 𝑃 → ( 𝐺 = 𝐸 ↔ ( ( 𝑃 𝑄 ) ( 𝐹 ( ( 𝑃 𝑆 ) 𝑊 ) ) ) = ( ( 𝑃 𝑄 ) ( 𝐷 ( ( 𝑃 𝑇 ) 𝑊 ) ) ) ) )
43 31 42 sylibrd ( 𝑅 = 𝑃 → ( ( ( ( 𝐾 ∈ HL ∧ 𝑊𝐻 ) ∧ ( 𝑃𝐴 ∧ ¬ 𝑃 𝑊 ) ∧ ( 𝑄𝐴 ∧ ¬ 𝑄 𝑊 ) ) ∧ ( ( 𝑅𝐴 ∧ ¬ 𝑅 𝑊 ) ∧ ( 𝑆𝐴 ∧ ¬ 𝑆 𝑊 ) ∧ ( 𝑇𝐴 ∧ ¬ 𝑇 𝑊 ) ) ∧ ( 𝑃𝑄 ∧ ( 𝑅 ( 𝑃 𝑄 ) ∧ ¬ 𝑆 ( 𝑃 𝑄 ) ∧ ¬ 𝑇 ( 𝑃 𝑄 ) ) ∧ ¬ ∃ 𝑟𝐴 ( ¬ 𝑟 𝑊 ∧ ( 𝑃 𝑟 ) = ( 𝑄 𝑟 ) ) ) ) → 𝐺 = 𝐸 ) )
44 43 com12 ( ( ( ( 𝐾 ∈ HL ∧ 𝑊𝐻 ) ∧ ( 𝑃𝐴 ∧ ¬ 𝑃 𝑊 ) ∧ ( 𝑄𝐴 ∧ ¬ 𝑄 𝑊 ) ) ∧ ( ( 𝑅𝐴 ∧ ¬ 𝑅 𝑊 ) ∧ ( 𝑆𝐴 ∧ ¬ 𝑆 𝑊 ) ∧ ( 𝑇𝐴 ∧ ¬ 𝑇 𝑊 ) ) ∧ ( 𝑃𝑄 ∧ ( 𝑅 ( 𝑃 𝑄 ) ∧ ¬ 𝑆 ( 𝑃 𝑄 ) ∧ ¬ 𝑇 ( 𝑃 𝑄 ) ) ∧ ¬ ∃ 𝑟𝐴 ( ¬ 𝑟 𝑊 ∧ ( 𝑃 𝑟 ) = ( 𝑄 𝑟 ) ) ) ) → ( 𝑅 = 𝑃𝐺 = 𝐸 ) )
45 eleq1 ( 𝑅 = 𝑄 → ( 𝑅𝐴𝑄𝐴 ) )
46 breq1 ( 𝑅 = 𝑄 → ( 𝑅 𝑊𝑄 𝑊 ) )
47 46 notbid ( 𝑅 = 𝑄 → ( ¬ 𝑅 𝑊 ↔ ¬ 𝑄 𝑊 ) )
48 45 47 anbi12d ( 𝑅 = 𝑄 → ( ( 𝑅𝐴 ∧ ¬ 𝑅 𝑊 ) ↔ ( 𝑄𝐴 ∧ ¬ 𝑄 𝑊 ) ) )
49 48 3anbi1d ( 𝑅 = 𝑄 → ( ( ( 𝑅𝐴 ∧ ¬ 𝑅 𝑊 ) ∧ ( 𝑆𝐴 ∧ ¬ 𝑆 𝑊 ) ∧ ( 𝑇𝐴 ∧ ¬ 𝑇 𝑊 ) ) ↔ ( ( 𝑄𝐴 ∧ ¬ 𝑄 𝑊 ) ∧ ( 𝑆𝐴 ∧ ¬ 𝑆 𝑊 ) ∧ ( 𝑇𝐴 ∧ ¬ 𝑇 𝑊 ) ) ) )
50 breq1 ( 𝑅 = 𝑄 → ( 𝑅 ( 𝑃 𝑄 ) ↔ 𝑄 ( 𝑃 𝑄 ) ) )
51 50 3anbi1d ( 𝑅 = 𝑄 → ( ( 𝑅 ( 𝑃 𝑄 ) ∧ ¬ 𝑆 ( 𝑃 𝑄 ) ∧ ¬ 𝑇 ( 𝑃 𝑄 ) ) ↔ ( 𝑄 ( 𝑃 𝑄 ) ∧ ¬ 𝑆 ( 𝑃 𝑄 ) ∧ ¬ 𝑇 ( 𝑃 𝑄 ) ) ) )
52 51 3anbi2d ( 𝑅 = 𝑄 → ( ( 𝑃𝑄 ∧ ( 𝑅 ( 𝑃 𝑄 ) ∧ ¬ 𝑆 ( 𝑃 𝑄 ) ∧ ¬ 𝑇 ( 𝑃 𝑄 ) ) ∧ ¬ ∃ 𝑟𝐴 ( ¬ 𝑟 𝑊 ∧ ( 𝑃 𝑟 ) = ( 𝑄 𝑟 ) ) ) ↔ ( 𝑃𝑄 ∧ ( 𝑄 ( 𝑃 𝑄 ) ∧ ¬ 𝑆 ( 𝑃 𝑄 ) ∧ ¬ 𝑇 ( 𝑃 𝑄 ) ) ∧ ¬ ∃ 𝑟𝐴 ( ¬ 𝑟 𝑊 ∧ ( 𝑃 𝑟 ) = ( 𝑄 𝑟 ) ) ) ) )
53 49 52 3anbi23d ( 𝑅 = 𝑄 → ( ( ( ( 𝐾 ∈ HL ∧ 𝑊𝐻 ) ∧ ( 𝑃𝐴 ∧ ¬ 𝑃 𝑊 ) ∧ ( 𝑄𝐴 ∧ ¬ 𝑄 𝑊 ) ) ∧ ( ( 𝑅𝐴 ∧ ¬ 𝑅 𝑊 ) ∧ ( 𝑆𝐴 ∧ ¬ 𝑆 𝑊 ) ∧ ( 𝑇𝐴 ∧ ¬ 𝑇 𝑊 ) ) ∧ ( 𝑃𝑄 ∧ ( 𝑅 ( 𝑃 𝑄 ) ∧ ¬ 𝑆 ( 𝑃 𝑄 ) ∧ ¬ 𝑇 ( 𝑃 𝑄 ) ) ∧ ¬ ∃ 𝑟𝐴 ( ¬ 𝑟 𝑊 ∧ ( 𝑃 𝑟 ) = ( 𝑄 𝑟 ) ) ) ) ↔ ( ( ( 𝐾 ∈ HL ∧ 𝑊𝐻 ) ∧ ( 𝑃𝐴 ∧ ¬ 𝑃 𝑊 ) ∧ ( 𝑄𝐴 ∧ ¬ 𝑄 𝑊 ) ) ∧ ( ( 𝑄𝐴 ∧ ¬ 𝑄 𝑊 ) ∧ ( 𝑆𝐴 ∧ ¬ 𝑆 𝑊 ) ∧ ( 𝑇𝐴 ∧ ¬ 𝑇 𝑊 ) ) ∧ ( 𝑃𝑄 ∧ ( 𝑄 ( 𝑃 𝑄 ) ∧ ¬ 𝑆 ( 𝑃 𝑄 ) ∧ ¬ 𝑇 ( 𝑃 𝑄 ) ) ∧ ¬ ∃ 𝑟𝐴 ( ¬ 𝑟 𝑊 ∧ ( 𝑃 𝑟 ) = ( 𝑄 𝑟 ) ) ) ) ) )
54 simp11l ( ( ( ( 𝐾 ∈ HL ∧ 𝑊𝐻 ) ∧ ( 𝑃𝐴 ∧ ¬ 𝑃 𝑊 ) ∧ ( 𝑄𝐴 ∧ ¬ 𝑄 𝑊 ) ) ∧ ( ( 𝑄𝐴 ∧ ¬ 𝑄 𝑊 ) ∧ ( 𝑆𝐴 ∧ ¬ 𝑆 𝑊 ) ∧ ( 𝑇𝐴 ∧ ¬ 𝑇 𝑊 ) ) ∧ ( 𝑃𝑄 ∧ ( 𝑄 ( 𝑃 𝑄 ) ∧ ¬ 𝑆 ( 𝑃 𝑄 ) ∧ ¬ 𝑇 ( 𝑃 𝑄 ) ) ∧ ¬ ∃ 𝑟𝐴 ( ¬ 𝑟 𝑊 ∧ ( 𝑃 𝑟 ) = ( 𝑄 𝑟 ) ) ) ) → 𝐾 ∈ HL )
55 simp11r ( ( ( ( 𝐾 ∈ HL ∧ 𝑊𝐻 ) ∧ ( 𝑃𝐴 ∧ ¬ 𝑃 𝑊 ) ∧ ( 𝑄𝐴 ∧ ¬ 𝑄 𝑊 ) ) ∧ ( ( 𝑄𝐴 ∧ ¬ 𝑄 𝑊 ) ∧ ( 𝑆𝐴 ∧ ¬ 𝑆 𝑊 ) ∧ ( 𝑇𝐴 ∧ ¬ 𝑇 𝑊 ) ) ∧ ( 𝑃𝑄 ∧ ( 𝑄 ( 𝑃 𝑄 ) ∧ ¬ 𝑆 ( 𝑃 𝑄 ) ∧ ¬ 𝑇 ( 𝑃 𝑄 ) ) ∧ ¬ ∃ 𝑟𝐴 ( ¬ 𝑟 𝑊 ∧ ( 𝑃 𝑟 ) = ( 𝑄 𝑟 ) ) ) ) → 𝑊𝐻 )
56 simp12 ( ( ( ( 𝐾 ∈ HL ∧ 𝑊𝐻 ) ∧ ( 𝑃𝐴 ∧ ¬ 𝑃 𝑊 ) ∧ ( 𝑄𝐴 ∧ ¬ 𝑄 𝑊 ) ) ∧ ( ( 𝑄𝐴 ∧ ¬ 𝑄 𝑊 ) ∧ ( 𝑆𝐴 ∧ ¬ 𝑆 𝑊 ) ∧ ( 𝑇𝐴 ∧ ¬ 𝑇 𝑊 ) ) ∧ ( 𝑃𝑄 ∧ ( 𝑄 ( 𝑃 𝑄 ) ∧ ¬ 𝑆 ( 𝑃 𝑄 ) ∧ ¬ 𝑇 ( 𝑃 𝑄 ) ) ∧ ¬ ∃ 𝑟𝐴 ( ¬ 𝑟 𝑊 ∧ ( 𝑃 𝑟 ) = ( 𝑄 𝑟 ) ) ) ) → ( 𝑃𝐴 ∧ ¬ 𝑃 𝑊 ) )
57 simp21 ( ( ( ( 𝐾 ∈ HL ∧ 𝑊𝐻 ) ∧ ( 𝑃𝐴 ∧ ¬ 𝑃 𝑊 ) ∧ ( 𝑄𝐴 ∧ ¬ 𝑄 𝑊 ) ) ∧ ( ( 𝑄𝐴 ∧ ¬ 𝑄 𝑊 ) ∧ ( 𝑆𝐴 ∧ ¬ 𝑆 𝑊 ) ∧ ( 𝑇𝐴 ∧ ¬ 𝑇 𝑊 ) ) ∧ ( 𝑃𝑄 ∧ ( 𝑄 ( 𝑃 𝑄 ) ∧ ¬ 𝑆 ( 𝑃 𝑄 ) ∧ ¬ 𝑇 ( 𝑃 𝑄 ) ) ∧ ¬ ∃ 𝑟𝐴 ( ¬ 𝑟 𝑊 ∧ ( 𝑃 𝑟 ) = ( 𝑄 𝑟 ) ) ) ) → ( 𝑄𝐴 ∧ ¬ 𝑄 𝑊 ) )
58 simp22 ( ( ( ( 𝐾 ∈ HL ∧ 𝑊𝐻 ) ∧ ( 𝑃𝐴 ∧ ¬ 𝑃 𝑊 ) ∧ ( 𝑄𝐴 ∧ ¬ 𝑄 𝑊 ) ) ∧ ( ( 𝑄𝐴 ∧ ¬ 𝑄 𝑊 ) ∧ ( 𝑆𝐴 ∧ ¬ 𝑆 𝑊 ) ∧ ( 𝑇𝐴 ∧ ¬ 𝑇 𝑊 ) ) ∧ ( 𝑃𝑄 ∧ ( 𝑄 ( 𝑃 𝑄 ) ∧ ¬ 𝑆 ( 𝑃 𝑄 ) ∧ ¬ 𝑇 ( 𝑃 𝑄 ) ) ∧ ¬ ∃ 𝑟𝐴 ( ¬ 𝑟 𝑊 ∧ ( 𝑃 𝑟 ) = ( 𝑄 𝑟 ) ) ) ) → ( 𝑆𝐴 ∧ ¬ 𝑆 𝑊 ) )
59 simp31 ( ( ( ( 𝐾 ∈ HL ∧ 𝑊𝐻 ) ∧ ( 𝑃𝐴 ∧ ¬ 𝑃 𝑊 ) ∧ ( 𝑄𝐴 ∧ ¬ 𝑄 𝑊 ) ) ∧ ( ( 𝑄𝐴 ∧ ¬ 𝑄 𝑊 ) ∧ ( 𝑆𝐴 ∧ ¬ 𝑆 𝑊 ) ∧ ( 𝑇𝐴 ∧ ¬ 𝑇 𝑊 ) ) ∧ ( 𝑃𝑄 ∧ ( 𝑄 ( 𝑃 𝑄 ) ∧ ¬ 𝑆 ( 𝑃 𝑄 ) ∧ ¬ 𝑇 ( 𝑃 𝑄 ) ) ∧ ¬ ∃ 𝑟𝐴 ( ¬ 𝑟 𝑊 ∧ ( 𝑃 𝑟 ) = ( 𝑄 𝑟 ) ) ) ) → 𝑃𝑄 )
60 simp322 ( ( ( ( 𝐾 ∈ HL ∧ 𝑊𝐻 ) ∧ ( 𝑃𝐴 ∧ ¬ 𝑃 𝑊 ) ∧ ( 𝑄𝐴 ∧ ¬ 𝑄 𝑊 ) ) ∧ ( ( 𝑄𝐴 ∧ ¬ 𝑄 𝑊 ) ∧ ( 𝑆𝐴 ∧ ¬ 𝑆 𝑊 ) ∧ ( 𝑇𝐴 ∧ ¬ 𝑇 𝑊 ) ) ∧ ( 𝑃𝑄 ∧ ( 𝑄 ( 𝑃 𝑄 ) ∧ ¬ 𝑆 ( 𝑃 𝑄 ) ∧ ¬ 𝑇 ( 𝑃 𝑄 ) ) ∧ ¬ ∃ 𝑟𝐴 ( ¬ 𝑟 𝑊 ∧ ( 𝑃 𝑟 ) = ( 𝑄 𝑟 ) ) ) ) → ¬ 𝑆 ( 𝑃 𝑄 ) )
61 simp33 ( ( ( ( 𝐾 ∈ HL ∧ 𝑊𝐻 ) ∧ ( 𝑃𝐴 ∧ ¬ 𝑃 𝑊 ) ∧ ( 𝑄𝐴 ∧ ¬ 𝑄 𝑊 ) ) ∧ ( ( 𝑄𝐴 ∧ ¬ 𝑄 𝑊 ) ∧ ( 𝑆𝐴 ∧ ¬ 𝑆 𝑊 ) ∧ ( 𝑇𝐴 ∧ ¬ 𝑇 𝑊 ) ) ∧ ( 𝑃𝑄 ∧ ( 𝑄 ( 𝑃 𝑄 ) ∧ ¬ 𝑆 ( 𝑃 𝑄 ) ∧ ¬ 𝑇 ( 𝑃 𝑄 ) ) ∧ ¬ ∃ 𝑟𝐴 ( ¬ 𝑟 𝑊 ∧ ( 𝑃 𝑟 ) = ( 𝑄 𝑟 ) ) ) ) → ¬ ∃ 𝑟𝐴 ( ¬ 𝑟 𝑊 ∧ ( 𝑃 𝑟 ) = ( 𝑄 𝑟 ) ) )
62 eqid ( ( 𝑃 𝑄 ) ( 𝐹 ( ( 𝑄 𝑆 ) 𝑊 ) ) ) = ( ( 𝑃 𝑄 ) ( 𝐹 ( ( 𝑄 𝑆 ) 𝑊 ) ) )
63 1 2 3 4 5 6 7 62 cdleme18c ( ( ( 𝐾 ∈ HL ∧ 𝑊𝐻 ) ∧ ( ( 𝑃𝐴 ∧ ¬ 𝑃 𝑊 ) ∧ ( 𝑄𝐴 ∧ ¬ 𝑄 𝑊 ) ∧ ( 𝑆𝐴 ∧ ¬ 𝑆 𝑊 ) ) ∧ ( 𝑃𝑄 ∧ ¬ 𝑆 ( 𝑃 𝑄 ) ∧ ¬ ∃ 𝑟𝐴 ( ¬ 𝑟 𝑊 ∧ ( 𝑃 𝑟 ) = ( 𝑄 𝑟 ) ) ) ) → ( ( 𝑃 𝑄 ) ( 𝐹 ( ( 𝑄 𝑆 ) 𝑊 ) ) ) = 𝑃 )
64 54 55 56 57 58 59 60 61 63 syl233anc ( ( ( ( 𝐾 ∈ HL ∧ 𝑊𝐻 ) ∧ ( 𝑃𝐴 ∧ ¬ 𝑃 𝑊 ) ∧ ( 𝑄𝐴 ∧ ¬ 𝑄 𝑊 ) ) ∧ ( ( 𝑄𝐴 ∧ ¬ 𝑄 𝑊 ) ∧ ( 𝑆𝐴 ∧ ¬ 𝑆 𝑊 ) ∧ ( 𝑇𝐴 ∧ ¬ 𝑇 𝑊 ) ) ∧ ( 𝑃𝑄 ∧ ( 𝑄 ( 𝑃 𝑄 ) ∧ ¬ 𝑆 ( 𝑃 𝑄 ) ∧ ¬ 𝑇 ( 𝑃 𝑄 ) ) ∧ ¬ ∃ 𝑟𝐴 ( ¬ 𝑟 𝑊 ∧ ( 𝑃 𝑟 ) = ( 𝑄 𝑟 ) ) ) ) → ( ( 𝑃 𝑄 ) ( 𝐹 ( ( 𝑄 𝑆 ) 𝑊 ) ) ) = 𝑃 )
65 simp23 ( ( ( ( 𝐾 ∈ HL ∧ 𝑊𝐻 ) ∧ ( 𝑃𝐴 ∧ ¬ 𝑃 𝑊 ) ∧ ( 𝑄𝐴 ∧ ¬ 𝑄 𝑊 ) ) ∧ ( ( 𝑄𝐴 ∧ ¬ 𝑄 𝑊 ) ∧ ( 𝑆𝐴 ∧ ¬ 𝑆 𝑊 ) ∧ ( 𝑇𝐴 ∧ ¬ 𝑇 𝑊 ) ) ∧ ( 𝑃𝑄 ∧ ( 𝑄 ( 𝑃 𝑄 ) ∧ ¬ 𝑆 ( 𝑃 𝑄 ) ∧ ¬ 𝑇 ( 𝑃 𝑄 ) ) ∧ ¬ ∃ 𝑟𝐴 ( ¬ 𝑟 𝑊 ∧ ( 𝑃 𝑟 ) = ( 𝑄 𝑟 ) ) ) ) → ( 𝑇𝐴 ∧ ¬ 𝑇 𝑊 ) )
66 simp323 ( ( ( ( 𝐾 ∈ HL ∧ 𝑊𝐻 ) ∧ ( 𝑃𝐴 ∧ ¬ 𝑃 𝑊 ) ∧ ( 𝑄𝐴 ∧ ¬ 𝑄 𝑊 ) ) ∧ ( ( 𝑄𝐴 ∧ ¬ 𝑄 𝑊 ) ∧ ( 𝑆𝐴 ∧ ¬ 𝑆 𝑊 ) ∧ ( 𝑇𝐴 ∧ ¬ 𝑇 𝑊 ) ) ∧ ( 𝑃𝑄 ∧ ( 𝑄 ( 𝑃 𝑄 ) ∧ ¬ 𝑆 ( 𝑃 𝑄 ) ∧ ¬ 𝑇 ( 𝑃 𝑄 ) ) ∧ ¬ ∃ 𝑟𝐴 ( ¬ 𝑟 𝑊 ∧ ( 𝑃 𝑟 ) = ( 𝑄 𝑟 ) ) ) ) → ¬ 𝑇 ( 𝑃 𝑄 ) )
67 eqid ( ( 𝑃 𝑄 ) ( 𝐷 ( ( 𝑄 𝑇 ) 𝑊 ) ) ) = ( ( 𝑃 𝑄 ) ( 𝐷 ( ( 𝑄 𝑇 ) 𝑊 ) ) )
68 1 2 3 4 5 6 9 67 cdleme18c ( ( ( 𝐾 ∈ HL ∧ 𝑊𝐻 ) ∧ ( ( 𝑃𝐴 ∧ ¬ 𝑃 𝑊 ) ∧ ( 𝑄𝐴 ∧ ¬ 𝑄 𝑊 ) ∧ ( 𝑇𝐴 ∧ ¬ 𝑇 𝑊 ) ) ∧ ( 𝑃𝑄 ∧ ¬ 𝑇 ( 𝑃 𝑄 ) ∧ ¬ ∃ 𝑟𝐴 ( ¬ 𝑟 𝑊 ∧ ( 𝑃 𝑟 ) = ( 𝑄 𝑟 ) ) ) ) → ( ( 𝑃 𝑄 ) ( 𝐷 ( ( 𝑄 𝑇 ) 𝑊 ) ) ) = 𝑃 )
69 54 55 56 57 65 59 66 61 68 syl233anc ( ( ( ( 𝐾 ∈ HL ∧ 𝑊𝐻 ) ∧ ( 𝑃𝐴 ∧ ¬ 𝑃 𝑊 ) ∧ ( 𝑄𝐴 ∧ ¬ 𝑄 𝑊 ) ) ∧ ( ( 𝑄𝐴 ∧ ¬ 𝑄 𝑊 ) ∧ ( 𝑆𝐴 ∧ ¬ 𝑆 𝑊 ) ∧ ( 𝑇𝐴 ∧ ¬ 𝑇 𝑊 ) ) ∧ ( 𝑃𝑄 ∧ ( 𝑄 ( 𝑃 𝑄 ) ∧ ¬ 𝑆 ( 𝑃 𝑄 ) ∧ ¬ 𝑇 ( 𝑃 𝑄 ) ) ∧ ¬ ∃ 𝑟𝐴 ( ¬ 𝑟 𝑊 ∧ ( 𝑃 𝑟 ) = ( 𝑄 𝑟 ) ) ) ) → ( ( 𝑃 𝑄 ) ( 𝐷 ( ( 𝑄 𝑇 ) 𝑊 ) ) ) = 𝑃 )
70 64 69 eqtr4d ( ( ( ( 𝐾 ∈ HL ∧ 𝑊𝐻 ) ∧ ( 𝑃𝐴 ∧ ¬ 𝑃 𝑊 ) ∧ ( 𝑄𝐴 ∧ ¬ 𝑄 𝑊 ) ) ∧ ( ( 𝑄𝐴 ∧ ¬ 𝑄 𝑊 ) ∧ ( 𝑆𝐴 ∧ ¬ 𝑆 𝑊 ) ∧ ( 𝑇𝐴 ∧ ¬ 𝑇 𝑊 ) ) ∧ ( 𝑃𝑄 ∧ ( 𝑄 ( 𝑃 𝑄 ) ∧ ¬ 𝑆 ( 𝑃 𝑄 ) ∧ ¬ 𝑇 ( 𝑃 𝑄 ) ) ∧ ¬ ∃ 𝑟𝐴 ( ¬ 𝑟 𝑊 ∧ ( 𝑃 𝑟 ) = ( 𝑄 𝑟 ) ) ) ) → ( ( 𝑃 𝑄 ) ( 𝐹 ( ( 𝑄 𝑆 ) 𝑊 ) ) ) = ( ( 𝑃 𝑄 ) ( 𝐷 ( ( 𝑄 𝑇 ) 𝑊 ) ) ) )
71 53 70 syl6bi ( 𝑅 = 𝑄 → ( ( ( ( 𝐾 ∈ HL ∧ 𝑊𝐻 ) ∧ ( 𝑃𝐴 ∧ ¬ 𝑃 𝑊 ) ∧ ( 𝑄𝐴 ∧ ¬ 𝑄 𝑊 ) ) ∧ ( ( 𝑅𝐴 ∧ ¬ 𝑅 𝑊 ) ∧ ( 𝑆𝐴 ∧ ¬ 𝑆 𝑊 ) ∧ ( 𝑇𝐴 ∧ ¬ 𝑇 𝑊 ) ) ∧ ( 𝑃𝑄 ∧ ( 𝑅 ( 𝑃 𝑄 ) ∧ ¬ 𝑆 ( 𝑃 𝑄 ) ∧ ¬ 𝑇 ( 𝑃 𝑄 ) ) ∧ ¬ ∃ 𝑟𝐴 ( ¬ 𝑟 𝑊 ∧ ( 𝑃 𝑟 ) = ( 𝑄 𝑟 ) ) ) ) → ( ( 𝑃 𝑄 ) ( 𝐹 ( ( 𝑄 𝑆 ) 𝑊 ) ) ) = ( ( 𝑃 𝑄 ) ( 𝐷 ( ( 𝑄 𝑇 ) 𝑊 ) ) ) ) )
72 oveq1 ( 𝑅 = 𝑄 → ( 𝑅 𝑆 ) = ( 𝑄 𝑆 ) )
73 72 oveq1d ( 𝑅 = 𝑄 → ( ( 𝑅 𝑆 ) 𝑊 ) = ( ( 𝑄 𝑆 ) 𝑊 ) )
74 73 oveq2d ( 𝑅 = 𝑄 → ( 𝐹 ( ( 𝑅 𝑆 ) 𝑊 ) ) = ( 𝐹 ( ( 𝑄 𝑆 ) 𝑊 ) ) )
75 74 oveq2d ( 𝑅 = 𝑄 → ( ( 𝑃 𝑄 ) ( 𝐹 ( ( 𝑅 𝑆 ) 𝑊 ) ) ) = ( ( 𝑃 𝑄 ) ( 𝐹 ( ( 𝑄 𝑆 ) 𝑊 ) ) ) )
76 oveq1 ( 𝑅 = 𝑄 → ( 𝑅 𝑇 ) = ( 𝑄 𝑇 ) )
77 76 oveq1d ( 𝑅 = 𝑄 → ( ( 𝑅 𝑇 ) 𝑊 ) = ( ( 𝑄 𝑇 ) 𝑊 ) )
78 77 oveq2d ( 𝑅 = 𝑄 → ( 𝐷 ( ( 𝑅 𝑇 ) 𝑊 ) ) = ( 𝐷 ( ( 𝑄 𝑇 ) 𝑊 ) ) )
79 78 oveq2d ( 𝑅 = 𝑄 → ( ( 𝑃 𝑄 ) ( 𝐷 ( ( 𝑅 𝑇 ) 𝑊 ) ) ) = ( ( 𝑃 𝑄 ) ( 𝐷 ( ( 𝑄 𝑇 ) 𝑊 ) ) ) )
80 75 79 eqeq12d ( 𝑅 = 𝑄 → ( ( ( 𝑃 𝑄 ) ( 𝐹 ( ( 𝑅 𝑆 ) 𝑊 ) ) ) = ( ( 𝑃 𝑄 ) ( 𝐷 ( ( 𝑅 𝑇 ) 𝑊 ) ) ) ↔ ( ( 𝑃 𝑄 ) ( 𝐹 ( ( 𝑄 𝑆 ) 𝑊 ) ) ) = ( ( 𝑃 𝑄 ) ( 𝐷 ( ( 𝑄 𝑇 ) 𝑊 ) ) ) ) )
81 32 80 syl5bb ( 𝑅 = 𝑄 → ( 𝐺 = 𝐸 ↔ ( ( 𝑃 𝑄 ) ( 𝐹 ( ( 𝑄 𝑆 ) 𝑊 ) ) ) = ( ( 𝑃 𝑄 ) ( 𝐷 ( ( 𝑄 𝑇 ) 𝑊 ) ) ) ) )
82 71 81 sylibrd ( 𝑅 = 𝑄 → ( ( ( ( 𝐾 ∈ HL ∧ 𝑊𝐻 ) ∧ ( 𝑃𝐴 ∧ ¬ 𝑃 𝑊 ) ∧ ( 𝑄𝐴 ∧ ¬ 𝑄 𝑊 ) ) ∧ ( ( 𝑅𝐴 ∧ ¬ 𝑅 𝑊 ) ∧ ( 𝑆𝐴 ∧ ¬ 𝑆 𝑊 ) ∧ ( 𝑇𝐴 ∧ ¬ 𝑇 𝑊 ) ) ∧ ( 𝑃𝑄 ∧ ( 𝑅 ( 𝑃 𝑄 ) ∧ ¬ 𝑆 ( 𝑃 𝑄 ) ∧ ¬ 𝑇 ( 𝑃 𝑄 ) ) ∧ ¬ ∃ 𝑟𝐴 ( ¬ 𝑟 𝑊 ∧ ( 𝑃 𝑟 ) = ( 𝑄 𝑟 ) ) ) ) → 𝐺 = 𝐸 ) )
83 82 com12 ( ( ( ( 𝐾 ∈ HL ∧ 𝑊𝐻 ) ∧ ( 𝑃𝐴 ∧ ¬ 𝑃 𝑊 ) ∧ ( 𝑄𝐴 ∧ ¬ 𝑄 𝑊 ) ) ∧ ( ( 𝑅𝐴 ∧ ¬ 𝑅 𝑊 ) ∧ ( 𝑆𝐴 ∧ ¬ 𝑆 𝑊 ) ∧ ( 𝑇𝐴 ∧ ¬ 𝑇 𝑊 ) ) ∧ ( 𝑃𝑄 ∧ ( 𝑅 ( 𝑃 𝑄 ) ∧ ¬ 𝑆 ( 𝑃 𝑄 ) ∧ ¬ 𝑇 ( 𝑃 𝑄 ) ) ∧ ¬ ∃ 𝑟𝐴 ( ¬ 𝑟 𝑊 ∧ ( 𝑃 𝑟 ) = ( 𝑄 𝑟 ) ) ) ) → ( 𝑅 = 𝑄𝐺 = 𝐸 ) )
84 simp11l ( ( ( ( 𝐾 ∈ HL ∧ 𝑊𝐻 ) ∧ ( 𝑃𝐴 ∧ ¬ 𝑃 𝑊 ) ∧ ( 𝑄𝐴 ∧ ¬ 𝑄 𝑊 ) ) ∧ ( ( 𝑅𝐴 ∧ ¬ 𝑅 𝑊 ) ∧ ( 𝑆𝐴 ∧ ¬ 𝑆 𝑊 ) ∧ ( 𝑇𝐴 ∧ ¬ 𝑇 𝑊 ) ) ∧ ( 𝑃𝑄 ∧ ( 𝑅 ( 𝑃 𝑄 ) ∧ ¬ 𝑆 ( 𝑃 𝑄 ) ∧ ¬ 𝑇 ( 𝑃 𝑄 ) ) ∧ ¬ ∃ 𝑟𝐴 ( ¬ 𝑟 𝑊 ∧ ( 𝑃 𝑟 ) = ( 𝑄 𝑟 ) ) ) ) → 𝐾 ∈ HL )
85 simp321 ( ( ( ( 𝐾 ∈ HL ∧ 𝑊𝐻 ) ∧ ( 𝑃𝐴 ∧ ¬ 𝑃 𝑊 ) ∧ ( 𝑄𝐴 ∧ ¬ 𝑄 𝑊 ) ) ∧ ( ( 𝑅𝐴 ∧ ¬ 𝑅 𝑊 ) ∧ ( 𝑆𝐴 ∧ ¬ 𝑆 𝑊 ) ∧ ( 𝑇𝐴 ∧ ¬ 𝑇 𝑊 ) ) ∧ ( 𝑃𝑄 ∧ ( 𝑅 ( 𝑃 𝑄 ) ∧ ¬ 𝑆 ( 𝑃 𝑄 ) ∧ ¬ 𝑇 ( 𝑃 𝑄 ) ) ∧ ¬ ∃ 𝑟𝐴 ( ¬ 𝑟 𝑊 ∧ ( 𝑃 𝑟 ) = ( 𝑄 𝑟 ) ) ) ) → 𝑅 ( 𝑃 𝑄 ) )
86 simp33 ( ( ( ( 𝐾 ∈ HL ∧ 𝑊𝐻 ) ∧ ( 𝑃𝐴 ∧ ¬ 𝑃 𝑊 ) ∧ ( 𝑄𝐴 ∧ ¬ 𝑄 𝑊 ) ) ∧ ( ( 𝑅𝐴 ∧ ¬ 𝑅 𝑊 ) ∧ ( 𝑆𝐴 ∧ ¬ 𝑆 𝑊 ) ∧ ( 𝑇𝐴 ∧ ¬ 𝑇 𝑊 ) ) ∧ ( 𝑃𝑄 ∧ ( 𝑅 ( 𝑃 𝑄 ) ∧ ¬ 𝑆 ( 𝑃 𝑄 ) ∧ ¬ 𝑇 ( 𝑃 𝑄 ) ) ∧ ¬ ∃ 𝑟𝐴 ( ¬ 𝑟 𝑊 ∧ ( 𝑃 𝑟 ) = ( 𝑄 𝑟 ) ) ) ) → ¬ ∃ 𝑟𝐴 ( ¬ 𝑟 𝑊 ∧ ( 𝑃 𝑟 ) = ( 𝑄 𝑟 ) ) )
87 simp12l ( ( ( ( 𝐾 ∈ HL ∧ 𝑊𝐻 ) ∧ ( 𝑃𝐴 ∧ ¬ 𝑃 𝑊 ) ∧ ( 𝑄𝐴 ∧ ¬ 𝑄 𝑊 ) ) ∧ ( ( 𝑅𝐴 ∧ ¬ 𝑅 𝑊 ) ∧ ( 𝑆𝐴 ∧ ¬ 𝑆 𝑊 ) ∧ ( 𝑇𝐴 ∧ ¬ 𝑇 𝑊 ) ) ∧ ( 𝑃𝑄 ∧ ( 𝑅 ( 𝑃 𝑄 ) ∧ ¬ 𝑆 ( 𝑃 𝑄 ) ∧ ¬ 𝑇 ( 𝑃 𝑄 ) ) ∧ ¬ ∃ 𝑟𝐴 ( ¬ 𝑟 𝑊 ∧ ( 𝑃 𝑟 ) = ( 𝑄 𝑟 ) ) ) ) → 𝑃𝐴 )
88 simp13l ( ( ( ( 𝐾 ∈ HL ∧ 𝑊𝐻 ) ∧ ( 𝑃𝐴 ∧ ¬ 𝑃 𝑊 ) ∧ ( 𝑄𝐴 ∧ ¬ 𝑄 𝑊 ) ) ∧ ( ( 𝑅𝐴 ∧ ¬ 𝑅 𝑊 ) ∧ ( 𝑆𝐴 ∧ ¬ 𝑆 𝑊 ) ∧ ( 𝑇𝐴 ∧ ¬ 𝑇 𝑊 ) ) ∧ ( 𝑃𝑄 ∧ ( 𝑅 ( 𝑃 𝑄 ) ∧ ¬ 𝑆 ( 𝑃 𝑄 ) ∧ ¬ 𝑇 ( 𝑃 𝑄 ) ) ∧ ¬ ∃ 𝑟𝐴 ( ¬ 𝑟 𝑊 ∧ ( 𝑃 𝑟 ) = ( 𝑄 𝑟 ) ) ) ) → 𝑄𝐴 )
89 simp31 ( ( ( ( 𝐾 ∈ HL ∧ 𝑊𝐻 ) ∧ ( 𝑃𝐴 ∧ ¬ 𝑃 𝑊 ) ∧ ( 𝑄𝐴 ∧ ¬ 𝑄 𝑊 ) ) ∧ ( ( 𝑅𝐴 ∧ ¬ 𝑅 𝑊 ) ∧ ( 𝑆𝐴 ∧ ¬ 𝑆 𝑊 ) ∧ ( 𝑇𝐴 ∧ ¬ 𝑇 𝑊 ) ) ∧ ( 𝑃𝑄 ∧ ( 𝑅 ( 𝑃 𝑄 ) ∧ ¬ 𝑆 ( 𝑃 𝑄 ) ∧ ¬ 𝑇 ( 𝑃 𝑄 ) ) ∧ ¬ ∃ 𝑟𝐴 ( ¬ 𝑟 𝑊 ∧ ( 𝑃 𝑟 ) = ( 𝑄 𝑟 ) ) ) ) → 𝑃𝑄 )
90 simp21l ( ( ( ( 𝐾 ∈ HL ∧ 𝑊𝐻 ) ∧ ( 𝑃𝐴 ∧ ¬ 𝑃 𝑊 ) ∧ ( 𝑄𝐴 ∧ ¬ 𝑄 𝑊 ) ) ∧ ( ( 𝑅𝐴 ∧ ¬ 𝑅 𝑊 ) ∧ ( 𝑆𝐴 ∧ ¬ 𝑆 𝑊 ) ∧ ( 𝑇𝐴 ∧ ¬ 𝑇 𝑊 ) ) ∧ ( 𝑃𝑄 ∧ ( 𝑅 ( 𝑃 𝑄 ) ∧ ¬ 𝑆 ( 𝑃 𝑄 ) ∧ ¬ 𝑇 ( 𝑃 𝑄 ) ) ∧ ¬ ∃ 𝑟𝐴 ( ¬ 𝑟 𝑊 ∧ ( 𝑃 𝑟 ) = ( 𝑄 𝑟 ) ) ) ) → 𝑅𝐴 )
91 simp21r ( ( ( ( 𝐾 ∈ HL ∧ 𝑊𝐻 ) ∧ ( 𝑃𝐴 ∧ ¬ 𝑃 𝑊 ) ∧ ( 𝑄𝐴 ∧ ¬ 𝑄 𝑊 ) ) ∧ ( ( 𝑅𝐴 ∧ ¬ 𝑅 𝑊 ) ∧ ( 𝑆𝐴 ∧ ¬ 𝑆 𝑊 ) ∧ ( 𝑇𝐴 ∧ ¬ 𝑇 𝑊 ) ) ∧ ( 𝑃𝑄 ∧ ( 𝑅 ( 𝑃 𝑄 ) ∧ ¬ 𝑆 ( 𝑃 𝑄 ) ∧ ¬ 𝑇 ( 𝑃 𝑄 ) ) ∧ ¬ ∃ 𝑟𝐴 ( ¬ 𝑟 𝑊 ∧ ( 𝑃 𝑟 ) = ( 𝑄 𝑟 ) ) ) ) → ¬ 𝑅 𝑊 )
92 1 2 4 cdleme0nex ( ( ( 𝐾 ∈ HL ∧ 𝑅 ( 𝑃 𝑄 ) ∧ ¬ ∃ 𝑟𝐴 ( ¬ 𝑟 𝑊 ∧ ( 𝑃 𝑟 ) = ( 𝑄 𝑟 ) ) ) ∧ ( 𝑃𝐴𝑄𝐴𝑃𝑄 ) ∧ ( 𝑅𝐴 ∧ ¬ 𝑅 𝑊 ) ) → ( 𝑅 = 𝑃𝑅 = 𝑄 ) )
93 84 85 86 87 88 89 90 91 92 syl332anc ( ( ( ( 𝐾 ∈ HL ∧ 𝑊𝐻 ) ∧ ( 𝑃𝐴 ∧ ¬ 𝑃 𝑊 ) ∧ ( 𝑄𝐴 ∧ ¬ 𝑄 𝑊 ) ) ∧ ( ( 𝑅𝐴 ∧ ¬ 𝑅 𝑊 ) ∧ ( 𝑆𝐴 ∧ ¬ 𝑆 𝑊 ) ∧ ( 𝑇𝐴 ∧ ¬ 𝑇 𝑊 ) ) ∧ ( 𝑃𝑄 ∧ ( 𝑅 ( 𝑃 𝑄 ) ∧ ¬ 𝑆 ( 𝑃 𝑄 ) ∧ ¬ 𝑇 ( 𝑃 𝑄 ) ) ∧ ¬ ∃ 𝑟𝐴 ( ¬ 𝑟 𝑊 ∧ ( 𝑃 𝑟 ) = ( 𝑄 𝑟 ) ) ) ) → ( 𝑅 = 𝑃𝑅 = 𝑄 ) )
94 44 83 93 mpjaod ( ( ( ( 𝐾 ∈ HL ∧ 𝑊𝐻 ) ∧ ( 𝑃𝐴 ∧ ¬ 𝑃 𝑊 ) ∧ ( 𝑄𝐴 ∧ ¬ 𝑄 𝑊 ) ) ∧ ( ( 𝑅𝐴 ∧ ¬ 𝑅 𝑊 ) ∧ ( 𝑆𝐴 ∧ ¬ 𝑆 𝑊 ) ∧ ( 𝑇𝐴 ∧ ¬ 𝑇 𝑊 ) ) ∧ ( 𝑃𝑄 ∧ ( 𝑅 ( 𝑃 𝑄 ) ∧ ¬ 𝑆 ( 𝑃 𝑄 ) ∧ ¬ 𝑇 ( 𝑃 𝑄 ) ) ∧ ¬ ∃ 𝑟𝐴 ( ¬ 𝑟 𝑊 ∧ ( 𝑃 𝑟 ) = ( 𝑄 𝑟 ) ) ) ) → 𝐺 = 𝐸 )