OKlibrary  0.2.1.6
Numbers.mac
Go to the documentation of this file.
00001 /* Oliver Kullmann, 22.4.2010 (Swansea) */
00002 /* Copyright 2010 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 /* *********************
00028    * Green-Tao numbers *
00029    *********************
00030 */
00031 
00032 okltest_greentao(f) := block([g],
00033   assert(f([4,4]) = 512),
00034   g : f([5,7]),
00035   assert(g = unknown or listp(g)),
00036   g : f([3,4,4]),
00037   assert(g = unknown or listp(g)),
00038   /* XXX */
00039   true)$
00040