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