DISJ2 : term -> thm -> thm
A |- t2 --------------- DISJ2 "t1" A |- t1 \/ t2
- DISJ2 F TRUTH; > val it = |- F \/ T : thm