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

Theorem cdlemc6 37833
Description: Lemma for cdlemc 37834. (Contributed by NM, 26-May-2012.)
Hypotheses
Ref Expression
cdlemc3.l = (le‘𝐾)
cdlemc3.j = (join‘𝐾)
cdlemc3.m = (meet‘𝐾)
cdlemc3.a 𝐴 = (Atoms‘𝐾)
cdlemc3.h 𝐻 = (LHyp‘𝐾)
cdlemc3.t 𝑇 = ((LTrn‘𝐾)‘𝑊)
cdlemc3.r 𝑅 = ((trL‘𝐾)‘𝑊)
Assertion
Ref Expression
cdlemc6 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝐹𝑇 ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ (𝐹𝑃) = 𝑃) → (𝐹𝑄) = ((𝑄 (𝑅𝐹)) ((𝐹𝑃) ((𝑃 𝑄) 𝑊))))

Proof of Theorem cdlemc6
StepHypRef Expression
1 simp1l 1198 . . . . 5 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝐹𝑇 ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ (𝐹𝑃) = 𝑃) → 𝐾 ∈ HL)
2 simp22l 1293 . . . . 5 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝐹𝑇 ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ (𝐹𝑃) = 𝑃) → 𝑃𝐴)
3 simp23l 1295 . . . . 5 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝐹𝑇 ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ (𝐹𝑃) = 𝑃) → 𝑄𝐴)
4 cdlemc3.j . . . . . 6 = (join‘𝐾)
5 cdlemc3.a . . . . . 6 𝐴 = (Atoms‘𝐾)
64, 5hlatjcom 37005 . . . . 5 ((𝐾 ∈ HL ∧ 𝑃𝐴𝑄𝐴) → (𝑃 𝑄) = (𝑄 𝑃))
71, 2, 3, 6syl3anc 1372 . . . 4 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝐹𝑇 ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ (𝐹𝑃) = 𝑃) → (𝑃 𝑄) = (𝑄 𝑃))
87oveq2d 7186 . . 3 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝐹𝑇 ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ (𝐹𝑃) = 𝑃) → (𝑄 (𝑃 𝑄)) = (𝑄 (𝑄 𝑃)))
91hllatd 37001 . . . 4 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝐹𝑇 ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ (𝐹𝑃) = 𝑃) → 𝐾 ∈ Lat)
10 eqid 2738 . . . . . 6 (Base‘𝐾) = (Base‘𝐾)
1110, 5atbase 36926 . . . . 5 (𝑄𝐴𝑄 ∈ (Base‘𝐾))
123, 11syl 17 . . . 4 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝐹𝑇 ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ (𝐹𝑃) = 𝑃) → 𝑄 ∈ (Base‘𝐾))
1310, 5atbase 36926 . . . . 5 (𝑃𝐴𝑃 ∈ (Base‘𝐾))
142, 13syl 17 . . . 4 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝐹𝑇 ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ (𝐹𝑃) = 𝑃) → 𝑃 ∈ (Base‘𝐾))
15 cdlemc3.m . . . . 5 = (meet‘𝐾)
1610, 4, 15latabs2 17814 . . . 4 ((𝐾 ∈ Lat ∧ 𝑄 ∈ (Base‘𝐾) ∧ 𝑃 ∈ (Base‘𝐾)) → (𝑄 (𝑄 𝑃)) = 𝑄)
179, 12, 14, 16syl3anc 1372 . . 3 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝐹𝑇 ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ (𝐹𝑃) = 𝑃) → (𝑄 (𝑄 𝑃)) = 𝑄)
188, 17eqtrd 2773 . 2 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝐹𝑇 ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ (𝐹𝑃) = 𝑃) → (𝑄 (𝑃 𝑄)) = 𝑄)
19 simp1 1137 . . . . . 6 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝐹𝑇 ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ (𝐹𝑃) = 𝑃) → (𝐾 ∈ HL ∧ 𝑊𝐻))
20 simp22 1208 . . . . . 6 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝐹𝑇 ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ (𝐹𝑃) = 𝑃) → (𝑃𝐴 ∧ ¬ 𝑃 𝑊))
21 simp21 1207 . . . . . 6 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝐹𝑇 ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ (𝐹𝑃) = 𝑃) → 𝐹𝑇)
22 simp3 1139 . . . . . 6 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝐹𝑇 ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ (𝐹𝑃) = 𝑃) → (𝐹𝑃) = 𝑃)
23 cdlemc3.l . . . . . . 7 = (le‘𝐾)
24 eqid 2738 . . . . . . 7 (0.‘𝐾) = (0.‘𝐾)
25 cdlemc3.h . . . . . . 7 𝐻 = (LHyp‘𝐾)
26 cdlemc3.t . . . . . . 7 𝑇 = ((LTrn‘𝐾)‘𝑊)
27 cdlemc3.r . . . . . . 7 𝑅 = ((trL‘𝐾)‘𝑊)
2823, 24, 5, 25, 26, 27trl0 37807 . . . . . 6 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝐹𝑇 ∧ (𝐹𝑃) = 𝑃)) → (𝑅𝐹) = (0.‘𝐾))
2919, 20, 21, 22, 28syl112anc 1375 . . . . 5 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝐹𝑇 ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ (𝐹𝑃) = 𝑃) → (𝑅𝐹) = (0.‘𝐾))
3029oveq2d 7186 . . . 4 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝐹𝑇 ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ (𝐹𝑃) = 𝑃) → (𝑄 (𝑅𝐹)) = (𝑄 (0.‘𝐾)))
31 hlol 36998 . . . . . 6 (𝐾 ∈ HL → 𝐾 ∈ OL)
321, 31syl 17 . . . . 5 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝐹𝑇 ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ (𝐹𝑃) = 𝑃) → 𝐾 ∈ OL)
3310, 4, 24olj01 36862 . . . . 5 ((𝐾 ∈ OL ∧ 𝑄 ∈ (Base‘𝐾)) → (𝑄 (0.‘𝐾)) = 𝑄)
3432, 12, 33syl2anc 587 . . . 4 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝐹𝑇 ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ (𝐹𝑃) = 𝑃) → (𝑄 (0.‘𝐾)) = 𝑄)
3530, 34eqtrd 2773 . . 3 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝐹𝑇 ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ (𝐹𝑃) = 𝑃) → (𝑄 (𝑅𝐹)) = 𝑄)
3622oveq1d 7185 . . . 4 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝐹𝑇 ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ (𝐹𝑃) = 𝑃) → ((𝐹𝑃) ((𝑃 𝑄) 𝑊)) = (𝑃 ((𝑃 𝑄) 𝑊)))
3710, 4, 5hlatjcl 37004 . . . . . . 7 ((𝐾 ∈ HL ∧ 𝑃𝐴𝑄𝐴) → (𝑃 𝑄) ∈ (Base‘𝐾))
381, 2, 3, 37syl3anc 1372 . . . . . 6 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝐹𝑇 ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ (𝐹𝑃) = 𝑃) → (𝑃 𝑄) ∈ (Base‘𝐾))
39 simp1r 1199 . . . . . . 7 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝐹𝑇 ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ (𝐹𝑃) = 𝑃) → 𝑊𝐻)
4010, 25lhpbase 37635 . . . . . . 7 (𝑊𝐻𝑊 ∈ (Base‘𝐾))
4139, 40syl 17 . . . . . 6 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝐹𝑇 ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ (𝐹𝑃) = 𝑃) → 𝑊 ∈ (Base‘𝐾))
4210, 15latmcl 17778 . . . . . 6 ((𝐾 ∈ Lat ∧ (𝑃 𝑄) ∈ (Base‘𝐾) ∧ 𝑊 ∈ (Base‘𝐾)) → ((𝑃 𝑄) 𝑊) ∈ (Base‘𝐾))
439, 38, 41, 42syl3anc 1372 . . . . 5 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝐹𝑇 ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ (𝐹𝑃) = 𝑃) → ((𝑃 𝑄) 𝑊) ∈ (Base‘𝐾))
4410, 4latjcom 17785 . . . . 5 ((𝐾 ∈ Lat ∧ 𝑃 ∈ (Base‘𝐾) ∧ ((𝑃 𝑄) 𝑊) ∈ (Base‘𝐾)) → (𝑃 ((𝑃 𝑄) 𝑊)) = (((𝑃 𝑄) 𝑊) 𝑃))
459, 14, 43, 44syl3anc 1372 . . . 4 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝐹𝑇 ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ (𝐹𝑃) = 𝑃) → (𝑃 ((𝑃 𝑄) 𝑊)) = (((𝑃 𝑄) 𝑊) 𝑃))
4623, 4, 5hlatlej1 37012 . . . . . . 7 ((𝐾 ∈ HL ∧ 𝑃𝐴𝑄𝐴) → 𝑃 (𝑃 𝑄))
471, 2, 3, 46syl3anc 1372 . . . . . 6 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝐹𝑇 ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ (𝐹𝑃) = 𝑃) → 𝑃 (𝑃 𝑄))
4810, 23, 4, 15, 5atmod2i1 37498 . . . . . 6 ((𝐾 ∈ HL ∧ (𝑃𝐴 ∧ (𝑃 𝑄) ∈ (Base‘𝐾) ∧ 𝑊 ∈ (Base‘𝐾)) ∧ 𝑃 (𝑃 𝑄)) → (((𝑃 𝑄) 𝑊) 𝑃) = ((𝑃 𝑄) (𝑊 𝑃)))
491, 2, 38, 41, 47, 48syl131anc 1384 . . . . 5 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝐹𝑇 ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ (𝐹𝑃) = 𝑃) → (((𝑃 𝑄) 𝑊) 𝑃) = ((𝑃 𝑄) (𝑊 𝑃)))
50 eqid 2738 . . . . . . . 8 (1.‘𝐾) = (1.‘𝐾)
5123, 4, 50, 5, 25lhpjat1 37657 . . . . . . 7 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊)) → (𝑊 𝑃) = (1.‘𝐾))
521, 39, 20, 51syl21anc 837 . . . . . 6 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝐹𝑇 ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ (𝐹𝑃) = 𝑃) → (𝑊 𝑃) = (1.‘𝐾))
5352oveq2d 7186 . . . . 5 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝐹𝑇 ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ (𝐹𝑃) = 𝑃) → ((𝑃 𝑄) (𝑊 𝑃)) = ((𝑃 𝑄) (1.‘𝐾)))
5410, 15, 50olm11 36864 . . . . . 6 ((𝐾 ∈ OL ∧ (𝑃 𝑄) ∈ (Base‘𝐾)) → ((𝑃 𝑄) (1.‘𝐾)) = (𝑃 𝑄))
5532, 38, 54syl2anc 587 . . . . 5 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝐹𝑇 ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ (𝐹𝑃) = 𝑃) → ((𝑃 𝑄) (1.‘𝐾)) = (𝑃 𝑄))
5649, 53, 553eqtrd 2777 . . . 4 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝐹𝑇 ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ (𝐹𝑃) = 𝑃) → (((𝑃 𝑄) 𝑊) 𝑃) = (𝑃 𝑄))
5736, 45, 563eqtrd 2777 . . 3 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝐹𝑇 ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ (𝐹𝑃) = 𝑃) → ((𝐹𝑃) ((𝑃 𝑄) 𝑊)) = (𝑃 𝑄))
5835, 57oveq12d 7188 . 2 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝐹𝑇 ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ (𝐹𝑃) = 𝑃) → ((𝑄 (𝑅𝐹)) ((𝐹𝑃) ((𝑃 𝑄) 𝑊))) = (𝑄 (𝑃 𝑄)))
5923, 5, 25, 26ltrnateq 37818 . 2 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝐹𝑇 ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ (𝐹𝑃) = 𝑃) → (𝐹𝑄) = 𝑄)
6018, 58, 593eqtr4rd 2784 1 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝐹𝑇 ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ (𝐹𝑃) = 𝑃) → (𝐹𝑄) = ((𝑄 (𝑅𝐹)) ((𝐹𝑃) ((𝑃 𝑄) 𝑊))))
Colors of variables: wff setvar class
Syntax hints:  ¬ wn 3  wi 4  wa 399  w3a 1088   = wceq 1542  wcel 2114   class class class wbr 5030  cfv 6339  (class class class)co 7170  Basecbs 16586  lecple 16675  joincjn 17670  meetcmee 17671  0.cp0 17763  1.cp1 17764  Latclat 17771  OLcol 36811  Atomscatm 36900  HLchlt 36987  LHypclh 37621  LTrncltrn 37738  trLctrl 37795
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1802  ax-4 1816  ax-5 1917  ax-6 1975  ax-7 2020  ax-8 2116  ax-9 2124  ax-10 2145  ax-11 2162  ax-12 2179  ax-ext 2710  ax-rep 5154  ax-sep 5167  ax-nul 5174  ax-pow 5232  ax-pr 5296  ax-un 7479
This theorem depends on definitions:  df-bi 210  df-an 400  df-or 847  df-3an 1090  df-tru 1545  df-fal 1555  df-ex 1787  df-nf 1791  df-sb 2075  df-mo 2540  df-eu 2570  df-clab 2717  df-cleq 2730  df-clel 2811  df-nfc 2881  df-ne 2935  df-ral 3058  df-rex 3059  df-reu 3060  df-rab 3062  df-v 3400  df-sbc 3681  df-csb 3791  df-dif 3846  df-un 3848  df-in 3850  df-ss 3860  df-nul 4212  df-if 4415  df-pw 4490  df-sn 4517  df-pr 4519  df-op 4523  df-uni 4797  df-iun 4883  df-iin 4884  df-br 5031  df-opab 5093  df-mpt 5111  df-id 5429  df-xp 5531  df-rel 5532  df-cnv 5533  df-co 5534  df-dm 5535  df-rn 5536  df-res 5537  df-ima 5538  df-iota 6297  df-fun 6341  df-fn 6342  df-f 6343  df-f1 6344  df-fo 6345  df-f1o 6346  df-fv 6347  df-riota 7127  df-ov 7173  df-oprab 7174  df-mpo 7175  df-1st 7714  df-2nd 7715  df-map 8439  df-proset 17654  df-poset 17672  df-plt 17684  df-lub 17700  df-glb 17701  df-join 17702  df-meet 17703  df-p0 17765  df-p1 17766  df-lat 17772  df-clat 17834  df-oposet 36813  df-ol 36815  df-oml 36816  df-covers 36903  df-ats 36904  df-atl 36935  df-cvlat 36959  df-hlat 36988  df-psubsp 37140  df-pmap 37141  df-padd 37433  df-lhyp 37625  df-laut 37626  df-ldil 37741  df-ltrn 37742  df-trl 37796
This theorem is referenced by:  cdlemc  37834
  Copyright terms: Public domain W3C validator