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

Theorem ltrnco 36426
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 𝐻 = (LHyp‘𝐾)
ltrnco.t 𝑇 = ((LTrn‘𝐾)‘𝑊)
Assertion
Ref Expression
ltrnco (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ 𝐹𝑇𝐺𝑇) → (𝐹𝐺) ∈ 𝑇)

Proof of Theorem ltrnco
Dummy variables 𝑞 𝑝 are mutually distinct and distinct from all other variables.
StepHypRef Expression
1 simp1 1128 . . 3 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ 𝐹𝑇𝐺𝑇) → (𝐾 ∈ HL ∧ 𝑊𝐻))
2 ltrnco.h . . . . 5 𝐻 = (LHyp‘𝐾)
3 eqid 2724 . . . . 5 ((LDil‘𝐾)‘𝑊) = ((LDil‘𝐾)‘𝑊)
4 ltrnco.t . . . . 5 𝑇 = ((LTrn‘𝐾)‘𝑊)
52, 3, 4ltrnldil 35828 . . . 4 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ 𝐹𝑇) → 𝐹 ∈ ((LDil‘𝐾)‘𝑊))
653adant3 1124 . . 3 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ 𝐹𝑇𝐺𝑇) → 𝐹 ∈ ((LDil‘𝐾)‘𝑊))
72, 3, 4ltrnldil 35828 . . . 4 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ 𝐺𝑇) → 𝐺 ∈ ((LDil‘𝐾)‘𝑊))
873adant2 1123 . . 3 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ 𝐹𝑇𝐺𝑇) → 𝐺 ∈ ((LDil‘𝐾)‘𝑊))
92, 3ldilco 35822 . . 3 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ 𝐹 ∈ ((LDil‘𝐾)‘𝑊) ∧ 𝐺 ∈ ((LDil‘𝐾)‘𝑊)) → (𝐹𝐺) ∈ ((LDil‘𝐾)‘𝑊))
101, 6, 8, 9syl3anc 1439 . 2 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ 𝐹𝑇𝐺𝑇) → (𝐹𝐺) ∈ ((LDil‘𝐾)‘𝑊))
11 simp11 1222 . . . . 5 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ 𝐹𝑇𝐺𝑇) ∧ (𝑝 ∈ (Atoms‘𝐾) ∧ 𝑞 ∈ (Atoms‘𝐾)) ∧ (¬ 𝑝(le‘𝐾)𝑊 ∧ ¬ 𝑞(le‘𝐾)𝑊)) → (𝐾 ∈ HL ∧ 𝑊𝐻))
12 simp2l 1218 . . . . . 6 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ 𝐹𝑇𝐺𝑇) ∧ (𝑝 ∈ (Atoms‘𝐾) ∧ 𝑞 ∈ (Atoms‘𝐾)) ∧ (¬ 𝑝(le‘𝐾)𝑊 ∧ ¬ 𝑞(le‘𝐾)𝑊)) → 𝑝 ∈ (Atoms‘𝐾))
13 simp3l 1220 . . . . . 6 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ 𝐹𝑇𝐺𝑇) ∧ (𝑝 ∈ (Atoms‘𝐾) ∧ 𝑞 ∈ (Atoms‘𝐾)) ∧ (¬ 𝑝(le‘𝐾)𝑊 ∧ ¬ 𝑞(le‘𝐾)𝑊)) → ¬ 𝑝(le‘𝐾)𝑊)
1412, 13jca 555 . . . . 5 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ 𝐹𝑇𝐺𝑇) ∧ (𝑝 ∈ (Atoms‘𝐾) ∧ 𝑞 ∈ (Atoms‘𝐾)) ∧ (¬ 𝑝(le‘𝐾)𝑊 ∧ ¬ 𝑞(le‘𝐾)𝑊)) → (𝑝 ∈ (Atoms‘𝐾) ∧ ¬ 𝑝(le‘𝐾)𝑊))
15 simp2r 1219 . . . . . 6 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ 𝐹𝑇𝐺𝑇) ∧ (𝑝 ∈ (Atoms‘𝐾) ∧ 𝑞 ∈ (Atoms‘𝐾)) ∧ (¬ 𝑝(le‘𝐾)𝑊 ∧ ¬ 𝑞(le‘𝐾)𝑊)) → 𝑞 ∈ (Atoms‘𝐾))
16 simp3r 1221 . . . . . 6 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ 𝐹𝑇𝐺𝑇) ∧ (𝑝 ∈ (Atoms‘𝐾) ∧ 𝑞 ∈ (Atoms‘𝐾)) ∧ (¬ 𝑝(le‘𝐾)𝑊 ∧ ¬ 𝑞(le‘𝐾)𝑊)) → ¬ 𝑞(le‘𝐾)𝑊)
1715, 16jca 555 . . . . 5 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ 𝐹𝑇𝐺𝑇) ∧ (𝑝 ∈ (Atoms‘𝐾) ∧ 𝑞 ∈ (Atoms‘𝐾)) ∧ (¬ 𝑝(le‘𝐾)𝑊 ∧ ¬ 𝑞(le‘𝐾)𝑊)) → (𝑞 ∈ (Atoms‘𝐾) ∧ ¬ 𝑞(le‘𝐾)𝑊))
18 simp12 1223 . . . . 5 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ 𝐹𝑇𝐺𝑇) ∧ (𝑝 ∈ (Atoms‘𝐾) ∧ 𝑞 ∈ (Atoms‘𝐾)) ∧ (¬ 𝑝(le‘𝐾)𝑊 ∧ ¬ 𝑞(le‘𝐾)𝑊)) → 𝐹𝑇)
19 simp13 1224 . . . . 5 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ 𝐹𝑇𝐺𝑇) ∧ (𝑝 ∈ (Atoms‘𝐾) ∧ 𝑞 ∈ (Atoms‘𝐾)) ∧ (¬ 𝑝(le‘𝐾)𝑊 ∧ ¬ 𝑞(le‘𝐾)𝑊)) → 𝐺𝑇)
20 eqid 2724 . . . . . 6 (le‘𝐾) = (le‘𝐾)
21 eqid 2724 . . . . . 6 (join‘𝐾) = (join‘𝐾)
22 eqid 2724 . . . . . 6 (meet‘𝐾) = (meet‘𝐾)
23 eqid 2724 . . . . . 6 (Atoms‘𝐾) = (Atoms‘𝐾)
2420, 21, 22, 23, 2, 4cdlemg41 36425 . . . . 5 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ ((𝑝 ∈ (Atoms‘𝐾) ∧ ¬ 𝑝(le‘𝐾)𝑊) ∧ (𝑞 ∈ (Atoms‘𝐾) ∧ ¬ 𝑞(le‘𝐾)𝑊)) ∧ (𝐹𝑇𝐺𝑇)) → ((𝑝(join‘𝐾)((𝐹𝐺)‘𝑝))(meet‘𝐾)𝑊) = ((𝑞(join‘𝐾)((𝐹𝐺)‘𝑞))(meet‘𝐾)𝑊))
2511, 14, 17, 18, 19, 24syl122anc 1448 . . . 4 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ 𝐹𝑇𝐺𝑇) ∧ (𝑝 ∈ (Atoms‘𝐾) ∧ 𝑞 ∈ (Atoms‘𝐾)) ∧ (¬ 𝑝(le‘𝐾)𝑊 ∧ ¬ 𝑞(le‘𝐾)𝑊)) → ((𝑝(join‘𝐾)((𝐹𝐺)‘𝑝))(meet‘𝐾)𝑊) = ((𝑞(join‘𝐾)((𝐹𝐺)‘𝑞))(meet‘𝐾)𝑊))
26253exp 1112 . . 3 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ 𝐹𝑇𝐺𝑇) → ((𝑝 ∈ (Atoms‘𝐾) ∧ 𝑞 ∈ (Atoms‘𝐾)) → ((¬ 𝑝(le‘𝐾)𝑊 ∧ ¬ 𝑞(le‘𝐾)𝑊) → ((𝑝(join‘𝐾)((𝐹𝐺)‘𝑝))(meet‘𝐾)𝑊) = ((𝑞(join‘𝐾)((𝐹𝐺)‘𝑞))(meet‘𝐾)𝑊))))
2726ralrimivv 3072 . 2 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ 𝐹𝑇𝐺𝑇) → ∀𝑝 ∈ (Atoms‘𝐾)∀𝑞 ∈ (Atoms‘𝐾)((¬ 𝑝(le‘𝐾)𝑊 ∧ ¬ 𝑞(le‘𝐾)𝑊) → ((𝑝(join‘𝐾)((𝐹𝐺)‘𝑝))(meet‘𝐾)𝑊) = ((𝑞(join‘𝐾)((𝐹𝐺)‘𝑞))(meet‘𝐾)𝑊)))
2820, 21, 22, 23, 2, 3, 4isltrn 35825 . . 3 ((𝐾 ∈ HL ∧ 𝑊𝐻) → ((𝐹𝐺) ∈ 𝑇 ↔ ((𝐹𝐺) ∈ ((LDil‘𝐾)‘𝑊) ∧ ∀𝑝 ∈ (Atoms‘𝐾)∀𝑞 ∈ (Atoms‘𝐾)((¬ 𝑝(le‘𝐾)𝑊 ∧ ¬ 𝑞(le‘𝐾)𝑊) → ((𝑝(join‘𝐾)((𝐹𝐺)‘𝑝))(meet‘𝐾)𝑊) = ((𝑞(join‘𝐾)((𝐹𝐺)‘𝑞))(meet‘𝐾)𝑊)))))
29283ad2ant1 1125 . 2 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ 𝐹𝑇𝐺𝑇) → ((𝐹𝐺) ∈ 𝑇 ↔ ((𝐹𝐺) ∈ ((LDil‘𝐾)‘𝑊) ∧ ∀𝑝 ∈ (Atoms‘𝐾)∀𝑞 ∈ (Atoms‘𝐾)((¬ 𝑝(le‘𝐾)𝑊 ∧ ¬ 𝑞(le‘𝐾)𝑊) → ((𝑝(join‘𝐾)((𝐹𝐺)‘𝑝))(meet‘𝐾)𝑊) = ((𝑞(join‘𝐾)((𝐹𝐺)‘𝑞))(meet‘𝐾)𝑊)))))
3010, 27, 29mpbir2and 995 1 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ 𝐹𝑇𝐺𝑇) → (𝐹𝐺) ∈ 𝑇)
Colors of variables: wff setvar class
Syntax hints:  ¬ wn 3  wi 4  wb 196  wa 383  w3a 1072   = wceq 1596  wcel 2103  wral 3014   class class class wbr 4760  ccom 5222  cfv 6001  (class class class)co 6765  lecple 16071  joincjn 17066  meetcmee 17067  Atomscatm 34970  HLchlt 35057  LHypclh 35690  LDilcldil 35806  LTrncltrn 35807
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1835  ax-4 1850  ax-5 1952  ax-6 2018  ax-7 2054  ax-8 2105  ax-9 2112  ax-10 2132  ax-11 2147  ax-12 2160  ax-13 2355  ax-ext 2704  ax-rep 4879  ax-sep 4889  ax-nul 4897  ax-pow 4948  ax-pr 5011  ax-un 7066  ax-riotaBAD 34659
This theorem depends on definitions:  df-bi 197  df-or 384  df-an 385  df-3or 1073  df-3an 1074  df-tru 1599  df-ex 1818  df-nf 1823  df-sb 2011  df-eu 2575  df-mo 2576  df-clab 2711  df-cleq 2717  df-clel 2720  df-nfc 2855  df-ne 2897  df-nel 3000  df-ral 3019  df-rex 3020  df-reu 3021  df-rmo 3022  df-rab 3023  df-v 3306  df-sbc 3542  df-csb 3640  df-dif 3683  df-un 3685  df-in 3687  df-ss 3694  df-nul 4024  df-if 4195  df-pw 4268  df-sn 4286  df-pr 4288  df-op 4292  df-uni 4545  df-iun 4630  df-iin 4631  df-br 4761  df-opab 4821  df-mpt 4838  df-id 5128  df-xp 5224  df-rel 5225  df-cnv 5226  df-co 5227  df-dm 5228  df-rn 5229  df-res 5230  df-ima 5231  df-iota 5964  df-fun 6003  df-fn 6004  df-f 6005  df-f1 6006  df-fo 6007  df-f1o 6008  df-fv 6009  df-riota 6726  df-ov 6768  df-oprab 6769  df-mpt2 6770  df-1st 7285  df-2nd 7286  df-undef 7519  df-map 7976  df-preset 17050  df-poset 17068  df-plt 17080  df-lub 17096  df-glb 17097  df-join 17098  df-meet 17099  df-p0 17161  df-p1 17162  df-lat 17168  df-clat 17230  df-oposet 34883  df-ol 34885  df-oml 34886  df-covers 34973  df-ats 34974  df-atl 35005  df-cvlat 35029  df-hlat 35058  df-llines 35204  df-lplanes 35205  df-lvols 35206  df-lines 35207  df-psubsp 35209  df-pmap 35210  df-padd 35502  df-lhyp 35694  df-laut 35695  df-ldil 35810  df-ltrn 35811  df-trl 35866
This theorem is referenced by:  trlcocnv  36427  trlcoabs2N  36429  trlcoat  36430  trlconid  36432  trlcolem  36433  trlcone  36435  cdlemg44  36440  cdlemg46  36442  cdlemg47  36443  trljco  36447  tgrpgrplem  36456  tendoidcl  36476  tendococl  36479  tendoplcl2  36485  tendoplco2  36486  tendoplcl  36488  tendo0co2  36495  tendoicl  36503  cdlemh1  36522  cdlemh2  36523  cdlemh  36524  cdlemi2  36526  cdlemi  36527  cdlemk2  36539  cdlemk3  36540  cdlemk4  36541  cdlemk8  36545  cdlemk9  36546  cdlemk9bN  36547  cdlemkvcl  36549  cdlemk10  36550  cdlemk11  36556  cdlemk12  36557  cdlemk14  36561  cdlemk11u  36578  cdlemk12u  36579  cdlemk37  36621  cdlemkfid1N  36628  cdlemkid1  36629  cdlemk45  36654  cdlemk47  36656  cdlemk48  36657  cdlemk50  36659  cdlemk52  36661  cdlemk53a  36662  cdlemk54  36665  cdlemk55a  36666  cdlemk55u1  36672  cdlemk55u  36673  tendospcanN  36731  dvalveclem  36733  dialss  36754  dia2dimlem4  36775  dvhvaddcl  36803  diblss  36878  cdlemn3  36905  dihopelvalcpre  36956  dih1  36994  dihglbcpreN  37008  dihjatcclem3  37128  dihjatcclem4  37129
  Copyright terms: Public domain W3C validator