OKlibrary  0.2.1.6
MinVarDegrees.mac
Go to the documentation of this file.
00001 /* Oliver Kullmann, 21.5.2011 (London) */
00002 /* Copyright 2011 Oliver Kullmann
00003 This file is part of the OKlibrary. OKlibrary is free software; you can redistribute
00004 it and/or modify it under the terms of the GNU General Public License as published by
00005 the Free Software Foundation and included in this library; either version 3 of the
00006 License, or any later version. */
00007 
00022 oklib_include("OKlib/ComputerAlgebra/TestSystem/Lisp/Asserts.mac")$
00023 oklib_include("OKlib/ComputerAlgebra/Satisfiability/Lisp/ClauseSets/Hypergraphs.mac")$
00024 oklib_include("OKlib/ComputerAlgebra/Satisfiability/Lisp/ClauseSets/Statistics.mac")$
00025 oklib_include("OKlib/ComputerAlgebra/Satisfiability/Lisp/MinimalUnsatisfiability/MinVarDegrees.mac")$
00026 oklib_include("OKlib/ComputerAlgebra/Satisfiability/Lisp/Autarkies/TableauAlgorithm.mac")$
00027 
00028 kill(f)$
00029 
00030 okltest_extremal_lean_mvdd_fcs(f) := (
00031   assert(f(1) = [{1},{{1},{-1}}]),
00032   assert(f(2) = [{1,2},{{1,2},{-1,2},{1,-2},{-1,-2}}]),
00033   for k : 3 thru if oklib_test_level=0 then 7 else 20 do
00034    block([F : f(k), N : nonmersenne_law(k)],
00035     assert(fcs_p(F) = true),
00036     assert(deficiency_fcs(F) = k),
00037     assert(min_variable_degree_fcs(F) = N),
00038     assert(lean_kernel_tableau_fs_cs(F[2])[1] = F[2])
00039   ),
00040   true)$
00041 
00042