exact tableauThenNotSat ([~φ], [], none) tabl
case byTableauL
φ : Formula
tabl : ClosedTableau ([], []) ([~φ], [], none)
⊢ ¬satisfiable {~φ}

case byTableauR
φ : Formula
tabl : ClosedTableau ([], []) ([], [~φ], none)
⊢ ¬satisfiable {~φ}
case byTableauR
φ : Formula
tabl : ClosedTableau ([], []) ([], [~φ], none)
⊢ ¬satisfiable {~φ}