val SAT_PROVE : Term.term -> Thm.thm
- load "HolSatLib"; open HolSatLib; (* output omitted *) > val it = () : unit - SAT_PROVE ``(a ==> b) /\ (b ==> a) ==> (a=b)``; > val it = |- (a ==> b) /\ (b ==> a) ==> (a = b) : thm - SAT_PROVE ``~((a ==> b) /\ (b ==> a) ==> (a=b))`` handle HolSatLib.SAT_cex th => th; > val it = |- ~b /\ a ==> ~~((a ==> b) /\ (b ==> a) ==> (a = b)) : thm