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 41179
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 6873 . . . 4 (𝑅 = 𝑃 → (𝐹𝑅) = (𝐹𝑃))
2 fveq2 6873 . . . 4 (𝑅 = 𝑃 → (𝐺𝑅) = (𝐺𝑃))
31, 2eqeq12d 2776 . . 3 (𝑅 = 𝑃 → ((𝐹𝑅) = (𝐺𝑅) ↔ (𝐹𝑃) = (𝐺𝑃)))
4 simpll1 1231 . . . 4 ((((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝐹𝑇𝐺𝑇) ∧ 𝑅𝐴) ∧ ((𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊) ∧ 𝑃𝑄) ∧ ((𝐹𝑃) = (𝐺𝑃) ∧ (𝐹𝑄) = (𝐺𝑄))) ∧ 𝑅 (𝑃 𝑄)) ∧ 𝑅𝑃) → ((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝐹𝑇𝐺𝑇) ∧ 𝑅𝐴))
5 simpl21 1270 . . . . 5 (((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝐹𝑇𝐺𝑇) ∧ 𝑅𝐴) ∧ ((𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊) ∧ 𝑃𝑄) ∧ ((𝐹𝑃) = (𝐺𝑃) ∧ (𝐹𝑄) = (𝐺𝑄))) ∧ 𝑅 (𝑃 𝑄)) → (𝑃𝐴 ∧ ¬ 𝑃 𝑊))
65adantr 486 . . . 4 ((((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝐹𝑇𝐺𝑇) ∧ 𝑅𝐴) ∧ ((𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊) ∧ 𝑃𝑄) ∧ ((𝐹𝑃) = (𝐺𝑃) ∧ (𝐹𝑄) = (𝐺𝑄))) ∧ 𝑅 (𝑃 𝑄)) ∧ 𝑅𝑃) → (𝑃𝐴 ∧ ¬ 𝑃 𝑊))
7 simpl22 1271 . . . . 5 (((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝐹𝑇𝐺𝑇) ∧ 𝑅𝐴) ∧ ((𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊) ∧ 𝑃𝑄) ∧ ((𝐹𝑃) = (𝐺𝑃) ∧ (𝐹𝑄) = (𝐺𝑄))) ∧ 𝑅 (𝑃 𝑄)) → (𝑄𝐴 ∧ ¬ 𝑄 𝑊))
87adantr 486 . . . 4 ((((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝐹𝑇𝐺𝑇) ∧ 𝑅𝐴) ∧ ((𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊) ∧ 𝑃𝑄) ∧ ((𝐹𝑃) = (𝐺𝑃) ∧ (𝐹𝑄) = (𝐺𝑄))) ∧ 𝑅 (𝑃 𝑄)) ∧ 𝑅𝑃) → (𝑄𝐴 ∧ ¬ 𝑄 𝑊))
9 simp23 1227 . . . . . 6 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝐹𝑇𝐺𝑇) ∧ 𝑅𝐴) ∧ ((𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊) ∧ 𝑃𝑄) ∧ ((𝐹𝑃) = (𝐺𝑃) ∧ (𝐹𝑄) = (𝐺𝑄))) → 𝑃𝑄)
109ad2antrr 739 . . . . 5 ((((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝐹𝑇𝐺𝑇) ∧ 𝑅𝐴) ∧ ((𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊) ∧ 𝑃𝑄) ∧ ((𝐹𝑃) = (𝐺𝑃) ∧ (𝐹𝑄) = (𝐺𝑄))) ∧ 𝑅 (𝑃 𝑄)) ∧ 𝑅𝑃) → 𝑃𝑄)
11 simplr 781 . . . . 5 ((((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝐹𝑇𝐺𝑇) ∧ 𝑅𝐴) ∧ ((𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊) ∧ 𝑃𝑄) ∧ ((𝐹𝑃) = (𝐺𝑃) ∧ (𝐹𝑄) = (𝐺𝑄))) ∧ 𝑅 (𝑃 𝑄)) ∧ 𝑅𝑃) → 𝑅 (𝑃 𝑄))
12 simpr 490 . . . . 5 ((((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝐹𝑇𝐺𝑇) ∧ 𝑅𝐴) ∧ ((𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊) ∧ 𝑃𝑄) ∧ ((𝐹𝑃) = (𝐺𝑃) ∧ (𝐹𝑄) = (𝐺𝑄))) ∧ 𝑅 (𝑃 𝑄)) ∧ 𝑅𝑃) → 𝑅𝑃)
1310, 11, 123jca 1146 . . . 4 ((((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝐹𝑇𝐺𝑇) ∧ 𝑅𝐴) ∧ ((𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊) ∧ 𝑃𝑄) ∧ ((𝐹𝑃) = (𝐺𝑃) ∧ (𝐹𝑄) = (𝐺𝑄))) ∧ 𝑅 (𝑃 𝑄)) ∧ 𝑅𝑃) → (𝑃𝑄𝑅 (𝑃 𝑄) ∧ 𝑅𝑃))
14 simpll3 1233 . . . 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 41178 . . . 4 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝐹𝑇𝐺𝑇) ∧ 𝑅𝐴) ∧ ((𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊) ∧ (𝑃𝑄𝑅 (𝑃 𝑄) ∧ 𝑅𝑃)) ∧ ((𝐹𝑃) = (𝐺𝑃) ∧ (𝐹𝑄) = (𝐺𝑄))) → (𝐹𝑅) = (𝐺𝑅))
214, 6, 8, 13, 14, 20syl131anc 1410 . . 3 ((((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝐹𝑇𝐺𝑇) ∧ 𝑅𝐴) ∧ ((𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊) ∧ 𝑃𝑄) ∧ ((𝐹𝑃) = (𝐺𝑃) ∧ (𝐹𝑄) = (𝐺𝑄))) ∧ 𝑅 (𝑃 𝑄)) ∧ 𝑅𝑃) → (𝐹𝑅) = (𝐺𝑅))
22 simpl3l 1247 . . 3 (((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝐹𝑇𝐺𝑇) ∧ 𝑅𝐴) ∧ ((𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊) ∧ 𝑃𝑄) ∧ ((𝐹𝑃) = (𝐺𝑃) ∧ (𝐹𝑄) = (𝐺𝑄))) ∧ 𝑅 (𝑃 𝑄)) → (𝐹𝑃) = (𝐺𝑃))
233, 21, 22pm2.61ne 3040 . 2 (((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝐹𝑇𝐺𝑇) ∧ 𝑅𝐴) ∧ ((𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊) ∧ 𝑃𝑄) ∧ ((𝐹𝑃) = (𝐺𝑃) ∧ (𝐹𝑄) = (𝐺𝑄))) ∧ 𝑅 (𝑃 𝑄)) → (𝐹𝑅) = (𝐺𝑅))
24 simpl1 1210 . . 3 (((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝐹𝑇𝐺𝑇) ∧ 𝑅𝐴) ∧ ((𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊) ∧ 𝑃𝑄) ∧ ((𝐹𝑃) = (𝐺𝑃) ∧ (𝐹𝑄) = (𝐺𝑄))) ∧ ¬ 𝑅 (𝑃 𝑄)) → ((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝐹𝑇𝐺𝑇) ∧ 𝑅𝐴))
25 simpl21 1270 . . 3 (((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝐹𝑇𝐺𝑇) ∧ 𝑅𝐴) ∧ ((𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊) ∧ 𝑃𝑄) ∧ ((𝐹𝑃) = (𝐺𝑃) ∧ (𝐹𝑄) = (𝐺𝑄))) ∧ ¬ 𝑅 (𝑃 𝑄)) → (𝑃𝐴 ∧ ¬ 𝑃 𝑊))
26 simpl22 1271 . . 3 (((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝐹𝑇𝐺𝑇) ∧ 𝑅𝐴) ∧ ((𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊) ∧ 𝑃𝑄) ∧ ((𝐹𝑃) = (𝐺𝑃) ∧ (𝐹𝑄) = (𝐺𝑄))) ∧ ¬ 𝑅 (𝑃 𝑄)) → (𝑄𝐴 ∧ ¬ 𝑄 𝑊))
27 simpl23 1272 . . . 4 (((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝐹𝑇𝐺𝑇) ∧ 𝑅𝐴) ∧ ((𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊) ∧ 𝑃𝑄) ∧ ((𝐹𝑃) = (𝐺𝑃) ∧ (𝐹𝑄) = (𝐺𝑄))) ∧ ¬ 𝑅 (𝑃 𝑄)) → 𝑃𝑄)
28 simpr 490 . . . 4 (((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝐹𝑇𝐺𝑇) ∧ 𝑅𝐴) ∧ ((𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊) ∧ 𝑃𝑄) ∧ ((𝐹𝑃) = (𝐺𝑃) ∧ (𝐹𝑄) = (𝐺𝑄))) ∧ ¬ 𝑅 (𝑃 𝑄)) → ¬ 𝑅 (𝑃 𝑄))
2927, 28jca 521 . . 3 (((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝐹𝑇𝐺𝑇) ∧ 𝑅𝐴) ∧ ((𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊) ∧ 𝑃𝑄) ∧ ((𝐹𝑃) = (𝐺𝑃) ∧ (𝐹𝑄) = (𝐺𝑄))) ∧ ¬ 𝑅 (𝑃 𝑄)) → (𝑃𝑄 ∧ ¬ 𝑅 (𝑃 𝑄)))
30 simpl3 1212 . . 3 (((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝐹𝑇𝐺𝑇) ∧ 𝑅𝐴) ∧ ((𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊) ∧ 𝑃𝑄) ∧ ((𝐹𝑃) = (𝐺𝑃) ∧ (𝐹𝑄) = (𝐺𝑄))) ∧ ¬ 𝑅 (𝑃 𝑄)) → ((𝐹𝑃) = (𝐺𝑃) ∧ (𝐹𝑄) = (𝐺𝑄)))
3115, 16, 17, 18, 19cdlemd2 41176 . . 3 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝐹𝑇𝐺𝑇) ∧ 𝑅𝐴) ∧ ((𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊) ∧ (𝑃𝑄 ∧ ¬ 𝑅 (𝑃 𝑄))) ∧ ((𝐹𝑃) = (𝐺𝑃) ∧ (𝐹𝑄) = (𝐺𝑄))) → (𝐹𝑅) = (𝐺𝑅))
3224, 25, 26, 29, 30, 31syl131anc 1410 . 2 (((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝐹𝑇𝐺𝑇) ∧ 𝑅𝐴) ∧ ((𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊) ∧ 𝑃𝑄) ∧ ((𝐹𝑃) = (𝐺𝑃) ∧ (𝐹𝑄) = (𝐺𝑄))) ∧ ¬ 𝑅 (𝑃 𝑄)) → (𝐹𝑅) = (𝐺𝑅))
3323, 32pm2.61dan 825 1 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝐹𝑇𝐺𝑇) ∧ 𝑅𝐴) ∧ ((𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊) ∧ 𝑃𝑄) ∧ ((𝐹𝑃) = (𝐺𝑃) ∧ (𝐹𝑄) = (𝐺𝑄))) → (𝐹𝑅) = (𝐺𝑅))
Colors of variables:    wff setvar class
This proof depends on syntax axioms:  ¬ wn 3  wi 4  wa 401  w3a 1103   = wceq 1570  wcel 2145  wne 2955   class class class wbr 5102  cfv 6527  (class class class)co 7408  lecple 17396  joincjn 18446  Atomscatm 40240  HLchlt 40327  LHypclh 40961  LTrncltrn 41078
This proof depends on axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1828  ax-4 1842  ax-5 1943  ax-6 2000  ax-7 2041  ax-8 2147  ax-9 2155  ax-10 2178  ax-11 2194  ax-12 2213  ax-ext 2732  ax-rep 5231  ax-sep 5248  ax-nul 5259  ax-pow 5326  ax-pr 5390  ax-un 7734
This proof depends on definitions:  df-bi 210  df-an 402  df-or 862  df-3an 1105  df-tru 1573  df-fal 1583  df-ex 1813  df-nf 1817  df-sb 2100  df-mo 2564  df-eu 2594  df-clab 2739  df-cleq 2752  df-clel 2835  df-nfc 2909  df-ne 2956  df-ral 3077  df-rex 3087  df-rmo 3365  df-reu 3366  df-rab 3413  df-v 3452  df-sbc 3739  df-csb 3847  df-dif 3901  df-un 3903  df-in 3905  df-ss 3915  df-nul 4279  df-if 4482  df-pw 4558  df-sn 4584  df-pr 4586  df-op 4590  df-uni 4867  df-iun 4952  df-iin 4953  df-br 5103  df-opab 5167  df-mpt 5186  df-id 5542  df-xp 5653  df-rel 5654  df-cnv 5655  df-co 5656  df-dm 5657  df-rn 5658  df-res 5659  df-ima 5660  df-iota 6483  df-fun 6529  df-fn 6530  df-f 6531  df-f1 6532  df-fo 6533  df-f1o 6534  df-fv 6535  df-riota 7365  df-ov 7411  df-oprab 7412  df-mpo 7413  df-1st 7984  df-2nd 7985  df-map 8827  df-proset 18429  df-poset 18448  df-plt 18463  df-lub 18479  df-glb 18480  df-join 18481  df-meet 18482  df-p0 18558  df-p1 18559  df-lat 18567  df-clat 18634  df-oposet 40153  df-ol 40155  df-oml 40156  df-covers 40243  df-ats 40244  df-atl 40275  df-cvlat 40299  df-hlat 40328  df-psubsp 40480  df-pmap 40481  df-padd 40773  df-lhyp 40965  df-laut 40966  df-ldil 41081  df-ltrn 41082
This theorem is used by:  cdlemd7  41181
  Copyright terms: Public domain W3C validator