Metamath Proof Explorer


Theorem intnatN

Description: If the intersection with a non-majorizing element is an atom, the intersecting element is not an atom. (Contributed by NM, 26-Jun-2012) (New usage is discouraged.)

Ref Expression
Hypotheses intnat.b B = Base K
intnat.l ˙ = K
intnat.m ˙ = meet K
intnat.a A = Atoms K
Assertion intnatN K HL X B Y B ¬ Y ˙ X X ˙ Y A ¬ Y A

Proof

Step Hyp Ref Expression
1 intnat.b B = Base K
2 intnat.l ˙ = K
3 intnat.m ˙ = meet K
4 intnat.a A = Atoms K
5 hlatl K HL K AtLat
6 5 3ad2ant1 K HL X B Y B K AtLat
7 6 ad2antrr K HL X B Y B ¬ Y ˙ X X ˙ Y A K AtLat
8 eqid 0. K = 0. K
9 8 4 atn0 K AtLat X ˙ Y A X ˙ Y 0. K
10 7 9 sylancom K HL X B Y B ¬ Y ˙ X X ˙ Y A X ˙ Y 0. K
11 10 ex K HL X B Y B ¬ Y ˙ X X ˙ Y A X ˙ Y 0. K
12 simpll1 K HL X B Y B ¬ Y ˙ X Y A K HL
13 12 hllatd K HL X B Y B ¬ Y ˙ X Y A K Lat
14 simpll2 K HL X B Y B ¬ Y ˙ X Y A X B
15 simpll3 K HL X B Y B ¬ Y ˙ X Y A Y B
16 1 3 latmcom K Lat X B Y B X ˙ Y = Y ˙ X
17 13 14 15 16 syl3anc K HL X B Y B ¬ Y ˙ X Y A X ˙ Y = Y ˙ X
18 simplr K HL X B Y B ¬ Y ˙ X Y A ¬ Y ˙ X
19 12 5 syl K HL X B Y B ¬ Y ˙ X Y A K AtLat
20 simpr K HL X B Y B ¬ Y ˙ X Y A Y A
21 1 2 3 8 4 atnle K AtLat Y A X B ¬ Y ˙ X Y ˙ X = 0. K
22 19 20 14 21 syl3anc K HL X B Y B ¬ Y ˙ X Y A ¬ Y ˙ X Y ˙ X = 0. K
23 18 22 mpbid K HL X B Y B ¬ Y ˙ X Y A Y ˙ X = 0. K
24 17 23 eqtrd K HL X B Y B ¬ Y ˙ X Y A X ˙ Y = 0. K
25 24 ex K HL X B Y B ¬ Y ˙ X Y A X ˙ Y = 0. K
26 25 necon3ad K HL X B Y B ¬ Y ˙ X X ˙ Y 0. K ¬ Y A
27 11 26 syld K HL X B Y B ¬ Y ˙ X X ˙ Y A ¬ Y A
28 27 impr K HL X B Y B ¬ Y ˙ X X ˙ Y A ¬ Y A