OKlibrary  0.2.1.6
Closures.mac
Go to the documentation of this file.
00001 /* Oliver Kullmann, 7.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 oklib_include("OKlib/ComputerAlgebra/Algebra/Lisp/Groupoids/Semigroups/TransformationMonoids.mac")$
00024 
00025 kill(f)$
00026 
00027 /* Testing whether f(compo,S) computes the closure of set S under the
00028    law of composition compo: */
00029 okltest_closure_grd(f) := (
00030   assert(f(0,{}) = {}),
00031   assert(f(transformation_l_compo,{}) = {}),
00032   assert(f(transformation_l_compo,{[]}) = {[]}),
00033   assert(f(transformation_l_compo,{[2,3,1]}) = {[1,2,3],[2,3,1],[3,1,2]}),
00034   true)$
00035