Metamath Proof Explorer


Theorem signswn0

Description: The zero-skipping operation propagates 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