Small refactoring in the solver sat function

src/Main.hs

@@ -11,9 +11,6 @@ import Solver.StateEquation
 import Solver.TransitionInvariant
 import Solver.TrapConstraints
 
--- TODO: check type of property and only do trap refinement for safety
--- properties
-
 checkSafetyProperty :: PetriNet -> Formula -> [[String]] -> IO Bool
 checkSafetyProperty net f traps = do
     r <- checkSat $ checkStateEquationSat net f traps

src/Solver.hs

@@ -26,5 +26,5 @@ checkSat :: (SatModel a, SymWord a) =>
         ([String], M.Map String (SBV a) -> SBool) ->
         IO (Maybe (M.Map String a))
 checkSat (vars, constraint) = do
-        result <- sat $ symConstraints vars constraint
+        result <- satWith z3{verbose=False} $ symConstraints vars constraint
         return $ rebuildModel vars $ getModel result