Quelle sep_sets.pvs Sprache: PVS

sep_sets[T: TYPE]: THEORY

BEGIN

   IMPORTING digraphs[T], walks[T]

   G: VAR digraph[T]
   v,s,t: VAR T
   e: VAR edgetype[T]
   V: VAR finite_set[T]

   del_verts(G,V): digraph[T] =
           (# vert := difference[T](vert(G),V),
              edges := {e | edges(G)(e) AND
                           (FORALL v: V(v) IMPLIES NOT in?(v,e))} #)

   separates(G,V,s,t): bool = NOT V(s) AND NOT V(t) AND
                   NOT (EXISTS (w: prewalk): walk_from?(del_verts(G,V),w,s,t))

   seps(G,s,t): TYPE = {V: finite_set[T] | IF s = t OR edge?(G)(s,t) THEN
                                              V = vert(G)
                                           ELSE separates(G,V,s,t)
                                           ENDIF}

   IMPORTING abstract_min

   sep_set_exists: LEMMA (EXISTS (t: seps(G, s, t)): TRUE)

   min_sep_set(G,s,t): finite_set[T] = min[seps(G,s,t),
                                  (LAMBDA (v: seps(G,s,t)): card(v)),
                                  (LAMBDA (v: seps(G,s,t)): true)]

   separable?(G,s,t): bool = (s /= t AND NOT edge?(G)(s,t))

   min_sep_set_edge: LEMMA NOT separable?(G,s,t) IMPLIES
                                  min_sep_set(G,s,t) = vert(G)

   min_sep_set_card: LEMMA FORALL (s,t: (vert(G))): separates(G,V,s,t)
                                  IMPLIES card(min_sep_set(G,s,t)) <= card(V)

   min_sep_set_seps: LEMMA separable?(G,s,t) IMPLIES
                               separates(G,min_sep_set(G,s,t),s,t)

   min_sep_set_vert: LEMMA separable?(G,s,t) AND min_sep_set(G,s,t)(v)
                                    IMPLIES vert(G)(v)

   ends_not_in_min_sep_set: LEMMA separable?(G,s,t)  AND min_sep_set(G, s, t)(v)
                                  IMPLIES v /= s AND v /= t

   w: VAR prewalk
   walk?_del_verts_not : LEMMA walk?(G, w) AND
                                  empty?(intersection(verts_of(w),V))
                                      IMPLIES walk?(del_verts(G, V), w)

   sep_num(G,s,t): nat = card(min_sep_set(G,s,t))

   IMPORTING digraph_deg[T], finite_sets@finite_sets_card_eq

   adj_verts(G,s): finite_set[T] = {v: T | (EXISTS (e: edgetype[T]):
                                         incident_edges[T](s, G)(e)
                                           AND in?(v,e) AND NOT v = s)}

%   adj_verts_lem: LEMMA card(adj_verts(G,s)) = deg(s,G)
%
%   sep_num_min: LEMMA FORALL (s,t: (vert(G))):
%                      separable?(G,s,t) IMPLIES
%                       sep_num(G,s,t) <= min(deg(s,G),deg(t,G))

END sep_sets

quality92%

¤ Dauer der Verarbeitung: 0.1 Sekunden (vorverarbeitet) ¤

Wurzel

Suchen

Beweissystem der NASA

Beweissystem Isabelle

NIST Cobol Testsuite

Cephes Mathematical Library

Wiener Entwicklungsmethode

Haftungshinweis

Die Informationen auf dieser Webseite wurden nach bestem Wissen sorgfältig zusammengestellt. Es wird jedoch weder Vollständigkeit, noch Richtigkeit, noch Qualität der bereit gestellten Informationen zugesichert.

Bemerkung:

Die farbliche Syntaxdarstellung ist noch experimentell.