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

Theorem dia2dimlem3 31962
Description: Lemma for dia2dim 31973. Define a translation  D whose trace is atom  V. Part of proof of Lemma M in [Crawley] p. 121 line 5. (Contributed by NM, 8-Sep-2014.)
Hypotheses
Ref Expression
dia2dimlem3.l  |-  .<_  =  ( le `  K )
dia2dimlem3.j  |-  .\/  =  ( join `  K )
dia2dimlem3.m  |-  ./\  =  ( meet `  K )
dia2dimlem3.a  |-  A  =  ( Atoms `  K )
dia2dimlem3.h  |-  H  =  ( LHyp `  K
)
dia2dimlem3.t  |-  T  =  ( ( LTrn `  K
) `  W )
dia2dimlem3.r  |-  R  =  ( ( trL `  K
) `  W )
dia2dimlem3.q  |-  Q  =  ( ( P  .\/  U )  ./\  ( ( F `  P )  .\/  V ) )
dia2dimlem3.k  |-  ( ph  ->  ( K  e.  HL  /\  W  e.  H ) )
dia2dimlem3.u  |-  ( ph  ->  ( U  e.  A  /\  U  .<_  W ) )
dia2dimlem3.v  |-  ( ph  ->  ( V  e.  A  /\  V  .<_  W ) )
dia2dimlem3.p  |-  ( ph  ->  ( P  e.  A  /\  -.  P  .<_  W ) )
dia2dimlem3.f  |-  ( ph  ->  ( F  e.  T  /\  ( F `  P
)  =/=  P ) )
dia2dimlem3.rf  |-  ( ph  ->  ( R `  F
)  .<_  ( U  .\/  V ) )
dia2dimlem3.uv  |-  ( ph  ->  U  =/=  V )
dia2dimlem3.ru  |-  ( ph  ->  ( R `  F
)  =/=  U )
dia2dimlem3.rv  |-  ( ph  ->  ( R `  F
)  =/=  V )
dia2dimlem3.d  |-  ( ph  ->  D  e.  T )
dia2dimlem3.dv  |-  ( ph  ->  ( D `  Q
)  =  ( F `
 P ) )
Assertion
Ref Expression
dia2dimlem3  |-  ( ph  ->  ( R `  D
)  =  V )

Proof of Theorem dia2dimlem3
StepHypRef Expression
1 dia2dimlem3.k . . . . . . 7  |-  ( ph  ->  ( K  e.  HL  /\  W  e.  H ) )
21simpld 447 . . . . . 6  |-  ( ph  ->  K  e.  HL )
3 dia2dimlem3.f . . . . . . . . 9  |-  ( ph  ->  ( F  e.  T  /\  ( F `  P
)  =/=  P ) )
43simpld 447 . . . . . . . 8  |-  ( ph  ->  F  e.  T )
5 dia2dimlem3.p . . . . . . . 8  |-  ( ph  ->  ( P  e.  A  /\  -.  P  .<_  W ) )
6 dia2dimlem3.l . . . . . . . . 9  |-  .<_  =  ( le `  K )
7 dia2dimlem3.a . . . . . . . . 9  |-  A  =  ( Atoms `  K )
8 dia2dimlem3.h . . . . . . . . 9  |-  H  =  ( LHyp `  K
)
9 dia2dimlem3.t . . . . . . . . 9  |-  T  =  ( ( LTrn `  K
) `  W )
106, 7, 8, 9ltrnel 31034 . . . . . . . 8  |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  F  e.  T  /\  ( P  e.  A  /\  -.  P  .<_  W ) )  ->  ( ( F `  P )  e.  A  /\  -.  ( F `  P )  .<_  W ) )
111, 4, 5, 10syl3anc 1185 . . . . . . 7  |-  ( ph  ->  ( ( F `  P )  e.  A  /\  -.  ( F `  P )  .<_  W ) )
1211simpld 447 . . . . . 6  |-  ( ph  ->  ( F `  P
)  e.  A )
13 dia2dimlem3.v . . . . . . 7  |-  ( ph  ->  ( V  e.  A  /\  V  .<_  W ) )
1413simpld 447 . . . . . 6  |-  ( ph  ->  V  e.  A )
15 dia2dimlem3.j . . . . . . 7  |-  .\/  =  ( join `  K )
166, 15, 7hlatlej2 30271 . . . . . 6  |-  ( ( K  e.  HL  /\  ( F `  P )  e.  A  /\  V  e.  A )  ->  V  .<_  ( ( F `  P )  .\/  V
) )
172, 12, 14, 16syl3anc 1185 . . . . 5  |-  ( ph  ->  V  .<_  ( ( F `  P )  .\/  V ) )
18 hllat 30259 . . . . . . 7  |-  ( K  e.  HL  ->  K  e.  Lat )
192, 18syl 16 . . . . . 6  |-  ( ph  ->  K  e.  Lat )
20 eqid 2442 . . . . . . . 8  |-  ( Base `  K )  =  (
Base `  K )
2120, 7atbase 30185 . . . . . . 7  |-  ( V  e.  A  ->  V  e.  ( Base `  K
) )
2214, 21syl 16 . . . . . 6  |-  ( ph  ->  V  e.  ( Base `  K ) )
2320, 15, 7hlatjcl 30262 . . . . . . 7  |-  ( ( K  e.  HL  /\  ( F `  P )  e.  A  /\  V  e.  A )  ->  (
( F `  P
)  .\/  V )  e.  ( Base `  K
) )
242, 12, 14, 23syl3anc 1185 . . . . . 6  |-  ( ph  ->  ( ( F `  P )  .\/  V
)  e.  ( Base `  K ) )
25 dia2dimlem3.r . . . . . . . . 9  |-  R  =  ( ( trL `  K
) `  W )
266, 7, 8, 9, 25trlat 31064 . . . . . . . 8  |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( P  e.  A  /\  -.  P  .<_  W )  /\  ( F  e.  T  /\  ( F `  P )  =/=  P ) )  ->  ( R `  F )  e.  A
)
271, 5, 3, 26syl3anc 1185 . . . . . . 7  |-  ( ph  ->  ( R `  F
)  e.  A )
28 dia2dimlem3.u . . . . . . . 8  |-  ( ph  ->  ( U  e.  A  /\  U  .<_  W ) )
2928simpld 447 . . . . . . 7  |-  ( ph  ->  U  e.  A )
3020, 15, 7hlatjcl 30262 . . . . . . 7  |-  ( ( K  e.  HL  /\  ( R `  F )  e.  A  /\  U  e.  A )  ->  (
( R `  F
)  .\/  U )  e.  ( Base `  K
) )
312, 27, 29, 30syl3anc 1185 . . . . . 6  |-  ( ph  ->  ( ( R `  F )  .\/  U
)  e.  ( Base `  K ) )
32 dia2dimlem3.m . . . . . . 7  |-  ./\  =  ( meet `  K )
3320, 6, 32latmlem2 14542 . . . . . 6  |-  ( ( K  e.  Lat  /\  ( V  e.  ( Base `  K )  /\  ( ( F `  P )  .\/  V
)  e.  ( Base `  K )  /\  (
( R `  F
)  .\/  U )  e.  ( Base `  K
) ) )  -> 
( V  .<_  ( ( F `  P ) 
.\/  V )  -> 
( ( ( R `
 F )  .\/  U )  ./\  V )  .<_  ( ( ( R `
 F )  .\/  U )  ./\  ( ( F `  P )  .\/  V ) ) ) )
3419, 22, 24, 31, 33syl13anc 1187 . . . . 5  |-  ( ph  ->  ( V  .<_  ( ( F `  P ) 
.\/  V )  -> 
( ( ( R `
 F )  .\/  U )  ./\  V )  .<_  ( ( ( R `
 F )  .\/  U )  ./\  ( ( F `  P )  .\/  V ) ) ) )
3517, 34mpd 15 . . . 4  |-  ( ph  ->  ( ( ( R `
 F )  .\/  U )  ./\  V )  .<_  ( ( ( R `
 F )  .\/  U )  ./\  ( ( F `  P )  .\/  V ) ) )
