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

Theorem cdlemg17 36855
Description: Part of Lemma G of [Crawley] p. 117, lines 7 and 8. We show an argument whose value at  G equals itself. TODO: fix comment. (Contributed by NM, 12-May-2013.)
Hypotheses
Ref Expression
cdlemg12.l  |-  .<_  =  ( le `  K )
cdlemg12.j  |-  .\/  =  ( join `  K )
cdlemg12.m  |-  ./\  =  ( meet `  K )
cdlemg12.a  |-  A  =  ( Atoms `  K )
cdlemg12.h  |-  H  =  ( LHyp `  K
)
cdlemg12.t  |-  T  =  ( ( LTrn `  K
) `  W )
cdlemg12b.r  |-  R  =  ( ( trL `  K
) `  W )
Assertion
Ref Expression
cdlemg17  |-  ( ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( P  e.  A  /\  -.  P  .<_  W )  /\  ( Q  e.  A  /\  -.  Q  .<_  W ) )  /\  ( F  e.  T  /\  G  e.  T  /\  P  =/=  Q
)  /\  ( ( G `  P )  =/=  P  /\  ( R `
 G )  .<_  ( P  .\/  Q )  /\  -.  E. r  e.  A  ( -.  r  .<_  W  /\  ( P  .\/  r )  =  ( Q  .\/  r
) ) ) )  ->  ( G `  ( ( P  .\/  ( F `  ( G `
 P ) ) )  ./\  ( Q  .\/  ( F `  ( G `  Q )
) ) ) )  =  ( ( P 
.\/  ( F `  ( G `  P ) ) )  ./\  ( Q  .\/  ( F `  ( G `  Q ) ) ) ) )
Distinct variable groups:    A, r    G, r    .\/ , r    .<_ , r    P, r    Q, r    W, r    F, r
Allowed substitution hints:    R( r)    T( r)    H( r)    K( r)    ./\ ( r)

