OKlibrary  0.2.1.6
TableauAlgorithm.mac
Go to the documentation of this file.
```00001 /* Oliver Kullmann, 29.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
00022 oklib_include("OKlib/ComputerAlgebra/TestSystem/Lisp/Asserts.mac")\$
00023
00024 kill(f)\$
00025
00026 /* ***********************
00027    * The basic algorithm *
00028    ***********************
00029 */
00030
00031 okltest_find_aut_cl_tableau_cl(f) := block([heu],
00032   local(heu),
00033   heu() := first(obligations),
00034   assert(f([],[],heu) = {}),
00035   assert(f([{}],[],heu) = {}),
00036   assert(f([{}],[{}],heu) = false),
00037   assert(f([{1},{2}],[{1}],heu) = {1}),
00038   assert(f([{1},{-1},{},{2}],[{2}],heu) = {2}),
00039   assert(f([{1,2},{-1,2},{3},{-3}],[{1,2}],heu) = {1,2}),
00040   assert(f([{1,2},{-1,2,3},{1,-2},{3},{-3}],[{1,2}],heu) = {1,2}),
00041   assert(f([{1,2},{-1,-2,3},{1,-2},{3},{-3}],[{1,2}],heu) = {1,-2}),
00042   true)\$
00043
```