Metamath Proof Explorer


Theorem lubun

Description: The LUB of a union. (Contributed by NM, 5-Mar-2012)

Ref Expression
Hypotheses lubun.b 𝐵 = ( Base ‘ 𝐾 )
lubun.j = ( join ‘ 𝐾 )
lubun.u 𝑈 = ( lub ‘ 𝐾 )
Assertion lubun ( ( 𝐾 ∈ CLat ∧ 𝑆𝐵𝑇𝐵 ) → ( 𝑈 ‘ ( 𝑆𝑇 ) ) = ( ( 𝑈𝑆 ) ( 𝑈𝑇 ) ) )

Proof

Step Hyp Ref Expression
1 lubun.b 𝐵 = ( Base ‘ 𝐾 )
2 lubun.j = ( join ‘ 𝐾 )
3 lubun.u 𝑈 = ( lub ‘ 𝐾 )
4 eqid ( le ‘ 𝐾 ) = ( le ‘ 𝐾 )
5 biid ( ( ∀ 𝑦 ∈ ( 𝑆𝑇 ) 𝑦 ( le ‘ 𝐾 ) 𝑥 ∧ ∀ 𝑧𝐵 ( ∀ 𝑦 ∈ ( 𝑆𝑇 ) 𝑦 ( le ‘ 𝐾 ) 𝑧𝑥 ( le ‘ 𝐾 ) 𝑧 ) ) ↔ ( ∀ 𝑦 ∈ ( 𝑆𝑇 ) 𝑦 ( le ‘ 𝐾 ) 𝑥 ∧ ∀ 𝑧𝐵 ( ∀ 𝑦 ∈ ( 𝑆𝑇 ) 𝑦 ( le ‘ 𝐾 ) 𝑧𝑥 ( le ‘ 𝐾 ) 𝑧 ) ) )
6 simp1 ( ( 𝐾 ∈ CLat ∧ 𝑆𝐵𝑇𝐵 ) → 𝐾 ∈ CLat )
7 unss ( ( 𝑆𝐵𝑇𝐵 ) ↔ ( 𝑆𝑇 ) ⊆ 𝐵 )
8 7 biimpi ( ( 𝑆𝐵𝑇𝐵 ) → ( 𝑆𝑇 ) ⊆ 𝐵 )
9 8 3adant1 ( ( 𝐾 ∈ CLat ∧ 𝑆𝐵𝑇𝐵 ) → ( 𝑆𝑇 ) ⊆ 𝐵 )
10 1 4 3 5 6 9 lubval ( ( 𝐾 ∈ CLat ∧ 𝑆𝐵𝑇𝐵 ) → ( 𝑈 ‘ ( 𝑆𝑇 ) ) = ( 𝑥𝐵 ( ∀ 𝑦 ∈ ( 𝑆𝑇 ) 𝑦 ( le ‘ 𝐾 ) 𝑥 ∧ ∀ 𝑧𝐵 ( ∀ 𝑦 ∈ ( 𝑆𝑇 ) 𝑦 ( le ‘ 𝐾 ) 𝑧𝑥 ( le ‘ 𝐾 ) 𝑧 ) ) ) )
11 clatl ( 𝐾 ∈ CLat → 𝐾 ∈ Lat )
12 11 3ad2ant1 ( ( 𝐾 ∈ CLat ∧ 𝑆𝐵𝑇𝐵 ) → 𝐾 ∈ Lat )
13 1 3 clatlubcl ( ( 𝐾 ∈ CLat ∧ 𝑆𝐵 ) → ( 𝑈𝑆 ) ∈ 𝐵 )
14 13 3adant3 ( ( 𝐾 ∈ CLat ∧ 𝑆𝐵𝑇𝐵 ) → ( 𝑈𝑆 ) ∈ 𝐵 )
15 1 3 clatlubcl ( ( 𝐾 ∈ CLat ∧ 𝑇𝐵 ) → ( 𝑈𝑇 ) ∈ 𝐵 )
16 15 3adant2 ( ( 𝐾 ∈ CLat ∧ 𝑆𝐵𝑇𝐵 ) → ( 𝑈𝑇 ) ∈ 𝐵 )
17 1 2 latjcl ( ( 𝐾 ∈ Lat ∧ ( 𝑈𝑆 ) ∈ 𝐵 ∧ ( 𝑈𝑇 ) ∈ 𝐵 ) → ( ( 𝑈𝑆 ) ( 𝑈𝑇 ) ) ∈ 𝐵 )
18 12 14 16 17 syl3anc ( ( 𝐾 ∈ CLat ∧ 𝑆𝐵𝑇𝐵 ) → ( ( 𝑈𝑆 ) ( 𝑈𝑇 ) ) ∈ 𝐵 )
19 simpl1 ( ( ( 𝐾 ∈ CLat ∧ 𝑆𝐵𝑇𝐵 ) ∧ 𝑦𝑆 ) → 𝐾 ∈ CLat )
20 19 11 syl ( ( ( 𝐾 ∈ CLat ∧ 𝑆𝐵𝑇𝐵 ) ∧ 𝑦𝑆 ) → 𝐾 ∈ Lat )
21 simpl2 ( ( ( 𝐾 ∈ CLat ∧ 𝑆𝐵𝑇𝐵 ) ∧ 𝑦𝑆 ) → 𝑆𝐵 )
22 simpr ( ( ( 𝐾 ∈ CLat ∧ 𝑆𝐵𝑇𝐵 ) ∧ 𝑦𝑆 ) → 𝑦𝑆 )
23 21 22 sseldd ( ( ( 𝐾 ∈ CLat ∧ 𝑆𝐵𝑇𝐵 ) ∧ 𝑦𝑆 ) → 𝑦𝐵 )
24 19 21 13 syl2anc ( ( ( 𝐾 ∈ CLat ∧ 𝑆𝐵𝑇𝐵 ) ∧ 𝑦𝑆 ) → ( 𝑈𝑆 ) ∈ 𝐵 )
25 simpl3 ( ( ( 𝐾 ∈ CLat ∧ 𝑆𝐵𝑇𝐵 ) ∧ 𝑦𝑆 ) → 𝑇𝐵 )
26 19 25 15 syl2anc ( ( ( 𝐾 ∈ CLat ∧ 𝑆𝐵𝑇𝐵 ) ∧ 𝑦𝑆 ) → ( 𝑈𝑇 ) ∈ 𝐵 )
27 20 24 26 17 syl3anc ( ( ( 𝐾 ∈ CLat ∧ 𝑆𝐵𝑇𝐵 ) ∧ 𝑦𝑆 ) → ( ( 𝑈𝑆 ) ( 𝑈𝑇 ) ) ∈ 𝐵 )
28 1 4 3 lubel ( ( 𝐾 ∈ CLat ∧ 𝑦𝑆𝑆𝐵 ) → 𝑦 ( le ‘ 𝐾 ) ( 𝑈𝑆 ) )
29 19 22 21 28 syl3anc ( ( ( 𝐾 ∈ CLat ∧ 𝑆𝐵𝑇𝐵 ) ∧ 𝑦𝑆 ) → 𝑦 ( le ‘ 𝐾 ) ( 𝑈𝑆 ) )
30 1 4 2 latlej1 ( ( 𝐾 ∈ Lat ∧ ( 𝑈𝑆 ) ∈ 𝐵 ∧ ( 𝑈𝑇 ) ∈ 𝐵 ) → ( 𝑈𝑆 ) ( le ‘ 𝐾 ) ( ( 𝑈𝑆 ) ( 𝑈𝑇 ) ) )
31 20 24 26 30 syl3anc ( ( ( 𝐾 ∈ CLat ∧ 𝑆𝐵𝑇𝐵 ) ∧ 𝑦𝑆 ) → ( 𝑈𝑆 ) ( le ‘ 𝐾 ) ( ( 𝑈𝑆 ) ( 𝑈𝑇 ) ) )
32 1 4 20 23 24 27 29 31 lattrd ( ( ( 𝐾 ∈ CLat ∧ 𝑆𝐵𝑇𝐵 ) ∧ 𝑦𝑆 ) → 𝑦 ( le ‘ 𝐾 ) ( ( 𝑈𝑆 ) ( 𝑈𝑇 ) ) )
33 32 ralrimiva ( ( 𝐾 ∈ CLat ∧ 𝑆𝐵𝑇𝐵 ) → ∀ 𝑦𝑆 𝑦 ( le ‘ 𝐾 ) ( ( 𝑈𝑆 ) ( 𝑈𝑇 ) ) )
34 12 adantr ( ( ( 𝐾 ∈ CLat ∧ 𝑆𝐵𝑇𝐵 ) ∧ 𝑦𝑇 ) → 𝐾 ∈ Lat )
35 simpl3 ( ( ( 𝐾 ∈ CLat ∧ 𝑆𝐵𝑇𝐵 ) ∧ 𝑦𝑇 ) → 𝑇𝐵 )
36 simpr ( ( ( 𝐾 ∈ CLat ∧ 𝑆𝐵𝑇𝐵 ) ∧ 𝑦𝑇 ) → 𝑦𝑇 )
37 35 36 sseldd ( ( ( 𝐾 ∈ CLat ∧ 𝑆𝐵𝑇𝐵 ) ∧ 𝑦𝑇 ) → 𝑦𝐵 )
38 simpl1 ( ( ( 𝐾 ∈ CLat ∧ 𝑆𝐵𝑇𝐵 ) ∧ 𝑦𝑇 ) → 𝐾 ∈ CLat )
39 38 35 15 syl2anc ( ( ( 𝐾 ∈ CLat ∧ 𝑆𝐵𝑇𝐵 ) ∧ 𝑦𝑇 ) → ( 𝑈𝑇 ) ∈ 𝐵 )
40 18 adantr ( ( ( 𝐾 ∈ CLat ∧ 𝑆𝐵𝑇𝐵 ) ∧ 𝑦𝑇 ) → ( ( 𝑈𝑆 ) ( 𝑈𝑇 ) ) ∈ 𝐵 )
41 1 4 3 lubel ( ( 𝐾 ∈ CLat ∧ 𝑦𝑇𝑇𝐵 ) → 𝑦 ( le ‘ 𝐾 ) ( 𝑈𝑇 ) )
42 38 36 35 41 syl3anc ( ( ( 𝐾 ∈ CLat ∧ 𝑆𝐵𝑇𝐵 ) ∧ 𝑦𝑇 ) → 𝑦 ( le ‘ 𝐾 ) ( 𝑈𝑇 ) )
43 simpl2 ( ( ( 𝐾 ∈ CLat ∧ 𝑆𝐵𝑇𝐵 ) ∧ 𝑦𝑇 ) → 𝑆𝐵 )
44 38 43 13 syl2anc ( ( ( 𝐾 ∈ CLat ∧ 𝑆𝐵𝑇𝐵 ) ∧ 𝑦𝑇 ) → ( 𝑈𝑆 ) ∈ 𝐵 )
45 1 4 2 latlej2 ( ( 𝐾 ∈ Lat ∧ ( 𝑈𝑆 ) ∈ 𝐵 ∧ ( 𝑈𝑇 ) ∈ 𝐵 ) → ( 𝑈𝑇 ) ( le ‘ 𝐾 ) ( ( 𝑈𝑆 ) ( 𝑈𝑇 ) ) )
46 34 44 39 45 syl3anc ( ( ( 𝐾 ∈ CLat ∧ 𝑆𝐵𝑇𝐵 ) ∧ 𝑦𝑇 ) → ( 𝑈𝑇 ) ( le ‘ 𝐾 ) ( ( 𝑈𝑆 ) ( 𝑈𝑇 ) ) )
47 1 4 34 37 39 40 42 46 lattrd ( ( ( 𝐾 ∈ CLat ∧ 𝑆𝐵𝑇𝐵 ) ∧ 𝑦𝑇 ) → 𝑦 ( le ‘ 𝐾 ) ( ( 𝑈𝑆 ) ( 𝑈𝑇 ) ) )
48 47 ralrimiva ( ( 𝐾 ∈ CLat ∧ 𝑆𝐵𝑇𝐵 ) → ∀ 𝑦𝑇 𝑦 ( le ‘ 𝐾 ) ( ( 𝑈𝑆 ) ( 𝑈𝑇 ) ) )
49 ralunb ( ∀ 𝑦 ∈ ( 𝑆𝑇 ) 𝑦 ( le ‘ 𝐾 ) ( ( 𝑈𝑆 ) ( 𝑈𝑇 ) ) ↔ ( ∀ 𝑦𝑆 𝑦 ( le ‘ 𝐾 ) ( ( 𝑈𝑆 ) ( 𝑈𝑇 ) ) ∧ ∀ 𝑦𝑇 𝑦 ( le ‘ 𝐾 ) ( ( 𝑈𝑆 ) ( 𝑈𝑇 ) ) ) )
50 33 48 49 sylanbrc ( ( 𝐾 ∈ CLat ∧ 𝑆𝐵𝑇𝐵 ) → ∀ 𝑦 ∈ ( 𝑆𝑇 ) 𝑦 ( le ‘ 𝐾 ) ( ( 𝑈𝑆 ) ( 𝑈𝑇 ) ) )
51 breq2 ( 𝑧 = ( ( 𝑈𝑆 ) ( 𝑈𝑇 ) ) → ( 𝑦 ( le ‘ 𝐾 ) 𝑧𝑦 ( le ‘ 𝐾 ) ( ( 𝑈𝑆 ) ( 𝑈𝑇 ) ) ) )
52 51 ralbidv ( 𝑧 = ( ( 𝑈𝑆 ) ( 𝑈𝑇 ) ) → ( ∀ 𝑦 ∈ ( 𝑆𝑇 ) 𝑦 ( le ‘ 𝐾 ) 𝑧 ↔ ∀ 𝑦 ∈ ( 𝑆𝑇 ) 𝑦 ( le ‘ 𝐾 ) ( ( 𝑈𝑆 ) ( 𝑈𝑇 ) ) ) )
53 breq2 ( 𝑧 = ( ( 𝑈𝑆 ) ( 𝑈𝑇 ) ) → ( 𝑥 ( le ‘ 𝐾 ) 𝑧𝑥 ( le ‘ 𝐾 ) ( ( 𝑈𝑆 ) ( 𝑈𝑇 ) ) ) )
54 52 53 imbi12d ( 𝑧 = ( ( 𝑈𝑆 ) ( 𝑈𝑇 ) ) → ( ( ∀ 𝑦 ∈ ( 𝑆𝑇 ) 𝑦 ( le ‘ 𝐾 ) 𝑧𝑥 ( le ‘ 𝐾 ) 𝑧 ) ↔ ( ∀ 𝑦 ∈ ( 𝑆𝑇 ) 𝑦 ( le ‘ 𝐾 ) ( ( 𝑈𝑆 ) ( 𝑈𝑇 ) ) → 𝑥 ( le ‘ 𝐾 ) ( ( 𝑈𝑆 ) ( 𝑈𝑇 ) ) ) ) )
55 54 rspcv ( ( ( 𝑈𝑆 ) ( 𝑈𝑇 ) ) ∈ 𝐵 → ( ∀ 𝑧𝐵 ( ∀ 𝑦 ∈ ( 𝑆𝑇 ) 𝑦 ( le ‘ 𝐾 ) 𝑧𝑥 ( le ‘ 𝐾 ) 𝑧 ) → ( ∀ 𝑦 ∈ ( 𝑆𝑇 ) 𝑦 ( le ‘ 𝐾 ) ( ( 𝑈𝑆 ) ( 𝑈𝑇 ) ) → 𝑥 ( le ‘ 𝐾 ) ( ( 𝑈𝑆 ) ( 𝑈𝑇 ) ) ) ) )
56 18 55 syl ( ( 𝐾 ∈ CLat ∧ 𝑆𝐵𝑇𝐵 ) → ( ∀ 𝑧𝐵 ( ∀ 𝑦 ∈ ( 𝑆𝑇 ) 𝑦 ( le ‘ 𝐾 ) 𝑧𝑥 ( le ‘ 𝐾 ) 𝑧 ) → ( ∀ 𝑦 ∈ ( 𝑆𝑇 ) 𝑦 ( le ‘ 𝐾 ) ( ( 𝑈𝑆 ) ( 𝑈𝑇 ) ) → 𝑥 ( le ‘ 𝐾 ) ( ( 𝑈𝑆 ) ( 𝑈𝑇 ) ) ) ) )
57 50 56 mpid ( ( 𝐾 ∈ CLat ∧ 𝑆𝐵𝑇𝐵 ) → ( ∀ 𝑧𝐵 ( ∀ 𝑦 ∈ ( 𝑆𝑇 ) 𝑦 ( le ‘ 𝐾 ) 𝑧𝑥 ( le ‘ 𝐾 ) 𝑧 ) → 𝑥 ( le ‘ 𝐾 ) ( ( 𝑈𝑆 ) ( 𝑈𝑇 ) ) ) )
58 57 imp ( ( ( 𝐾 ∈ CLat ∧ 𝑆𝐵𝑇𝐵 ) ∧ ∀ 𝑧𝐵 ( ∀ 𝑦 ∈ ( 𝑆𝑇 ) 𝑦 ( le ‘ 𝐾 ) 𝑧𝑥 ( le ‘ 𝐾 ) 𝑧 ) ) → 𝑥 ( le ‘ 𝐾 ) ( ( 𝑈𝑆 ) ( 𝑈𝑇 ) ) )
59 58 ad2ant2rl ( ( ( ( 𝐾 ∈ CLat ∧ 𝑆𝐵𝑇𝐵 ) ∧ 𝑥𝐵 ) ∧ ( ∀ 𝑦 ∈ ( 𝑆𝑇 ) 𝑦 ( le ‘ 𝐾 ) 𝑥 ∧ ∀ 𝑧𝐵 ( ∀ 𝑦 ∈ ( 𝑆𝑇 ) 𝑦 ( le ‘ 𝐾 ) 𝑧𝑥 ( le ‘ 𝐾 ) 𝑧 ) ) ) → 𝑥 ( le ‘ 𝐾 ) ( ( 𝑈𝑆 ) ( 𝑈𝑇 ) ) )
60 ralunb ( ∀ 𝑦 ∈ ( 𝑆𝑇 ) 𝑦 ( le ‘ 𝐾 ) 𝑥 ↔ ( ∀ 𝑦𝑆 𝑦 ( le ‘ 𝐾 ) 𝑥 ∧ ∀ 𝑦𝑇 𝑦 ( le ‘ 𝐾 ) 𝑥 ) )
61 simpl1 ( ( ( 𝐾 ∈ CLat ∧ 𝑆𝐵𝑇𝐵 ) ∧ 𝑥𝐵 ) → 𝐾 ∈ CLat )
62 simpl2 ( ( ( 𝐾 ∈ CLat ∧ 𝑆𝐵𝑇𝐵 ) ∧ 𝑥𝐵 ) → 𝑆𝐵 )
63 simpr ( ( ( 𝐾 ∈ CLat ∧ 𝑆𝐵𝑇𝐵 ) ∧ 𝑥𝐵 ) → 𝑥𝐵 )
64 1 4 3 lubl ( ( 𝐾 ∈ CLat ∧ 𝑆𝐵𝑥𝐵 ) → ( ∀ 𝑦𝑆 𝑦 ( le ‘ 𝐾 ) 𝑥 → ( 𝑈𝑆 ) ( le ‘ 𝐾 ) 𝑥 ) )
65 61 62 63 64 syl3anc ( ( ( 𝐾 ∈ CLat ∧ 𝑆𝐵𝑇𝐵 ) ∧ 𝑥𝐵 ) → ( ∀ 𝑦𝑆 𝑦 ( le ‘ 𝐾 ) 𝑥 → ( 𝑈𝑆 ) ( le ‘ 𝐾 ) 𝑥 ) )
66 simpl3 ( ( ( 𝐾 ∈ CLat ∧ 𝑆𝐵𝑇𝐵 ) ∧ 𝑥𝐵 ) → 𝑇𝐵 )
67 1 4 3 lubl ( ( 𝐾 ∈ CLat ∧ 𝑇𝐵𝑥𝐵 ) → ( ∀ 𝑦𝑇 𝑦 ( le ‘ 𝐾 ) 𝑥 → ( 𝑈𝑇 ) ( le ‘ 𝐾 ) 𝑥 ) )
68 61 66 63 67 syl3anc ( ( ( 𝐾 ∈ CLat ∧ 𝑆𝐵𝑇𝐵 ) ∧ 𝑥𝐵 ) → ( ∀ 𝑦𝑇 𝑦 ( le ‘ 𝐾 ) 𝑥 → ( 𝑈𝑇 ) ( le ‘ 𝐾 ) 𝑥 ) )
69 65 68 anim12d ( ( ( 𝐾 ∈ CLat ∧ 𝑆𝐵𝑇𝐵 ) ∧ 𝑥𝐵 ) → ( ( ∀ 𝑦𝑆 𝑦 ( le ‘ 𝐾 ) 𝑥 ∧ ∀ 𝑦𝑇 𝑦 ( le ‘ 𝐾 ) 𝑥 ) → ( ( 𝑈𝑆 ) ( le ‘ 𝐾 ) 𝑥 ∧ ( 𝑈𝑇 ) ( le ‘ 𝐾 ) 𝑥 ) ) )
70 61 11 syl ( ( ( 𝐾 ∈ CLat ∧ 𝑆𝐵𝑇𝐵 ) ∧ 𝑥𝐵 ) → 𝐾 ∈ Lat )
71 14 adantr ( ( ( 𝐾 ∈ CLat ∧ 𝑆𝐵𝑇𝐵 ) ∧ 𝑥𝐵 ) → ( 𝑈𝑆 ) ∈ 𝐵 )
72 16 adantr ( ( ( 𝐾 ∈ CLat ∧ 𝑆𝐵𝑇𝐵 ) ∧ 𝑥𝐵 ) → ( 𝑈𝑇 ) ∈ 𝐵 )
73 1 4 2 latjle12 ( ( 𝐾 ∈ Lat ∧ ( ( 𝑈𝑆 ) ∈ 𝐵 ∧ ( 𝑈𝑇 ) ∈ 𝐵𝑥𝐵 ) ) → ( ( ( 𝑈𝑆 ) ( le ‘ 𝐾 ) 𝑥 ∧ ( 𝑈𝑇 ) ( le ‘ 𝐾 ) 𝑥 ) ↔ ( ( 𝑈𝑆 ) ( 𝑈𝑇 ) ) ( le ‘ 𝐾 ) 𝑥 ) )
74 70 71 72 63 73 syl13anc ( ( ( 𝐾 ∈ CLat ∧ 𝑆𝐵𝑇𝐵 ) ∧ 𝑥𝐵 ) → ( ( ( 𝑈𝑆 ) ( le ‘ 𝐾 ) 𝑥 ∧ ( 𝑈𝑇 ) ( le ‘ 𝐾 ) 𝑥 ) ↔ ( ( 𝑈𝑆 ) ( 𝑈𝑇 ) ) ( le ‘ 𝐾 ) 𝑥 ) )
75 69 74 sylibd ( ( ( 𝐾 ∈ CLat ∧ 𝑆𝐵𝑇𝐵 ) ∧ 𝑥𝐵 ) → ( ( ∀ 𝑦𝑆 𝑦 ( le ‘ 𝐾 ) 𝑥 ∧ ∀ 𝑦𝑇 𝑦 ( le ‘ 𝐾 ) 𝑥 ) → ( ( 𝑈𝑆 ) ( 𝑈𝑇 ) ) ( le ‘ 𝐾 ) 𝑥 ) )
76 60 75 syl5bi ( ( ( 𝐾 ∈ CLat ∧ 𝑆𝐵𝑇𝐵 ) ∧ 𝑥𝐵 ) → ( ∀ 𝑦 ∈ ( 𝑆𝑇 ) 𝑦 ( le ‘ 𝐾 ) 𝑥 → ( ( 𝑈𝑆 ) ( 𝑈𝑇 ) ) ( le ‘ 𝐾 ) 𝑥 ) )
77 76 imp ( ( ( ( 𝐾 ∈ CLat ∧ 𝑆𝐵𝑇𝐵 ) ∧ 𝑥𝐵 ) ∧ ∀ 𝑦 ∈ ( 𝑆𝑇 ) 𝑦 ( le ‘ 𝐾 ) 𝑥 ) → ( ( 𝑈𝑆 ) ( 𝑈𝑇 ) ) ( le ‘ 𝐾 ) 𝑥 )
78 77 adantrr ( ( ( ( 𝐾 ∈ CLat ∧ 𝑆𝐵𝑇𝐵 ) ∧ 𝑥𝐵 ) ∧ ( ∀ 𝑦 ∈ ( 𝑆𝑇 ) 𝑦 ( le ‘ 𝐾 ) 𝑥 ∧ ∀ 𝑧𝐵 ( ∀ 𝑦 ∈ ( 𝑆𝑇 ) 𝑦 ( le ‘ 𝐾 ) 𝑧𝑥 ( le ‘ 𝐾 ) 𝑧 ) ) ) → ( ( 𝑈𝑆 ) ( 𝑈𝑇 ) ) ( le ‘ 𝐾 ) 𝑥 )
79 18 adantr ( ( ( 𝐾 ∈ CLat ∧ 𝑆𝐵𝑇𝐵 ) ∧ 𝑥𝐵 ) → ( ( 𝑈𝑆 ) ( 𝑈𝑇 ) ) ∈ 𝐵 )
80 1 4 latasymb ( ( 𝐾 ∈ Lat ∧ 𝑥𝐵 ∧ ( ( 𝑈𝑆 ) ( 𝑈𝑇 ) ) ∈ 𝐵 ) → ( ( 𝑥 ( le ‘ 𝐾 ) ( ( 𝑈𝑆 ) ( 𝑈𝑇 ) ) ∧ ( ( 𝑈𝑆 ) ( 𝑈𝑇 ) ) ( le ‘ 𝐾 ) 𝑥 ) ↔ 𝑥 = ( ( 𝑈𝑆 ) ( 𝑈𝑇 ) ) ) )
81 70 63 79 80 syl3anc ( ( ( 𝐾 ∈ CLat ∧ 𝑆𝐵𝑇𝐵 ) ∧ 𝑥𝐵 ) → ( ( 𝑥 ( le ‘ 𝐾 ) ( ( 𝑈𝑆 ) ( 𝑈𝑇 ) ) ∧ ( ( 𝑈𝑆 ) ( 𝑈𝑇 ) ) ( le ‘ 𝐾 ) 𝑥 ) ↔ 𝑥 = ( ( 𝑈𝑆 ) ( 𝑈𝑇 ) ) ) )
82 81 adantr ( ( ( ( 𝐾 ∈ CLat ∧ 𝑆𝐵𝑇𝐵 ) ∧ 𝑥𝐵 ) ∧ ( ∀ 𝑦 ∈ ( 𝑆𝑇 ) 𝑦 ( le ‘ 𝐾 ) 𝑥 ∧ ∀ 𝑧𝐵 ( ∀ 𝑦 ∈ ( 𝑆𝑇 ) 𝑦 ( le ‘ 𝐾 ) 𝑧𝑥 ( le ‘ 𝐾 ) 𝑧 ) ) ) → ( ( 𝑥 ( le ‘ 𝐾 ) ( ( 𝑈𝑆 ) ( 𝑈𝑇 ) ) ∧ ( ( 𝑈𝑆 ) ( 𝑈𝑇 ) ) ( le ‘ 𝐾 ) 𝑥 ) ↔ 𝑥 = ( ( 𝑈𝑆 ) ( 𝑈𝑇 ) ) ) )
83 59 78 82 mpbi2and ( ( ( ( 𝐾 ∈ CLat ∧ 𝑆𝐵𝑇𝐵 ) ∧ 𝑥𝐵 ) ∧ ( ∀ 𝑦 ∈ ( 𝑆𝑇 ) 𝑦 ( le ‘ 𝐾 ) 𝑥 ∧ ∀ 𝑧𝐵 ( ∀ 𝑦 ∈ ( 𝑆𝑇 ) 𝑦 ( le ‘ 𝐾 ) 𝑧𝑥 ( le ‘ 𝐾 ) 𝑧 ) ) ) → 𝑥 = ( ( 𝑈𝑆 ) ( 𝑈𝑇 ) ) )
84 83 ex ( ( ( 𝐾 ∈ CLat ∧ 𝑆𝐵𝑇𝐵 ) ∧ 𝑥𝐵 ) → ( ( ∀ 𝑦 ∈ ( 𝑆𝑇 ) 𝑦 ( le ‘ 𝐾 ) 𝑥 ∧ ∀ 𝑧𝐵 ( ∀ 𝑦 ∈ ( 𝑆𝑇 ) 𝑦 ( le ‘ 𝐾 ) 𝑧𝑥 ( le ‘ 𝐾 ) 𝑧 ) ) → 𝑥 = ( ( 𝑈𝑆 ) ( 𝑈𝑇 ) ) ) )
85 elun ( 𝑦 ∈ ( 𝑆𝑇 ) ↔ ( 𝑦𝑆𝑦𝑇 ) )
86 32 47 jaodan ( ( ( 𝐾 ∈ CLat ∧ 𝑆𝐵𝑇𝐵 ) ∧ ( 𝑦𝑆𝑦𝑇 ) ) → 𝑦 ( le ‘ 𝐾 ) ( ( 𝑈𝑆 ) ( 𝑈𝑇 ) ) )
87 85 86 sylan2b ( ( ( 𝐾 ∈ CLat ∧ 𝑆𝐵𝑇𝐵 ) ∧ 𝑦 ∈ ( 𝑆𝑇 ) ) → 𝑦 ( le ‘ 𝐾 ) ( ( 𝑈𝑆 ) ( 𝑈𝑇 ) ) )
88 87 ralrimiva ( ( 𝐾 ∈ CLat ∧ 𝑆𝐵𝑇𝐵 ) → ∀ 𝑦 ∈ ( 𝑆𝑇 ) 𝑦 ( le ‘ 𝐾 ) ( ( 𝑈𝑆 ) ( 𝑈𝑇 ) ) )
89 ralunb ( ∀ 𝑦 ∈ ( 𝑆𝑇 ) 𝑦 ( le ‘ 𝐾 ) 𝑧 ↔ ( ∀ 𝑦𝑆 𝑦 ( le ‘ 𝐾 ) 𝑧 ∧ ∀ 𝑦𝑇 𝑦 ( le ‘ 𝐾 ) 𝑧 ) )
90 simpl1 ( ( ( 𝐾 ∈ CLat ∧ 𝑆𝐵𝑇𝐵 ) ∧ 𝑧𝐵 ) → 𝐾 ∈ CLat )
91 simpl2 ( ( ( 𝐾 ∈ CLat ∧ 𝑆𝐵𝑇𝐵 ) ∧ 𝑧𝐵 ) → 𝑆𝐵 )
92 simpr ( ( ( 𝐾 ∈ CLat ∧ 𝑆𝐵𝑇𝐵 ) ∧ 𝑧𝐵 ) → 𝑧𝐵 )
93 1 4 3 lubl ( ( 𝐾 ∈ CLat ∧ 𝑆𝐵𝑧𝐵 ) → ( ∀ 𝑦𝑆 𝑦 ( le ‘ 𝐾 ) 𝑧 → ( 𝑈𝑆 ) ( le ‘ 𝐾 ) 𝑧 ) )
94 90 91 92 93 syl3anc ( ( ( 𝐾 ∈ CLat ∧ 𝑆𝐵𝑇𝐵 ) ∧ 𝑧𝐵 ) → ( ∀ 𝑦𝑆 𝑦 ( le ‘ 𝐾 ) 𝑧 → ( 𝑈𝑆 ) ( le ‘ 𝐾 ) 𝑧 ) )
95 simpl3 ( ( ( 𝐾 ∈ CLat ∧ 𝑆𝐵𝑇𝐵 ) ∧ 𝑧𝐵 ) → 𝑇𝐵 )
96 1 4 3 lubl ( ( 𝐾 ∈ CLat ∧ 𝑇𝐵𝑧𝐵 ) → ( ∀ 𝑦𝑇 𝑦 ( le ‘ 𝐾 ) 𝑧 → ( 𝑈𝑇 ) ( le ‘ 𝐾 ) 𝑧 ) )
97 90 95 92 96 syl3anc ( ( ( 𝐾 ∈ CLat ∧ 𝑆𝐵𝑇𝐵 ) ∧ 𝑧𝐵 ) → ( ∀ 𝑦𝑇 𝑦 ( le ‘ 𝐾 ) 𝑧 → ( 𝑈𝑇 ) ( le ‘ 𝐾 ) 𝑧 ) )
98 94 97 anim12d ( ( ( 𝐾 ∈ CLat ∧ 𝑆𝐵𝑇𝐵 ) ∧ 𝑧𝐵 ) → ( ( ∀ 𝑦𝑆 𝑦 ( le ‘ 𝐾 ) 𝑧 ∧ ∀ 𝑦𝑇 𝑦 ( le ‘ 𝐾 ) 𝑧 ) → ( ( 𝑈𝑆 ) ( le ‘ 𝐾 ) 𝑧 ∧ ( 𝑈𝑇 ) ( le ‘ 𝐾 ) 𝑧 ) ) )
99 89 98 syl5bi ( ( ( 𝐾 ∈ CLat ∧ 𝑆𝐵𝑇𝐵 ) ∧ 𝑧𝐵 ) → ( ∀ 𝑦 ∈ ( 𝑆𝑇 ) 𝑦 ( le ‘ 𝐾 ) 𝑧 → ( ( 𝑈𝑆 ) ( le ‘ 𝐾 ) 𝑧 ∧ ( 𝑈𝑇 ) ( le ‘ 𝐾 ) 𝑧 ) ) )
100 90 11 syl ( ( ( 𝐾 ∈ CLat ∧ 𝑆𝐵𝑇𝐵 ) ∧ 𝑧𝐵 ) → 𝐾 ∈ Lat )
101 90 91 13 syl2anc ( ( ( 𝐾 ∈ CLat ∧ 𝑆𝐵𝑇𝐵 ) ∧ 𝑧𝐵 ) → ( 𝑈𝑆 ) ∈ 𝐵 )
102 90 95 15 syl2anc ( ( ( 𝐾 ∈ CLat ∧ 𝑆𝐵𝑇𝐵 ) ∧ 𝑧𝐵 ) → ( 𝑈𝑇 ) ∈ 𝐵 )
103 1 4 2 latjle12 ( ( 𝐾 ∈ Lat ∧ ( ( 𝑈𝑆 ) ∈ 𝐵 ∧ ( 𝑈𝑇 ) ∈ 𝐵𝑧𝐵 ) ) → ( ( ( 𝑈𝑆 ) ( le ‘ 𝐾 ) 𝑧 ∧ ( 𝑈𝑇 ) ( le ‘ 𝐾 ) 𝑧 ) ↔ ( ( 𝑈𝑆 ) ( 𝑈𝑇 ) ) ( le ‘ 𝐾 ) 𝑧 ) )
104 100 101 102 92 103 syl13anc ( ( ( 𝐾 ∈ CLat ∧ 𝑆𝐵𝑇𝐵 ) ∧ 𝑧𝐵 ) → ( ( ( 𝑈𝑆 ) ( le ‘ 𝐾 ) 𝑧 ∧ ( 𝑈𝑇 ) ( le ‘ 𝐾 ) 𝑧 ) ↔ ( ( 𝑈𝑆 ) ( 𝑈𝑇 ) ) ( le ‘ 𝐾 ) 𝑧 ) )
105 99 104 sylibd ( ( ( 𝐾 ∈ CLat ∧ 𝑆𝐵𝑇𝐵 ) ∧ 𝑧𝐵 ) → ( ∀ 𝑦 ∈ ( 𝑆𝑇 ) 𝑦 ( le ‘ 𝐾 ) 𝑧 → ( ( 𝑈𝑆 ) ( 𝑈𝑇 ) ) ( le ‘ 𝐾 ) 𝑧 ) )
106 105 ralrimiva ( ( 𝐾 ∈ CLat ∧ 𝑆𝐵𝑇𝐵 ) → ∀ 𝑧𝐵 ( ∀ 𝑦 ∈ ( 𝑆𝑇 ) 𝑦 ( le ‘ 𝐾 ) 𝑧 → ( ( 𝑈𝑆 ) ( 𝑈𝑇 ) ) ( le ‘ 𝐾 ) 𝑧 ) )
107 breq2 ( 𝑥 = ( ( 𝑈𝑆 ) ( 𝑈𝑇 ) ) → ( 𝑦 ( le ‘ 𝐾 ) 𝑥𝑦 ( le ‘ 𝐾 ) ( ( 𝑈𝑆 ) ( 𝑈𝑇 ) ) ) )
108 107 ralbidv ( 𝑥 = ( ( 𝑈𝑆 ) ( 𝑈𝑇 ) ) → ( ∀ 𝑦 ∈ ( 𝑆𝑇 ) 𝑦 ( le ‘ 𝐾 ) 𝑥 ↔ ∀ 𝑦 ∈ ( 𝑆𝑇 ) 𝑦 ( le ‘ 𝐾 ) ( ( 𝑈𝑆 ) ( 𝑈𝑇 ) ) ) )
109 breq1 ( 𝑥 = ( ( 𝑈𝑆 ) ( 𝑈𝑇 ) ) → ( 𝑥 ( le ‘ 𝐾 ) 𝑧 ↔ ( ( 𝑈𝑆 ) ( 𝑈𝑇 ) ) ( le ‘ 𝐾 ) 𝑧 ) )
110 109 imbi2d ( 𝑥 = ( ( 𝑈𝑆 ) ( 𝑈𝑇 ) ) → ( ( ∀ 𝑦 ∈ ( 𝑆𝑇 ) 𝑦 ( le ‘ 𝐾 ) 𝑧𝑥 ( le ‘ 𝐾 ) 𝑧 ) ↔ ( ∀ 𝑦 ∈ ( 𝑆𝑇 ) 𝑦 ( le ‘ 𝐾 ) 𝑧 → ( ( 𝑈𝑆 ) ( 𝑈𝑇 ) ) ( le ‘ 𝐾 ) 𝑧 ) ) )
111 110 ralbidv ( 𝑥 = ( ( 𝑈𝑆 ) ( 𝑈𝑇 ) ) → ( ∀ 𝑧𝐵 ( ∀ 𝑦 ∈ ( 𝑆𝑇 ) 𝑦 ( le ‘ 𝐾 ) 𝑧𝑥 ( le ‘ 𝐾 ) 𝑧 ) ↔ ∀ 𝑧𝐵 ( ∀ 𝑦 ∈ ( 𝑆𝑇 ) 𝑦 ( le ‘ 𝐾 ) 𝑧 → ( ( 𝑈𝑆 ) ( 𝑈𝑇 ) ) ( le ‘ 𝐾 ) 𝑧 ) ) )
112 108 111 anbi12d ( 𝑥 = ( ( 𝑈𝑆 ) ( 𝑈𝑇 ) ) → ( ( ∀ 𝑦 ∈ ( 𝑆𝑇 ) 𝑦 ( le ‘ 𝐾 ) 𝑥 ∧ ∀ 𝑧𝐵 ( ∀ 𝑦 ∈ ( 𝑆𝑇 ) 𝑦 ( le ‘ 𝐾 ) 𝑧𝑥 ( le ‘ 𝐾 ) 𝑧 ) ) ↔ ( ∀ 𝑦 ∈ ( 𝑆𝑇 ) 𝑦 ( le ‘ 𝐾 ) ( ( 𝑈𝑆 ) ( 𝑈𝑇 ) ) ∧ ∀ 𝑧𝐵 ( ∀ 𝑦 ∈ ( 𝑆𝑇 ) 𝑦 ( le ‘ 𝐾 ) 𝑧 → ( ( 𝑈𝑆 ) ( 𝑈𝑇 ) ) ( le ‘ 𝐾 ) 𝑧 ) ) ) )
113 112 biimprcd ( ( ∀ 𝑦 ∈ ( 𝑆𝑇 ) 𝑦 ( le ‘ 𝐾 ) ( ( 𝑈𝑆 ) ( 𝑈𝑇 ) ) ∧ ∀ 𝑧𝐵 ( ∀ 𝑦 ∈ ( 𝑆𝑇 ) 𝑦 ( le ‘ 𝐾 ) 𝑧 → ( ( 𝑈𝑆 ) ( 𝑈𝑇 ) ) ( le ‘ 𝐾 ) 𝑧 ) ) → ( 𝑥 = ( ( 𝑈𝑆 ) ( 𝑈𝑇 ) ) → ( ∀ 𝑦 ∈ ( 𝑆𝑇 ) 𝑦 ( le ‘ 𝐾 ) 𝑥 ∧ ∀ 𝑧𝐵 ( ∀ 𝑦 ∈ ( 𝑆𝑇 ) 𝑦 ( le ‘ 𝐾 ) 𝑧𝑥 ( le ‘ 𝐾 ) 𝑧 ) ) ) )
114 88 106 113 syl2anc ( ( 𝐾 ∈ CLat ∧ 𝑆𝐵𝑇𝐵 ) → ( 𝑥 = ( ( 𝑈𝑆 ) ( 𝑈𝑇 ) ) → ( ∀ 𝑦 ∈ ( 𝑆𝑇 ) 𝑦 ( le ‘ 𝐾 ) 𝑥 ∧ ∀ 𝑧𝐵 ( ∀ 𝑦 ∈ ( 𝑆𝑇 ) 𝑦 ( le ‘ 𝐾 ) 𝑧𝑥 ( le ‘ 𝐾 ) 𝑧 ) ) ) )
115 114 adantr ( ( ( 𝐾 ∈ CLat ∧ 𝑆𝐵𝑇𝐵 ) ∧ 𝑥𝐵 ) → ( 𝑥 = ( ( 𝑈𝑆 ) ( 𝑈𝑇 ) ) → ( ∀ 𝑦 ∈ ( 𝑆𝑇 ) 𝑦 ( le ‘ 𝐾 ) 𝑥 ∧ ∀ 𝑧𝐵 ( ∀ 𝑦 ∈ ( 𝑆𝑇 ) 𝑦 ( le ‘ 𝐾 ) 𝑧𝑥 ( le ‘ 𝐾 ) 𝑧 ) ) ) )
116 84 115 impbid ( ( ( 𝐾 ∈ CLat ∧ 𝑆𝐵𝑇𝐵 ) ∧ 𝑥𝐵 ) → ( ( ∀ 𝑦 ∈ ( 𝑆𝑇 ) 𝑦 ( le ‘ 𝐾 ) 𝑥 ∧ ∀ 𝑧𝐵 ( ∀ 𝑦 ∈ ( 𝑆𝑇 ) 𝑦 ( le ‘ 𝐾 ) 𝑧𝑥 ( le ‘ 𝐾 ) 𝑧 ) ) ↔ 𝑥 = ( ( 𝑈𝑆 ) ( 𝑈𝑇 ) ) ) )
117 18 116 riota5 ( ( 𝐾 ∈ CLat ∧ 𝑆𝐵𝑇𝐵 ) → ( 𝑥𝐵 ( ∀ 𝑦 ∈ ( 𝑆𝑇 ) 𝑦 ( le ‘ 𝐾 ) 𝑥 ∧ ∀ 𝑧𝐵 ( ∀ 𝑦 ∈ ( 𝑆𝑇 ) 𝑦 ( le ‘ 𝐾 ) 𝑧𝑥 ( le ‘ 𝐾 ) 𝑧 ) ) ) = ( ( 𝑈𝑆 ) ( 𝑈𝑇 ) ) )
118 10 117 eqtrd ( ( 𝐾 ∈ CLat ∧ 𝑆𝐵𝑇𝐵 ) → ( 𝑈 ‘ ( 𝑆𝑇 ) ) = ( ( 𝑈𝑆 ) ( 𝑈𝑇 ) ) )