Proof of Theorem cdlemg17
StepHypRef Expression
1 simp11 1024 . . . . 5  |-  ( ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( P  e.  A  /\  -.  P  .<_  W )  /\  ( Q  e.  A  /\  -.  Q  .<_  W ) )  /\  ( F  e.  T  /\  G  e.  T  /\  P  =/=  Q
)  /\  ( ( G `  P )  =/=  P  /\  ( R `
 G )  .<_  ( P  .\/  Q )  /\  -.  E. r  e.  A  ( -.  r  .<_  W  /\  ( P  .\/  r )  =  ( Q  .\/  r
) ) ) )  ->  ( K  e.  HL  /\  W  e.  H ) )
2 simp22 1028 . . . . 5  |-  ( ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( P  e.  A  /\  -.  P  .<_  W )  /\  ( Q  e.  A  /\  -.  Q  .<_  W ) )  /\  ( F  e.  T  /\  G  e.  T  /\  P  =/=  Q
)  /\  ( ( G `  P )  =/=  P  /\  ( R `
 G )  .<_  ( P  .\/  Q )  /\  -.  E. r  e.  A  ( -.  r  .<_  W  /\  ( P  .\/  r )  =  ( Q  .\/  r
) ) ) )  ->  G  e.  T
)
3 simp12l 1107 . . . . . 6  |-  ( ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( P  e.  A  /\  -.  P  .<_  W )  /\  ( Q  e.  A  /\  -.  Q  .<_  W ) )  /\  ( F  e.  T  /\  G  e.  T  /\  P  =/=  Q
)  /\  ( ( G `  P )  =/=  P  /\  ( R `
 G )  .<_  ( P  .\/  Q )  /\  -.  E. r  e.  A  ( -.  r  .<_  W  /\  ( P  .\/  r )  =  ( Q  .\/  r
) ) ) )  ->  P  e.  A
)
4 eqid 2396 . . . . . . 7  |-  ( Base `  K )  =  (
Base `  K )
5 cdlemg12.a . . . . . . 7  |-  A  =  ( Atoms `  K )
64, 5atbase 35466 . . . . . 6  |-  ( P  e.  A  ->  P  e.  ( Base `  K
) )
73, 6syl 16 . . . . 5  |-  ( ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( P  e.  A  /\  -.  P  .<_  W )  /\  ( Q  e.  A  /\  -.  Q  .<_  W ) )  /\  ( F  e.  T  /\  G  e.  T  /\  P  =/=  Q
)  /\  ( ( G `  P )  =/=  P  /\  ( R `
 G )  .<_  ( P  .\/  Q )  /\  -.  E. r  e.  A  ( -.  r  .<_  W  /\  ( P  .\/  r )  =  ( Q  .\/  r
) ) ) )  ->  P  e.  (
Base `  K )
)
8 simp21 1027 . . . . . . 7  |-  ( ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( P  e.  A  /\  -.  P  .<_  W )  /\  ( Q  e.  A  /\  -.  Q  .<_  W ) )  /\  ( F  e.  T  /\  G  e.  T  /\  P  =/=  Q
)  /\  ( ( G `  P )  =/=  P  /\  ( R `
 G )  .<_  ( P  .\/  Q )  /\  -.  E. r  e.  A  ( -.  r  .<_  W  /\  ( P  .\/  r )  =  ( Q  .\/  r
) ) ) )  ->  F  e.  T
)
9 cdlemg12.l . . . . . . . 8  |-  .<_  =  ( le `  K )
10 cdlemg12.h . . . . . . . 8  |-  H  =  ( LHyp `  K
)
11 cdlemg12.t . . . . . . . 8  |-  T  =  ( ( LTrn `  K
) `  W )
129, 5, 10, 11ltrncoat 36320 . . . . . . 7  |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( F  e.  T  /\  G  e.  T )  /\  P  e.  A )  ->  ( F `  ( G `  P ) )  e.  A )
131, 8, 2, 3, 12syl121anc 1231 . . . . . 6  |-  ( ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( P  e.  A  /\  -.  P  .<_  W )  /\  ( Q  e.  A  /\  -.  Q  .<_  W ) )  /\  ( F  e.  T  /\  G  e.  T  /\  P  =/=  Q
)  /\  ( ( G `  P )  =/=  P  /\  ( R `
 G )  .<_  ( P  .\/  Q )  /\  -.  E. r  e.  A  ( -.  r  .<_  W  /\  ( P  .\/  r )  =  ( Q  .\/  r
) ) ) )  ->  ( F `  ( G `  P ) )  e.  A )
144, 5atbase 35466 . . . . . 6  |-  ( ( F `  ( G `
 P ) )  e.  A  ->  ( F `  ( G `  P ) )  e.  ( Base `  K
) )
1513, 14syl 16 . . . . 5  |-  ( ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( P  e.  A  /\  -.  P  .<_  W )  /\  ( Q  e.  A  /\  -.  Q  .<_  W ) )  /\  ( F  e.  T  /\  G  e.  T  /\  P  =/=  Q
)  /\  ( ( G `  P )  =/=  P  /\  ( R `
 G )  .<_  ( P  .\/  Q )  /\  -.  E. r  e.  A  ( -.  r  .<_  W  /\  ( P  .\/  r )  =  ( Q  .\/  r
) ) ) )  ->  ( F `  ( G `  P ) )  e.  ( Base `  K ) )
16 cdlemg12.j . . . . . 6  |-  .\/  =  ( join `  K )
174, 16, 10, 11ltrnj 36308 . . . . 5  |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  G  e.  T  /\  ( P  e.  (
Base `  K )  /\  ( F `  ( G `  P )
)  e.  ( Base `  K ) ) )  ->  ( G `  ( P  .\/  ( F `
 ( G `  P ) ) ) )  =  ( ( G `  P ) 
.\/  ( G `  ( F `  ( G `
 P ) ) ) ) )
181, 2, 7, 15, 17syl112anc 1230 . . . 4  |-  ( ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( P  e.  A  /\  -.  P  .<_  W )  /\  ( Q  e.  A  /\  -.  Q  .<_  W ) )  /\  ( F  e.  T  /\  G  e.  T  /\  P  =/=  Q
)  /\  ( ( G `  P )  =/=  P  /\  ( R `
 G )  .<_  ( P  .\/  Q )  /\  -.  E. r  e.  A  ( -.  r  .<_  W  /\  ( P  .\/  r )  =  ( Q  .\/  r
) ) ) )  ->  ( G `  ( P  .\/  ( F `
 ( G `  P ) ) ) )  =  ( ( G `  P ) 
.\/  ( G `  ( F `  ( G `
 P ) ) ) ) )
