Metamath Proof Explorer


Theorem signswn0

Description: The zero-skipping operation propagages nonzeros. (Contributed by Thierry Arnoux, 11-Oct-2018)

Ref Expression
Hypotheses signsw.p ˙ = a 1 0 1 , b 1 0 1 if b = 0 a b
signsw.w W = Base ndx 1 0 1 + ndx ˙
Assertion signswn0 X 1 0 1 Y 1 0 1 X 0 X ˙ Y 0

Proof

Step Hyp Ref Expression
1 signsw.p ˙ = a 1 0 1 , b 1 0 1 if b = 0 a b
2 signsw.w W = Base ndx 1 0 1 + ndx ˙
3 1 signspval X 1 0 1 Y 1 0 1 X ˙ Y = if Y = 0 X Y
4 3 adantr X 1 0 1 Y 1 0 1 X 0 X ˙ Y = if Y = 0 X Y
5 neeq1 X = if Y = 0 X Y X 0 if Y = 0 X Y 0
6 neeq1 Y = if Y = 0 X Y Y 0 if Y = 0 X Y 0
7 simplr X 1 0 1 Y 1 0 1 X 0 Y = 0 X 0
8 simpr X 1 0 1 Y 1 0 1 X 0 ¬ Y = 0 ¬ Y = 0
9 8 neqned X 1 0 1 Y 1 0 1 X 0 ¬ Y = 0 Y 0
10 5 6 7 9 ifbothda X 1 0 1 Y 1 0 1 X 0 if Y = 0 X Y 0
11 4 10 eqnetrd X 1 0 1 Y 1 0 1 X 0 X ˙ Y 0