36 dia2dimlem3.rf . . . . . . 7  |-  ( ph  ->  ( R `  F
)  .<_  ( U  .\/  V ) )
3715, 7hlatjcom 30263 . . . . . . . 8  |-  ( ( K  e.  HL  /\  U  e.  A  /\  V  e.  A )  ->  ( U  .\/  V
)  =  ( V 
.\/  U ) )
382, 29, 14, 37syl3anc 1185 . . . . . . 7  |-  ( ph  ->  ( U  .\/  V
)  =  ( V 
.\/  U ) )
3936, 38breqtrd 4261 . . . . . 6  |-  ( ph  ->  ( R `  F
)  .<_  ( V  .\/  U ) )
40 dia2dimlem3.ru . . . . . . 7  |-  ( ph  ->  ( R `  F
)  =/=  U )
416, 15, 7hlatexch2 30291 . . . . . . 7  |-  ( ( K  e.  HL  /\  ( ( R `  F )  e.  A  /\  V  e.  A  /\  U  e.  A
)  /\  ( R `  F )  =/=  U
)  ->  ( ( R `  F )  .<_  ( V  .\/  U
)  ->  V  .<_  ( ( R `  F
)  .\/  U )
) )
422, 27, 14, 29, 40, 41syl131anc 1198 . . . . . 6  |-  ( ph  ->  ( ( R `  F )  .<_  ( V 
.\/  U )  ->  V  .<_  ( ( R `
 F )  .\/  U ) ) )
4339, 42mpd 15 . . . . 5  |-  ( ph  ->  V  .<_  ( ( R `  F )  .\/  U ) )
4420, 6, 32latleeqm2 14540 . . . . . 6  |-  ( ( K  e.  Lat  /\  V  e.  ( Base `  K )  /\  (
( R `  F
)  .\/  U )  e.  ( Base `  K
) )  ->  ( V  .<_  ( ( R `
 F )  .\/  U )  <->  ( ( ( R `  F ) 
.\/  U )  ./\  V )  =  V ) )
4519, 22, 31, 44syl3anc 1185 . . . . 5  |-  ( ph  ->  ( V  .<_  ( ( R `  F ) 
.\/  U )  <->  ( (
( R `  F
)  .\/  U )  ./\  V )  =  V ) )
4643, 45mpbid 203 . . . 4  |-  ( ph  ->  ( ( ( R `
 F )  .\/  U )  ./\  V )  =  V )