19 simp1 994 . . . . . 6  |-  ( ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( P  e.  A  /\  -.  P  .<_  W )  /\  ( Q  e.  A  /\  -.  Q  .<_  W ) )  /\  ( F  e.  T  /\  G  e.  T  /\  P  =/=  Q
)  /\  ( ( G `  P )  =/=  P  /\  ( R `
 G )  .<_  ( P  .\/  Q )  /\  -.  E. r  e.  A  ( -.  r  .<_  W  /\  ( P  .\/  r )  =  ( Q  .\/  r
) ) ) )  ->  ( ( K  e.  HL  /\  W  e.  H )  /\  ( P  e.  A  /\  -.  P  .<_  W )  /\  ( Q  e.  A  /\  -.  Q  .<_  W ) ) )
20 simp23 1029 . . . . . 6  |-  ( ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( P  e.  A  /\  -.  P  .<_  W )  /\  ( Q  e.  A  /\  -.  Q  .<_  W ) )  /\  ( F  e.  T  /\  G  e.  T  /\  P  =/=  Q
)  /\  ( ( G `  P )  =/=  P  /\  ( R `
 G )  .<_  ( P  .\/  Q )  /\  -.  E. r  e.  A  ( -.  r  .<_  W  /\  ( P  .\/  r )  =  ( Q  .\/  r
) ) ) )  ->  P  =/=  Q
)
21 simp3 996 . . . . . 6  |-  ( ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( P  e.  A  /\  -.  P  .<_  W )  /\  ( Q  e.  A  /\  -.  Q  .<_  W ) )  /\  ( F  e.  T  /\  G  e.  T  /\  P  =/=  Q
)  /\  ( ( G `  P )  =/=  P  /\  ( R `
 G )  .<_  ( P  .\/  Q )  /\  -.  E. r  e.  A  ( -.  r  .<_  W  /\  ( P  .\/  r )  =  ( Q  .\/  r
) ) ) )  ->  ( ( G `
 P )  =/= 
P  /\  ( R `  G )  .<_  ( P 
.\/  Q )  /\  -.  E. r  e.  A  ( -.  r  .<_  W  /\  ( P  .\/  r )  =  ( Q  .\/  r ) ) ) )
22 cdlemg12.m . . . . . . 7  |-  ./\  =  ( meet `  K )
23 cdlemg12b.r . . . . . . 7  |-  R  =  ( ( trL `  K
) `  W )
249, 16, 22, 5, 10, 11, 23cdlemg17b 36840 . . . . . 6  |-  ( ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( P  e.  A  /\  -.  P  .<_  W )  /\  ( Q  e.  A  /\  -.  Q  .<_  W ) )  /\  ( G  e.  T  /\  P  =/=  Q
)  /\  ( ( G `  P )  =/=  P  /\  ( R `
 G )  .<_  ( P  .\/  Q )  /\  -.  E. r  e.  A  ( -.  r  .<_  W  /\  ( P  .\/  r )  =  ( Q  .\/  r
) ) ) )  ->  ( G `  P )  =  Q )
2519, 2, 20, 21, 24syl121anc 1231 . . . . 5  |-  ( ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( P  e.  A  /\  -.  P  .<_  W )  /\  ( Q  e.  A  /\  -.  Q  .<_  W ) )  /\  ( F  e.  T  /\  G  e.  T  /\  P  =/=  Q
)  /\  ( ( G `  P )  =/=  P  /\  ( R `
 G )  .<_  ( P  .\/  Q )  /\  -.  E. r  e.  A  ( -.  r  .<_  W  /\  ( P  .\/  r )  =  ( Q  .\/  r
) ) ) )  ->  ( G `  P )  =  Q )
2625fveq2d 5795 . . . . . . 7  |-  ( ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( P  e.  A  /\  -.  P  .<_  W )  /\  ( Q  e.  A  /\  -.  Q  .<_  W ) )  /\  ( F  e.  T  /\  G  e.  T  /\  P  =/=  Q
)  /\  ( ( G `  P )  =/=  P  /\  ( R `
 G )  .<_  ( P  .\/  Q )  /\  -.  E. r  e.  A  ( -.  r  .<_  W  /\  ( P  .\/  r )  =  ( Q  .\/  r
) ) ) )  ->  ( F `  ( G `  P ) )  =  ( F `
 Q ) )
