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

Theorem ltrnco 29597
Description: The composition of two translations is a translation. Part of proof of Lemma G of [Crawley] p. 116, line 15 on p. 117. (Contributed by NM, 31-May-2013.)
Hypotheses
Ref Expression
ltrnco.h  |-  H  =  ( LHyp `  K
)
ltrnco.t  |-  T  =  ( ( LTrn `  K
) `  W )
Assertion
Ref Expression
ltrnco  |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  F  e.  T  /\  G  e.  T
)  ->  ( F  o.  G )  e.  T
)

Proof of Theorem ltrnco
StepHypRef Expression
1 simp1 960 . . 3  |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  F  e.  T  /\  G  e.  T
)  ->  ( K  e.  HL  /\  W  e.  H ) )
2 ltrnco.h . . . . 5  |-  H  =  ( LHyp `  K
)
3 eqid 2253 . . . . 5  |-  ( (
LDil `  K ) `  W )  =  ( ( LDil `  K
) `  W )
4 ltrnco.t . . . . 5  |-  T  =  ( ( LTrn `  K
) `  W )
52, 3, 4ltrnldil 29000 . . . 4  |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  F  e.  T
)  ->  F  e.  ( ( LDil `  K
) `  W )
)
653adant3 980 . . 3  |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  F  e.  T  /\  G  e.  T
)  ->  F  e.  ( ( LDil `  K
) `  W )
)
72, 3, 4ltrnldil 29000 . . . 4  |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  G  e.  T
)  ->  G  e.  ( ( LDil `  K
) `  W )
)
873adant2 979 . . 3  |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  F  e.  T  /\  G  e.  T
)  ->  G  e.  ( ( LDil `  K
) `  W )
)
92, 3ldilco 28994 . . 3  |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  F  e.  ( ( LDil `  K
) `  W )  /\  G  e.  (
( LDil `  K ) `  W ) )  -> 
( F  o.  G
)  e.  ( (
LDil `  K ) `  W ) )
101, 6, 8, 9syl3anc 1187 . 2  |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  F  e.  T  /\  G  e.  T
)  ->  ( F  o.  G )  e.  ( ( LDil `  K
) `  W )
)
11 simp11 990 . . . . 5  |-  ( ( ( ( K  e.  HL  /\  W  e.  H )  /\  F  e.  T  /\  G  e.  T )  /\  (
p  e.  ( Atoms `  K )  /\  q  e.  ( Atoms `  K )
)  /\  ( -.  p ( le `  K ) W  /\  -.  q ( le `  K ) W ) )  ->  ( K  e.  HL  /\  W  e.  H ) )
12 simp2l 986 . . . . . 6  |-  ( ( ( ( K  e.  HL  /\  W  e.  H )  /\  F  e.  T  /\  G  e.  T )  /\  (
p  e.  ( Atoms `  K )  /\  q  e.  ( Atoms `  K )
)  /\  ( -.  p ( le `  K ) W  /\  -.  q ( le `  K ) W ) )  ->  p  e.  ( Atoms `  K )
)
13 simp3l 988 . . . . . 6  |-  ( ( ( ( K  e.  HL  /\  W  e.  H )  /\  F  e.  T  /\  G  e.  T )  /\  (
p  e.  ( Atoms `  K )  /\  q  e.  ( Atoms `  K )
)  /\  ( -.  p ( le `  K ) W  /\  -.  q ( le `  K ) W ) )  ->  -.  p
( le `  K
) W )
1412, 13jca 520 . . . . 5  |-  ( ( ( ( K  e.  HL  /\  W  e.  H )  /\  F  e.  T  /\  G  e.  T )  /\  (
p  e.  ( Atoms `  K )  /\  q  e.  ( Atoms `  K )
)  /\  ( -.  p ( le `  K ) W  /\  -.  q ( le `  K ) W ) )  ->  ( p  e.  ( Atoms `  K )  /\  -.  p ( le
`  K ) W ) )
15 simp2r 987 . . . . . 6  |-  ( ( ( ( K  e.  HL  /\  W  e.  H )  /\  F  e.  T  /\  G  e.  T )  /\  (
p  e.  ( Atoms `  K )  /\  q  e.  ( Atoms `  K )
)  /\  ( -.  p ( le `  K ) W  /\  -.  q ( le `  K ) W ) )  ->  q  e.  ( Atoms `  K )
)
16 simp3r 989 . . . . . 6  |-  ( ( ( ( K  e.  HL  /\  W  e.  H )  /\  F  e.  T  /\  G  e.  T )  /\  (
p  e.  ( Atoms `  K )  /\  q  e.  ( Atoms `  K )
)  /\  ( -.  p ( le `  K ) W  /\  -.  q ( le `  K ) W ) )  ->  -.  q
( le `  K
) W )
1715, 16jca 520 . . . . 5  |-  ( ( ( ( K  e.  HL  /\  W  e.  H )  /\  F  e.  T  /\  G  e.  T )  /\  (
p  e.  ( Atoms `  K )  /\  q  e.  ( Atoms `  K )
)  /\  ( -.  p ( le `  K ) W  /\  -.  q ( le `  K ) W ) )  ->  ( q  e.  ( Atoms `  K )  /\  -.  q ( le
`  K ) W ) )
18 simp12 991 . . . . 5  |-  ( ( ( ( K  e.  HL  /\  W  e.  H )  /\  F  e.  T  /\  G  e.  T )  /\  (
p  e.  ( Atoms `  K )  /\  q  e.  ( Atoms `  K )
)  /\  ( -.  p ( le `  K ) W  /\  -.  q ( le `  K ) W ) )  ->  F  e.  T )
19 simp13 992 . . . . 5  |-  ( ( ( ( K  e.  HL  /\  W  e.  H )  /\  F  e.  T  /\  G  e.  T )  /\  (
p  e.  ( Atoms `  K )  /\  q  e.  ( Atoms `  K )
)  /\  ( -.  p ( le `  K ) W  /\  -.  q ( le `  K ) W ) )  ->  G  e.  T )
20 eqid 2253 . . . . . 6  |-  ( le
`  K )  =  ( le `  K
)
21 eqid 2253 . . . . . 6  |-  ( join `  K )  =  (
join `  K )
22 eqid 2253 . . . . . 6  |-  ( meet `  K )  =  (
meet `  K )
23 eqid 2253 . . . . . 6  |-  ( Atoms `  K )  =  (
Atoms `  K )
2420, 21, 22, 23, 2, 4cdlemg41 29596 . . . . 5  |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  ( ( p  e.  ( Atoms `  K
)  /\  -.  p
( le `  K
) W )  /\  ( q  e.  (
Atoms `  K )  /\  -.  q ( le `  K ) W ) )  /\  ( F  e.  T  /\  G  e.  T ) )  -> 
( ( p (
join `  K )
( ( F  o.  G ) `  p
) ) ( meet `  K ) W )  =  ( ( q ( join `  K
) ( ( F  o.  G ) `  q ) ) (
meet `  K ) W ) )
2511, 14, 17, 18, 19, 24syl122anc 1196 . . . 4  |-  ( ( ( ( K  e.  HL  /\  W  e.  H )  /\  F  e.  T  /\  G  e.  T )  /\  (
p  e.  ( Atoms `  K )  /\  q  e.  ( Atoms `  K )
)  /\  ( -.  p ( le `  K ) W  /\  -.  q ( le `  K ) W ) )  ->  ( (
p ( join `  K
) ( ( F  o.  G ) `  p ) ) (
meet `  K ) W )  =  ( ( q ( join `  K ) ( ( F  o.  G ) `
 q ) ) ( meet `  K
) W ) )
26253exp 1155 . . 3  |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  F  e.  T  /\  G  e.  T
)  ->  ( (
p  e.  ( Atoms `  K )  /\  q  e.  ( Atoms `  K )
)  ->  ( ( -.  p ( le `  K ) W  /\  -.  q ( le `  K ) W )  ->  ( ( p ( join `  K
) ( ( F  o.  G ) `  p ) ) (
meet `  K ) W )  =  ( ( q ( join `  K ) ( ( F  o.  G ) `
 q ) ) ( meet `  K
) W ) ) ) )
2726ralrimivv 2596 . 2  |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  F  e.  T  /\  G  e.  T
)  ->  A. p  e.  ( Atoms `  K ) A. q  e.  ( Atoms `  K ) ( ( -.  p ( le `  K ) W  /\  -.  q
( le `  K
) W )  -> 
( ( p (
join `  K )
( ( F  o.  G ) `  p
) ) ( meet `  K ) W )  =  ( ( q ( join `  K
) ( ( F  o.  G ) `  q ) ) (
meet `  K ) W ) ) )
2820, 21, 22, 23, 2, 3, 4isltrn 28997 . . 3  |-  ( ( K  e.  HL  /\  W  e.  H )  ->  ( ( F  o.  G )  e.  T  <->  ( ( F  o.  G
)  e.  ( (
LDil `  K ) `  W )  /\  A. p  e.  ( Atoms `  K ) A. q  e.  ( Atoms `  K )
( ( -.  p
( le `  K
) W  /\  -.  q ( le `  K ) W )  ->  ( ( p ( join `  K
) ( ( F  o.  G ) `  p ) ) (
meet `  K ) W )  =  ( ( q ( join `  K ) ( ( F  o.  G ) `
 q ) ) ( meet `  K
) W ) ) ) ) )
29283ad2ant1 981 . 2  |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  F  e.  T  /\  G  e.  T
)  ->  ( ( F  o.  G )  e.  T  <->  ( ( F  o.  G )  e.  ( ( LDil `  K
) `  W )  /\  A. p  e.  (
Atoms `  K ) A. q  e.  ( Atoms `  K ) ( ( -.  p ( le
`  K ) W  /\  -.  q ( le `  K ) W )  ->  (
( p ( join `  K ) ( ( F  o.  G ) `
 p ) ) ( meet `  K
) W )  =  ( ( q (
join `  K )
( ( F  o.  G ) `  q
) ) ( meet `  K ) W ) ) ) ) )
3010, 27, 29mpbir2and 893 1  |-  ( ( ( K  e.  HL  /\  W  e.  H )  /\  F  e.  T  /\  G  e.  T
)  ->  ( F  o.  G )  e.  T
)
Colors of variables: wff set class
Syntax hints:   -. wn 5    -> wi 6    <-> wb 178    /\ wa 360    /\ w3a 939    = wceq 1619    e. wcel 1621   A.wral 2509   class class class wbr 3920    o. ccom 4584   ` cfv 4592  (class class class)co 5710   lecple 13089   joincjn 13922   meetcmee 13923   Atomscatm 28142   HLchlt 28229   LHypclh 28862   LDilcldil 28978   LTrncltrn 28979
This theorem is referenced by:  trlcocnv  29598  trlcoabs2N  29600  trlcoat  29601  trlconid  29603  trlcolem  29604  trlcone  29606  cdlemg44  29611  cdlemg46  29613  cdlemg47  29614  trljco  29618  tgrpgrplem  29627  tendoidcl  29647  tendococl  29650  tendoplcl2  29656  tendoplco2  29657  tendoplcl  29659  tendo0co2  29666  tendoicl  29674  cdlemh1  29693  cdlemh2  29694  cdlemh  29695  cdlemi2  29697  cdlemi  29698  cdlemk2  29710  cdlemk3  29711  cdlemk4  29712  cdlemk8  29716  cdlemk9  29717  cdlemk9bN  29718  cdlemkvcl  29720  cdlemk10  29721  cdlemk11  29727  cdlemk12  29728  cdlemk14  29732  cdlemk11u  29749  cdlemk12u  29750  cdlemk37  29792  cdlemkfid1N  29799  cdlemkid1  29800  cdlemk45  29825  cdlemk47  29827  cdlemk48  29828  cdlemk50  29830  cdlemk52  29832  cdlemk53a  29833  cdlemk54  29836  cdlemk55a  29837  cdlemk55u1  29843  cdlemk55u  29844  tendospcanN  29902  dvalveclem  29904  dialss  29925  dia2dimlem4  29946  dvhvaddcl  29974  diblss  30049  cdlemn3  30076  dihopelvalcpre  30127  dih1  30165  dihglbcpreN  30179  dihjatcclem3  30299  dihjatcclem4  30300
This theorem was proved from axioms:  ax-1 7  ax-2 8  ax-3 9  ax-mp 10  ax-5 1533  ax-6 1534  ax-7 1535  ax-gen 1536  ax-8 1623  ax-11 1624  ax-13 1625  ax-14 1626  ax-17 1628  ax-12o 1664  ax-10 1678  ax-9 1684  ax-4 1692  ax-16 1926  ax-ext 2234  ax-rep 4028  ax-sep 4038  ax-nul 4046  ax-pow 4082  ax-pr 4108  ax-un 4403
This theorem depends on definitions:  df-bi 179  df-or 361  df-an 362  df-3or 940  df-3an 941  df-tru 1315  df-ex 1538  df-nf 1540  df-sb 1883  df-eu 2118  df-mo 2119  df-clab 2240  df-cleq 2246  df-clel 2249  df-nfc 2374  df-ne 2414  df-nel 2415  df-ral 2513  df-rex 2514  df-reu 2515  df-rab 2516  df-v 2729  df-sbc 2922  df-csb 3010  df-dif 3081  df-un 3083  df-in 3085  df-ss 3089  df-nul 3363  df-if 3471  df-pw 3532  df-sn 3550  df-pr 3551  df-op 3553  df-uni 3728  df-iun 3805  df-iin 3806  df-br 3921  df-opab 3975  df-mpt 3976  df-id 4202  df-xp 4594  df-rel 4595  df-cnv 4596  df-co 4597  df-dm 4598  df-rn 4599  df-res 4600  df-ima 4601  df-fun 4602  df-fn 4603  df-f 4604  df-f1 4605  df-fo 4606  df-f1o 4607  df-fv 4608  df-ov 5713  df-oprab 5714  df-mpt2 5715  df-1st 5974  df-2nd 5975  df-iota 6143  df-undef 6182  df-riota 6190  df-map 6660  df-poset 13924  df-plt 13936  df-lub 13952  df-glb 13953  df-join 13954  df-meet 13955  df-p0 13989  df-p1 13990  df-lat 13996  df-clat 14058  df-oposet 28055  df-ol 28057  df-oml 28058  df-covers 28145  df-ats 28146  df-atl 28177  df-cvlat 28201  df-hlat 28230  df-llines 28376  df-lplanes 28377  df-lvols 28378  df-lines 28379  df-psubsp 28381  df-pmap 28382  df-padd 28674  df-lhyp 28866  df-laut 28867  df-ldil 28982  df-ltrn 28983  df-trl 29037
  Copyright terms: Public domain W3C validator