OKlibrary  0.2.1.6
Graphs.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/Satisfiability/Lisp/Resolution/Basics.mac")$
00023 oklib_include("OKlib/ComputerAlgebra/Graphs/Lisp/Connectedness.mac")$
00024 oklib_include("OKlib/ComputerAlgebra/Hypergraphs/Lisp/SetSystems.mac")$
00025 
00026 
00027 /* The resolution-graph of a clause-set: */
00028 resolutiongraph_cs2g(F) := [F, resolvable_cs(F)]$
00029 
00030 /* The connected components (as clause-sets) of the resolution-graph of
00031    a clause-set:
00032 */
00033 cc_resolutiongraph_cs(F) := concom_g(resolutiongraph_cs2g(F))$
00034 
00035 /* The subsumption-resolution-graph of a clause-set: */
00036 subresolutiongraph_cs2g(F) := [F,
00037  block([S : check_subsumption(min_elements(F))],
00038    subset(resolvable_cs(F), lambda([e], not S(resolvent_s(e)))))]$
00039 
00040 cc_subresolutiongraph_cs(F) := concom_g(subresolutiongraph_cs2g(F))$
00041