47 dia2dimlem3.d . . . . . 6  |-  ( ph  ->  D  e.  T )
48 dia2dimlem3.q . . . . . . 7  |-  Q  =  ( ( P  .\/  U )  ./\  ( ( F `  P )  .\/  V ) )
49 dia2dimlem3.uv . . . . . . 7  |-  ( ph  ->  U  =/=  V )
506, 15, 32, 7, 8, 9, 25, 48, 1, 28, 13, 5, 3, 36, 49, 40dia2dimlem1 31960 . . . . . 6  |-  ( ph  ->  ( Q  e.  A  /\  -.  Q  .<_  W ) )
516, 15, 32, 7, 8, 9, 25trlval2 31058 . . . . . 6  |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  D  e.  T  /\  ( Q  e.  A  /\  -.  Q  .<_  W ) )  ->  ( R `  D )  =  ( ( Q  .\/  ( D `  Q )
)  ./\  W )
)
521, 47, 50, 51syl3anc 1185 . . . . 5  |-  ( ph  ->  ( R `  D
)  =  ( ( Q  .\/  ( D `
 Q ) ) 
./\  W ) )
5348a1i 11 . . . . . . . . 9  |-  ( ph  ->  Q  =  ( ( P  .\/  U ) 
./\  ( ( F `
 P )  .\/  V ) ) )
54 dia2dimlem3.dv . . . . . . . . 9  |-  ( ph  ->  ( D `  Q
)  =  ( F `
 P ) )
5553, 54oveq12d 6128 . . . . . . . 8  |-  ( ph  ->  ( Q  .\/  ( D `  Q )
)  =  ( ( ( P  .\/  U
)  ./\  ( ( F `  P )  .\/  V ) )  .\/  ( F `  P ) ) )
565simpld 447 . . . . . . . . . 10  |-  ( ph  ->  P  e.  A )
5720, 15, 7hlatjcl 30262 . . . . . . . . . 10  |-  ( ( K  e.  HL  /\  P  e.  A  /\  U  e.  A )  ->  ( P  .\/  U
)  e.  ( Base `  K ) )
582, 56, 29, 57syl3anc 1185 . . . . . . . . 9  |-  ( ph  ->  ( P  .\/  U
)  e.  ( Base `  K ) )
596, 15, 7hlatlej1 30270 . . . . . . . . . 10  |-  ( ( K  e.  HL  /\  ( F `  P )  e.  A  /\  V  e.  A )  ->  ( F `  P )  .<_  ( ( F `  P )  .\/  V
) )
602, 12, 14, 59syl3anc 1185 . . . . . . . . 9  |-  ( ph  ->  ( F `  P
)  .<_  ( ( F `
 P )  .\/  V ) )
