Simplifying formulas in literals

OCamlPro · Apr 19, 2021 · 93beaa3 · 93beaa3
1 parent c10f468
commit 93beaa3
Show file tree

Hide file tree

Showing 4 changed files with 445 additions and 255 deletions.
diff --git a/src/lib/frontend/cnf.ml b/src/lib/frontend/cnf.ml
@@ -508,16 +508,19 @@ let make_form name f loc ~decl_kind =
       Util.SNo -> form
     | Util.SPreprocess | Util.SAll ->
       let module S = SimpExprPreproc () in
+      (*Format.printf "Simplifying@.";*)
       let smp_form = S.simp_expr form in
-      let () =
+      (* let () =
         (* Emptying the caches modified by the simplifier.
            St : This is necessary for having consistent results. *)
         Shostak.Combine.empty_cache ();
-        S.empty_caches () in
+         S.empty_caches (); () in *)
       if SRE.has_changed smp_form then
+        (*let () = Format.printf "Simplification over: success@." in*)
         let exp = SRE.get_expr smp_form in
         exp
       else begin
+        (*let () = Format.printf "Simplification over: fail@." in*)
         form
       end
   in