Users' Mathboxes Mathbox for Norm Megill < Previous   Next >
Nearby theorems
Mirrors  >  Home  >  MPE Home  >  Th. List  >   Mathboxes  >  cvratlem Structured version   Visualization version   GIF version

Theorem cvratlem 38280
Description: Lemma for cvrat 38281. (atcvatlem 31625 analog.) (Contributed by NM, 22-Nov-2011.)
Hypotheses
Ref Expression
cvrat.b 𝐡 = (Baseβ€˜πΎ)
cvrat.s < = (ltβ€˜πΎ)
cvrat.j ∨ = (joinβ€˜πΎ)
cvrat.z 0 = (0.β€˜πΎ)
cvrat.a 𝐴 = (Atomsβ€˜πΎ)
Assertion
Ref Expression
cvratlem (((𝐾 ∈ HL ∧ (𝑋 ∈ 𝐡 ∧ 𝑃 ∈ 𝐴 ∧ 𝑄 ∈ 𝐴)) ∧ (𝑋 β‰  0 ∧ 𝑋 < (𝑃 ∨ 𝑄))) β†’ (Β¬ 𝑃(leβ€˜πΎ)𝑋 β†’ 𝑋 ∈ 𝐴))

Proof of Theorem cvratlem
Dummy variable π‘Ÿ is distinct from all other variables.
StepHypRef Expression
1 hlatl 38218 . . . . 5 (𝐾 ∈ HL β†’ 𝐾 ∈ AtLat)
21adantr 481 . . . 4 ((𝐾 ∈ HL ∧ (𝑋 ∈ 𝐡 ∧ 𝑃 ∈ 𝐴 ∧ 𝑄 ∈ 𝐴)) β†’ 𝐾 ∈ AtLat)
3 simpr1 1194 . . . 4 ((𝐾 ∈ HL ∧ (𝑋 ∈ 𝐡 ∧ 𝑃 ∈ 𝐴 ∧ 𝑄 ∈ 𝐴)) β†’ 𝑋 ∈ 𝐡)
4 cvrat.b . . . . . 6 𝐡 = (Baseβ€˜πΎ)
5 eqid 2732 . . . . . 6 (leβ€˜πΎ) = (leβ€˜πΎ)
6 cvrat.z . . . . . 6 0 = (0.β€˜πΎ)
7 cvrat.a . . . . . 6 𝐴 = (Atomsβ€˜πΎ)
84, 5, 6, 7atlex 38174 . . . . 5 ((𝐾 ∈ AtLat ∧ 𝑋 ∈ 𝐡 ∧ 𝑋 β‰  0 ) β†’ βˆƒπ‘Ÿ ∈ 𝐴 π‘Ÿ(leβ€˜πΎ)𝑋)
983expia 1121 . . . 4 ((𝐾 ∈ AtLat ∧ 𝑋 ∈ 𝐡) β†’ (𝑋 β‰  0 β†’ βˆƒπ‘Ÿ ∈ 𝐴 π‘Ÿ(leβ€˜πΎ)𝑋))
102, 3, 9syl2anc 584 . . 3 ((𝐾 ∈ HL ∧ (𝑋 ∈ 𝐡 ∧ 𝑃 ∈ 𝐴 ∧ 𝑄 ∈ 𝐴)) β†’ (𝑋 β‰  0 β†’ βˆƒπ‘Ÿ ∈ 𝐴 π‘Ÿ(leβ€˜πΎ)𝑋))
1113ad2ant1 1133 . . . . . . . . . . . . . . . . 17 ((𝐾 ∈ HL ∧ (𝑋 ∈ 𝐡 ∧ 𝑃 ∈ 𝐴 ∧ 𝑄 ∈ 𝐴) ∧ π‘Ÿ ∈ 𝐴) β†’ 𝐾 ∈ AtLat)
12 simp22 1207 . . . . . . . . . . . . . . . . 17 ((𝐾 ∈ HL ∧ (𝑋 ∈ 𝐡 ∧ 𝑃 ∈ 𝐴 ∧ 𝑄 ∈ 𝐴) ∧ π‘Ÿ ∈ 𝐴) β†’ 𝑃 ∈ 𝐴)
13 simp3 1138 . . . . . . . . . . . . . . . . 17 ((𝐾 ∈ HL ∧ (𝑋 ∈ 𝐡 ∧ 𝑃 ∈ 𝐴 ∧ 𝑄 ∈ 𝐴) ∧ π‘Ÿ ∈ 𝐴) β†’ π‘Ÿ ∈ 𝐴)
145, 7atcmp 38169 . . . . . . . . . . . . . . . . 17 ((𝐾 ∈ AtLat ∧ 𝑃 ∈ 𝐴 ∧ π‘Ÿ ∈ 𝐴) β†’ (𝑃(leβ€˜πΎ)π‘Ÿ ↔ 𝑃 = π‘Ÿ))
1511, 12, 13, 14syl3anc 1371 . . . . . . . . . . . . . . . 16 ((𝐾 ∈ HL ∧ (𝑋 ∈ 𝐡 ∧ 𝑃 ∈ 𝐴 ∧ 𝑄 ∈ 𝐴) ∧ π‘Ÿ ∈ 𝐴) β†’ (𝑃(leβ€˜πΎ)π‘Ÿ ↔ 𝑃 = π‘Ÿ))
16 breq1 5150 . . . . . . . . . . . . . . . . 17 (𝑃 = π‘Ÿ β†’ (𝑃(leβ€˜πΎ)𝑋 ↔ π‘Ÿ(leβ€˜πΎ)𝑋))
1716biimprd 247 . . . . . . . . . . . . . . . 16 (𝑃 = π‘Ÿ β†’ (π‘Ÿ(leβ€˜πΎ)𝑋 β†’ 𝑃(leβ€˜πΎ)𝑋))
1815, 17syl6bi 252 . . . . . . . . . . . . . . 15 ((𝐾 ∈ HL ∧ (𝑋 ∈ 𝐡 ∧ 𝑃 ∈ 𝐴 ∧ 𝑄 ∈ 𝐴) ∧ π‘Ÿ ∈ 𝐴) β†’ (𝑃(leβ€˜πΎ)π‘Ÿ β†’ (π‘Ÿ(leβ€˜πΎ)𝑋 β†’ 𝑃(leβ€˜πΎ)𝑋)))
1918com23 86 . . . . . . . . . . . . . 14 ((𝐾 ∈ HL ∧ (𝑋 ∈ 𝐡 ∧ 𝑃 ∈ 𝐴 ∧ 𝑄 ∈ 𝐴) ∧ π‘Ÿ ∈ 𝐴) β†’ (π‘Ÿ(leβ€˜πΎ)𝑋 β†’ (𝑃(leβ€˜πΎ)π‘Ÿ β†’ 𝑃(leβ€˜πΎ)𝑋)))
20 con3 153 . . . . . . . . . . . . . 14 ((𝑃(leβ€˜πΎ)π‘Ÿ β†’ 𝑃(leβ€˜πΎ)𝑋) β†’ (Β¬ 𝑃(leβ€˜πΎ)𝑋 β†’ Β¬ 𝑃(leβ€˜πΎ)π‘Ÿ))
2119, 20syl6 35 . . . . . . . . . . . . 13 ((𝐾 ∈ HL ∧ (𝑋 ∈ 𝐡 ∧ 𝑃 ∈ 𝐴 ∧ 𝑄 ∈ 𝐴) ∧ π‘Ÿ ∈ 𝐴) β†’ (π‘Ÿ(leβ€˜πΎ)𝑋 β†’ (Β¬ 𝑃(leβ€˜πΎ)𝑋 β†’ Β¬ 𝑃(leβ€˜πΎ)π‘Ÿ)))
2221impd 411 . . . . . . . . . . . 12 ((𝐾 ∈ HL ∧ (𝑋 ∈ 𝐡 ∧ 𝑃 ∈ 𝐴 ∧ 𝑄 ∈ 𝐴) ∧ π‘Ÿ ∈ 𝐴) β†’ ((π‘Ÿ(leβ€˜πΎ)𝑋 ∧ Β¬ 𝑃(leβ€˜πΎ)𝑋) β†’ Β¬ 𝑃(leβ€˜πΎ)π‘Ÿ))
23 simp1 1136 . . . . . . . . . . . . 13 ((𝐾 ∈ HL ∧ (𝑋 ∈ 𝐡 ∧ 𝑃 ∈ 𝐴 ∧ 𝑄 ∈ 𝐴) ∧ π‘Ÿ ∈ 𝐴) β†’ 𝐾 ∈ HL)
244, 7atbase 38147 . . . . . . . . . . . . . 14 (π‘Ÿ ∈ 𝐴 β†’ π‘Ÿ ∈ 𝐡)
25243ad2ant3 1135 . . . . . . . . . . . . 13 ((𝐾 ∈ HL ∧ (𝑋 ∈ 𝐡 ∧ 𝑃 ∈ 𝐴 ∧ 𝑄 ∈ 𝐴) ∧ π‘Ÿ ∈ 𝐴) β†’ π‘Ÿ ∈ 𝐡)
26 cvrat.j . . . . . . . . . . . . . 14 ∨ = (joinβ€˜πΎ)
27 eqid 2732 . . . . . . . . . . . . . 14 ( β‹– β€˜πΎ) = ( β‹– β€˜πΎ)
284, 5, 26, 27, 7cvr1 38269 . . . . . . . . . . . . 13 ((𝐾 ∈ HL ∧ π‘Ÿ ∈ 𝐡 ∧ 𝑃 ∈ 𝐴) β†’ (Β¬ 𝑃(leβ€˜πΎ)π‘Ÿ ↔ π‘Ÿ( β‹– β€˜πΎ)(π‘Ÿ ∨ 𝑃)))
2923, 25, 12, 28syl3anc 1371 . . . . . . . . . . . 12 ((𝐾 ∈ HL ∧ (𝑋 ∈ 𝐡 ∧ 𝑃 ∈ 𝐴 ∧ 𝑄 ∈ 𝐴) ∧ π‘Ÿ ∈ 𝐴) β†’ (Β¬ 𝑃(leβ€˜πΎ)π‘Ÿ ↔ π‘Ÿ( β‹– β€˜πΎ)(π‘Ÿ ∨ 𝑃)))
3022, 29sylibd 238 . . . . . . . . . . 11 ((𝐾 ∈ HL ∧ (𝑋 ∈ 𝐡 ∧ 𝑃 ∈ 𝐴 ∧ 𝑄 ∈ 𝐴) ∧ π‘Ÿ ∈ 𝐴) β†’ ((π‘Ÿ(leβ€˜πΎ)𝑋 ∧ Β¬ 𝑃(leβ€˜πΎ)𝑋) β†’ π‘Ÿ( β‹– β€˜πΎ)(π‘Ÿ ∨ 𝑃)))
3130imp 407 . . . . . . . . . 10 (((𝐾 ∈ HL ∧ (𝑋 ∈ 𝐡 ∧ 𝑃 ∈ 𝐴 ∧ 𝑄 ∈ 𝐴) ∧ π‘Ÿ ∈ 𝐴) ∧ (π‘Ÿ(leβ€˜πΎ)𝑋 ∧ Β¬ 𝑃(leβ€˜πΎ)𝑋)) β†’ π‘Ÿ( β‹– β€˜πΎ)(π‘Ÿ ∨ 𝑃))
32 hllat 38221 . . . . . . . . . . . . 13 (𝐾 ∈ HL β†’ 𝐾 ∈ Lat)
33323ad2ant1 1133 . . . . . . . . . . . 12 ((𝐾 ∈ HL ∧ (𝑋 ∈ 𝐡 ∧ 𝑃 ∈ 𝐴 ∧ 𝑄 ∈ 𝐴) ∧ π‘Ÿ ∈ 𝐴) β†’ 𝐾 ∈ Lat)
344, 7atbase 38147 . . . . . . . . . . . . 13 (𝑃 ∈ 𝐴 β†’ 𝑃 ∈ 𝐡)
3512, 34syl 17 . . . . . . . . . . . 12 ((𝐾 ∈ HL ∧ (𝑋 ∈ 𝐡 ∧ 𝑃 ∈ 𝐴 ∧ 𝑄 ∈ 𝐴) ∧ π‘Ÿ ∈ 𝐴) β†’ 𝑃 ∈ 𝐡)
364, 26latjcom 18396 . . . . . . . . . . . 12 ((𝐾 ∈ Lat ∧ 𝑃 ∈ 𝐡 ∧ π‘Ÿ ∈ 𝐡) β†’ (𝑃 ∨ π‘Ÿ) = (π‘Ÿ ∨ 𝑃))
3733, 35, 25, 36syl3anc 1371 . . . . . . . . . . 11 ((𝐾 ∈ HL ∧ (𝑋 ∈ 𝐡 ∧ 𝑃 ∈ 𝐴 ∧ 𝑄 ∈ 𝐴) ∧ π‘Ÿ ∈ 𝐴) β†’ (𝑃 ∨ π‘Ÿ) = (π‘Ÿ ∨ 𝑃))
3837adantr 481 . . . . . . . . . 10 (((𝐾 ∈ HL ∧ (𝑋 ∈ 𝐡 ∧ 𝑃 ∈ 𝐴 ∧ 𝑄 ∈ 𝐴) ∧ π‘Ÿ ∈ 𝐴) ∧ (π‘Ÿ(leβ€˜πΎ)𝑋 ∧ Β¬ 𝑃(leβ€˜πΎ)𝑋)) β†’ (𝑃 ∨ π‘Ÿ) = (π‘Ÿ ∨ 𝑃))
3931, 38breqtrrd 5175 . . . . . . . . 9 (((𝐾 ∈ HL ∧ (𝑋 ∈ 𝐡 ∧ 𝑃 ∈ 𝐴 ∧ 𝑄 ∈ 𝐴) ∧ π‘Ÿ ∈ 𝐴) ∧ (π‘Ÿ(leβ€˜πΎ)𝑋 ∧ Β¬ 𝑃(leβ€˜πΎ)𝑋)) β†’ π‘Ÿ( β‹– β€˜πΎ)(𝑃 ∨ π‘Ÿ))
4039adantrrl 722 . . . . . . . 8 (((𝐾 ∈ HL ∧ (𝑋 ∈ 𝐡 ∧ 𝑃 ∈ 𝐴 ∧ 𝑄 ∈ 𝐴) ∧ π‘Ÿ ∈ 𝐴) ∧ (π‘Ÿ(leβ€˜πΎ)𝑋 ∧ (𝑋 < (𝑃 ∨ 𝑄) ∧ Β¬ 𝑃(leβ€˜πΎ)𝑋))) β†’ π‘Ÿ( β‹– β€˜πΎ)(𝑃 ∨ π‘Ÿ))
415, 26, 7hlatlej1 38233 . . . . . . . . . . . . 13 ((𝐾 ∈ HL ∧ 𝑃 ∈ 𝐴 ∧ π‘Ÿ ∈ 𝐴) β†’ 𝑃(leβ€˜πΎ)(𝑃 ∨ π‘Ÿ))
4223, 12, 13, 41syl3anc 1371 . . . . . . . . . . . 12 ((𝐾 ∈ HL ∧ (𝑋 ∈ 𝐡 ∧ 𝑃 ∈ 𝐴 ∧ 𝑄 ∈ 𝐴) ∧ π‘Ÿ ∈ 𝐴) β†’ 𝑃(leβ€˜πΎ)(𝑃 ∨ π‘Ÿ))
4342adantr 481 . . . . . . . . . . 11 (((𝐾 ∈ HL ∧ (𝑋 ∈ 𝐡 ∧ 𝑃 ∈ 𝐴 ∧ 𝑄 ∈ 𝐴) ∧ π‘Ÿ ∈ 𝐴) ∧ (π‘Ÿ(leβ€˜πΎ)𝑋 ∧ (𝑋 < (𝑃 ∨ 𝑄) ∧ Β¬ 𝑃(leβ€˜πΎ)𝑋))) β†’ 𝑃(leβ€˜πΎ)(𝑃 ∨ π‘Ÿ))
445, 7atcmp 38169 . . . . . . . . . . . . . . . . . 18 ((𝐾 ∈ AtLat ∧ π‘Ÿ ∈ 𝐴 ∧ 𝑃 ∈ 𝐴) β†’ (π‘Ÿ(leβ€˜πΎ)𝑃 ↔ π‘Ÿ = 𝑃))
4511, 13, 12, 44syl3anc 1371 . . . . . . . . . . . . . . . . 17 ((𝐾 ∈ HL ∧ (𝑋 ∈ 𝐡 ∧ 𝑃 ∈ 𝐴 ∧ 𝑄 ∈ 𝐴) ∧ π‘Ÿ ∈ 𝐴) β†’ (π‘Ÿ(leβ€˜πΎ)𝑃 ↔ π‘Ÿ = 𝑃))
46 breq1 5150 . . . . . . . . . . . . . . . . . 18 (π‘Ÿ = 𝑃 β†’ (π‘Ÿ(leβ€˜πΎ)𝑋 ↔ 𝑃(leβ€˜πΎ)𝑋))
4746biimpd 228 . . . . . . . . . . . . . . . . 17 (π‘Ÿ = 𝑃 β†’ (π‘Ÿ(leβ€˜πΎ)𝑋 β†’ 𝑃(leβ€˜πΎ)𝑋))
4845, 47syl6bi 252 . . . . . . . . . . . . . . . 16 ((𝐾 ∈ HL ∧ (𝑋 ∈ 𝐡 ∧ 𝑃 ∈ 𝐴 ∧ 𝑄 ∈ 𝐴) ∧ π‘Ÿ ∈ 𝐴) β†’ (π‘Ÿ(leβ€˜πΎ)𝑃 β†’ (π‘Ÿ(leβ€˜πΎ)𝑋 β†’ 𝑃(leβ€˜πΎ)𝑋)))
4948com23 86 . . . . . . . . . . . . . . 15 ((𝐾 ∈ HL ∧ (𝑋 ∈ 𝐡 ∧ 𝑃 ∈ 𝐴 ∧ 𝑄 ∈ 𝐴) ∧ π‘Ÿ ∈ 𝐴) β†’ (π‘Ÿ(leβ€˜πΎ)𝑋 β†’ (π‘Ÿ(leβ€˜πΎ)𝑃 β†’ 𝑃(leβ€˜πΎ)𝑋)))
50 con3 153 . . . . . . . . . . . . . . 15 ((π‘Ÿ(leβ€˜πΎ)𝑃 β†’ 𝑃(leβ€˜πΎ)𝑋) β†’ (Β¬ 𝑃(leβ€˜πΎ)𝑋 β†’ Β¬ π‘Ÿ(leβ€˜πΎ)𝑃))
5149, 50syl6 35 . . . . . . . . . . . . . 14 ((𝐾 ∈ HL ∧ (𝑋 ∈ 𝐡 ∧ 𝑃 ∈ 𝐴 ∧ 𝑄 ∈ 𝐴) ∧ π‘Ÿ ∈ 𝐴) β†’ (π‘Ÿ(leβ€˜πΎ)𝑋 β†’ (Β¬ 𝑃(leβ€˜πΎ)𝑋 β†’ Β¬ π‘Ÿ(leβ€˜πΎ)𝑃)))
5251imp32 419 . . . . . . . . . . . . 13 (((𝐾 ∈ HL ∧ (𝑋 ∈ 𝐡 ∧ 𝑃 ∈ 𝐴 ∧ 𝑄 ∈ 𝐴) ∧ π‘Ÿ ∈ 𝐴) ∧ (π‘Ÿ(leβ€˜πΎ)𝑋 ∧ Β¬ 𝑃(leβ€˜πΎ)𝑋)) β†’ Β¬ π‘Ÿ(leβ€˜πΎ)𝑃)
5352adantrrl 722 . . . . . . . . . . . 12 (((𝐾 ∈ HL ∧ (𝑋 ∈ 𝐡 ∧ 𝑃 ∈ 𝐴 ∧ 𝑄 ∈ 𝐴) ∧ π‘Ÿ ∈ 𝐴) ∧ (π‘Ÿ(leβ€˜πΎ)𝑋 ∧ (𝑋 < (𝑃 ∨ 𝑄) ∧ Β¬ 𝑃(leβ€˜πΎ)𝑋))) β†’ Β¬ π‘Ÿ(leβ€˜πΎ)𝑃)
54 simprl 769 . . . . . . . . . . . . . 14 (((𝐾 ∈ HL ∧ (𝑋 ∈ 𝐡 ∧ 𝑃 ∈ 𝐴 ∧ 𝑄 ∈ 𝐴) ∧ π‘Ÿ ∈ 𝐴) ∧ (π‘Ÿ(leβ€˜πΎ)𝑋 ∧ 𝑋 < (𝑃 ∨ 𝑄))) β†’ π‘Ÿ(leβ€˜πΎ)𝑋)
55 simp21 1206 . . . . . . . . . . . . . . . . 17 ((𝐾 ∈ HL ∧ (𝑋 ∈ 𝐡 ∧ 𝑃 ∈ 𝐴 ∧ 𝑄 ∈ 𝐴) ∧ π‘Ÿ ∈ 𝐴) β†’ 𝑋 ∈ 𝐡)
56 simp23 1208 . . . . . . . . . . . . . . . . . . 19 ((𝐾 ∈ HL ∧ (𝑋 ∈ 𝐡 ∧ 𝑃 ∈ 𝐴 ∧ 𝑄 ∈ 𝐴) ∧ π‘Ÿ ∈ 𝐴) β†’ 𝑄 ∈ 𝐴)
574, 7atbase 38147 . . . . . . . . . . . . . . . . . . 19 (𝑄 ∈ 𝐴 β†’ 𝑄 ∈ 𝐡)
5856, 57syl 17 . . . . . . . . . . . . . . . . . 18 ((𝐾 ∈ HL ∧ (𝑋 ∈ 𝐡 ∧ 𝑃 ∈ 𝐴 ∧ 𝑄 ∈ 𝐴) ∧ π‘Ÿ ∈ 𝐴) β†’ 𝑄 ∈ 𝐡)
594, 26latjcl 18388 . . . . . . . . . . . . . . . . . 18 ((𝐾 ∈ Lat ∧ 𝑃 ∈ 𝐡 ∧ 𝑄 ∈ 𝐡) β†’ (𝑃 ∨ 𝑄) ∈ 𝐡)
6033, 35, 58, 59syl3anc 1371 . . . . . . . . . . . . . . . . 17 ((𝐾 ∈ HL ∧ (𝑋 ∈ 𝐡 ∧ 𝑃 ∈ 𝐴 ∧ 𝑄 ∈ 𝐴) ∧ π‘Ÿ ∈ 𝐴) β†’ (𝑃 ∨ 𝑄) ∈ 𝐡)
6123, 55, 603jca 1128 . . . . . . . . . . . . . . . 16 ((𝐾 ∈ HL ∧ (𝑋 ∈ 𝐡 ∧ 𝑃 ∈ 𝐴 ∧ 𝑄 ∈ 𝐴) ∧ π‘Ÿ ∈ 𝐴) β†’ (𝐾 ∈ HL ∧ 𝑋 ∈ 𝐡 ∧ (𝑃 ∨ 𝑄) ∈ 𝐡))
62 cvrat.s . . . . . . . . . . . . . . . . . 18 < = (ltβ€˜πΎ)
635, 62pltle 18282 . . . . . . . . . . . . . . . . 17 ((𝐾 ∈ HL ∧ 𝑋 ∈ 𝐡 ∧ (𝑃 ∨ 𝑄) ∈ 𝐡) β†’ (𝑋 < (𝑃 ∨ 𝑄) β†’ 𝑋(leβ€˜πΎ)(𝑃 ∨ 𝑄)))
6463imp 407 . . . . . . . . . . . . . . . 16 (((𝐾 ∈ HL ∧ 𝑋 ∈ 𝐡 ∧ (𝑃 ∨ 𝑄) ∈ 𝐡) ∧ 𝑋 < (𝑃 ∨ 𝑄)) β†’ 𝑋(leβ€˜πΎ)(𝑃 ∨ 𝑄))
6561, 64sylan 580 . . . . . . . . . . . . . . 15 (((𝐾 ∈ HL ∧ (𝑋 ∈ 𝐡 ∧ 𝑃 ∈ 𝐴 ∧ 𝑄 ∈ 𝐴) ∧ π‘Ÿ ∈ 𝐴) ∧ 𝑋 < (𝑃 ∨ 𝑄)) β†’ 𝑋(leβ€˜πΎ)(𝑃 ∨ 𝑄))
6665adantrl 714 . . . . . . . . . . . . . 14 (((𝐾 ∈ HL ∧ (𝑋 ∈ 𝐡 ∧ 𝑃 ∈ 𝐴 ∧ 𝑄 ∈ 𝐴) ∧ π‘Ÿ ∈ 𝐴) ∧ (π‘Ÿ(leβ€˜πΎ)𝑋 ∧ 𝑋 < (𝑃 ∨ 𝑄))) β†’ 𝑋(leβ€˜πΎ)(𝑃 ∨ 𝑄))
67 hlpos 38224 . . . . . . . . . . . . . . . . 17 (𝐾 ∈ HL β†’ 𝐾 ∈ Poset)
68673ad2ant1 1133 . . . . . . . . . . . . . . . 16 ((𝐾 ∈ HL ∧ (𝑋 ∈ 𝐡 ∧ 𝑃 ∈ 𝐴 ∧ 𝑄 ∈ 𝐴) ∧ π‘Ÿ ∈ 𝐴) β†’ 𝐾 ∈ Poset)
694, 5postr 18269 . . . . . . . . . . . . . . . 16 ((𝐾 ∈ Poset ∧ (π‘Ÿ ∈ 𝐡 ∧ 𝑋 ∈ 𝐡 ∧ (𝑃 ∨ 𝑄) ∈ 𝐡)) β†’ ((π‘Ÿ(leβ€˜πΎ)𝑋 ∧ 𝑋(leβ€˜πΎ)(𝑃 ∨ 𝑄)) β†’ π‘Ÿ(leβ€˜πΎ)(𝑃 ∨ 𝑄)))
7068, 25, 55, 60, 69syl13anc 1372 . . . . . . . . . . . . . . 15 ((𝐾 ∈ HL ∧ (𝑋 ∈ 𝐡 ∧ 𝑃 ∈ 𝐴 ∧ 𝑄 ∈ 𝐴) ∧ π‘Ÿ ∈ 𝐴) β†’ ((π‘Ÿ(leβ€˜πΎ)𝑋 ∧ 𝑋(leβ€˜πΎ)(𝑃 ∨ 𝑄)) β†’ π‘Ÿ(leβ€˜πΎ)(𝑃 ∨ 𝑄)))
7170adantr 481 . . . . . . . . . . . . . 14 (((𝐾 ∈ HL ∧ (𝑋 ∈ 𝐡 ∧ 𝑃 ∈ 𝐴 ∧ 𝑄 ∈ 𝐴) ∧ π‘Ÿ ∈ 𝐴) ∧ (π‘Ÿ(leβ€˜πΎ)𝑋 ∧ 𝑋 < (𝑃 ∨ 𝑄))) β†’ ((π‘Ÿ(leβ€˜πΎ)𝑋 ∧ 𝑋(leβ€˜πΎ)(𝑃 ∨ 𝑄)) β†’ π‘Ÿ(leβ€˜πΎ)(𝑃 ∨ 𝑄)))
7254, 66, 71mp2and 697 . . . . . . . . . . . . 13 (((𝐾 ∈ HL ∧ (𝑋 ∈ 𝐡 ∧ 𝑃 ∈ 𝐴 ∧ 𝑄 ∈ 𝐴) ∧ π‘Ÿ ∈ 𝐴) ∧ (π‘Ÿ(leβ€˜πΎ)𝑋 ∧ 𝑋 < (𝑃 ∨ 𝑄))) β†’ π‘Ÿ(leβ€˜πΎ)(𝑃 ∨ 𝑄))
7372adantrrr 723 . . . . . . . . . . . 12 (((𝐾 ∈ HL ∧ (𝑋 ∈ 𝐡 ∧ 𝑃 ∈ 𝐴 ∧ 𝑄 ∈ 𝐴) ∧ π‘Ÿ ∈ 𝐴) ∧ (π‘Ÿ(leβ€˜πΎ)𝑋 ∧ (𝑋 < (𝑃 ∨ 𝑄) ∧ Β¬ 𝑃(leβ€˜πΎ)𝑋))) β†’ π‘Ÿ(leβ€˜πΎ)(𝑃 ∨ 𝑄))
744, 5, 26, 7hlexch1 38241 . . . . . . . . . . . . . . . 16 ((𝐾 ∈ HL ∧ (π‘Ÿ ∈ 𝐴 ∧ 𝑄 ∈ 𝐴 ∧ 𝑃 ∈ 𝐡) ∧ Β¬ π‘Ÿ(leβ€˜πΎ)𝑃) β†’ (π‘Ÿ(leβ€˜πΎ)(𝑃 ∨ 𝑄) β†’ 𝑄(leβ€˜πΎ)(𝑃 ∨ π‘Ÿ)))
75743expia 1121 . . . . . . . . . . . . . . 15 ((𝐾 ∈ HL ∧ (π‘Ÿ ∈ 𝐴 ∧ 𝑄 ∈ 𝐴 ∧ 𝑃 ∈ 𝐡)) β†’ (Β¬ π‘Ÿ(leβ€˜πΎ)𝑃 β†’ (π‘Ÿ(leβ€˜πΎ)(𝑃 ∨ 𝑄) β†’ 𝑄(leβ€˜πΎ)(𝑃 ∨ π‘Ÿ))))
7675impd 411 . . . . . . . . . . . . . 14 ((𝐾 ∈ HL ∧ (π‘Ÿ ∈ 𝐴 ∧ 𝑄 ∈ 𝐴 ∧ 𝑃 ∈ 𝐡)) β†’ ((Β¬ π‘Ÿ(leβ€˜πΎ)𝑃 ∧ π‘Ÿ(leβ€˜πΎ)(𝑃 ∨ 𝑄)) β†’ 𝑄(leβ€˜πΎ)(𝑃 ∨ π‘Ÿ)))
7723, 13, 56, 35, 76syl13anc 1372 . . . . . . . . . . . . 13 ((𝐾 ∈ HL ∧ (𝑋 ∈ 𝐡 ∧ 𝑃 ∈ 𝐴 ∧ 𝑄 ∈ 𝐴) ∧ π‘Ÿ ∈ 𝐴) β†’ ((Β¬ π‘Ÿ(leβ€˜πΎ)𝑃 ∧ π‘Ÿ(leβ€˜πΎ)(𝑃 ∨ 𝑄)) β†’ 𝑄(leβ€˜πΎ)(𝑃 ∨ π‘Ÿ)))
7877adantr 481 . . . . . . . . . . . 12 (((𝐾 ∈ HL ∧ (𝑋 ∈ 𝐡 ∧ 𝑃 ∈ 𝐴 ∧ 𝑄 ∈ 𝐴) ∧ π‘Ÿ ∈ 𝐴) ∧ (π‘Ÿ(leβ€˜πΎ)𝑋 ∧ (𝑋 < (𝑃 ∨ 𝑄) ∧ Β¬ 𝑃(leβ€˜πΎ)𝑋))) β†’ ((Β¬ π‘Ÿ(leβ€˜πΎ)𝑃 ∧ π‘Ÿ(leβ€˜πΎ)(𝑃 ∨ 𝑄)) β†’ 𝑄(leβ€˜πΎ)(𝑃 ∨ π‘Ÿ)))
7953, 73, 78mp2and 697 . . . . . . . . . . 11 (((𝐾 ∈ HL ∧ (𝑋 ∈ 𝐡 ∧ 𝑃 ∈ 𝐴 ∧ 𝑄 ∈ 𝐴) ∧ π‘Ÿ ∈ 𝐴) ∧ (π‘Ÿ(leβ€˜πΎ)𝑋 ∧ (𝑋 < (𝑃 ∨ 𝑄) ∧ Β¬ 𝑃(leβ€˜πΎ)𝑋))) β†’ 𝑄(leβ€˜πΎ)(𝑃 ∨ π‘Ÿ))
804, 26latjcl 18388 . . . . . . . . . . . . . 14 ((𝐾 ∈ Lat ∧ 𝑃 ∈ 𝐡 ∧ π‘Ÿ ∈ 𝐡) β†’ (𝑃 ∨ π‘Ÿ) ∈ 𝐡)
8133, 35, 25, 80syl3anc 1371 . . . . . . . . . . . . 13 ((𝐾 ∈ HL ∧ (𝑋 ∈ 𝐡 ∧ 𝑃 ∈ 𝐴 ∧ 𝑄 ∈ 𝐴) ∧ π‘Ÿ ∈ 𝐴) β†’ (𝑃 ∨ π‘Ÿ) ∈ 𝐡)
824, 5, 26latjle12 18399 . . . . . . . . . . . . 13 ((𝐾 ∈ Lat ∧ (𝑃 ∈ 𝐡 ∧ 𝑄 ∈ 𝐡 ∧ (𝑃 ∨ π‘Ÿ) ∈ 𝐡)) β†’ ((𝑃(leβ€˜πΎ)(𝑃 ∨ π‘Ÿ) ∧ 𝑄(leβ€˜πΎ)(𝑃 ∨ π‘Ÿ)) ↔ (𝑃 ∨ 𝑄)(leβ€˜πΎ)(𝑃 ∨ π‘Ÿ)))
8333, 35, 58, 81, 82syl13anc 1372 . . . . . . . . . . . 12 ((𝐾 ∈ HL ∧ (𝑋 ∈ 𝐡 ∧ 𝑃 ∈ 𝐴 ∧ 𝑄 ∈ 𝐴) ∧ π‘Ÿ ∈ 𝐴) β†’ ((𝑃(leβ€˜πΎ)(𝑃 ∨ π‘Ÿ) ∧ 𝑄(leβ€˜πΎ)(𝑃 ∨ π‘Ÿ)) ↔ (𝑃 ∨ 𝑄)(leβ€˜πΎ)(𝑃 ∨ π‘Ÿ)))
8483adantr 481 . . . . . . . . . . 11 (((𝐾 ∈ HL ∧ (𝑋 ∈ 𝐡 ∧ 𝑃 ∈ 𝐴 ∧ 𝑄 ∈ 𝐴) ∧ π‘Ÿ ∈ 𝐴) ∧ (π‘Ÿ(leβ€˜πΎ)𝑋 ∧ (𝑋 < (𝑃 ∨ 𝑄) ∧ Β¬ 𝑃(leβ€˜πΎ)𝑋))) β†’ ((𝑃(leβ€˜πΎ)(𝑃 ∨ π‘Ÿ) ∧ 𝑄(leβ€˜πΎ)(𝑃 ∨ π‘Ÿ)) ↔ (𝑃 ∨ 𝑄)(leβ€˜πΎ)(𝑃 ∨ π‘Ÿ)))
8543, 79, 84mpbi2and 710 . . . . . . . . . 10 (((𝐾 ∈ HL ∧ (𝑋 ∈ 𝐡 ∧ 𝑃 ∈ 𝐴 ∧ 𝑄 ∈ 𝐴) ∧ π‘Ÿ ∈ 𝐴) ∧ (π‘Ÿ(leβ€˜πΎ)𝑋 ∧ (𝑋 < (𝑃 ∨ 𝑄) ∧ Β¬ 𝑃(leβ€˜πΎ)𝑋))) β†’ (𝑃 ∨ 𝑄)(leβ€˜πΎ)(𝑃 ∨ π‘Ÿ))
865, 26, 7hlatlej1 38233 . . . . . . . . . . . . 13 ((𝐾 ∈ HL ∧ 𝑃 ∈ 𝐴 ∧ 𝑄 ∈ 𝐴) β†’ 𝑃(leβ€˜πΎ)(𝑃 ∨ 𝑄))
8723, 12, 56, 86syl3anc 1371 . . . . . . . . . . . 12 ((𝐾 ∈ HL ∧ (𝑋 ∈ 𝐡 ∧ 𝑃 ∈ 𝐴 ∧ 𝑄 ∈ 𝐴) ∧ π‘Ÿ ∈ 𝐴) β†’ 𝑃(leβ€˜πΎ)(𝑃 ∨ 𝑄))
8887adantr 481 . . . . . . . . . . 11 (((𝐾 ∈ HL ∧ (𝑋 ∈ 𝐡 ∧ 𝑃 ∈ 𝐴 ∧ 𝑄 ∈ 𝐴) ∧ π‘Ÿ ∈ 𝐴) ∧ (π‘Ÿ(leβ€˜πΎ)𝑋 ∧ (𝑋 < (𝑃 ∨ 𝑄) ∧ Β¬ 𝑃(leβ€˜πΎ)𝑋))) β†’ 𝑃(leβ€˜πΎ)(𝑃 ∨ 𝑄))
894, 5, 26latjle12 18399 . . . . . . . . . . . . 13 ((𝐾 ∈ Lat ∧ (𝑃 ∈ 𝐡 ∧ π‘Ÿ ∈ 𝐡 ∧ (𝑃 ∨ 𝑄) ∈ 𝐡)) β†’ ((𝑃(leβ€˜πΎ)(𝑃 ∨ 𝑄) ∧ π‘Ÿ(leβ€˜πΎ)(𝑃 ∨ 𝑄)) ↔ (𝑃 ∨ π‘Ÿ)(leβ€˜πΎ)(𝑃 ∨ 𝑄)))
9033, 35, 25, 60, 89syl13anc 1372 . . . . . . . . . . . 12 ((𝐾 ∈ HL ∧ (𝑋 ∈ 𝐡 ∧ 𝑃 ∈ 𝐴 ∧ 𝑄 ∈ 𝐴) ∧ π‘Ÿ ∈ 𝐴) β†’ ((𝑃(leβ€˜πΎ)(𝑃 ∨ 𝑄) ∧ π‘Ÿ(leβ€˜πΎ)(𝑃 ∨ 𝑄)) ↔ (𝑃 ∨ π‘Ÿ)(leβ€˜πΎ)(𝑃 ∨ 𝑄)))
9190adantr 481 . . . . . . . . . . 11 (((𝐾 ∈ HL ∧ (𝑋 ∈ 𝐡 ∧ 𝑃 ∈ 𝐴 ∧ 𝑄 ∈ 𝐴) ∧ π‘Ÿ ∈ 𝐴) ∧ (π‘Ÿ(leβ€˜πΎ)𝑋 ∧ (𝑋 < (𝑃 ∨ 𝑄) ∧ Β¬ 𝑃(leβ€˜πΎ)𝑋))) β†’ ((𝑃(leβ€˜πΎ)(𝑃 ∨ 𝑄) ∧ π‘Ÿ(leβ€˜πΎ)(𝑃 ∨ 𝑄)) ↔ (𝑃 ∨ π‘Ÿ)(leβ€˜πΎ)(𝑃 ∨ 𝑄)))
9288, 73, 91mpbi2and 710 . . . . . . . . . 10 (((𝐾 ∈ HL ∧ (𝑋 ∈ 𝐡 ∧ 𝑃 ∈ 𝐴 ∧ 𝑄 ∈ 𝐴) ∧ π‘Ÿ ∈ 𝐴) ∧ (π‘Ÿ(leβ€˜πΎ)𝑋 ∧ (𝑋 < (𝑃 ∨ 𝑄) ∧ Β¬ 𝑃(leβ€˜πΎ)𝑋))) β†’ (𝑃 ∨ π‘Ÿ)(leβ€˜πΎ)(𝑃 ∨ 𝑄))
9333, 60, 813jca 1128 . . . . . . . . . . . 12 ((𝐾 ∈ HL ∧ (𝑋 ∈ 𝐡 ∧ 𝑃 ∈ 𝐴 ∧ 𝑄 ∈ 𝐴) ∧ π‘Ÿ ∈ 𝐴) β†’ (𝐾 ∈ Lat ∧ (𝑃 ∨ 𝑄) ∈ 𝐡 ∧ (𝑃 ∨ π‘Ÿ) ∈ 𝐡))
9493adantr 481 . . . . . . . . . . 11 (((𝐾 ∈ HL ∧ (𝑋 ∈ 𝐡 ∧ 𝑃 ∈ 𝐴 ∧ 𝑄 ∈ 𝐴) ∧ π‘Ÿ ∈ 𝐴) ∧ (π‘Ÿ(leβ€˜πΎ)𝑋 ∧ (𝑋 < (𝑃 ∨ 𝑄) ∧ Β¬ 𝑃(leβ€˜πΎ)𝑋))) β†’ (𝐾 ∈ Lat ∧ (𝑃 ∨ 𝑄) ∈ 𝐡 ∧ (𝑃 ∨ π‘Ÿ) ∈ 𝐡))
954, 5latasymb 18391 . . . . . . . . . . 11 ((𝐾 ∈ Lat ∧ (𝑃 ∨ 𝑄) ∈ 𝐡 ∧ (𝑃 ∨ π‘Ÿ) ∈ 𝐡) β†’ (((𝑃 ∨ 𝑄)(leβ€˜πΎ)(𝑃 ∨ π‘Ÿ) ∧ (𝑃 ∨ π‘Ÿ)(leβ€˜πΎ)(𝑃 ∨ 𝑄)) ↔ (𝑃 ∨ 𝑄) = (𝑃 ∨ π‘Ÿ)))
9694, 95syl 17 . . . . . . . . . 10 (((𝐾 ∈ HL ∧ (𝑋 ∈ 𝐡 ∧ 𝑃 ∈ 𝐴 ∧ 𝑄 ∈ 𝐴) ∧ π‘Ÿ ∈ 𝐴) ∧ (π‘Ÿ(leβ€˜πΎ)𝑋 ∧ (𝑋 < (𝑃 ∨ 𝑄) ∧ Β¬ 𝑃(leβ€˜πΎ)𝑋))) β†’ (((𝑃 ∨ 𝑄)(leβ€˜πΎ)(𝑃 ∨ π‘Ÿ) ∧ (𝑃 ∨ π‘Ÿ)(leβ€˜πΎ)(𝑃 ∨ 𝑄)) ↔ (𝑃 ∨ 𝑄) = (𝑃 ∨ π‘Ÿ)))
9785, 92, 96mpbi2and 710 . . . . . . . . 9 (((𝐾 ∈ HL ∧ (𝑋 ∈ 𝐡 ∧ 𝑃 ∈ 𝐴 ∧ 𝑄 ∈ 𝐴) ∧ π‘Ÿ ∈ 𝐴) ∧ (π‘Ÿ(leβ€˜πΎ)𝑋 ∧ (𝑋 < (𝑃 ∨ 𝑄) ∧ Β¬ 𝑃(leβ€˜πΎ)𝑋))) β†’ (𝑃 ∨ 𝑄) = (𝑃 ∨ π‘Ÿ))
98 breq2 5151 . . . . . . . . . . . 12 ((𝑃 ∨ 𝑄) = (𝑃 ∨ π‘Ÿ) β†’ (𝑋 < (𝑃 ∨ 𝑄) ↔ 𝑋 < (𝑃 ∨ π‘Ÿ)))
9998biimpcd 248 . . . . . . . . . . 11 (𝑋 < (𝑃 ∨ 𝑄) β†’ ((𝑃 ∨ 𝑄) = (𝑃 ∨ π‘Ÿ) β†’ 𝑋 < (𝑃 ∨ π‘Ÿ)))
10099adantr 481 . . . . . . . . . 10 ((𝑋 < (𝑃 ∨ 𝑄) ∧ Β¬ 𝑃(leβ€˜πΎ)𝑋) β†’ ((𝑃 ∨ 𝑄) = (𝑃 ∨ π‘Ÿ) β†’ 𝑋 < (𝑃 ∨ π‘Ÿ)))
101100ad2antll 727 . . . . . . . . 9 (((𝐾 ∈ HL ∧ (𝑋 ∈ 𝐡 ∧ 𝑃 ∈ 𝐴 ∧ 𝑄 ∈ 𝐴) ∧ π‘Ÿ ∈ 𝐴) ∧ (π‘Ÿ(leβ€˜πΎ)𝑋 ∧ (𝑋 < (𝑃 ∨ 𝑄) ∧ Β¬ 𝑃(leβ€˜πΎ)𝑋))) β†’ ((𝑃 ∨ 𝑄) = (𝑃 ∨ π‘Ÿ) β†’ 𝑋 < (𝑃 ∨ π‘Ÿ)))
10297, 101mpd 15 . . . . . . . 8 (((𝐾 ∈ HL ∧ (𝑋 ∈ 𝐡 ∧ 𝑃 ∈ 𝐴 ∧ 𝑄 ∈ 𝐴) ∧ π‘Ÿ ∈ 𝐴) ∧ (π‘Ÿ(leβ€˜πΎ)𝑋 ∧ (𝑋 < (𝑃 ∨ 𝑄) ∧ Β¬ 𝑃(leβ€˜πΎ)𝑋))) β†’ 𝑋 < (𝑃 ∨ π‘Ÿ))
1034, 5, 62, 27cvrnbtwn3 38134 . . . . . . . . . . . . . . 15 ((𝐾 ∈ Poset ∧ (π‘Ÿ ∈ 𝐡 ∧ (𝑃 ∨ π‘Ÿ) ∈ 𝐡 ∧ 𝑋 ∈ 𝐡) ∧ π‘Ÿ( β‹– β€˜πΎ)(𝑃 ∨ π‘Ÿ)) β†’ ((π‘Ÿ(leβ€˜πΎ)𝑋 ∧ 𝑋 < (𝑃 ∨ π‘Ÿ)) ↔ π‘Ÿ = 𝑋))
104103biimpd 228 . . . . . . . . . . . . . 14 ((𝐾 ∈ Poset ∧ (π‘Ÿ ∈ 𝐡 ∧ (𝑃 ∨ π‘Ÿ) ∈ 𝐡 ∧ 𝑋 ∈ 𝐡) ∧ π‘Ÿ( β‹– β€˜πΎ)(𝑃 ∨ π‘Ÿ)) β†’ ((π‘Ÿ(leβ€˜πΎ)𝑋 ∧ 𝑋 < (𝑃 ∨ π‘Ÿ)) β†’ π‘Ÿ = 𝑋))
1051043expia 1121 . . . . . . . . . . . . 13 ((𝐾 ∈ Poset ∧ (π‘Ÿ ∈ 𝐡 ∧ (𝑃 ∨ π‘Ÿ) ∈ 𝐡 ∧ 𝑋 ∈ 𝐡)) β†’ (π‘Ÿ( β‹– β€˜πΎ)(𝑃 ∨ π‘Ÿ) β†’ ((π‘Ÿ(leβ€˜πΎ)𝑋 ∧ 𝑋 < (𝑃 ∨ π‘Ÿ)) β†’ π‘Ÿ = 𝑋)))
10668, 25, 81, 55, 105syl13anc 1372 . . . . . . . . . . . 12 ((𝐾 ∈ HL ∧ (𝑋 ∈ 𝐡 ∧ 𝑃 ∈ 𝐴 ∧ 𝑄 ∈ 𝐴) ∧ π‘Ÿ ∈ 𝐴) β†’ (π‘Ÿ( β‹– β€˜πΎ)(𝑃 ∨ π‘Ÿ) β†’ ((π‘Ÿ(leβ€˜πΎ)𝑋 ∧ 𝑋 < (𝑃 ∨ π‘Ÿ)) β†’ π‘Ÿ = 𝑋)))
107106exp4a 432 . . . . . . . . . . 11 ((𝐾 ∈ HL ∧ (𝑋 ∈ 𝐡 ∧ 𝑃 ∈ 𝐴 ∧ 𝑄 ∈ 𝐴) ∧ π‘Ÿ ∈ 𝐴) β†’ (π‘Ÿ( β‹– β€˜πΎ)(𝑃 ∨ π‘Ÿ) β†’ (π‘Ÿ(leβ€˜πΎ)𝑋 β†’ (𝑋 < (𝑃 ∨ π‘Ÿ) β†’ π‘Ÿ = 𝑋))))
108107com23 86 . . . . . . . . . 10 ((𝐾 ∈ HL ∧ (𝑋 ∈ 𝐡 ∧ 𝑃 ∈ 𝐴 ∧ 𝑄 ∈ 𝐴) ∧ π‘Ÿ ∈ 𝐴) β†’ (π‘Ÿ(leβ€˜πΎ)𝑋 β†’ (π‘Ÿ( β‹– β€˜πΎ)(𝑃 ∨ π‘Ÿ) β†’ (𝑋 < (𝑃 ∨ π‘Ÿ) β†’ π‘Ÿ = 𝑋))))
109108imp4b 422 . . . . . . . . 9 (((𝐾 ∈ HL ∧ (𝑋 ∈ 𝐡 ∧ 𝑃 ∈ 𝐴 ∧ 𝑄 ∈ 𝐴) ∧ π‘Ÿ ∈ 𝐴) ∧ π‘Ÿ(leβ€˜πΎ)𝑋) β†’ ((π‘Ÿ( β‹– β€˜πΎ)(𝑃 ∨ π‘Ÿ) ∧ 𝑋 < (𝑃 ∨ π‘Ÿ)) β†’ π‘Ÿ = 𝑋))
110109adantrr 715 . . . . . . . 8 (((𝐾 ∈ HL ∧ (𝑋 ∈ 𝐡 ∧ 𝑃 ∈ 𝐴 ∧ 𝑄 ∈ 𝐴) ∧ π‘Ÿ ∈ 𝐴) ∧ (π‘Ÿ(leβ€˜πΎ)𝑋 ∧ (𝑋 < (𝑃 ∨ 𝑄) ∧ Β¬ 𝑃(leβ€˜πΎ)𝑋))) β†’ ((π‘Ÿ( β‹– β€˜πΎ)(𝑃 ∨ π‘Ÿ) ∧ 𝑋 < (𝑃 ∨ π‘Ÿ)) β†’ π‘Ÿ = 𝑋))
11140, 102, 110mp2and 697 . . . . . . 7 (((𝐾 ∈ HL ∧ (𝑋 ∈ 𝐡 ∧ 𝑃 ∈ 𝐴 ∧ 𝑄 ∈ 𝐴) ∧ π‘Ÿ ∈ 𝐴) ∧ (π‘Ÿ(leβ€˜πΎ)𝑋 ∧ (𝑋 < (𝑃 ∨ 𝑄) ∧ Β¬ 𝑃(leβ€˜πΎ)𝑋))) β†’ π‘Ÿ = 𝑋)
112 simpl3 1193 . . . . . . 7 (((𝐾 ∈ HL ∧ (𝑋 ∈ 𝐡 ∧ 𝑃 ∈ 𝐴 ∧ 𝑄 ∈ 𝐴) ∧ π‘Ÿ ∈ 𝐴) ∧ (π‘Ÿ(leβ€˜πΎ)𝑋 ∧ (𝑋 < (𝑃 ∨ 𝑄) ∧ Β¬ 𝑃(leβ€˜πΎ)𝑋))) β†’ π‘Ÿ ∈ 𝐴)
113111, 112eqeltrrd 2834 . . . . . 6 (((𝐾 ∈ HL ∧ (𝑋 ∈ 𝐡 ∧ 𝑃 ∈ 𝐴 ∧ 𝑄 ∈ 𝐴) ∧ π‘Ÿ ∈ 𝐴) ∧ (π‘Ÿ(leβ€˜πΎ)𝑋 ∧ (𝑋 < (𝑃 ∨ 𝑄) ∧ Β¬ 𝑃(leβ€˜πΎ)𝑋))) β†’ 𝑋 ∈ 𝐴)
114113exp45 439 . . . . 5 ((𝐾 ∈ HL ∧ (𝑋 ∈ 𝐡 ∧ 𝑃 ∈ 𝐴 ∧ 𝑄 ∈ 𝐴) ∧ π‘Ÿ ∈ 𝐴) β†’ (π‘Ÿ(leβ€˜πΎ)𝑋 β†’ (𝑋 < (𝑃 ∨ 𝑄) β†’ (Β¬ 𝑃(leβ€˜πΎ)𝑋 β†’ 𝑋 ∈ 𝐴))))
1151143expa 1118 . . . 4 (((𝐾 ∈ HL ∧ (𝑋 ∈ 𝐡 ∧ 𝑃 ∈ 𝐴 ∧ 𝑄 ∈ 𝐴)) ∧ π‘Ÿ ∈ 𝐴) β†’ (π‘Ÿ(leβ€˜πΎ)𝑋 β†’ (𝑋 < (𝑃 ∨ 𝑄) β†’ (Β¬ 𝑃(leβ€˜πΎ)𝑋 β†’ 𝑋 ∈ 𝐴))))
116115rexlimdva 3155 . . 3 ((𝐾 ∈ HL ∧ (𝑋 ∈ 𝐡 ∧ 𝑃 ∈ 𝐴 ∧ 𝑄 ∈ 𝐴)) β†’ (βˆƒπ‘Ÿ ∈ 𝐴 π‘Ÿ(leβ€˜πΎ)𝑋 β†’ (𝑋 < (𝑃 ∨ 𝑄) β†’ (Β¬ 𝑃(leβ€˜πΎ)𝑋 β†’ 𝑋 ∈ 𝐴))))
11710, 116syld 47 . 2 ((𝐾 ∈ HL ∧ (𝑋 ∈ 𝐡 ∧ 𝑃 ∈ 𝐴 ∧ 𝑄 ∈ 𝐴)) β†’ (𝑋 β‰  0 β†’ (𝑋 < (𝑃 ∨ 𝑄) β†’ (Β¬ 𝑃(leβ€˜πΎ)𝑋 β†’ 𝑋 ∈ 𝐴))))
118117imp32 419 1 (((𝐾 ∈ HL ∧ (𝑋 ∈ 𝐡 ∧ 𝑃 ∈ 𝐴 ∧ 𝑄 ∈ 𝐴)) ∧ (𝑋 β‰  0 ∧ 𝑋 < (𝑃 ∨ 𝑄))) β†’ (Β¬ 𝑃(leβ€˜πΎ)𝑋 β†’ 𝑋 ∈ 𝐴))
Colors of variables: wff setvar class
Syntax hints:  Β¬ wn 3   β†’ wi 4   ↔ wb 205   ∧ wa 396   ∧ w3a 1087   = wceq 1541   ∈ wcel 2106   β‰  wne 2940  βˆƒwrex 3070   class class class wbr 5147  β€˜cfv 6540  (class class class)co 7405  Basecbs 17140  lecple 17200  Posetcpo 18256  ltcplt 18257  joincjn 18260  0.cp0 18372  Latclat 18380   β‹– ccvr 38120  Atomscatm 38121  AtLatcal 38122  HLchlt 38208
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1797  ax-4 1811  ax-5 1913  ax-6 1971  ax-7 2011  ax-8 2108  ax-9 2116  ax-10 2137  ax-11 2154  ax-12 2171  ax-ext 2703  ax-rep 5284  ax-sep 5298  ax-nul 5305  ax-pow 5362  ax-pr 5426  ax-un 7721
This theorem depends on definitions:  df-bi 206  df-an 397  df-or 846  df-3an 1089  df-tru 1544  df-fal 1554  df-ex 1782  df-nf 1786  df-sb 2068  df-mo 2534  df-eu 2563  df-clab 2710  df-cleq 2724  df-clel 2810  df-nfc 2885  df-ne 2941  df-ral 3062  df-rex 3071  df-rmo 3376  df-reu 3377  df-rab 3433  df-v 3476  df-sbc 3777  df-csb 3893  df-dif 3950  df-un 3952  df-in 3954  df-ss 3964  df-nul 4322  df-if 4528  df-pw 4603  df-sn 4628  df-pr 4630  df-op 4634  df-uni 4908  df-iun 4998  df-br 5148  df-opab 5210  df-mpt 5231  df-id 5573  df-xp 5681  df-rel 5682  df-cnv 5683  df-co 5684  df-dm 5685  df-rn 5686  df-res 5687  df-ima 5688  df-iota 6492  df-fun 6542  df-fn 6543  df-f 6544  df-f1 6545  df-fo 6546  df-f1o 6547  df-fv 6548  df-riota 7361  df-ov 7408  df-oprab 7409  df-proset 18244  df-poset 18262  df-plt 18279  df-lub 18295  df-glb 18296  df-join 18297  df-meet 18298  df-p0 18374  df-lat 18381  df-clat 18448  df-oposet 38034  df-ol 38036  df-oml 38037  df-covers 38124  df-ats 38125  df-atl 38156  df-cvlat 38180  df-hlat 38209
This theorem is referenced by:  cvrat  38281
  Copyright terms: Public domain W3C validator