OKlibrary  0.2.1.6
LeanKernel.mac
Go to the documentation of this file.
00001 /* Oliver Kullmann, 29.7.2008 (Swansea) */
00002 /* Copyright 2008, 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 
00025 /* ***********************************
00026    * Computing the lean kernel bydef *
00027    ***********************************
00028 */
00029 
00030 /* Computing the lean kernel w.r.t. some autarky system by a given function,
00031    which returns a non-trivial autarky iff possible: */
00032 lean_kernel_autfind_fcs(FF,autfind) := block([phi : autfind(FF)],
00033   unless emptyp(phi) do (
00034     FF : apply_pa_fcs(phi,FF),
00035     phi : autfind(FF)
00036   ),
00037   return(FF))$
00038