Metamath Proof Explorer


Theorem llnexchb2

Description: Line exchange property (compare cvlatexchb2 for atoms). (Contributed by NM, 17-Nov-2012)

Ref Expression
Hypotheses llnexch.l ˙=K
llnexch.j ˙=joinK
llnexch.m ˙=meetK
llnexch.a A=AtomsK
llnexch.n N=LLinesK
Assertion llnexchb2 KHLXNYNZNX˙YAXZX˙Y˙ZX˙Y=X˙Z

Proof

Step Hyp Ref Expression
1 llnexch.l ˙=K
2 llnexch.j ˙=joinK
3 llnexch.m ˙=meetK
4 llnexch.a A=AtomsK
5 llnexch.n N=LLinesK
6 simp23 KHLXNYNZNX˙YAXZZN
7 simp1 KHLXNYNZNX˙YAXZKHL
8 eqid BaseK=BaseK
9 8 5 llnbase ZNZBaseK
10 6 9 syl KHLXNYNZNX˙YAXZZBaseK
11 8 2 4 5 islln3 KHLZBaseKZNpAqApqZ=p˙q
12 7 10 11 syl2anc KHLXNYNZNX˙YAXZZNpAqApqZ=p˙q
13 6 12 mpbid KHLXNYNZNX˙YAXZpAqApqZ=p˙q
14 simp3r KHLXNYNZNX˙YAXZXZ
15 14 necomd KHLXNYNZNX˙YAXZZX
16 simp11 KHLXNYNZNX˙YAXZpAqApqKHL
17 16 hllatd KHLXNYNZNX˙YAXZpAqApqKLat
18 simp2l KHLXNYNZNX˙YAXZpAqApqpA
19 8 4 atbase pApBaseK
20 18 19 syl KHLXNYNZNX˙YAXZpAqApqpBaseK
21 simp2r KHLXNYNZNX˙YAXZpAqApqqA
22 8 4 atbase qAqBaseK
23 21 22 syl KHLXNYNZNX˙YAXZpAqApqqBaseK
24 simp121 KHLXNYNZNX˙YAXZpAqApqXN
25 8 5 llnbase XNXBaseK
26 24 25 syl KHLXNYNZNX˙YAXZpAqApqXBaseK
27 8 1 2 latjle12 KLatpBaseKqBaseKXBaseKp˙Xq˙Xp˙q˙X
28 17 20 23 26 27 syl13anc KHLXNYNZNX˙YAXZpAqApqp˙Xq˙Xp˙q˙X
29 simp3 KHLXNYNZNX˙YAXZpAqApqpq
30 2 4 5 llni2 KHLpAqApqp˙qN
31 16 18 21 29 30 syl31anc KHLXNYNZNX˙YAXZpAqApqp˙qN
32 1 5 llncmp KHLp˙qNXNp˙q˙Xp˙q=X
33 16 31 24 32 syl3anc KHLXNYNZNX˙YAXZpAqApqp˙q˙Xp˙q=X
34 28 33 bitr2d KHLXNYNZNX˙YAXZpAqApqp˙q=Xp˙Xq˙X
35 34 necon3abid KHLXNYNZNX˙YAXZpAqApqp˙qX¬p˙Xq˙X
36 ianor ¬p˙Xq˙X¬p˙X¬q˙X
37 35 36 bitrdi KHLXNYNZNX˙YAXZpAqApqp˙qX¬p˙X¬q˙X
38 simpl11 KHLXNYNZNX˙YAXZpAqApq¬p˙XKHL
39 24 adantr KHLXNYNZNX˙YAXZpAqApq¬p˙XXN
40 simp122 KHLXNYNZNX˙YAXZpAqApqYN
41 40 adantr KHLXNYNZNX˙YAXZpAqApq¬p˙XYN
42 simpl2l KHLXNYNZNX˙YAXZpAqApq¬p˙XpA
43 simpl2r KHLXNYNZNX˙YAXZpAqApq¬p˙XqA
44 simpr KHLXNYNZNX˙YAXZpAqApq¬p˙X¬p˙X
45 simp13l KHLXNYNZNX˙YAXZpAqApqX˙YA
46 45 adantr KHLXNYNZNX˙YAXZpAqApq¬p˙XX˙YA
47 1 2 3 4 5 llnexchb2lem KHLXNYNpAqA¬p˙XX˙YAX˙Y˙p˙qX˙Y=X˙p˙q
48 38 39 41 42 43 44 46 47 syl331anc KHLXNYNZNX˙YAXZpAqApq¬p˙XX˙Y˙p˙qX˙Y=X˙p˙q
49 48 ex KHLXNYNZNX˙YAXZpAqApq¬p˙XX˙Y˙p˙qX˙Y=X˙p˙q
50 simpl11 KHLXNYNZNX˙YAXZpAqApq¬q˙XKHL
51 24 adantr KHLXNYNZNX˙YAXZpAqApq¬q˙XXN
52 40 adantr KHLXNYNZNX˙YAXZpAqApq¬q˙XYN
53 simpl2r KHLXNYNZNX˙YAXZpAqApq¬q˙XqA
54 simpl2l KHLXNYNZNX˙YAXZpAqApq¬q˙XpA
55 simpr KHLXNYNZNX˙YAXZpAqApq¬q˙X¬q˙X
56 45 adantr KHLXNYNZNX˙YAXZpAqApq¬q˙XX˙YA
57 1 2 3 4 5 llnexchb2lem KHLXNYNqApA¬q˙XX˙YAX˙Y˙q˙pX˙Y=X˙q˙p
58 50 51 52 53 54 55 56 57 syl331anc KHLXNYNZNX˙YAXZpAqApq¬q˙XX˙Y˙q˙pX˙Y=X˙q˙p
59 2 4 hlatjcom KHLpAqAp˙q=q˙p
60 50 54 53 59 syl3anc KHLXNYNZNX˙YAXZpAqApq¬q˙Xp˙q=q˙p
61 60 breq2d KHLXNYNZNX˙YAXZpAqApq¬q˙XX˙Y˙p˙qX˙Y˙q˙p
62 60 oveq2d KHLXNYNZNX˙YAXZpAqApq¬q˙XX˙p˙q=X˙q˙p
63 62 eqeq2d KHLXNYNZNX˙YAXZpAqApq¬q˙XX˙Y=X˙p˙qX˙Y=X˙q˙p
64 58 61 63 3bitr4d KHLXNYNZNX˙YAXZpAqApq¬q˙XX˙Y˙p˙qX˙Y=X˙p˙q
65 64 ex KHLXNYNZNX˙YAXZpAqApq¬q˙XX˙Y˙p˙qX˙Y=X˙p˙q
66 49 65 jaod KHLXNYNZNX˙YAXZpAqApq¬p˙X¬q˙XX˙Y˙p˙qX˙Y=X˙p˙q
67 37 66 sylbid KHLXNYNZNX˙YAXZpAqApqp˙qXX˙Y˙p˙qX˙Y=X˙p˙q
68 neeq1 Z=p˙qZXp˙qX
69 breq2 Z=p˙qX˙Y˙ZX˙Y˙p˙q
70 oveq2 Z=p˙qX˙Z=X˙p˙q
71 70 eqeq2d Z=p˙qX˙Y=X˙ZX˙Y=X˙p˙q
72 69 71 bibi12d Z=p˙qX˙Y˙ZX˙Y=X˙ZX˙Y˙p˙qX˙Y=X˙p˙q
73 68 72 imbi12d Z=p˙qZXX˙Y˙ZX˙Y=X˙Zp˙qXX˙Y˙p˙qX˙Y=X˙p˙q
74 67 73 syl5ibrcom KHLXNYNZNX˙YAXZpAqApqZ=p˙qZXX˙Y˙ZX˙Y=X˙Z
75 74 3exp KHLXNYNZNX˙YAXZpAqApqZ=p˙qZXX˙Y˙ZX˙Y=X˙Z
76 75 imp4a KHLXNYNZNX˙YAXZpAqApqZ=p˙qZXX˙Y˙ZX˙Y=X˙Z
77 76 rexlimdvv KHLXNYNZNX˙YAXZpAqApqZ=p˙qZXX˙Y˙ZX˙Y=X˙Z
78 13 15 77 mp2d KHLXNYNZNX˙YAXZX˙Y˙ZX˙Y=X˙Z