2726fveq2d 5795 . . . . . 6  |-  ( ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( P  e.  A  /\  -.  P  .<_  W )  /\  ( Q  e.  A  /\  -.  Q  .<_  W ) )  /\  ( F  e.  T  /\  G  e.  T  /\  P  =/=  Q
)  /\  ( ( G `  P )  =/=  P  /\  ( R `
 G )  .<_  ( P  .\/  Q )  /\  -.  E. r  e.  A  ( -.  r  .<_  W  /\  ( P  .\/  r )  =  ( Q  .\/  r
) ) ) )  ->  ( G `  ( F `  ( G `
 P ) ) )  =  ( G `
 ( F `  Q ) ) )
289, 16, 22, 5, 10, 11, 23cdlemg17jq 36854 . . . . . 6  |-  ( ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( P  e.  A  /\  -.  P  .<_  W )  /\  ( Q  e.  A  /\  -.  Q  .<_  W ) )  /\  ( F  e.  T  /\  G  e.  T  /\  P  =/=  Q
)  /\  ( ( G `  P )  =/=  P  /\  ( R `
 G )  .<_  ( P  .\/  Q )  /\  -.  E. r  e.  A  ( -.  r  .<_  W  /\  ( P  .\/  r )  =  ( Q  .\/  r
) ) ) )  ->  ( G `  ( F `  Q ) )  =  ( F `
 ( G `  Q ) ) )
2927, 28eqtrd 2437 . . . . 5  |-  ( ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( P  e.  A  /\  -.  P  .<_  W )  /\  ( Q  e.  A  /\  -.  Q  .<_  W ) )  /\  ( F  e.  T  /\  G  e.  T  /\  P  =/=  Q
)  /\  ( ( G `  P )  =/=  P  /\  ( R `
 G )  .<_  ( P  .\/  Q )  /\  -.  E. r  e.  A  ( -.  r  .<_  W  /\  ( P  .\/  r )  =  ( Q  .\/  r
) ) ) )  ->  ( G `  ( F `  ( G `
 P ) ) )  =  ( F `
 ( G `  Q ) ) )
3025, 29oveq12d 6236 . . . 4  |-  ( ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( P  e.  A  /\  -.  P  .<_  W )  /\  ( Q  e.  A  /\  -.  Q  .<_  W ) )  /\  ( F  e.  T  /\  G  e.  T  /\  P  =/=  Q
)  /\  ( ( G `  P )  =/=  P  /\  ( R `
 G )  .<_  ( P  .\/  Q )  /\  -.  E. r  e.  A  ( -.  r  .<_  W  /\  ( P  .\/  r )  =  ( Q  .\/  r
) ) ) )  ->  ( ( G `
 P )  .\/  ( G `  ( F `
 ( G `  P ) ) ) )  =  ( Q 
.\/  ( F `  ( G `  Q ) ) ) )
3118, 30eqtrd 2437 . . 3  |-  ( ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( P  e.  A  /\  -.  P  .<_  W )  /\  ( Q  e.  A  /\  -.  Q  .<_  W ) )  /\  ( F  e.  T  /\  G  e.  T  /\  P  =/=  Q
)  /\  ( ( G `  P )  =/=  P  /\  ( R `
 G )  .<_  ( P  .\/  Q )  /\  -.  E. r  e.  A  ( -.  r  .<_  W  /\  ( P  .\/  r )  =  ( Q  .\/  r
) ) ) )  ->  ( G `  ( P  .\/  ( F `
 ( G `  P ) ) ) )  =  ( Q 
.\/  ( F `  ( G `  Q ) ) ) )
32 simp13l 1109 . . . . . 6  |-  ( ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( P  e.  A  /\  -.  P  .<_  W )  /\  ( Q  e.  A  /\  -.  Q  .<_  W ) )  /\  ( F  e.  T  /\  G  e.  T  /\  P  =/=  Q
)  /\  ( ( G `  P )  =/=  P  /\  ( R `
 G )  .<_  ( P  .\/  Q )  /\  -.  E. r  e.  A  ( -.  r  .<_  W  /\  ( P  .\/  r )  =  ( Q  .\/  r
) ) ) )  ->  Q  e.  A
)
334, 5atbase 35466 . . . . . 6  |-  ( Q  e.  A  ->  Q  e.  ( Base `  K
) )
3432, 33syl 16 . . . . 5  |-  ( ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( P  e.  A  /\  -.  P  .<_  W )  /\  ( Q  e.  A  /\  -.  Q  .<_  W ) )  /\  ( F  e.  T  /\  G  e.  T  /\  P  =/=  Q
)  /\  ( ( G `  P )  =/=  P  /\  ( R `
 G )  .<_  ( P  .\/  Q )  /\  -.  E. r  e.  A  ( -.  r  .<_  W  /\  ( P  .\/  r )  =  ( Q  .\/  r
) ) ) )  ->  Q  e.  (
Base `  K )
)
359, 5, 10, 11ltrncoat 36320 . . . . . . 7  |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( F  e.  T  /\  G  e.  T )  /\  Q  e.  A )  ->  ( F `  ( G `  Q ) )  e.  A )
361, 8, 2, 32, 35syl121anc 1231 . . . . . 6  |-  ( ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( P  e.  A  /\  -.  P  .<_  W )  /\  ( Q  e.  A  /\  -.  Q  .<_  W ) )  /\  ( F  e.  T  /\  G  e.  T  /\  P  =/=  Q
)  /\  ( ( G `  P )  =/=  P  /\  ( R `
 G )  .<_  ( P  .\/  Q )  /\  -.  E. r  e.  A  ( -.  r  .<_  W  /\  ( P  .\/  r )  =  ( Q  .\/  r
) ) ) )  ->  ( F `  ( G `  Q ) )  e.  A )
374, 5atbase 35466 . . . . . 6  |-  ( ( F `  ( G `
 Q ) )  e.  A  ->  ( F `  ( G `  Q ) )  e.  ( Base `  K
) )
3836, 37syl 16 . . . . 5  |-  ( ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( P  e.  A  /\  -.  P  .<_  W )  /\  ( Q  e.  A  /\  -.  Q  .<_  W ) )  /\  ( F  e.  T  /\  G  e.  T  /\  P  =/=  Q
)  /\  ( ( G `  P )  =/=  P  /\  ( R `
 G )  .<_  ( P  .\/  Q )  /\  -.  E. r  e.  A  ( -.  r  .<_  W  /\  ( P  .\/  r )  =  ( Q  .\/  r
) ) ) )  ->  ( F `  ( G `  Q ) )  e.  ( Base `  K ) )
394, 16, 10, 11ltrnj 36308 . . . . 5  |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  G  e.  T  /\  ( Q  e.  (
Base `  K )  /\  ( F `  ( G `  Q )
)  e.  ( Base `  K ) ) )  ->  ( G `  ( Q  .\/  ( F `
 ( G `  Q ) ) ) )  =  ( ( G `  Q ) 
.\/  ( G `  ( F `  ( G `
 Q ) ) ) ) )
