OKlibrary  0.2.1.6
Connectedness.mac
Go to the documentation of this file.
00001 /* Oliver Kullmann, 27.11.2011 (Swansea) */
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 
00024 kill(f)$
00025 
00026 okltest_concom_g(f) := (
00027   assert(f([{},{}]) = {}),
00028   assert(f([{1},{}]) = {{1}}),
00029   assert(f([{1,2},{}]) = {{1},{2}}),
00030   assert(f([{1,2},{{1,2}}]) = {{1,2}}),
00031   assert(f([{1,2,3,4},{{1,2},{3,4}}]) = {{1,2},{3,4}}),
00032   assert(f([{{1},{2},{3},{4}}, {{{1},{2}},{{1},{3}}}]) = {{{1},{2},{3}},{{4}}}),
00033   true)$
00034