Metamath Proof Explorer


Theorem 1cvrat

Description: Create an atom under an element covered by the lattice unit. Part of proof of Lemma B in Crawley p. 112. (Contributed by NM, 30-Apr-2012)

Ref Expression
Hypotheses 1cvrat.b B=BaseK
1cvrat.l ˙=K
1cvrat.j ˙=joinK
1cvrat.m ˙=meetK
1cvrat.u 1˙=1.K
1cvrat.c C=K
1cvrat.a A=AtomsK
Assertion 1cvrat KHLPAQAXBPQXC1˙¬P˙XP˙Q˙XA

Proof

Step Hyp Ref Expression
1 1cvrat.b B=BaseK
2 1cvrat.l ˙=K
3 1cvrat.j ˙=joinK
4 1cvrat.m ˙=meetK
5 1cvrat.u 1˙=1.K
6 1cvrat.c C=K
7 1cvrat.a A=AtomsK
8 hllat KHLKLat
9 8 3ad2ant1 KHLPAQAXBPQXC1˙¬P˙XKLat
10 simp21 KHLPAQAXBPQXC1˙¬P˙XPA
11 1 7 atbase PAPB
12 10 11 syl KHLPAQAXBPQXC1˙¬P˙XPB
13 simp22 KHLPAQAXBPQXC1˙¬P˙XQA
14 1 7 atbase QAQB
15 13 14 syl KHLPAQAXBPQXC1˙¬P˙XQB
16 1 3 latjcom KLatPBQBP˙Q=Q˙P
17 9 12 15 16 syl3anc KHLPAQAXBPQXC1˙¬P˙XP˙Q=Q˙P
18 17 oveq1d KHLPAQAXBPQXC1˙¬P˙XP˙Q˙X=Q˙P˙X
19 1 3 latjcl KLatQBPBQ˙PB
20 9 15 12 19 syl3anc KHLPAQAXBPQXC1˙¬P˙XQ˙PB
21 simp23 KHLPAQAXBPQXC1˙¬P˙XXB
22 1 4 latmcom KLatQ˙PBXBQ˙P˙X=X˙Q˙P
23 9 20 21 22 syl3anc KHLPAQAXBPQXC1˙¬P˙XQ˙P˙X=X˙Q˙P
24 18 23 eqtrd KHLPAQAXBPQXC1˙¬P˙XP˙Q˙X=X˙Q˙P
25 simp1 KHLPAQAXBPQXC1˙¬P˙XKHL
26 21 13 10 3jca KHLPAQAXBPQXC1˙¬P˙XXBQAPA
27 simp31 KHLPAQAXBPQXC1˙¬P˙XPQ
28 27 necomd KHLPAQAXBPQXC1˙¬P˙XQP
29 simp33 KHLPAQAXBPQXC1˙¬P˙X¬P˙X
30 hlop KHLKOP
31 30 3ad2ant1 KHLPAQAXBPQXC1˙¬P˙XKOP
32 1 2 5 ople1 KOPQBQ˙1˙
33 31 15 32 syl2anc KHLPAQAXBPQXC1˙¬P˙XQ˙1˙
34 simp32 KHLPAQAXBPQXC1˙¬P˙XXC1˙
35 1 2 3 5 6 7 1cvrjat KHLXBPAXC1˙¬P˙XX˙P=1˙
36 25 21 10 34 29 35 syl32anc KHLPAQAXBPQXC1˙¬P˙XX˙P=1˙
37 33 36 breqtrrd KHLPAQAXBPQXC1˙¬P˙XQ˙X˙P
38 1 2 3 4 7 cvrat3 KHLXBQAPAQP¬P˙XQ˙X˙PX˙Q˙PA
39 38 imp KHLXBQAPAQP¬P˙XQ˙X˙PX˙Q˙PA
40 25 26 28 29 37 39 syl23anc KHLPAQAXBPQXC1˙¬P˙XX˙Q˙PA
41 24 40 eqeltrd KHLPAQAXBPQXC1˙¬P˙XP˙Q˙XA