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 ( 𝜑 → ( ¬ 𝜓𝐴 = 𝐵 ) )
Assertion necon1ad ( 𝜑 → ( 𝐴𝐵𝜓 ) )

Proof

Step Hyp Ref Expression
1 necon1ad.1 ( 𝜑 → ( ¬ 𝜓𝐴 = 𝐵 ) )
2 1 necon3ad ( 𝜑 → ( 𝐴𝐵 → ¬ ¬ 𝜓 ) )
3 notnotr ( ¬ ¬ 𝜓𝜓 )
4 2 3 syl6 ( 𝜑 → ( 𝐴𝐵𝜓 ) )