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 40781
Description: Lemma for cdlemc 40782. (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 1210 . . . . 5 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝐹𝑇 ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ (𝐹𝑃) = 𝑃) → 𝐾 ∈ HL)
2 simp22l 1305 . . . . 5 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝐹𝑇 ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ (𝐹𝑃) = 𝑃) → 𝑃𝐴)
3 simp23l 1307 . . . . 5 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝐹𝑇 ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ (𝐹𝑃) = 𝑃) → 𝑄𝐴)
4 cdlemc3.j . . . . . 6 = (join‘𝐾)
5 cdlemc3.a . . . . . 6 𝐴 = (Atoms‘𝐾)
64, 5hlatjcom 39953 . . . . 5 ((𝐾 ∈ HL ∧ 𝑃𝐴𝑄𝐴) → (𝑃 𝑄) = (𝑄 𝑃))
71, 2, 3, 6syl3anc 1389 . . . 4 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝐹𝑇 ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ (𝐹𝑃) = 𝑃) → (𝑃 𝑄) = (𝑄 𝑃))
87oveq2d 7407 . . 3 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝐹𝑇 ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ (𝐹𝑃) = 𝑃) → (𝑄 (𝑃 𝑄)) = (𝑄 (𝑄 𝑃)))
91hllatd 39949 . . . 4 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝐹𝑇 ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ (𝐹𝑃) = 𝑃) → 𝐾 ∈ Lat)
10 eqid 2761 . . . . . 6 (Base‘𝐾) = (Base‘𝐾)
1110, 5atbase 39874 . . . . 5 (𝑄𝐴𝑄 ∈ (Base‘𝐾))
123, 11syl 17 . . . 4 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝐹𝑇 ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ (𝐹𝑃) = 𝑃) → 𝑄 ∈ (Base‘𝐾))
1310, 5atbase 39874 . . . . 5 (𝑃𝐴𝑃 ∈ (Base‘𝐾))
142, 13syl 17 . . . 4 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝐹𝑇 ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ (𝐹𝑃) = 𝑃) → 𝑃 ∈ (Base‘𝐾))
15 cdlemc3.m . . . . 5 = (meet‘𝐾)
1610, 4, 15latabs2 18499 . . . 4 ((𝐾 ∈ Lat ∧ 𝑄 ∈ (Base‘𝐾) ∧ 𝑃 ∈ (Base‘𝐾)) → (𝑄 (𝑄 𝑃)) = 𝑄)
179, 12, 14, 16syl3anc 1389 . . 3 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝐹𝑇 ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ (𝐹𝑃) = 𝑃) → (𝑄 (𝑄 𝑃)) = 𝑄)
188, 17eqtrd 2796 . 2 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝐹𝑇 ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ (𝐹𝑃) = 𝑃) → (𝑄 (𝑃 𝑄)) = 𝑄)
19 simp1 1148 . . . . . 6 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝐹𝑇 ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ (𝐹𝑃) = 𝑃) → (𝐾 ∈ HL ∧ 𝑊𝐻))
20 simp22 1220 . . . . . 6 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝐹𝑇 ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ (𝐹𝑃) = 𝑃) → (𝑃𝐴 ∧ ¬ 𝑃 𝑊))
21 simp21 1219 . . . . . 6 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝐹𝑇 ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ (𝐹𝑃) = 𝑃) → 𝐹𝑇)
22 simp3 1150 . . . . . 6 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝐹𝑇 ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ (𝐹𝑃) = 𝑃) → (𝐹𝑃) = 𝑃)
23 cdlemc3.l . . . . . . 7 = (le‘𝐾)
24 eqid 2761 . . . . . . 7 (0.‘𝐾) = (0.‘𝐾)
25 cdlemc3.h . . . . . . 7 𝐻 = (LHyp‘𝐾)
26 cdlemc3.t . . . . . . 7 𝑇 = ((LTrn‘𝐾)‘𝑊)
27 cdlemc3.r . . . . . . 7 𝑅 = ((trL‘𝐾)‘𝑊)
2823, 24, 5, 25, 26, 27trl0 40755 . . . . . 6 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝐹𝑇 ∧ (𝐹𝑃) = 𝑃)) → (𝑅𝐹) = (0.‘𝐾))
2919, 20, 21, 22, 28syl112anc 1392 . . . . 5 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝐹𝑇 ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ (𝐹𝑃) = 𝑃) → (𝑅𝐹) = (0.‘𝐾))
3029oveq2d 7407 . . . 4 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝐹𝑇 ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ (𝐹𝑃) = 𝑃) → (𝑄 (𝑅𝐹)) = (𝑄 (0.‘𝐾)))
31 hlol 39946 . . . . . 6 (𝐾 ∈ HL → 𝐾 ∈ OL)
321, 31syl 17 . . . . 5 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝐹𝑇 ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ (𝐹𝑃) = 𝑃) → 𝐾 ∈ OL)
3310, 4, 24olj01 39810 . . . . 5 ((𝐾 ∈ OL ∧ 𝑄 ∈ (Base‘𝐾)) → (𝑄 (0.‘𝐾)) = 𝑄)
3432, 12, 33syl2anc 593 . . . 4 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝐹𝑇 ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ (𝐹𝑃) = 𝑃) → (𝑄 (0.‘𝐾)) = 𝑄)
3530, 34eqtrd 2796 . . 3 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝐹𝑇 ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ (𝐹𝑃) = 𝑃) → (𝑄 (𝑅𝐹)) = 𝑄)
3622oveq1d 7406 . . . 4 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝐹𝑇 ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ (𝐹𝑃) = 𝑃) → ((𝐹𝑃) ((𝑃 𝑄) 𝑊)) = (𝑃 ((𝑃 𝑄) 𝑊)))
3710, 4, 5hlatjcl 39952 . . . . . . 7 ((𝐾 ∈ HL ∧ 𝑃𝐴𝑄𝐴) → (𝑃 𝑄) ∈ (Base‘𝐾))
381, 2, 3, 37syl3anc 1389 . . . . . 6 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝐹𝑇 ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ (𝐹𝑃) = 𝑃) → (𝑃 𝑄) ∈ (Base‘𝐾))
39 simp1r 1211 . . . . . . 7 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝐹𝑇 ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ (𝐹𝑃) = 𝑃) → 𝑊𝐻)
4010, 25lhpbase 40583 . . . . . . 7 (𝑊𝐻𝑊 ∈ (Base‘𝐾))
4139, 40syl 17 . . . . . 6 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝐹𝑇 ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ (𝐹𝑃) = 𝑃) → 𝑊 ∈ (Base‘𝐾))
4210, 15latmcl 18463 . . . . . 6 ((𝐾 ∈ Lat ∧ (𝑃 𝑄) ∈ (Base‘𝐾) ∧ 𝑊 ∈ (Base‘𝐾)) → ((𝑃 𝑄) 𝑊) ∈ (Base‘𝐾))
439, 38, 41, 42syl3anc 1389 . . . . 5 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝐹𝑇 ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ (𝐹𝑃) = 𝑃) → ((𝑃 𝑄) 𝑊) ∈ (Base‘𝐾))
4410, 4latjcom 18470 . . . . 5 ((𝐾 ∈ Lat ∧ 𝑃 ∈ (Base‘𝐾) ∧ ((𝑃 𝑄) 𝑊) ∈ (Base‘𝐾)) → (𝑃 ((𝑃 𝑄) 𝑊)) = (((𝑃 𝑄) 𝑊) 𝑃))
459, 14, 43, 44syl3anc 1389 . . . 4 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝐹𝑇 ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ (𝐹𝑃) = 𝑃) → (𝑃 ((𝑃 𝑄) 𝑊)) = (((𝑃 𝑄) 𝑊) 𝑃))
4623, 4, 5hlatlej1 39960 . . . . . . 7 ((𝐾 ∈ HL ∧ 𝑃𝐴𝑄𝐴) → 𝑃 (𝑃 𝑄))
471, 2, 3, 46syl3anc 1389 . . . . . 6 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝐹𝑇 ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ (𝐹𝑃) = 𝑃) → 𝑃 (𝑃 𝑄))
4810, 23, 4, 15, 5atmod2i1 40446 . . . . . 6 ((𝐾 ∈ HL ∧ (𝑃𝐴 ∧ (𝑃 𝑄) ∈ (Base‘𝐾) ∧ 𝑊 ∈ (Base‘𝐾)) ∧ 𝑃 (𝑃 𝑄)) → (((𝑃 𝑄) 𝑊) 𝑃) = ((𝑃 𝑄) (𝑊 𝑃)))
491, 2, 38, 41, 47, 48syl131anc 1401 . . . . 5 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝐹𝑇 ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ (𝐹𝑃) = 𝑃) → (((𝑃 𝑄) 𝑊) 𝑃) = ((𝑃 𝑄) (𝑊 𝑃)))
50 eqid 2761 . . . . . . . 8 (1.‘𝐾) = (1.‘𝐾)
5123, 4, 50, 5, 25lhpjat1 40605 . . . . . . 7 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊)) → (𝑊 𝑃) = (1.‘𝐾))
521, 39, 20, 51syl21anc 848 . . . . . 6 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝐹𝑇 ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ (𝐹𝑃) = 𝑃) → (𝑊 𝑃) = (1.‘𝐾))
5352oveq2d 7407 . . . . 5 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝐹𝑇 ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ (𝐹𝑃) = 𝑃) → ((𝑃 𝑄) (𝑊 𝑃)) = ((𝑃 𝑄) (1.‘𝐾)))
5410, 15, 50olm11 39812 . . . . . 6 ((𝐾 ∈ OL ∧ (𝑃 𝑄) ∈ (Base‘𝐾)) → ((𝑃 𝑄) (1.‘𝐾)) = (𝑃 𝑄))
5532, 38, 54syl2anc 593 . . . . 5 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝐹𝑇 ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ (𝐹𝑃) = 𝑃) → ((𝑃 𝑄) (1.‘𝐾)) = (𝑃 𝑄))
5649, 53, 553eqtrd 2800 . . . 4 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝐹𝑇 ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ (𝐹𝑃) = 𝑃) → (((𝑃 𝑄) 𝑊) 𝑃) = (𝑃 𝑄))
5736, 45, 563eqtrd 2800 . . 3 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝐹𝑇 ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ (𝐹𝑃) = 𝑃) → ((𝐹𝑃) ((𝑃 𝑄) 𝑊)) = (𝑃 𝑄))
5835, 57oveq12d 7409 . 2 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝐹𝑇 ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ (𝐹𝑃) = 𝑃) → ((𝑄 (𝑅𝐹)) ((𝐹𝑃) ((𝑃 𝑄) 𝑊))) = (𝑄 (𝑃 𝑄)))
5923, 5, 25, 26ltrnateq 40766 . 2 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝐹𝑇 ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ (𝐹𝑃) = 𝑃) → (𝐹𝑄) = 𝑄)
6018, 58, 593eqtr4rd 2807 1 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝐹𝑇 ∧ (𝑃𝐴 ∧ ¬ 𝑃 𝑊) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) ∧ (𝐹𝑃) = 𝑃) → (𝐹𝑄) = ((𝑄 (𝑅𝐹)) ((𝐹𝑃) ((𝑃 𝑄) 𝑊))))
Colors of variables: wff setvar class
Syntax hints:  ¬ wn 3  wi 4  wa 399  w3a 1097   = wceq 1559  wcel 2141   class class class wbr 5097  cfv 6516  (class class class)co 7391  Basecbs 17236  lecple 17284  joincjn 18334  meetcmee 18335  0.cp0 18444  1.cp1 18445  Latclat 18454  OLcol 39759  Atomscatm 39848  HLchlt 39935  LHypclh 40569  LTrncltrn 40686  trLctrl 40743
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1814  ax-4 1828  ax-5 1929  ax-6 1986  ax-7 2027  ax-8 2143  ax-9 2151  ax-10 2174  ax-11 2190  ax-12 2211  ax-ext 2733  ax-rep 5224  ax-sep 5243  ax-nul 5253  ax-pow 5319  ax-pr 5387  ax-un 7713
This theorem depends on definitions:  df-bi 209  df-an 400  df-or 859  df-3an 1099  df-tru 1562  df-fal 1572  df-ex 1799  df-nf 1803  df-sb 2090  df-mo 2565  df-eu 2595  df-clab 2740  df-cleq 2753  df-clel 2836  df-nfc 2910  df-ne 2957  df-ral 3076  df-rex 3086  df-rmo 3366  df-reu 3367  df-rab 3414  df-v 3455  df-sbc 3743  df-csb 3851  df-dif 3905  df-un 3907  df-in 3909  df-ss 3919  df-nul 4284  df-if 4478  df-pw 4554  df-sn 4580  df-pr 4582  df-op 4586  df-uni 4863  df-iun 4948  df-iin 4949  df-br 5098  df-opab 5160  df-mpt 5179  df-id 5538  df-xp 5649  df-rel 5650  df-cnv 5651  df-co 5652  df-dm 5653  df-rn 5654  df-res 5655  df-ima 5656  df-iota 6472  df-fun 6518  df-fn 6519  df-f 6520  df-f1 6521  df-fo 6522  df-f1o 6523  df-fv 6524  df-riota 7348  df-ov 7394  df-oprab 7395  df-mpo 7396  df-1st 7965  df-2nd 7966  df-map 8804  df-proset 18317  df-poset 18336  df-plt 18351  df-lub 18367  df-glb 18368  df-join 18369  df-meet 18370  df-p0 18446  df-p1 18447  df-lat 18455  df-clat 18522  df-oposet 39761  df-ol 39763  df-oml 39764  df-covers 39851  df-ats 39852  df-atl 39883  df-cvlat 39907  df-hlat 39936  df-psubsp 40088  df-pmap 40089  df-padd 40381  df-lhyp 40573  df-laut 40574  df-ldil 40689  df-ltrn 40690  df-trl 40744
This theorem is referenced by:  cdlemc  40782
  Copyright terms: Public domain W3C validator