products/Sources/formale Sprachen/PVS/digraphs image not shown  

Quellcode-Bibliothek

© Kompilation durch diese Firma

[Weder Korrektheit noch Funktionsfähigkeit der Software werden zugesichert.]

Datei: sep_sets.pvs   Sprache: PVS

Original von: 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







¤ Dauer der Verarbeitung: 0.19 Sekunden  (vorverarbeitet)  ¤





Download des
Quellennavigators
Download des
sprechenden Kalenders

in der Quellcodebibliothek suchen




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.


Bot Zugriff