Metamath Proof Explorer


Theorem cdlemefr29exN

Description: Lemma for cdlemefs29bpre1N . (Compare cdleme25a .) TODO: FIX COMMENT. TODO: IS THIS NEEDED? (Contributed by NM, 28-Mar-2013) (New usage is discouraged.)

Ref Expression
Hypotheses cdlemefr29.b B=BaseK
cdlemefr29.l ˙=K
cdlemefr29.j ˙=joinK
cdlemefr29.m ˙=meetK
cdlemefr29.a A=AtomsK
cdlemefr29.h H=LHypK
Assertion cdlemefr29exN KHLWHPA¬P˙WQA¬Q˙WPQXB¬X˙WsACBsA¬s˙Ws˙X˙W=XC˙X˙WB

Proof

Step Hyp Ref Expression
1 cdlemefr29.b B=BaseK
2 cdlemefr29.l ˙=K
3 cdlemefr29.j ˙=joinK
4 cdlemefr29.m ˙=meetK
5 cdlemefr29.a A=AtomsK
6 cdlemefr29.h H=LHypK
7 simp11 KHLWHPA¬P˙WQA¬Q˙WPQXB¬X˙WsACBKHLWH
8 simp2r KHLWHPA¬P˙WQA¬Q˙WPQXB¬X˙WsACBXB¬X˙W
9 1 2 3 4 5 6 lhpmcvr2 KHLWHXB¬X˙WsA¬s˙Ws˙X˙W=X
10 7 8 9 syl2anc KHLWHPA¬P˙WQA¬Q˙WPQXB¬X˙WsACBsA¬s˙Ws˙X˙W=X
11 nfv sKHLWHPA¬P˙WQA¬Q˙W
12 nfv sPQXB¬X˙W
13 nfra1 ssACB
14 11 12 13 nf3an sKHLWHPA¬P˙WQA¬Q˙WPQXB¬X˙WsACB
15 simp11l KHLWHPA¬P˙WQA¬Q˙WPQXB¬X˙WsACBKHL
16 15 adantr KHLWHPA¬P˙WQA¬Q˙WPQXB¬X˙WsACBsA¬s˙WKHL
17 16 hllatd KHLWHPA¬P˙WQA¬Q˙WPQXB¬X˙WsACBsA¬s˙WKLat
18 simpl3 KHLWHPA¬P˙WQA¬Q˙WPQXB¬X˙WsACBsA¬s˙WsACB
19 simprl KHLWHPA¬P˙WQA¬Q˙WPQXB¬X˙WsACBsA¬s˙WsA
20 rsp sACBsACB
21 18 19 20 sylc KHLWHPA¬P˙WQA¬Q˙WPQXB¬X˙WsACBsA¬s˙WCB
22 15 hllatd KHLWHPA¬P˙WQA¬Q˙WPQXB¬X˙WsACBKLat
23 simp2rl KHLWHPA¬P˙WQA¬Q˙WPQXB¬X˙WsACBXB
24 simp11r KHLWHPA¬P˙WQA¬Q˙WPQXB¬X˙WsACBWH
25 1 6 lhpbase WHWB
26 24 25 syl KHLWHPA¬P˙WQA¬Q˙WPQXB¬X˙WsACBWB
27 1 4 latmcl KLatXBWBX˙WB
28 22 23 26 27 syl3anc KHLWHPA¬P˙WQA¬Q˙WPQXB¬X˙WsACBX˙WB
29 28 adantr KHLWHPA¬P˙WQA¬Q˙WPQXB¬X˙WsACBsA¬s˙WX˙WB
30 1 3 latjcl KLatCBX˙WBC˙X˙WB
31 17 21 29 30 syl3anc KHLWHPA¬P˙WQA¬Q˙WPQXB¬X˙WsACBsA¬s˙WC˙X˙WB
32 31 expr KHLWHPA¬P˙WQA¬Q˙WPQXB¬X˙WsACBsA¬s˙WC˙X˙WB
33 32 adantrd KHLWHPA¬P˙WQA¬Q˙WPQXB¬X˙WsACBsA¬s˙Ws˙X˙W=XC˙X˙WB
34 33 ancld KHLWHPA¬P˙WQA¬Q˙WPQXB¬X˙WsACBsA¬s˙Ws˙X˙W=X¬s˙Ws˙X˙W=XC˙X˙WB
35 34 ex KHLWHPA¬P˙WQA¬Q˙WPQXB¬X˙WsACBsA¬s˙Ws˙X˙W=X¬s˙Ws˙X˙W=XC˙X˙WB
36 14 35 reximdai KHLWHPA¬P˙WQA¬Q˙WPQXB¬X˙WsACBsA¬s˙Ws˙X˙W=XsA¬s˙Ws˙X˙W=XC˙X˙WB
37 10 36 mpd KHLWHPA¬P˙WQA¬Q˙WPQXB¬X˙WsACBsA¬s˙Ws˙X˙W=XC˙X˙WB