OKlibrary  0.2.1.6
Degrees.mac
Go to the documentation of this file.
00001 /* Oliver Kullmann, 16.2.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 
00025 kill(f)$
00026 
00027 okltest_locallemma_sattest_clausedeg(f) := block(
00028   assert(f({}) = true),
00029   assert(f({{}}) = false),
00030   assert(f({{1}}) = false),
00031   assert(f({{1},{-1}}) = false),
00032   assert(f({{1,2}}) = true),
00033   assert(f({{1,2},{-1,2}}) = false),
00034   assert(f({{1,2,3}}) = true),
00035   assert(f({{1,2,3},{-1,2,3}}) = true),
00036   assert(f({{1,2,3},{-1,2,3},{1,-2,3}}) = false),
00037   true)$
00038 
00039 okltest_locallemma_sattest_vardeg(f) := block(
00040   assert(f({}) = true),
00041   assert(f({{}}) = false),
00042   assert(f({{1}}) = false),
00043   assert(f({{1},{-1}}) = false),
00044   assert(f({{1,2}}) = false),
00045   assert(f({{1,2},{-1,2}}) = false),
00046   assert(f({{1,2,3}}) = false),
00047   assert(f({{1,2,3},{-1,2,3}}) = false),
00048   assert(f({{1,2,3,4}}) = true),
00049   true)$
00050 
00051 okltest_locallemma_sattest_asymmetric(f) := block(
00052   assert(f({}) = true),
00053   assert(f({{}}) = false),
00054   assert(f({{1}}) = true),
00055   assert(f({{1},{-1}}) = false),
00056   assert(f({{1,2}}) = true),
00057   assert(f({{1,2},{-1,2}}) = true),
00058   assert(f({{1,2},{-1,2},{1,-2}}) = false),
00059   assert(f({{1,2,3}}) = true),
00060   assert(f({{1,2,3},{-1,2,3}}) = true),
00061   assert(f({{1,2,3},{-1,2,3},{1,-2,3}}) = true),
00062   assert(f({{1,2,3},{-1,2,3},{1,-2,3},{1,2,-3}}) = false),
00063   true)$
00064 
00065 
00066