6120, 6, 15, 32, 7atmod4i1 30761 . . . . . . . . 9  |-  ( ( K  e.  HL  /\  ( ( F `  P )  e.  A  /\  ( P  .\/  U
)  e.  ( Base `  K )  /\  (
( F `  P
)  .\/  V )  e.  ( Base `  K
) )  /\  ( F `  P )  .<_  ( ( F `  P )  .\/  V
) )  ->  (
( ( P  .\/  U )  ./\  ( ( F `  P )  .\/  V ) )  .\/  ( F `  P ) )  =  ( ( ( P  .\/  U
)  .\/  ( F `  P ) )  ./\  ( ( F `  P )  .\/  V
) ) )
622, 12, 58, 24, 60, 61syl131anc 1198 . . . . . . . 8  |-  ( ph  ->  ( ( ( P 
.\/  U )  ./\  ( ( F `  P )  .\/  V
) )  .\/  ( F `  P )
)  =  ( ( ( P  .\/  U
)  .\/  ( F `  P ) )  ./\  ( ( F `  P )  .\/  V
) ) )
6315, 7hlatj32 30267 . . . . . . . . . 10  |-  ( ( K  e.  HL  /\  ( P  e.  A  /\  U  e.  A  /\  ( F `  P
)  e.  A ) )  ->  ( ( P  .\/  U )  .\/  ( F `  P ) )  =  ( ( P  .\/  ( F `
 P ) ) 
.\/  U ) )
642, 56, 29, 12, 63syl13anc 1187 . . . . . . . . 9  |-  ( ph  ->  ( ( P  .\/  U )  .\/  ( F `
 P ) )  =  ( ( P 
.\/  ( F `  P ) )  .\/  U ) )
6564oveq1d 6125 . . . . . . . 8  |-  ( ph  ->  ( ( ( P 
.\/  U )  .\/  ( F `  P ) )  ./\  ( ( F `  P )  .\/  V ) )  =  ( ( ( P 
.\/  ( F `  P ) )  .\/  U )  ./\  ( ( F `  P )  .\/  V ) ) )
6655, 62, 653eqtrd 2478 . . . . . . 7  |-  ( ph  ->  ( Q  .\/  ( D `  Q )
)  =  ( ( ( P  .\/  ( F `  P )
)  .\/  U )  ./\  ( ( F `  P )  .\/  V
) ) )
6766oveq1d 6125 . . . . . 6  |-  ( ph  ->  ( ( Q  .\/  ( D `  Q ) )  ./\  W )  =  ( ( ( ( P  .\/  ( F `  P )
)  .\/  U )  ./\  ( ( F `  P )  .\/  V
) )  ./\  W
) )
68 hlol 30257 . . . . . . . 8  |-  ( K  e.  HL  ->  K  e.  OL )
692, 68syl 16 . . . . . . 7  |-  ( ph  ->  K  e.  OL )
7020, 15, 7hlatjcl 30262 . . . . . . . . 9  |-  ( ( K  e.  HL  /\  P  e.  A  /\  ( F `  P )  e.  A )  -> 
( P  .\/  ( F `  P )
)  e.  ( Base `  K ) )
712, 56, 12, 70syl3anc 1185 . . . . . . . 8  |-  ( ph  ->  ( P  .\/  ( F `  P )
)  e.  ( Base `  K ) )
7220, 7atbase 30185 . . . . . . . . 9  |-  ( U  e.  A  ->  U  e.  ( Base `  K
) )
7329, 72syl 16 . . . . . . . 8  |-  ( ph  ->  U  e.  ( Base `  K ) )
7420, 15latjcl 14510 . . . . . . . 8  |-  ( ( K  e.  Lat  /\  ( P  .\/  ( F `
 P ) )  e.  ( Base `  K
)  /\  U  e.  ( Base `  K )
)  ->  ( ( P  .\/  ( F `  P ) )  .\/  U )  e.  ( Base `  K ) )
7519, 71, 73, 74syl3anc 1185 . . . . . . 7  |-  ( ph  ->  ( ( P  .\/  ( F `  P ) )  .\/  U )  e.  ( Base `  K
) )
761simprd 451 . . . . . . . 8  |-  ( ph  ->  W  e.  H )
7720, 8lhpbase 30893 . . . . . . . 8  |-  ( W  e.  H  ->  W  e.  ( Base `  K
) )
7876, 77syl 16 . . . . . . 7  |-  ( ph  ->  W  e.  ( Base `  K ) )
7920, 32latm32 30127 . . . . . . 7  |-  ( ( K  e.  OL  /\  ( ( ( P 
.\/  ( F `  P ) )  .\/  U )  e.  ( Base `  K )  /\  (
( F `  P
)  .\/  V )  e.  ( Base `  K
)  /\  W  e.  ( Base `  K )
) )  ->  (
( ( ( P 
.\/  ( F `  P ) )  .\/  U )  ./\  ( ( F `  P )  .\/  V ) )  ./\  W )  =  ( ( ( ( P  .\/  ( F `  P ) )  .\/  U ) 
./\  W )  ./\  ( ( F `  P )  .\/  V
) ) )
8069, 75, 24, 78, 79syl13anc 1187 . . . . . 6  |-  ( ph  ->  ( ( ( ( P  .\/  ( F `
 P ) ) 
.\/  U )  ./\  ( ( F `  P )  .\/  V
) )  ./\  W
)  =  ( ( ( ( P  .\/  ( F `  P ) )  .\/  U ) 
./\  W )  ./\  ( ( F `  P )  .\/  V
) ) )
816, 15, 32, 7, 8, 9, 25trlval2 31058 . . . . . . . . . 10  |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  F  e.  T  /\  ( P  e.  A  /\  -.  P  .<_  W ) )  ->  ( R `  F )  =  ( ( P  .\/  ( F `  P )
)  ./\  W )
)
821, 4, 5, 81syl3anc 1185 . . . . . . . . 9  |-  ( ph  ->  ( R `  F
)  =  ( ( P  .\/  ( F `
 P ) ) 
./\  W ) )
8382oveq1d 6125 . . . . . . . 8  |-  ( ph  ->  ( ( R `  F )  .\/  U
)  =  ( ( ( P  .\/  ( F `  P )
)  ./\  W )  .\/  U ) )
8428simprd 451 . . . . . . . . 9  |-  ( ph  ->  U  .<_  W )
8520, 6, 15, 32, 7atmod4i1 30761 . . . . . . . . 9  |-  ( ( K  e.  HL  /\  ( U  e.  A  /\  ( P  .\/  ( F `  P )
)  e.  ( Base `  K )  /\  W  e.  ( Base `  K
) )  /\  U  .<_  W )  ->  (
( ( P  .\/  ( F `  P ) )  ./\  W )  .\/  U )  =  ( ( ( P  .\/  ( F `  P ) )  .\/  U ) 
./\  W ) )
862, 29, 71, 78, 84, 85syl131anc 1198 . . . . . . . 8  |-  ( ph  ->  ( ( ( P 
.\/  ( F `  P ) )  ./\  W )  .\/  U )  =  ( ( ( P  .\/  ( F `
 P ) ) 
.\/  U )  ./\  W ) )
8783, 86eqtr2d 2475 . . . . . . 7  |-  ( ph  ->  ( ( ( P 
.\/  ( F `  P ) )  .\/  U )  ./\  W )  =  ( ( R `
 F )  .\/  U ) )
8887oveq1d 6125 . . . . . 6  |-  ( ph  ->  ( ( ( ( P  .\/  ( F `
 P ) ) 
.\/  U )  ./\  W )  ./\  ( ( F `  P )  .\/  V ) )  =  ( ( ( R `
 F )  .\/  U )  ./\  ( ( F `  P )  .\/  V ) ) )
8967, 80, 883eqtrd 2478 . . . . 5  |-  ( ph  ->  ( ( Q  .\/  ( D `  Q ) )  ./\  W )  =  ( ( ( R `  F ) 
.\/  U )  ./\  ( ( F `  P )  .\/  V
) ) )
9052, 89eqtr2d 2475 . . . 4  |-  ( ph  ->  ( ( ( R `
 F )  .\/  U )  ./\  ( ( F `  P )  .\/  V ) )  =  ( R `  D
) )
9135, 46, 903brtr3d 4266 . . 3  |-  ( ph  ->  V  .<_  ( R `  D ) )
92 hlatl 30256 . . . . 5  |-  ( K  e.  HL  ->  K  e.  AtLat )
932, 92syl 16 . . . 4  |-  ( ph  ->  K  e.  AtLat )
94 hlop 30258 . . . . . . . . . 10  |-  ( K  e.  HL  ->  K  e.  OP )
952, 94syl 16 . . . . . . . . 9  |-  ( ph  ->  K  e.  OP )
96 eqid 2442 . . . . . . . . . 10  |-  ( 0.
`  K )  =  ( 0. `  K
)
97 eqid 2442 . . . . . . . . . 10  |-  ( lt
`  K )  =  ( lt `  K
)
9896, 97, 70ltat 30187 . . . . . . . . 9  |-  ( ( K  e.  OP  /\  V  e.  A )  ->  ( 0. `  K
) ( lt `  K ) V )
9995, 14, 98syl2anc 644 . . . . . . . 8  |-  ( ph  ->  ( 0. `  K
) ( lt `  K ) V )
100 hlpos 30261 . . . . . . . . . 10  |-  ( K  e.  HL  ->  K  e.  Poset )
1012, 100syl 16 . . . . . . . . 9  |-  ( ph  ->  K  e.  Poset )
10220, 96op0cl 30080 . . . . . . . . . 10  |-  ( K  e.  OP  ->  ( 0. `  K )  e.  ( Base `  K
) )
10395, 102syl 16 . . . . . . . . 9  |-  ( ph  ->  ( 0. `  K
)  e.  ( Base `  K ) )
10420, 8, 9, 25trlcl 31059 . . . . . . . . . 10  |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  D  e.  T
)  ->  ( R `  D )  e.  (
Base `  K )
)
1051, 47, 104syl2anc 644 . . . . . . . . 9  |-  ( ph  ->  ( R `  D
)  e.  ( Base `  K ) )
10620, 6, 97pltletr 14459 . . . . . . . . 9  |-  ( ( K  e.  Poset  /\  (
( 0. `  K
)  e.  ( Base `  K )  /\  V  e.  ( Base `  K
)  /\  ( R `  D )  e.  (
Base `  K )
) )  ->  (
( ( 0. `  K ) ( lt
`  K ) V  /\  V  .<_  ( R `
 D ) )  ->  ( 0. `  K ) ( lt
`  K ) ( R `  D ) ) )
107101, 103, 22, 105, 106syl13anc 1187 . . . . . . . 8  |-  ( ph  ->  ( ( ( 0.
`  K ) ( lt `  K ) V  /\  V  .<_  ( R `  D ) )  ->  ( 0. `  K ) ( lt
`  K ) ( R `  D ) ) )
10899, 91, 107mp2and 662 . . . . . . 7  |-  ( ph  ->  ( 0. `  K
) ( lt `  K ) ( R `
 D ) )
