open Preamble

open Hints_declaration

open Core_notation

open Pts

open Logic

open Types

open Deqsets

open Setoids

open Monad

open Option

open Extranat

open Vector

open Div_and_mod

open Jmeq

open Russell

open List

open Util

open FoldStuff

open Bool

open Relations

open Nat

open BitVector

open BitVectorTrie

open Proper

open PositiveMap

open ErrorMessages

open PreIdentifiers

open Errors

open Extralib

open Lists

open Positive

open Identifiers

open Exp

open Arithmetic

open Integers

open AST

type label = PreIdentifiers.identifier

(** val label_to_ident : label -> AST.ident **)
let label_to_ident l =
  let l0 = l in l0

(** val label_eq : label -> label -> (__, __) Types.sum **)
let label_eq =
  Identifiers.identifier_eq PreIdentifiers.LabelTag

type 'x graph = 'x Identifiers.identifier_map

(** val graph_fold :
    (Positive.pos -> 'a1 -> 'a2 -> 'a2) -> 'a1 graph -> 'a2 -> 'a2 **)
let graph_fold f graph0 seed =
  let map = graph0 in PositiveMap.fold f map seed

(** val graph_num_nodes : 'a1 graph -> Nat.nat **)
let graph_num_nodes g =
  Identifiers.id_map_size PreIdentifiers.LabelTag g