Parameter GenericRelationalValued.Node

include Parameters.UF_NODE

include Parameters.SIMPLE_GENERIC_ELT

type 'a t

The type of elements (nodes) in the union-find structure

val polyeq : 'a t -> 'b t -> ('a, 'b) PatriciaTree.cmp

polymorphic equality on elements

module Relation : Parameters.GENERIC_GROUP

module Value : Parameters.SIMPLE_GENERIC_VALUE with type ('a, 'b) relation = ('a, 'b) Relation.t

type 'a root = {

1. mutable value : 'a Value.t;
2. mutable size : int;

}

The type of root nodes, attached to each representative

type 'a parent =

1. | Node : 'b t * ('a, 'b) Relation.t -> 'a parent
2. | Root of 'a root
   (*

   The type of parents. A term either points to:

   • a representative via a relation
   • a root if it is a representative

   *)

val get_parent : 'a t -> 'a parent

val set_parent : 'a t -> 'a parent -> unit