OKlibrary  0.2.1.6
TableauAlgorithm.mac
Go to the documentation of this file.
00001 /* Oliver Kullmann, 30.7.2008 (Swansea) */
00002 /* Copyright 2008 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 
00021 oklib_include("OKlib/ComputerAlgebra/Satisfiability/Lisp/Autarkies/TableauAlgorithm.mac")$
00022 oklib_include("OKlib/ComputerAlgebra/Satisfiability/Lisp/Autarkies/tests/TableauAlgorithm.mac")$
00023 oklib_include("OKlib/ComputerAlgebra/Satisfiability/Lisp/Autarkies/tests/LeanKernel.mac")$
00024 
00025 /* ***********************
00026    * The basic algorithm *
00027    ***********************
00028 */
00029 
00030 okltest_find_aut_cl_tableau_cl(find_aut_cl_tableau_cl);
00031 
00032 /* ************************************
00033    * Finding some non-trivial autarky *
00034    ************************************
00035 */
00036 
00037 okltest_find_autarky_cs(lambda([F],find_aut_tableau_fs_cl(cs2cl(F))[1]));
00038 okltest_find_autarky_cs(lambda([F],find_aut_tableau_cl(cs2cl(F),lambda([],last(obligations)))[1]));
00039 
00040 /* *****************************
00041    * Computing the lean kernel *
00042    *****************************
00043 */
00044 
00045 okltest_lean_kernel_fcs(lambda([FF],cs2fcs(cl2cs(lean_kernel_tableau_fs_cl(cs2cl(FF[2]))[1]))));
00046