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

Theorem cdlemd5 37778
Description: Part of proof of Lemma D in [Crawley] p. 113. (Contributed by NM, 30-May-2012.)
Hypotheses
Ref Expression
cdlemd4.l = (le‘𝐾)
cdlemd4.j = (join‘𝐾)
cdlemd4.a 𝐴 = (Atoms‘𝐾)
cdlemd4.h 𝐻 = (LHyp‘𝐾)
cdlemd4.t 𝑇 = ((LTrn‘𝐾)‘𝑊)
Assertion
Ref Expression
cdlemd5 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝐹𝑇𝐺𝑇) ∧ 𝑅𝐴) ∧ ((𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊) ∧ 𝑃𝑄) ∧ ((𝐹𝑃) = (𝐺𝑃) ∧ (𝐹𝑄) = (𝐺𝑄))) → (𝐹𝑅) = (𝐺𝑅))

Proof of Theorem cdlemd5
StepHypRef Expression
1 fveq2 6658 . . . 4 (𝑅 = 𝑃 → (𝐹𝑅) = (𝐹𝑃))
2 fveq2 6658 . . . 4 (𝑅 = 𝑃 → (𝐺𝑅) = (𝐺𝑃))
31, 2eqeq12d 2774 . . 3 (𝑅 = 𝑃 → ((𝐹𝑅) = (𝐺𝑅) ↔ (𝐹𝑃) = (𝐺𝑃)))
4 simpll1 1209 . . . 4 ((((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝐹𝑇𝐺𝑇) ∧ 𝑅𝐴) ∧ ((𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊) ∧ 𝑃𝑄) ∧ ((𝐹𝑃) = (𝐺𝑃) ∧ (𝐹𝑄) = (𝐺𝑄))) ∧ 𝑅 (𝑃 𝑄)) ∧ 𝑅𝑃) → ((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝐹𝑇𝐺𝑇) ∧ 𝑅𝐴))
5 simpl21 1248 . . . . 5 (((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝐹𝑇𝐺𝑇) ∧ 𝑅𝐴) ∧ ((𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊) ∧ 𝑃𝑄) ∧ ((𝐹𝑃) = (𝐺𝑃) ∧ (𝐹𝑄) = (𝐺𝑄))) ∧ 𝑅 (𝑃 𝑄)) → (𝑃𝐴 ∧ ¬ 𝑃 𝑊))
65adantr 484 . . . 4 ((((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝐹𝑇𝐺𝑇) ∧ 𝑅𝐴) ∧ ((𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊) ∧ 𝑃𝑄) ∧ ((𝐹𝑃) = (𝐺𝑃) ∧ (𝐹𝑄) = (𝐺𝑄))) ∧ 𝑅 (𝑃 𝑄)) ∧ 𝑅𝑃) → (𝑃𝐴 ∧ ¬ 𝑃 𝑊))
7 simpl22 1249 . . . . 5 (((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝐹𝑇𝐺𝑇) ∧ 𝑅𝐴) ∧ ((𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊) ∧ 𝑃𝑄) ∧ ((𝐹𝑃) = (𝐺𝑃) ∧ (𝐹𝑄) = (𝐺𝑄))) ∧ 𝑅 (𝑃 𝑄)) → (𝑄𝐴 ∧ ¬ 𝑄 𝑊))
87adantr 484 . . . 4 ((((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝐹𝑇𝐺𝑇) ∧ 𝑅𝐴) ∧ ((𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊) ∧ 𝑃𝑄) ∧ ((𝐹𝑃) = (𝐺𝑃) ∧ (𝐹𝑄) = (𝐺𝑄))) ∧ 𝑅 (𝑃 𝑄)) ∧ 𝑅𝑃) → (𝑄𝐴 ∧ ¬ 𝑄 𝑊))
9 simp23 1205 . . . . . 6 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝐹𝑇𝐺𝑇) ∧ 𝑅𝐴) ∧ ((𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊) ∧ 𝑃𝑄) ∧ ((𝐹𝑃) = (𝐺𝑃) ∧ (𝐹𝑄) = (𝐺𝑄))) → 𝑃𝑄)
109ad2antrr 725 . . . . 5 ((((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝐹𝑇𝐺𝑇) ∧ 𝑅𝐴) ∧ ((𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊) ∧ 𝑃𝑄) ∧ ((𝐹𝑃) = (𝐺𝑃) ∧ (𝐹𝑄) = (𝐺𝑄))) ∧ 𝑅 (𝑃 𝑄)) ∧ 𝑅𝑃) → 𝑃𝑄)
11 simplr 768 . . . . 5 ((((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝐹𝑇𝐺𝑇) ∧ 𝑅𝐴) ∧ ((𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊) ∧ 𝑃𝑄) ∧ ((𝐹𝑃) = (𝐺𝑃) ∧ (𝐹𝑄) = (𝐺𝑄))) ∧ 𝑅 (𝑃 𝑄)) ∧ 𝑅𝑃) → 𝑅 (𝑃 𝑄))
12 simpr 488 . . . . 5 ((((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝐹𝑇𝐺𝑇) ∧ 𝑅𝐴) ∧ ((𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊) ∧ 𝑃𝑄) ∧ ((𝐹𝑃) = (𝐺𝑃) ∧ (𝐹𝑄) = (𝐺𝑄))) ∧ 𝑅 (𝑃 𝑄)) ∧ 𝑅𝑃) → 𝑅𝑃)
1310, 11, 123jca 1125 . . . 4 ((((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝐹𝑇𝐺𝑇) ∧ 𝑅𝐴) ∧ ((𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊) ∧ 𝑃𝑄) ∧ ((𝐹𝑃) = (𝐺𝑃) ∧ (𝐹𝑄) = (𝐺𝑄))) ∧ 𝑅 (𝑃 𝑄)) ∧ 𝑅𝑃) → (𝑃𝑄𝑅 (𝑃 𝑄) ∧ 𝑅𝑃))
14 simpll3 1211 . . . 4 ((((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝐹𝑇𝐺𝑇) ∧ 𝑅𝐴) ∧ ((𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊) ∧ 𝑃𝑄) ∧ ((𝐹𝑃) = (𝐺𝑃) ∧ (𝐹𝑄) = (𝐺𝑄))) ∧ 𝑅 (𝑃 𝑄)) ∧ 𝑅𝑃) → ((𝐹𝑃) = (𝐺𝑃) ∧ (𝐹𝑄) = (𝐺𝑄)))
15 cdlemd4.l . . . . 5 = (le‘𝐾)
16 cdlemd4.j . . . . 5 = (join‘𝐾)
17 cdlemd4.a . . . . 5 𝐴 = (Atoms‘𝐾)
18 cdlemd4.h . . . . 5 𝐻 = (LHyp‘𝐾)
19 cdlemd4.t . . . . 5 𝑇 = ((LTrn‘𝐾)‘𝑊)
2015, 16, 17, 18, 19cdlemd4 37777 . . . 4 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝐹𝑇𝐺𝑇) ∧ 𝑅𝐴) ∧ ((𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊) ∧ (𝑃𝑄𝑅 (𝑃 𝑄) ∧ 𝑅𝑃)) ∧ ((𝐹𝑃) = (𝐺𝑃) ∧ (𝐹𝑄) = (𝐺𝑄))) → (𝐹𝑅) = (𝐺𝑅))
214, 6, 8, 13, 14, 20syl131anc 1380 . . 3 ((((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝐹𝑇𝐺𝑇) ∧ 𝑅𝐴) ∧ ((𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊) ∧ 𝑃𝑄) ∧ ((𝐹𝑃) = (𝐺𝑃) ∧ (𝐹𝑄) = (𝐺𝑄))) ∧ 𝑅 (𝑃 𝑄)) ∧ 𝑅𝑃) → (𝐹𝑅) = (𝐺𝑅))
22 simpl3l 1225 . . 3 (((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝐹𝑇𝐺𝑇) ∧ 𝑅𝐴) ∧ ((𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊) ∧ 𝑃𝑄) ∧ ((𝐹𝑃) = (𝐺𝑃) ∧ (𝐹𝑄) = (𝐺𝑄))) ∧ 𝑅 (𝑃 𝑄)) → (𝐹𝑃) = (𝐺𝑃))
233, 21, 22pm2.61ne 3036 . 2 (((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝐹𝑇𝐺𝑇) ∧ 𝑅𝐴) ∧ ((𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊) ∧ 𝑃𝑄) ∧ ((𝐹𝑃) = (𝐺𝑃) ∧ (𝐹𝑄) = (𝐺𝑄))) ∧ 𝑅 (𝑃 𝑄)) → (𝐹𝑅) = (𝐺𝑅))
24 simpl1 1188 . . 3 (((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝐹𝑇𝐺𝑇) ∧ 𝑅𝐴) ∧ ((𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊) ∧ 𝑃𝑄) ∧ ((𝐹𝑃) = (𝐺𝑃) ∧ (𝐹𝑄) = (𝐺𝑄))) ∧ ¬ 𝑅 (𝑃 𝑄)) → ((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝐹𝑇𝐺𝑇) ∧ 𝑅𝐴))
25 simpl21 1248 . . 3 (((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝐹𝑇𝐺𝑇) ∧ 𝑅𝐴) ∧ ((𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊) ∧ 𝑃𝑄) ∧ ((𝐹𝑃) = (𝐺𝑃) ∧ (𝐹𝑄) = (𝐺𝑄))) ∧ ¬ 𝑅 (𝑃 𝑄)) → (𝑃𝐴 ∧ ¬ 𝑃 𝑊))
26 simpl22 1249 . . 3 (((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝐹𝑇𝐺𝑇) ∧ 𝑅𝐴) ∧ ((𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊) ∧ 𝑃𝑄) ∧ ((𝐹𝑃) = (𝐺𝑃) ∧ (𝐹𝑄) = (𝐺𝑄))) ∧ ¬ 𝑅 (𝑃 𝑄)) → (𝑄𝐴 ∧ ¬ 𝑄 𝑊))
27 simpl23 1250 . . . 4 (((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝐹𝑇𝐺𝑇) ∧ 𝑅𝐴) ∧ ((𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊) ∧ 𝑃𝑄) ∧ ((𝐹𝑃) = (𝐺𝑃) ∧ (𝐹𝑄) = (𝐺𝑄))) ∧ ¬ 𝑅 (𝑃 𝑄)) → 𝑃𝑄)
28 simpr 488 . . . 4 (((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝐹𝑇𝐺𝑇) ∧ 𝑅𝐴) ∧ ((𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊) ∧ 𝑃𝑄) ∧ ((𝐹𝑃) = (𝐺𝑃) ∧ (𝐹𝑄) = (𝐺𝑄))) ∧ ¬ 𝑅 (𝑃 𝑄)) → ¬ 𝑅 (𝑃 𝑄))
2927, 28jca 515 . . 3 (((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝐹𝑇𝐺𝑇) ∧ 𝑅𝐴) ∧ ((𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊) ∧ 𝑃𝑄) ∧ ((𝐹𝑃) = (𝐺𝑃) ∧ (𝐹𝑄) = (𝐺𝑄))) ∧ ¬ 𝑅 (𝑃 𝑄)) → (𝑃𝑄 ∧ ¬ 𝑅 (𝑃 𝑄)))
30 simpl3 1190 . . 3 (((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝐹𝑇𝐺𝑇) ∧ 𝑅𝐴) ∧ ((𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊) ∧ 𝑃𝑄) ∧ ((𝐹𝑃) = (𝐺𝑃) ∧ (𝐹𝑄) = (𝐺𝑄))) ∧ ¬ 𝑅 (𝑃 𝑄)) → ((𝐹𝑃) = (𝐺𝑃) ∧ (𝐹𝑄) = (𝐺𝑄)))
3115, 16, 17, 18, 19cdlemd2 37775 . . 3 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝐹𝑇𝐺𝑇) ∧ 𝑅𝐴) ∧ ((𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊) ∧ (𝑃𝑄 ∧ ¬ 𝑅 (𝑃 𝑄))) ∧ ((𝐹𝑃) = (𝐺𝑃) ∧ (𝐹𝑄) = (𝐺𝑄))) → (𝐹𝑅) = (𝐺𝑅))
3224, 25, 26, 29, 30, 31syl131anc 1380 . 2 (((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝐹𝑇𝐺𝑇) ∧ 𝑅𝐴) ∧ ((𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊) ∧ 𝑃𝑄) ∧ ((𝐹𝑃) = (𝐺𝑃) ∧ (𝐹𝑄) = (𝐺𝑄))) ∧ ¬ 𝑅 (𝑃 𝑄)) → (𝐹𝑅) = (𝐺𝑅))
3323, 32pm2.61dan 812 1 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝐹𝑇𝐺𝑇) ∧ 𝑅𝐴) ∧ ((𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊) ∧ 𝑃𝑄) ∧ ((𝐹𝑃) = (𝐺𝑃) ∧ (𝐹𝑄) = (𝐺𝑄))) → (𝐹𝑅) = (𝐺𝑅))
Colors of variables: wff setvar class
Syntax hints:  ¬ wn 3  wi 4  wa 399  w3a 1084   = wceq 1538  wcel 2111  wne 2951   class class class wbr 5032  cfv 6335  (class class class)co 7150  lecple 16630  joincjn 17620  Atomscatm 36839  HLchlt 36926  LHypclh 37560  LTrncltrn 37677
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1797  ax-4 1811  ax-5 1911  ax-6 1970  ax-7 2015  ax-8 2113  ax-9 2121  ax-10 2142  ax-11 2158  ax-12 2175  ax-ext 2729  ax-rep 5156  ax-sep 5169  ax-nul 5176  ax-pow 5234  ax-pr 5298  ax-un 7459
This theorem depends on definitions:  df-bi 210  df-an 400  df-or 845  df-3an 1086  df-tru 1541  df-fal 1551  df-ex 1782  df-nf 1786  df-sb 2070  df-mo 2557  df-eu 2588  df-clab 2736  df-cleq 2750  df-clel 2830  df-nfc 2901  df-ne 2952  df-ral 3075  df-rex 3076  df-reu 3077  df-rab 3079  df-v 3411  df-sbc 3697  df-csb 3806  df-dif 3861  df-un 3863  df-in 3865  df-ss 3875  df-nul 4226  df-if 4421  df-pw 4496  df-sn 4523  df-pr 4525  df-op 4529  df-uni 4799  df-iun 4885  df-iin 4886  df-br 5033  df-opab 5095  df-mpt 5113  df-id 5430  df-xp 5530  df-rel 5531  df-cnv 5532  df-co 5533  df-dm 5534  df-rn 5535  df-res 5536  df-ima 5537  df-iota 6294  df-fun 6337  df-fn 6338  df-f 6339  df-f1 6340  df-fo 6341  df-f1o 6342  df-fv 6343  df-riota 7108  df-ov 7153  df-oprab 7154  df-mpo 7155  df-1st 7693  df-2nd 7694  df-map 8418  df-proset 17604  df-poset 17622  df-plt 17634  df-lub 17650  df-glb 17651  df-join 17652  df-meet 17653  df-p0 17715  df-p1 17716  df-lat 17722  df-clat 17784  df-oposet 36752  df-ol 36754  df-oml 36755  df-covers 36842  df-ats 36843  df-atl 36874  df-cvlat 36898  df-hlat 36927  df-psubsp 37079  df-pmap 37080  df-padd 37372  df-lhyp 37564  df-laut 37565  df-ldil 37680  df-ltrn 37681
This theorem is referenced by:  cdlemd7  37780
  Copyright terms: Public domain W3C validator