10920, 97, 96opltn0 30086 . . . . . . . 8  |-  ( ( K  e.  OP  /\  ( R `  D )  e.  ( Base `  K
) )  ->  (
( 0. `  K
) ( lt `  K ) ( R `
 D )  <->  ( R `  D )  =/=  ( 0. `  K ) ) )
11095, 105, 109syl2anc 644 . . . . . . 7  |-  ( ph  ->  ( ( 0. `  K ) ( lt
`  K ) ( R `  D )  <-> 
( R `  D
)  =/=  ( 0.
`  K ) ) )
111108, 110mpbid 203 . . . . . 6  |-  ( ph  ->  ( R `  D
)  =/=  ( 0.
`  K ) )
112111neneqd 2623 . . . . 5  |-  ( ph  ->  -.  ( R `  D )  =  ( 0. `  K ) )
11396, 7, 8, 9, 25trlator0 31066 . . . . . . . 8  |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  D  e.  T
)  ->  ( ( R `  D )  e.  A  \/  ( R `  D )  =  ( 0. `  K ) ) )
1141, 47, 113syl2anc 644 . . . . . . 7  |-  ( ph  ->  ( ( R `  D )  e.  A  \/  ( R `  D
)  =  ( 0.
`  K ) ) )
115114orcomd 379 . . . . . 6  |-  ( ph  ->  ( ( R `  D )  =  ( 0. `  K )  \/  ( R `  D )  e.  A
) )
116115ord 368 . . . . 5  |-  ( ph  ->  ( -.  ( R `
 D )  =  ( 0. `  K
)  ->  ( R `  D )  e.  A
) )
117112, 116mpd 15 . . . 4  |-  ( ph  ->  ( R `  D
)  e.  A )
1186, 7atcmp 30207 . . . 4  |-  ( ( K  e.  AtLat  /\  V  e.  A  /\  ( R `  D )  e.  A )  ->  ( V  .<_  ( R `  D )  <->  V  =  ( R `  D ) ) )
11993, 14, 117, 118syl3anc 1185 . . 3  |-  ( ph  ->  ( V  .<_  ( R `
 D )  <->  V  =  ( R `  D ) ) )