401, 2, 34, 38, 39syl112anc 1230 . . . 4  |-  ( ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( P  e.  A  /\  -.  P  .<_  W )  /\  ( Q  e.  A  /\  -.  Q  .<_  W ) )  /\  ( F  e.  T  /\  G  e.  T  /\  P  =/=  Q
)  /\  ( ( G `  P )  =/=  P  /\  ( R `
 G )  .<_  ( P  .\/  Q )  /\  -.  E. r  e.  A  ( -.  r  .<_  W  /\  ( P  .\/  r )  =  ( Q  .\/  r
) ) ) )  ->  ( G `  ( Q  .\/  ( F `
 ( G `  Q ) ) ) )  =  ( ( G `  Q ) 
.\/  ( G `  ( F `  ( G `
 Q ) ) ) ) )
419, 16, 22, 5, 10, 11, 23cdlemg17bq 36851 . . . . 5  |-  ( ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( P  e.  A  /\  -.  P  .<_  W )  /\  ( Q  e.  A  /\  -.  Q  .<_  W ) )  /\  ( F  e.  T  /\  G  e.  T  /\  P  =/=  Q
)  /\  ( ( G `  P )  =/=  P  /\  ( R `
 G )  .<_  ( P  .\/  Q )  /\  -.  E. r  e.  A  ( -.  r  .<_  W  /\  ( P  .\/  r )  =  ( Q  .\/  r
) ) ) )  ->  ( G `  Q )  =  P )
4241fveq2d 5795 . . . . . . 7  |-  ( ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( P  e.  A  /\  -.  P  .<_  W )  /\  ( Q  e.  A  /\  -.  Q  .<_  W ) )  /\  ( F  e.  T  /\  G  e.  T  /\  P  =/=  Q
)  /\  ( ( G `  P )  =/=  P  /\  ( R `
 G )  .<_  ( P  .\/  Q )  /\  -.  E. r  e.  A  ( -.  r  .<_  W  /\  ( P  .\/  r )  =  ( Q  .\/  r
) ) ) )  ->  ( F `  ( G `  Q ) )  =  ( F `
 P ) )
4342fveq2d 5795 . . . . . 6  |-  ( ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( P  e.  A  /\  -.  P  .<_  W )  /\  ( Q  e.  A  /\  -.  Q  .<_  W ) )  /\  ( F  e.  T  /\  G  e.  T  /\  P  =/=  Q
)  /\  ( ( G `  P )  =/=  P  /\  ( R `
 G )  .<_  ( P  .\/  Q )  /\  -.  E. r  e.  A  ( -.  r  .<_  W  /\  ( P  .\/  r )  =  ( Q  .\/  r
) ) ) )  ->  ( G `  ( F `  ( G `
 Q ) ) )  =  ( G `
 ( F `  P ) ) )
