Module Diagrams.Transfo.Pet

module Pet: sig .. end

type t = {

	`uid : int;`
	`name : string;`
	`append : Diagrams.Transfo.Style.t list -> Diagrams.Transfo.Style.t -> Diagrams.Transfo.Style.t list;`

}

val name : t -> string

val append : t ->
       Diagrams.Transfo.Style.t list ->
       Diagrams.Transfo.Style.t -> Diagrams.Transfo.Style.t list

val register : ?depends:PetMap.key list ->
       ?codepends:PetMap.key list ->
       ?append:(Diagrams.Transfo.Style.t list ->
                Diagrams.Transfo.Style.t -> Diagrams.Transfo.Style.t list) ->
       string -> (t -> 'a) -> 'a * t

module Map: Map.Make(sig

type t = Diagrams.Transfo.Pet.u

val compare : t -> t -> int

end)