DISJ2 : (term -> thm -> thm)
A |- t2 --------------- DISJ2 "t1" A |- t1 \/ t2
#DISJ2 "F" TRUTH;; |- F \/ T