449, 16, 22, 5, 10, 11, 23cdlemg17j 36849 . . . . . 6  |-  ( ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( P  e.  A  /\  -.  P  .<_  W )  /\  ( Q  e.  A  /\  -.  Q  .<_  W ) )  /\  ( F  e.  T  /\  G  e.  T  /\  P  =/=  Q
)  /\  ( ( G `  P )  =/=  P  /\  ( R `
 G )  .<_  ( P  .\/  Q )  /\  -.  E. r  e.  A  ( -.  r  .<_  W  /\  ( P  .\/  r )  =  ( Q  .\/  r
) ) ) )  ->  ( G `  ( F `  P ) )  =  ( F `
 ( G `  P ) ) )
4543, 44eqtrd 2437 . . . . 5  |-  ( ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( P  e.  A  /\  -.  P  .<_  W )  /\  ( Q  e.  A  /\  -.  Q  .<_  W ) )  /\  ( F  e.  T  /\  G  e.  T  /\  P  =/=  Q
)  /\  ( ( G `  P )  =/=  P  /\  ( R `
 G )  .<_  ( P  .\/  Q )  /\  -.  E. r  e.  A  ( -.  r  .<_  W  /\  ( P  .\/  r )  =  ( Q  .\/  r
) ) ) )  ->  ( G `  ( F `  ( G `
 Q ) ) )  =  ( F `
 ( G `  P ) ) )
4641, 45oveq12d 6236 . . . 4  |-  ( ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( P  e.  A  /\  -.  P  .<_  W )  /\  ( Q  e.  A  /\  -.  Q  .<_  W ) )  /\  ( F  e.  T  /\  G  e.  T  /\  P  =/=  Q
)  /\  ( ( G `  P )  =/=  P  /\  ( R `
 G )  .<_  ( P  .\/  Q )  /\  -.  E. r  e.  A  ( -.  r  .<_  W  /\  ( P  .\/  r )  =  ( Q  .\/  r
) ) ) )  ->  ( ( G `
 Q )  .\/  ( G `  ( F `
 ( G `  Q ) ) ) )  =  ( P 
.\/  ( F `  ( G `  P ) ) ) )
4740, 46eqtrd 2437 . . 3  |-  ( ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( P  e.  A  /\  -.  P  .<_  W )  /\  ( Q  e.  A  /\  -.  Q  .<_  W ) )  /\  ( F  e.  T  /\  G  e.  T  /\  P  =/=  Q
)  /\  ( ( G `  P )  =/=  P  /\  ( R `
 G )  .<_  ( P  .\/  Q )  /\  -.  E. r  e.  A  ( -.  r  .<_  W  /\  ( P  .\/  r )  =  ( Q  .\/  r
) ) ) )  ->  ( G `  ( Q  .\/  ( F `
 ( G `  Q ) ) ) )  =  ( P 
.\/  ( F `  ( G `  P ) ) ) )
4831, 47oveq12d 6236 . 2  |-  ( ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( P  e.  A  /\  -.  P  .<_  W )  /\  ( Q  e.  A  /\  -.  Q  .<_  W ) )  /\  ( F  e.  T  /\  G  e.  T  /\  P  =/=  Q
)  /\  ( ( G `  P )  =/=  P  /\  ( R `
 G )  .<_  ( P  .\/  Q )  /\  -.  E. r  e.  A  ( -.  r  .<_  W  /\  ( P  .\/  r )  =  ( Q  .\/  r
) ) ) )  ->  ( ( G `
 ( P  .\/  ( F `  ( G `
 P ) ) ) )  ./\  ( G `  ( Q  .\/  ( F `  ( G `  Q )
) ) ) )  =  ( ( Q 
.\/  ( F `  ( G `  Q ) ) )  ./\  ( P  .\/  ( F `  ( G `  P ) ) ) ) )
49 simp11l 1105 . . . 4  |-  ( ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( P  e.  A  /\  -.  P  .<_  W )  /\  ( Q  e.  A  /\  -.  Q  .<_  W ) )  /\  ( F  e.  T  /\  G  e.  T  /\  P  =/=  Q
)  /\  ( ( G `  P )  =/=  P  /\  ( R `
 G )  .<_  ( P  .\/  Q )  /\  -.  E. r  e.  A  ( -.  r  .<_  W  /\  ( P  .\/  r )  =  ( Q  .\/  r
) ) ) )  ->  K  e.  HL )
504, 16, 5hlatjcl 35543 . . . 4  |-  ( ( K  e.  HL  /\  P  e.  A  /\  ( F `  ( G `
 P ) )  e.  A )  -> 
