Parameter MakeHorn.C

type parents
module Id : sig ... end
type level = int
type 'a complete_term = private
  1. | Tuple_get : int * tuple_ -> 'res complete_term
  2. | Empty : 'res complete_term
  3. | Unknown : level -> 'res complete_term
  4. | Mu_formal : {
    1. level : level;
    2. actual : 'res t * Transfer_functions.Term.boolean t;
    } -> 'res complete_term
  5. | T0 : {
    1. tag : (Transfer_functions.Term.ar0, 'res) Transfer_functions.Term.term;
    } -> 'res complete_term
  6. | T1 : {
    1. tag : ('a Transfer_functions.Term.ar1, 'res) Transfer_functions.Term.term;
    2. a : 'a t;
    3. level : level;
    } -> 'res complete_term
  7. | T2 : {
    1. tag : (('a, 'b) Transfer_functions.Term.ar2, 'res) Transfer_functions.Term.term;
    2. a : 'a t;
    3. b : 'b t;
    4. level : level;
    } -> 'res complete_term
and any =
  1. | Any : 'res t -> any
and tuple_ = private
  1. | Nondet of {
    1. id : tuple Id.t;
    2. level : level;
    3. a : tuple;
    4. conda_bool : Transfer_functions.Term.boolean t;
    5. b : tuple;
    6. condb_bool : Transfer_functions.Term.boolean t;
    }
  2. | Mu of {
    1. id : tuple Id.t;
    2. level : level;
    3. init : tuple;
    4. var : tuple;
    5. body : tuple;
    6. body_cond : Transfer_functions.Term.boolean t;
    }
module Any : sig ... end
module Tuple : sig ... end
module Parents : sig ... end
val compare : 'a t -> 'b t -> int
val hash : 'a t -> int
val equal : 'a t -> 'b t -> bool
val pretty_deps : Stdlib.Format.formatter -> 'a t -> unit
val pretty_tuple_deps : Stdlib.Format.formatter -> tuple -> unit
val pretty : Stdlib.Format.formatter -> 'a t -> unit
val pretty_tuple : Stdlib.Format.formatter -> tuple -> unit
val level : 'a t -> int
val size_of : Transfer_functions.Term.binary t -> int
module Build : sig ... end
module Utils : sig ... end