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

Theorem cdlemc2 36212
Description: Part of proof of Lemma C in [Crawley] p. 112. (Contributed by NM, 25-May-2012.)
Hypotheses
Ref Expression
cdlemc2.l = (le‘𝐾)
cdlemc2.j = (join‘𝐾)
cdlemc2.m = (meet‘𝐾)
cdlemc2.a 𝐴 = (Atoms‘𝐾)
cdlemc2.h 𝐻 = (LHyp‘𝐾)
cdlemc2.t 𝑇 = ((LTrn‘𝐾)‘𝑊)
Assertion
Ref Expression
cdlemc2 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ 𝐹𝑇 ∧ ((𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊))) → (𝐹𝑄) ((𝐹𝑃) ((𝑃 𝑄) 𝑊)))

Proof of Theorem cdlemc2
StepHypRef Expression
1 simp1l 1255 . . . . 5 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ 𝐹𝑇 ∧ ((𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊))) → 𝐾 ∈ HL)
2 simp3ll 1326 . . . . 5 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ 𝐹𝑇 ∧ ((𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊))) → 𝑃𝐴)
3 simp3rl 1328 . . . . 5 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ 𝐹𝑇 ∧ ((𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊))) → 𝑄𝐴)
4 cdlemc2.l . . . . . 6 = (le‘𝐾)
5 cdlemc2.j . . . . . 6 = (join‘𝐾)
6 cdlemc2.a . . . . . 6 𝐴 = (Atoms‘𝐾)
74, 5, 6hlatlej2 35396 . . . . 5 ((𝐾 ∈ HL ∧ 𝑃𝐴𝑄𝐴) → 𝑄 (𝑃 𝑄))
81, 2, 3, 7syl3anc 1491 . . . 4 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ 𝐹𝑇 ∧ ((𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊))) → 𝑄 (𝑃 𝑄))
9 simp1 1167 . . . . 5 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ 𝐹𝑇 ∧ ((𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊))) → (𝐾 ∈ HL ∧ 𝑊𝐻))
10 eqid 2800 . . . . . . 7 (Base‘𝐾) = (Base‘𝐾)
1110, 6atbase 35309 . . . . . 6 (𝑄𝐴𝑄 ∈ (Base‘𝐾))
123, 11syl 17 . . . . 5 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ 𝐹𝑇 ∧ ((𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊))) → 𝑄 ∈ (Base‘𝐾))
13 simp3l 1259 . . . . 5 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ 𝐹𝑇 ∧ ((𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊))) → (𝑃𝐴 ∧ ¬ 𝑃 𝑊))
14 cdlemc2.m . . . . . 6 = (meet‘𝐾)
15 cdlemc2.h . . . . . 6 𝐻 = (LHyp‘𝐾)
1610, 4, 5, 14, 6, 15cdlemc1 36211 . . . . 5 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ 𝑄 ∈ (Base‘𝐾) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊)) → (𝑃 ((𝑃 𝑄) 𝑊)) = (𝑃 𝑄))
179, 12, 13, 16syl3anc 1491 . . . 4 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ 𝐹𝑇 ∧ ((𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊))) → (𝑃 ((𝑃 𝑄) 𝑊)) = (𝑃 𝑄))
188, 17breqtrrd 4872 . . 3 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ 𝐹𝑇 ∧ ((𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊))) → 𝑄 (𝑃 ((𝑃 𝑄) 𝑊)))
19 simp2 1168 . . . 4 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ 𝐹𝑇 ∧ ((𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊))) → 𝐹𝑇)
201hllatd 35384 . . . . 5 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ 𝐹𝑇 ∧ ((𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊))) → 𝐾 ∈ Lat)
2110, 6atbase 35309 . . . . . 6 (𝑃𝐴𝑃 ∈ (Base‘𝐾))
222, 21syl 17 . . . . 5 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ 𝐹𝑇 ∧ ((𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊))) → 𝑃 ∈ (Base‘𝐾))
2310, 5latjcl 17365 . . . . . . 7 ((𝐾 ∈ Lat ∧ 𝑃 ∈ (Base‘𝐾) ∧ 𝑄 ∈ (Base‘𝐾)) → (𝑃 𝑄) ∈ (Base‘𝐾))
2420, 22, 12, 23syl3anc 1491 . . . . . 6 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ 𝐹𝑇 ∧ ((𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊))) → (𝑃 𝑄) ∈ (Base‘𝐾))
25 simp1r 1256 . . . . . . 7 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ 𝐹𝑇 ∧ ((𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊))) → 𝑊𝐻)
2610, 15lhpbase 36018 . . . . . . 7 (𝑊𝐻𝑊 ∈ (Base‘𝐾))
2725, 26syl 17 . . . . . 6 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ 𝐹𝑇 ∧ ((𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊))) → 𝑊 ∈ (Base‘𝐾))
2810, 14latmcl 17366 . . . . . 6 ((𝐾 ∈ Lat ∧ (𝑃 𝑄) ∈ (Base‘𝐾) ∧ 𝑊 ∈ (Base‘𝐾)) → ((𝑃 𝑄) 𝑊) ∈ (Base‘𝐾))
2920, 24, 27, 28syl3anc 1491 . . . . 5 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ 𝐹𝑇 ∧ ((𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊))) → ((𝑃 𝑄) 𝑊) ∈ (Base‘𝐾))
3010, 5latjcl 17365 . . . . 5 ((𝐾 ∈ Lat ∧ 𝑃 ∈ (Base‘𝐾) ∧ ((𝑃 𝑄) 𝑊) ∈ (Base‘𝐾)) → (𝑃 ((𝑃 𝑄) 𝑊)) ∈ (Base‘𝐾))
3120, 22, 29, 30syl3anc 1491 . . . 4 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ 𝐹𝑇 ∧ ((𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊))) → (𝑃 ((𝑃 𝑄) 𝑊)) ∈ (Base‘𝐾))
32 cdlemc2.t . . . . 5 𝑇 = ((LTrn‘𝐾)‘𝑊)
3310, 4, 15, 32ltrnle 36149 . . . 4 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ 𝐹𝑇 ∧ (𝑄 ∈ (Base‘𝐾) ∧ (𝑃 ((𝑃 𝑄) 𝑊)) ∈ (Base‘𝐾))) → (𝑄 (𝑃 ((𝑃 𝑄) 𝑊)) ↔ (𝐹𝑄) (𝐹‘(𝑃 ((𝑃 𝑄) 𝑊)))))
349, 19, 12, 31, 33syl112anc 1494 . . 3 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ 𝐹𝑇 ∧ ((𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊))) → (𝑄 (𝑃 ((𝑃 𝑄) 𝑊)) ↔ (𝐹𝑄) (𝐹‘(𝑃 ((𝑃 𝑄) 𝑊)))))
3518, 34mpbid 224 . 2 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ 𝐹𝑇 ∧ ((𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊))) → (𝐹𝑄) (𝐹‘(𝑃 ((𝑃 𝑄) 𝑊))))
3610, 5, 15, 32ltrnj 36152 . . . 4 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ 𝐹𝑇 ∧ (𝑃 ∈ (Base‘𝐾) ∧ ((𝑃 𝑄) 𝑊) ∈ (Base‘𝐾))) → (𝐹‘(𝑃 ((𝑃 𝑄) 𝑊))) = ((𝐹𝑃) (𝐹‘((𝑃 𝑄) 𝑊))))
379, 19, 22, 29, 36syl112anc 1494 . . 3 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ 𝐹𝑇 ∧ ((𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊))) → (𝐹‘(𝑃 ((𝑃 𝑄) 𝑊))) = ((𝐹𝑃) (𝐹‘((𝑃 𝑄) 𝑊))))
3810, 4, 14latmle2 17391 . . . . . 6 ((𝐾 ∈ Lat ∧ (𝑃 𝑄) ∈ (Base‘𝐾) ∧ 𝑊 ∈ (Base‘𝐾)) → ((𝑃 𝑄) 𝑊) 𝑊)
3920, 24, 27, 38syl3anc 1491 . . . . 5 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ 𝐹𝑇 ∧ ((𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊))) → ((𝑃 𝑄) 𝑊) 𝑊)
4010, 4, 15, 32ltrnval1 36154 . . . . 5 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ 𝐹𝑇 ∧ (((𝑃 𝑄) 𝑊) ∈ (Base‘𝐾) ∧ ((𝑃 𝑄) 𝑊) 𝑊)) → (𝐹‘((𝑃 𝑄) 𝑊)) = ((𝑃 𝑄) 𝑊))
419, 19, 29, 39, 40syl112anc 1494 . . . 4 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ 𝐹𝑇 ∧ ((𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊))) → (𝐹‘((𝑃 𝑄) 𝑊)) = ((𝑃 𝑄) 𝑊))
4241oveq2d 6895 . . 3 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ 𝐹𝑇 ∧ ((𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊))) → ((𝐹𝑃) (𝐹‘((𝑃 𝑄) 𝑊))) = ((𝐹𝑃) ((𝑃 𝑄) 𝑊)))
4337, 42eqtrd 2834 . 2 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ 𝐹𝑇 ∧ ((𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊))) → (𝐹‘(𝑃 ((𝑃 𝑄) 𝑊))) = ((𝐹𝑃) ((𝑃 𝑄) 𝑊)))
4435, 43breqtrd 4870 1 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ 𝐹𝑇 ∧ ((𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊))) → (𝐹𝑄) ((𝐹𝑃) ((𝑃 𝑄) 𝑊)))
Colors of variables: wff setvar class
Syntax hints:  ¬ wn 3  wi 4  wb 198  wa 385  w3a 1108   = wceq 1653  wcel 2157   class class class wbr 4844  cfv 6102  (class class class)co 6879  Basecbs 16183  lecple 16273  joincjn 17258  meetcmee 17259  Latclat 17359  Atomscatm 35283  HLchlt 35370  LHypclh 36004  LTrncltrn 36121
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1891  ax-4 1905  ax-5 2006  ax-6 2072  ax-7 2107  ax-8 2159  ax-9 2166  ax-10 2185  ax-11 2200  ax-12 2213  ax-13 2378  ax-ext 2778  ax-rep 4965  ax-sep 4976  ax-nul 4984  ax-pow 5036  ax-pr 5098  ax-un 7184
This theorem depends on definitions:  df-bi 199  df-an 386  df-or 875  df-3an 1110  df-tru 1657  df-ex 1876  df-nf 1880  df-sb 2065  df-mo 2592  df-eu 2610  df-clab 2787  df-cleq 2793  df-clel 2796  df-nfc 2931  df-ne 2973  df-ral 3095  df-rex 3096  df-reu 3097  df-rab 3099  df-v 3388  df-sbc 3635  df-csb 3730  df-dif 3773  df-un 3775  df-in 3777  df-ss 3784  df-nul 4117  df-if 4279  df-pw 4352  df-sn 4370  df-pr 4372  df-op 4376  df-uni 4630  df-iun 4713  df-iin 4714  df-br 4845  df-opab 4907  df-mpt 4924  df-id 5221  df-xp 5319  df-rel 5320  df-cnv 5321  df-co 5322  df-dm 5323  df-rn 5324  df-res 5325  df-ima 5326  df-iota 6065  df-fun 6104  df-fn 6105  df-f 6106  df-f1 6107  df-fo 6108  df-f1o 6109  df-fv 6110  df-riota 6840  df-ov 6882  df-oprab 6883  df-mpt2 6884  df-1st 7402  df-2nd 7403  df-map 8098  df-proset 17242  df-poset 17260  df-plt 17272  df-lub 17288  df-glb 17289  df-join 17290  df-meet 17291  df-p0 17353  df-p1 17354  df-lat 17360  df-clat 17422  df-oposet 35196  df-ol 35198  df-oml 35199  df-covers 35286  df-ats 35287  df-atl 35318  df-cvlat 35342  df-hlat 35371  df-psubsp 35523  df-pmap 35524  df-padd 35816  df-lhyp 36008  df-laut 36009  df-ldil 36124  df-ltrn 36125
This theorem is referenced by:  cdlemc5  36215
  Copyright terms: Public domain W3C validator