( P  .\/  ( F `  ( G `  P ) ) )  e.  ( Base `  K
) )
5149, 3, 13, 50syl3anc 1226 . . 3  |-  ( ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( P  e.  A  /\  -.  P  .<_  W )  /\  ( Q  e.  A  /\  -.  Q  .<_  W ) )  /\  ( F  e.  T  /\  G  e.  T  /\  P  =/=  Q
)  /\  ( ( G `  P )  =/=  P  /\  ( R `
 G )  .<_  ( P  .\/  Q )  /\  -.  E. r  e.  A  ( -.  r  .<_  W  /\  ( P  .\/  r )  =  ( Q  .\/  r
) ) ) )  ->  ( P  .\/  ( F `  ( G `
 P ) ) )  e.  ( Base `  K ) )
524, 16, 5hlatjcl 35543 . . . 4  |-  ( ( K  e.  HL  /\  Q  e.  A  /\  ( F `  ( G `
 Q ) )  e.  A )  -> 
( Q  .\/  ( F `  ( G `  Q ) ) )  e.  ( Base `  K
) )
5349, 32, 36, 52syl3anc 1226 . . 3  |-  ( ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( P  e.  A  /\  -.  P  .<_  W )  /\  ( Q  e.  A  /\  -.  Q  .<_  W ) )  /\  ( F  e.  T  /\  G  e.  T  /\  P  =/=  Q
)  /\  ( ( G `  P )  =/=  P  /\  ( R `
 G )  .<_  ( P  .\/  Q )  /\  -.  E. r  e.  A  ( -.  r  .<_  W  /\  ( P  .\/  r )  =  ( Q  .\/  r
) ) ) )  ->  ( Q  .\/  ( F `  ( G `
 Q ) ) )  e.  ( Base `  K ) )
