Metamath Proof Explorer


Theorem necon1ad

Description: Contrapositive deduction for inequality. (Contributed by NM, 2-Apr-2007) (Proof shortened by Wolf Lammen, 23-Nov-2019)

Ref Expression
Hypothesis necon1ad.1 φ ¬ ψ A = B
Assertion necon1ad φ A B ψ

Proof

Step Hyp Ref Expression
1 necon1ad.1 φ ¬ ψ A = B
2 1 necon3ad φ A B ¬ ¬ ψ
3 notnotr ¬ ¬ ψ ψ
4 2 3 syl6 φ A B ψ