DISJ_IMP : (thm -> thm)
A |- t1 \/ t2 ----------------- DISJ_IMP A |- ~t1 ==> t2
th = |- m < n \/ n <= m
#DISJ_IMP th;; |- ~m < n ==> n <= m