544, 22, 10, 11ltrnm 36307 . . 3  |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  G  e.  T  /\  ( ( P  .\/  ( F `  ( G `
 P ) ) )  e.  ( Base `  K )  /\  ( Q  .\/  ( F `  ( G `  Q ) ) )  e.  (
Base `  K )
) )  ->  ( G `  ( ( P  .\/  ( F `  ( G `  P ) ) )  ./\  ( Q  .\/  ( F `  ( G `  Q ) ) ) ) )  =  ( ( G `
 ( P  .\/  ( F `  ( G `
 P ) ) ) )  ./\  ( G `  ( Q  .\/  ( F `  ( G `  Q )
) ) ) ) )
551, 2, 51, 53, 54syl112anc 1230 . 2  |-  ( ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( P  e.  A  /\  -.  P  .<_  W )  /\  ( Q  e.  A  /\  -.  Q  .<_  W ) )  /\  ( F  e.  T  /\  G  e.  T  /\  P  =/=  Q
)  /\  ( ( G `  P )  =/=  P  /\  ( R `
 G )  .<_  ( P  .\/  Q )  /\  -.  E. r  e.  A  ( -.  r  .<_  W  /\  ( P  .\/  r )  =  ( Q  .\/  r
) ) ) )  ->  ( G `  ( ( P  .\/  ( F `  ( G `
 P ) ) )  ./\  ( Q  .\/  ( F `  ( G `  Q )
) ) ) )  =  ( ( G `
 ( P  .\/  ( F `  ( G `
 P ) ) ) )  ./\  ( G `  ( Q  .\/  ( F `  ( G `  Q )
) ) ) ) )
56 hllat 35540 . . . 4  |-  ( K  e.  HL  ->  K  e.  Lat )
5749, 56syl 16 . . 3  |-  ( ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( P  e.  A  /\  -.  P  .<_  W )  /\  ( Q  e.  A  /\  -.  Q  .<_  W ) )  /\  ( F  e.  T  /\  G  e.  T  /\  P  =/=  Q
)  /\  ( ( G `  P )  =/=  P  /\  ( R `
 G )  .<_  ( P  .\/  Q )  /\  -.  E. r  e.  A  ( -.  r  .<_  W  /\  ( P  .\/  r )  =  ( Q  .\/  r
) ) ) )  ->  K  e.  Lat )
584, 22latmcom 15845 . . 3  |-  ( ( K  e.  Lat  /\  ( P  .\/  ( F `
 ( G `  P ) ) )  e.  ( Base `  K
)  /\  ( Q  .\/  ( F `  ( G `  Q )
) )  e.  (
Base `  K )
)  ->  ( ( P  .\/  ( F `  ( G `  P ) ) )  ./\  ( Q  .\/  ( F `  ( G `  Q ) ) ) )  =  ( ( Q  .\/  ( F `  ( G `
 Q ) ) )  ./\  ( P  .\/  ( F `  ( G `  P )
) ) ) )
5957, 51, 53, 58syl3anc 1226 . 2  |-  ( ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( P  e.  A  /\  -.  P  .<_  W )  /\  ( Q  e.  A  /\  -.  Q  .<_  W ) )  /\  ( F  e.  T  /\  G  e.  T  /\  P  =/=  Q
)  /\  ( ( G `  P )  =/=  P  /\  ( R `
 G )  .<_  ( P  .\/  Q )  /\  -.  E. r  e.  A  ( -.  r  .<_  W  /\  ( P  .\/  r )  =  ( Q  .\/  r
) ) ) )  ->  ( ( P 
.\/  ( F `  ( G `  P ) ) )  ./\  ( Q  .\/  ( F `  ( G `  Q ) ) ) )  =  ( ( Q  .\/  ( F `  ( G `
 Q ) ) )  ./\  ( P  .\/  ( F `  ( G `  P )
) ) ) )
6048, 55, 593eqtr4d 2447 1  |-  ( ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( P  e.  A  /\  -.  P  .<_  W )  /\  ( Q  e.  A  /\  -.  Q  .<_  W ) )  /\  ( F  e.  T  /\  G  e.  T  /\  P  =/=  Q
)  /\  ( ( G `  P )  =/=  P  /\  ( R `
 G )  .<_  ( P  .\/  Q )  /\  -.  E. r  e.  A  ( -.  r  .<_  W  /\  ( P  .\/  r )  =  ( Q  .\/  r
) ) ) )  ->  ( G `  ( ( P  .\/  ( F `  ( G `
 P ) ) )  ./\  ( Q  .\/  ( F `  ( G `  Q )
) ) ) )  =  ( ( P 
.\/  ( F `  ( G `  P ) ) )  ./\  ( Q  .\/  ( F `  ( G `  Q ) ) ) ) )
Colors of variables: wff setvar class
Syntax hints:   -. wn 3    -> wi 4    /\ wa 367    /\ w3a 971    = wceq 1399    e. wcel 1836    =/= wne 2591   E.wrex 2747   class class class wbr 4384   ` cfv 5513  (class class class)co 6218   Basecbs 14657   lecple 14732   joincjn 15713   meetcmee 15714   Latclat 15815   Atomscatm 35440   HLchlt 35527   LHypclh 36160   LTrncltrn 36277   trLctrl 36335
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1633  ax-4 1646  ax-5 1719  ax-6 1765  ax-7 1808  ax-8 1838  ax-9 1840  ax-10 1855  ax-11 1860  ax-12 1872  ax-13 2020  ax-ext 2374  ax-rep 4495  ax-sep 4505  ax-nul 4513  ax-pow 4560  ax-pr 4618  ax-un 6513  ax-riotaBAD 35136
This theorem depends on definitions:  df-bi 185  df-or 368  df-an 369  df-3or 972  df-3an 973  df-tru 1402  df-ex 1628  df-nf 1632  df-sb 1758  df-eu 2236  df-mo 2237  df-clab 2382  df-cleq 2388  df-clel 2391  df-nfc 2546  df-ne 2593  df-nel 2594  df-ral 2751  df-rex 2752  df-reu 2753  df-rmo 2754  df-rab 2755  df-v 3053  df-sbc 3270  df-csb 3366  df-dif 3409  df-un 3411  df-in 3413  df-ss 3420  df-nul 3729  df-if 3875  df-pw 3946  df-sn 3962  df-pr 3964  df-op 3968  df-uni 4181  df-iun 4262  df-iin 4263  df-br 4385  df-opab 4443  df-mpt 4444  df-id 4726  df-xp 4936  df-rel 4937  df-cnv 4938  df-co 4939  df-dm 4940  df-rn 4941  df-res 4942  df-ima 4943  df-iota 5477  df-fun 5515  df-fn 5516  df-f 5517  df-f1 5518  df-fo 5519  df-f1o 5520  df-fv 5521  df-riota 6180  df-ov 6221  df-oprab 6222  df-mpt2 6223  df-1st 6721  df-2nd 6722  df-undef 6942  df-map 7362  df-preset 15697  df-poset 15715  df-plt 15728  df-lub 15744  df-glb 15745  df-join 15746  df-meet 15747  df-p0 15809  df-p1 15810  df-lat 15816  df-clat 15878  df-oposet 35353  df-ol 35355  df-oml 35356  df-covers 35443  df-ats 35444  df-atl 35475  df-cvlat 35499  df-hlat 35528  df-llines 35674  df-lplanes 35675  df-lvols 35676  df-lines 35677  df-psubsp 35679  df-pmap 35680  df-padd 35972  df-lhyp 36164  df-laut 36165  df-ldil 36280  df-ltrn 36281  df-trl 36336
This theorem is referenced by:  cdlemg18  36860
  Copyright terms: Public domain W3C validator