12091, 119mpbid 203 . 2  |-  ( ph  ->  V  =  ( R `
 D ) )
121120eqcomd 2447 1  |-  ( ph  ->  ( R `  D
)  =  V )
Colors of variables: wff set class
Syntax hints:   -. wn 3    -> wi 4    <-> wb 178    \/ wo 359    /\ wa 360    = wceq 1653    e. wcel 1727    =/= wne 2605   class class class wbr 4237   ` cfv 5483  (class class class)co 6110   Basecbs 13500   lecple 13567   Posetcpo 14428   ltcplt 14429   joincjn 14432   meetcmee 14433   0.cp0 14497   Latclat 14505   OPcops 30068   OLcol 30070   Atomscatm 30159   AtLatcal 30160   HLchlt 30246   LHypclh 30879   LTrncltrn 30996   trLctrl 31053
This theorem is referenced by:  dia2dimlem5  31964
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1556  ax-5 1567  ax-17 1627  ax-9 1668  ax-8 1689  ax-13 1729  ax-14 1731  ax-6 1746  ax-7 1751  ax-11 1763  ax-12 1953  ax-ext 2423  ax-rep 4345  ax-sep 4355  ax-nul 4363  ax-pow 4406  ax-pr 4432  ax-un 4730
This theorem depends on definitions:  df-bi 179  df-or 361  df-an 362  df-3an 939  df-tru 1329  df-ex 1552  df-nf 1555  df-sb 1660  df-eu 2291  df-mo 2292  df-clab 2429  df-cleq 2435  df-clel 2438  df-nfc 2567  df-ne 2607  df-nel 2608  df-ral 2716  df-rex 2717  df-reu 2718  df-rab 2720  df-v 2964  df-sbc 3168  df-csb 3268  df-dif 3309  df-un 3311  df-in 3313  df-ss 3320  df-nul 3614  df-if 3764  df-pw 3825  df-sn 3844  df-pr 3845  df-op 3847  df-uni 4040  df-iun 4119  df-iin 4120  df-br 4238  df-opab 4292  df-mpt 4293  df-id 4527  df-xp 4913  df-rel 4914  df-cnv 4915  df-co 4916  df-dm 4917  df-rn 4918  df-res 4919  df-ima 4920  df-iota 5447  df-fun 5485  df-fn 5486  df-f 5487  df-f1 5488  df-fo 5489  df-f1o 5490  df-fv 5491  df-ov 6113  df-oprab 6114  df-mpt2 6115  df-1st 6378  df-2nd 6379  df-undef 6572  df-riota 6578  df-map 7049  df-poset 14434  df-plt 14446  df-lub 14462  df-glb 14463  df-join 14464  df-meet 14465  df-p0 14499  df-p1 14500  df-lat 14506  df-clat 14568  df-oposet 30072  df-ol 30074  df-oml 30075  df-covers 30162  df-ats 30163  df-atl 30194  df-cvlat 30218  df-hlat 30247  df-llines 30393  df-psubsp 30398  df-pmap 30399  df-padd 30691  df-lhyp 30883  df-laut 30884  df-ldil 30999  df-ltrn 31000  df-trl 31054
  Copyright terms: Public domain W3C validator