Metamath Proof Explorer


Theorem cdlemefrs29cpre1

Description: TODO: FIX COMMENT. (Contributed by NM, 29-Mar-2013)

Ref Expression
Hypotheses cdlemefrs27.b B=BaseK
cdlemefrs27.l ˙=K
cdlemefrs27.j ˙=joinK
cdlemefrs27.m ˙=meetK
cdlemefrs27.a A=AtomsK
cdlemefrs27.h H=LHypK
cdlemefrs27.eq s=Rφψ
cdlemefrs27.nb KHLWHPA¬P˙WQA¬Q˙WPQsA¬s˙WφNB
cdlemefrs27.rnb KHLWHPA¬P˙WQA¬Q˙WPQRA¬R˙WψR/sNB
Assertion cdlemefrs29cpre1 KHLWHPA¬P˙WQA¬Q˙WPQRA¬R˙Wψ∃!zBsA¬s˙Wφs˙R˙W=Rz=N˙R˙W

Proof

Step Hyp Ref Expression
1 cdlemefrs27.b B=BaseK
2 cdlemefrs27.l ˙=K
3 cdlemefrs27.j ˙=joinK
4 cdlemefrs27.m ˙=meetK
5 cdlemefrs27.a A=AtomsK
6 cdlemefrs27.h H=LHypK
7 cdlemefrs27.eq s=Rφψ
8 cdlemefrs27.nb KHLWHPA¬P˙WQA¬Q˙WPQsA¬s˙WφNB
9 cdlemefrs27.rnb KHLWHPA¬P˙WQA¬Q˙WPQRA¬R˙WψR/sNB
10 1 2 3 4 5 6 7 8 9 cdlemefrs29bpre1 KHLWHPA¬P˙WQA¬Q˙WPQRA¬R˙WψzBsA¬s˙Wφs˙R˙W=Rz=N˙R˙W
11 simp11 KHLWHPA¬P˙WQA¬Q˙WPQRA¬R˙WψKHLWH
12 simp2rl KHLWHPA¬P˙WQA¬Q˙WPQRA¬R˙WψRA
13 1 5 atbase RARB
14 12 13 syl KHLWHPA¬P˙WQA¬Q˙WPQRA¬R˙WψRB
15 simp2rr KHLWHPA¬P˙WQA¬Q˙WPQRA¬R˙Wψ¬R˙W
16 1 2 3 4 5 6 lhpmcvr2 KHLWHRB¬R˙WsA¬s˙Ws˙R˙W=R
17 11 14 15 16 syl12anc KHLWHPA¬P˙WQA¬Q˙WPQRA¬R˙WψsA¬s˙Ws˙R˙W=R
18 simpl3 KHLWHPA¬P˙WQA¬Q˙WPQRA¬R˙WψsAψ
19 7 pm5.32ri φs=Rψs=R
20 19 baibr ψs=Rφs=R
21 18 20 syl KHLWHPA¬P˙WQA¬Q˙WPQRA¬R˙WψsAs=Rφs=R
22 simp2r KHLWHPA¬P˙WQA¬Q˙WPQRA¬R˙WψRA¬R˙W
23 eqid 0.K=0.K
24 2 4 23 5 6 lhpmat KHLWHRA¬R˙WR˙W=0.K
25 11 22 24 syl2anc KHLWHPA¬P˙WQA¬Q˙WPQRA¬R˙WψR˙W=0.K
26 25 adantr KHLWHPA¬P˙WQA¬Q˙WPQRA¬R˙WψsAR˙W=0.K
27 26 oveq2d KHLWHPA¬P˙WQA¬Q˙WPQRA¬R˙WψsAs˙R˙W=s˙0.K
28 simp11l KHLWHPA¬P˙WQA¬Q˙WPQRA¬R˙WψKHL
29 hlol KHLKOL
30 28 29 syl KHLWHPA¬P˙WQA¬Q˙WPQRA¬R˙WψKOL
31 1 5 atbase sAsB
32 1 3 23 olj01 KOLsBs˙0.K=s
33 30 31 32 syl2an KHLWHPA¬P˙WQA¬Q˙WPQRA¬R˙WψsAs˙0.K=s
34 27 33 eqtrd KHLWHPA¬P˙WQA¬Q˙WPQRA¬R˙WψsAs˙R˙W=s
35 34 eqeq1d KHLWHPA¬P˙WQA¬Q˙WPQRA¬R˙WψsAs˙R˙W=Rs=R
36 35 anbi2d KHLWHPA¬P˙WQA¬Q˙WPQRA¬R˙WψsAφs˙R˙W=Rφs=R
37 21 35 36 3bitr4d KHLWHPA¬P˙WQA¬Q˙WPQRA¬R˙WψsAs˙R˙W=Rφs˙R˙W=R
38 37 anbi2d KHLWHPA¬P˙WQA¬Q˙WPQRA¬R˙WψsA¬s˙Ws˙R˙W=R¬s˙Wφs˙R˙W=R
39 anass ¬s˙Wφs˙R˙W=R¬s˙Wφs˙R˙W=R
40 38 39 bitr4di KHLWHPA¬P˙WQA¬Q˙WPQRA¬R˙WψsA¬s˙Ws˙R˙W=R¬s˙Wφs˙R˙W=R
41 40 rexbidva KHLWHPA¬P˙WQA¬Q˙WPQRA¬R˙WψsA¬s˙Ws˙R˙W=RsA¬s˙Wφs˙R˙W=R
42 17 41 mpbid KHLWHPA¬P˙WQA¬Q˙WPQRA¬R˙WψsA¬s˙Wφs˙R˙W=R
43 reusv1 sA¬s˙Wφs˙R˙W=R∃!zBsA¬s˙Wφs˙R˙W=Rz=N˙R˙WzBsA¬s˙Wφs˙R˙W=Rz=N˙R˙W
44 42 43 syl KHLWHPA¬P˙WQA¬Q˙WPQRA¬R˙Wψ∃!zBsA¬s˙Wφs˙R˙W=Rz=N˙R˙WzBsA¬s˙Wφs˙R˙W=Rz=N˙R˙W
45 10 44 mpbird KHLWHPA¬P˙WQA¬Q˙WPQRA¬R˙Wψ∃!zBsA¬s˙Wφs˙R˙W=Rz=N˙R˙W