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

Theorem tendoex 36800
Description: Generalization of Lemma K of [Crawley] p. 118, cdlemk 36799. TODO: can this be used to shorten uses of cdlemk 36799? (Contributed by NM, 15-Oct-2013.)
Hypotheses
Ref Expression
tendoex.l = (le‘𝐾)
tendoex.h 𝐻 = (LHyp‘𝐾)
tendoex.t 𝑇 = ((LTrn‘𝐾)‘𝑊)
tendoex.r 𝑅 = ((trL‘𝐾)‘𝑊)
tendoex.e 𝐸 = ((TEndo‘𝐾)‘𝑊)
Assertion
Ref Expression
tendoex (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝐹𝑇𝑁𝑇) ∧ (𝑅𝑁) (𝑅𝐹)) → ∃𝑢𝐸 (𝑢𝐹) = 𝑁)
Distinct variable groups:   𝑢,𝐸   𝑢,𝐹   𝑢,𝐾   𝑢,𝑁   𝑢,𝑅   𝑢,𝑇   𝑢,𝑊
Allowed substitution hints:   𝐻(𝑢)   (𝑢)

Proof of Theorem tendoex
Dummy variable is distinct from all other variables.
StepHypRef Expression
1 simpl1l 1284 . . . . . . 7 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝐹𝑇𝑁𝑇) ∧ (𝑅𝑁) (𝑅𝐹)) ∧ (𝑅𝐹) ∈ (Atoms‘𝐾)) → 𝐾 ∈ HL)
2 hlop 35186 . . . . . . 7 (𝐾 ∈ HL → 𝐾 ∈ OP)
31, 2syl 17 . . . . . 6 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝐹𝑇𝑁𝑇) ∧ (𝑅𝑁) (𝑅𝐹)) ∧ (𝑅𝐹) ∈ (Atoms‘𝐾)) → 𝐾 ∈ OP)
4 simpl1 1233 . . . . . . 7 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝐹𝑇𝑁𝑇) ∧ (𝑅𝑁) (𝑅𝐹)) ∧ (𝑅𝐹) ∈ (Atoms‘𝐾)) → (𝐾 ∈ HL ∧ 𝑊𝐻))
5 simpl2r 1290 . . . . . . 7 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝐹𝑇𝑁𝑇) ∧ (𝑅𝑁) (𝑅𝐹)) ∧ (𝑅𝐹) ∈ (Atoms‘𝐾)) → 𝑁𝑇)
6 eqid 2774 . . . . . . . 8 (Base‘𝐾) = (Base‘𝐾)
7 tendoex.h . . . . . . . 8 𝐻 = (LHyp‘𝐾)
8 tendoex.t . . . . . . . 8 𝑇 = ((LTrn‘𝐾)‘𝑊)
9 tendoex.r . . . . . . . 8 𝑅 = ((trL‘𝐾)‘𝑊)
106, 7, 8, 9trlcl 35989 . . . . . . 7 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ 𝑁𝑇) → (𝑅𝑁) ∈ (Base‘𝐾))
114, 5, 10syl2anc 574 . . . . . 6 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝐹𝑇𝑁𝑇) ∧ (𝑅𝑁) (𝑅𝐹)) ∧ (𝑅𝐹) ∈ (Atoms‘𝐾)) → (𝑅𝑁) ∈ (Base‘𝐾))
12 simpr 472 . . . . . 6 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝐹𝑇𝑁𝑇) ∧ (𝑅𝑁) (𝑅𝐹)) ∧ (𝑅𝐹) ∈ (Atoms‘𝐾)) → (𝑅𝐹) ∈ (Atoms‘𝐾))
13 simpl3 1237 . . . . . 6 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝐹𝑇𝑁𝑇) ∧ (𝑅𝑁) (𝑅𝐹)) ∧ (𝑅𝐹) ∈ (Atoms‘𝐾)) → (𝑅𝑁) (𝑅𝐹))
14 tendoex.l . . . . . . 7 = (le‘𝐾)
15 eqid 2774 . . . . . . 7 (0.‘𝐾) = (0.‘𝐾)
16 eqid 2774 . . . . . . 7 (Atoms‘𝐾) = (Atoms‘𝐾)
176, 14, 15, 16leat 35117 . . . . . 6 (((𝐾 ∈ OP ∧ (𝑅𝑁) ∈ (Base‘𝐾) ∧ (𝑅𝐹) ∈ (Atoms‘𝐾)) ∧ (𝑅𝑁) (𝑅𝐹)) → ((𝑅𝑁) = (𝑅𝐹) ∨ (𝑅𝑁) = (0.‘𝐾)))
183, 11, 12, 13, 17syl31anc 1482 . . . . 5 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝐹𝑇𝑁𝑇) ∧ (𝑅𝑁) (𝑅𝐹)) ∧ (𝑅𝐹) ∈ (Atoms‘𝐾)) → ((𝑅𝑁) = (𝑅𝐹) ∨ (𝑅𝑁) = (0.‘𝐾)))
19 simp3 1159 . . . . . . . . 9 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝐹𝑇𝑁𝑇) ∧ (𝑅𝑁) (𝑅𝐹)) → (𝑅𝑁) (𝑅𝐹))
20 breq2 4801 . . . . . . . . 9 ((𝑅𝐹) = (0.‘𝐾) → ((𝑅𝑁) (𝑅𝐹) ↔ (𝑅𝑁) (0.‘𝐾)))
2119, 20syl5ibcom 236 . . . . . . . 8 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝐹𝑇𝑁𝑇) ∧ (𝑅𝑁) (𝑅𝐹)) → ((𝑅𝐹) = (0.‘𝐾) → (𝑅𝑁) (0.‘𝐾)))
2221imp 394 . . . . . . 7 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝐹𝑇𝑁𝑇) ∧ (𝑅𝑁) (𝑅𝐹)) ∧ (𝑅𝐹) = (0.‘𝐾)) → (𝑅𝑁) (0.‘𝐾))
23 simpl1l 1284 . . . . . . . . 9 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝐹𝑇𝑁𝑇) ∧ (𝑅𝑁) (𝑅𝐹)) ∧ (𝑅𝐹) = (0.‘𝐾)) → 𝐾 ∈ HL)
2423, 2syl 17 . . . . . . . 8 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝐹𝑇𝑁𝑇) ∧ (𝑅𝑁) (𝑅𝐹)) ∧ (𝑅𝐹) = (0.‘𝐾)) → 𝐾 ∈ OP)
25 simpl1 1233 . . . . . . . . 9 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝐹𝑇𝑁𝑇) ∧ (𝑅𝑁) (𝑅𝐹)) ∧ (𝑅𝐹) = (0.‘𝐾)) → (𝐾 ∈ HL ∧ 𝑊𝐻))
26 simpl2r 1290 . . . . . . . . 9 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝐹𝑇𝑁𝑇) ∧ (𝑅𝑁) (𝑅𝐹)) ∧ (𝑅𝐹) = (0.‘𝐾)) → 𝑁𝑇)
2725, 26, 10syl2anc 574 . . . . . . . 8 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝐹𝑇𝑁𝑇) ∧ (𝑅𝑁) (𝑅𝐹)) ∧ (𝑅𝐹) = (0.‘𝐾)) → (𝑅𝑁) ∈ (Base‘𝐾))
286, 14, 15ople0 35011 . . . . . . . 8 ((𝐾 ∈ OP ∧ (𝑅𝑁) ∈ (Base‘𝐾)) → ((𝑅𝑁) (0.‘𝐾) ↔ (𝑅𝑁) = (0.‘𝐾)))
2924, 27, 28syl2anc 574 . . . . . . 7 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝐹𝑇𝑁𝑇) ∧ (𝑅𝑁) (𝑅𝐹)) ∧ (𝑅𝐹) = (0.‘𝐾)) → ((𝑅𝑁) (0.‘𝐾) ↔ (𝑅𝑁) = (0.‘𝐾)))
3022, 29mpbid 223 . . . . . 6 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝐹𝑇𝑁𝑇) ∧ (𝑅𝑁) (𝑅𝐹)) ∧ (𝑅𝐹) = (0.‘𝐾)) → (𝑅𝑁) = (0.‘𝐾))
3130olcd 890 . . . . 5 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝐹𝑇𝑁𝑇) ∧ (𝑅𝑁) (𝑅𝐹)) ∧ (𝑅𝐹) = (0.‘𝐾)) → ((𝑅𝑁) = (𝑅𝐹) ∨ (𝑅𝑁) = (0.‘𝐾)))
32 simp1 1157 . . . . . 6 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝐹𝑇𝑁𝑇) ∧ (𝑅𝑁) (𝑅𝐹)) → (𝐾 ∈ HL ∧ 𝑊𝐻))
33 simp2l 1247 . . . . . 6 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝐹𝑇𝑁𝑇) ∧ (𝑅𝑁) (𝑅𝐹)) → 𝐹𝑇)
3415, 16, 7, 8, 9trlator0 35996 . . . . . 6 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ 𝐹𝑇) → ((𝑅𝐹) ∈ (Atoms‘𝐾) ∨ (𝑅𝐹) = (0.‘𝐾)))
3532, 33, 34syl2anc 574 . . . . 5 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝐹𝑇𝑁𝑇) ∧ (𝑅𝑁) (𝑅𝐹)) → ((𝑅𝐹) ∈ (Atoms‘𝐾) ∨ (𝑅𝐹) = (0.‘𝐾)))
3618, 31, 35mpjaodan 970 . . . 4 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝐹𝑇𝑁𝑇) ∧ (𝑅𝑁) (𝑅𝐹)) → ((𝑅𝑁) = (𝑅𝐹) ∨ (𝑅𝑁) = (0.‘𝐾)))
37363expa 1138 . . 3 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝐹𝑇𝑁𝑇)) ∧ (𝑅𝑁) (𝑅𝐹)) → ((𝑅𝑁) = (𝑅𝐹) ∨ (𝑅𝑁) = (0.‘𝐾)))
38 eqcom 2781 . . . . 5 ((𝑅𝑁) = (𝑅𝐹) ↔ (𝑅𝐹) = (𝑅𝑁))
39 tendoex.e . . . . . . 7 𝐸 = ((TEndo‘𝐾)‘𝑊)
407, 8, 9, 39cdlemk 36799 . . . . . 6 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝐹𝑇𝑁𝑇) ∧ (𝑅𝐹) = (𝑅𝑁)) → ∃𝑢𝐸 (𝑢𝐹) = 𝑁)
41403expa 1138 . . . . 5 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝐹𝑇𝑁𝑇)) ∧ (𝑅𝐹) = (𝑅𝑁)) → ∃𝑢𝐸 (𝑢𝐹) = 𝑁)
4238, 41sylan2b 582 . . . 4 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝐹𝑇𝑁𝑇)) ∧ (𝑅𝑁) = (𝑅𝐹)) → ∃𝑢𝐸 (𝑢𝐹) = 𝑁)
43 eqid 2774 . . . . . . 7 (𝑇 ↦ ( I ↾ (Base‘𝐾))) = (𝑇 ↦ ( I ↾ (Base‘𝐾)))
446, 7, 8, 39, 43tendo0cl 36615 . . . . . 6 ((𝐾 ∈ HL ∧ 𝑊𝐻) → (𝑇 ↦ ( I ↾ (Base‘𝐾))) ∈ 𝐸)
4544ad2antrr 706 . . . . 5 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝐹𝑇𝑁𝑇)) ∧ (𝑅𝑁) = (0.‘𝐾)) → (𝑇 ↦ ( I ↾ (Base‘𝐾))) ∈ 𝐸)
46 simplrl 784 . . . . . . 7 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝐹𝑇𝑁𝑇)) ∧ (𝑅𝑁) = (0.‘𝐾)) → 𝐹𝑇)
4743, 6tendo02 36612 . . . . . . 7 (𝐹𝑇 → ((𝑇 ↦ ( I ↾ (Base‘𝐾)))‘𝐹) = ( I ↾ (Base‘𝐾)))
4846, 47syl 17 . . . . . 6 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝐹𝑇𝑁𝑇)) ∧ (𝑅𝑁) = (0.‘𝐾)) → ((𝑇 ↦ ( I ↾ (Base‘𝐾)))‘𝐹) = ( I ↾ (Base‘𝐾)))
496, 15, 7, 8, 9trlid0b 36003 . . . . . . . 8 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ 𝑁𝑇) → (𝑁 = ( I ↾ (Base‘𝐾)) ↔ (𝑅𝑁) = (0.‘𝐾)))
5049adantrl 696 . . . . . . 7 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝐹𝑇𝑁𝑇)) → (𝑁 = ( I ↾ (Base‘𝐾)) ↔ (𝑅𝑁) = (0.‘𝐾)))
5150biimpar 464 . . . . . 6 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝐹𝑇𝑁𝑇)) ∧ (𝑅𝑁) = (0.‘𝐾)) → 𝑁 = ( I ↾ (Base‘𝐾)))
5248, 51eqtr4d 2811 . . . . 5 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝐹𝑇𝑁𝑇)) ∧ (𝑅𝑁) = (0.‘𝐾)) → ((𝑇 ↦ ( I ↾ (Base‘𝐾)))‘𝐹) = 𝑁)
53 fveq1 6347 . . . . . . 7 (𝑢 = (𝑇 ↦ ( I ↾ (Base‘𝐾))) → (𝑢𝐹) = ((𝑇 ↦ ( I ↾ (Base‘𝐾)))‘𝐹))
5453eqeq1d 2776 . . . . . 6 (𝑢 = (𝑇 ↦ ( I ↾ (Base‘𝐾))) → ((𝑢𝐹) = 𝑁 ↔ ((𝑇 ↦ ( I ↾ (Base‘𝐾)))‘𝐹) = 𝑁))
5554rspcev 3465 . . . . 5 (((𝑇 ↦ ( I ↾ (Base‘𝐾))) ∈ 𝐸 ∧ ((𝑇 ↦ ( I ↾ (Base‘𝐾)))‘𝐹) = 𝑁) → ∃𝑢𝐸 (𝑢𝐹) = 𝑁)
5645, 52, 55syl2anc 574 . . . 4 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝐹𝑇𝑁𝑇)) ∧ (𝑅𝑁) = (0.‘𝐾)) → ∃𝑢𝐸 (𝑢𝐹) = 𝑁)
5742, 56jaodan 969 . . 3 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝐹𝑇𝑁𝑇)) ∧ ((𝑅𝑁) = (𝑅𝐹) ∨ (𝑅𝑁) = (0.‘𝐾))) → ∃𝑢𝐸 (𝑢𝐹) = 𝑁)
5837, 57syldan 580 . 2 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝐹𝑇𝑁𝑇)) ∧ (𝑅𝑁) (𝑅𝐹)) → ∃𝑢𝐸 (𝑢𝐹) = 𝑁)
59583impa 1127 1 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝐹𝑇𝑁𝑇) ∧ (𝑅𝑁) (𝑅𝐹)) → ∃𝑢𝐸 (𝑢𝐹) = 𝑁)
Colors of variables: wff setvar class
Syntax hints:  wi 4  wb 197  wa 383  wo 863  w3a 1098   = wceq 1634  wcel 2148  wrex 3065   class class class wbr 4797  cmpt 4876   I cid 5170  cres 5265  cfv 6042  Basecbs 16084  lecple 16176  0.cp0 17265  OPcops 34996  Atomscatm 35087  HLchlt 35174  LHypclh 35808  LTrncltrn 35925  trLctrl 35983  TEndoctendo 36577
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1873  ax-4 1888  ax-5 1994  ax-6 2060  ax-7 2096  ax-8 2150  ax-9 2157  ax-10 2177  ax-11 2193  ax-12 2206  ax-13 2411  ax-ext 2754  ax-rep 4917  ax-sep 4928  ax-nul 4936  ax-pow 4988  ax-pr 5048  ax-un 7117  ax-riotaBAD 34776
This theorem depends on definitions:  df-bi 198  df-an 384  df-or 864  df-3or 1099  df-3an 1100  df-tru 1637  df-fal 1640  df-ex 1856  df-nf 1861  df-sb 2053  df-eu 2625  df-mo 2626  df-clab 2761  df-cleq 2767  df-clel 2770  df-nfc 2905  df-ne 2947  df-nel 3050  df-ral 3069  df-rex 3070  df-reu 3071  df-rmo 3072  df-rab 3073  df-v 3357  df-sbc 3594  df-csb 3689  df-dif 3732  df-un 3734  df-in 3736  df-ss 3743  df-nul 4074  df-if 4236  df-pw 4309  df-sn 4327  df-pr 4329  df-op 4333  df-uni 4586  df-iun 4667  df-iin 4668  df-br 4798  df-opab 4860  df-mpt 4877  df-id 5171  df-xp 5269  df-rel 5270  df-cnv 5271  df-co 5272  df-dm 5273  df-rn 5274  df-res 5275  df-ima 5276  df-iota 6005  df-fun 6044  df-fn 6045  df-f 6046  df-f1 6047  df-fo 6048  df-f1o 6049  df-fv 6050  df-riota 6773  df-ov 6815  df-oprab 6816  df-mpt2 6817  df-1st 7336  df-2nd 7337  df-undef 7572  df-map 8032  df-preset 17156  df-poset 17174  df-plt 17186  df-lub 17202  df-glb 17203  df-join 17204  df-meet 17205  df-p0 17267  df-p1 17268  df-lat 17274  df-clat 17336  df-oposet 35000  df-ol 35002  df-oml 35003  df-covers 35090  df-ats 35091  df-atl 35122  df-cvlat 35146  df-hlat 35175  df-llines 35322  df-lplanes 35323  df-lvols 35324  df-lines 35325  df-psubsp 35327  df-pmap 35328  df-padd 35620  df-lhyp 35812  df-laut 35813  df-ldil 35928  df-ltrn 35929  df-trl 35984  df-tendo 36580
This theorem is referenced by:  dva1dim  36810  dihjatcclem4  37246
  Copyright terms: Public domain W3C validator