Navigation (kappa-library.Kappa_site

type abstract =

| Existing of int
| Fresh of Agent.t

type 'a port = 'a * int

type 'a arrow =

| ToNode of 'a port
| ToNothing
| ToInternal of int

type 'a step = 'a port * 'a arrow

type 'a t = 'a step list

val print : 
  Signature.s ->
  (int -> int) ->
  Stdlib.Format.formatter ->
  abstract t ->
  unit

print signatures find_existing_type nav

val step_to_yojson : abstract step -> Yojson.Basic.t

val step_of_yojson : Yojson.Basic.t -> abstract step

val to_yojson : abstract t -> Yojson.Basic.t

val of_yojson : Yojson.Basic.t -> abstract t

val rename : 
  debug_mode:bool ->
  Kappa_data_structures.Renaming.t ->
  abstract t ->
  Kappa_data_structures.Renaming.t * abstract t

val compatible_fresh_point : 
  debug_mode:bool ->
  abstract step ->
  Agent.t ->
  int ->
  abstract arrow ->
  Kappa_data_structures.Renaming.t option

Retuns the extension of the given injections so that the second edge is the image of the first

val is_subnavigation : 
  debug_mode:bool ->
  Kappa_data_structures.Renaming.t ->
  abstract t ->
  abstract t ->
  (Kappa_data_structures.Renaming.t * abstract t) option

is_subnavigation inj_nav2sub nav subpart

val check_edge : Edges.t -> abstract step -> bool

val injection_for_one_more_edge : 
  debug_mode:bool ->
  ?root:Agent.t ->
  Kappa_data_structures.Renaming.t ->
  Edges.t ->
  abstract step ->
  Kappa_data_structures.Renaming.t option

val imperative_edge_is_valid : 
  debug_mode:bool ->
  ?root:Agent.t ->
  Kappa_data_structures.Renaming.t ->
  Edges.t ->
  abstract step ->
  bool

val concretize : 
  debug_mode:bool ->
  Agent.t ->
  Edges.t ->
  abstract t ->
  int t option