Theory Plane1

(*  Title:      Plane1.thy
    ID:         $Id: Plane1.thy,v 1.1 2006/01/04 13:43:59 nipkow Exp $
    Author:     Gertrud Bauer, Tobias Nipkow

Fixing a single face and vertex in each refinement step.
*)

theory Plane1
imports Plane
begin

text{* This is an optimized definition of plane graphs and the one we
adopt as our point of reference. In every step only one fixed nonfinal
face (the smallest one) and one edge in that face are picked. *}


constdefs minimalFace:: "face list => face"
 "minimalFace ≡ minimal (length o vertices)"

constdefs minimalVertex :: "graph => face => vertex"
 "minimalVertex g f ≡ minimal (height g) (vertices f)" 

constdefs next_plane :: "nat => graph => graph list" ("next'_plane_")
 "next_planep g ≡
     let fs = nonFinals g in
     if fs = [] then [] 
     else let f = minimalFace fs; v = minimalVertex g f in
          \<Squnion>i∈[3..maxGon p] generatePolygon i v f g"

constdefs
 PlaneGraphsP  :: "nat => graph set" ("PlaneGraphs_")
"PlaneGraphsp ≡ {g. Seedp [next_planep]->* g ∧ final g}"

 PlaneGraphs :: "graph set"
"PlaneGraphs ≡ \<Union>p. PlaneGraphsp"

end