sig
  module Params : sig type t = { log_theta : float; } end
  module Eval :
    sig
      module Kernel :
        sig
          type t
          type params = Params.t
          val create : params -> t
          val get_params : t -> params
        end
      module Inducing :
        sig
          type t = Lacaml.D.mat
          val get_n_points : t -> int
          val calc_upper : Kernel.t -> t -> Lacaml.D.mat
        end
      module Input :
        sig
          type t = Lacaml.D.vec
          val eval : Kernel.t -> t -> Inducing.t -> Lacaml.D.vec
          val weighted_eval :
            Kernel.t -> t -> Inducing.t -> coeffs:Lacaml.D.vec -> float
          val eval_one : Kernel.t -> t -> float
        end
      module Inputs :
        sig
          type t = Lacaml.D.mat
          val create : Input.t array -> t
          val get_n_points : t -> int
          val choose_subset : t -> Gpr_utils.Int_vec.t -> t
          val create_inducing : Kernel.t -> t -> Inducing.t
          val create_default_kernel_params :
            t -> n_inducing:int -> Kernel.params
          val calc_upper : Kernel.t -> t -> Lacaml.D.mat
          val calc_diag : Kernel.t -> t -> Lacaml.D.vec
          val calc_cross :
            Kernel.t -> inputs:t -> inducing:Inducing.t -> Lacaml.D.mat
          val weighted_eval :
            Kernel.t ->
            inputs:t ->
            inducing:Inducing.t -> coeffs:Lacaml.D.vec -> Lacaml.D.vec
        end
    end
  module Deriv :
    sig
      module Eval :
        sig
          module Kernel :
            sig
              type t = Eval.Kernel.t
              type params = Params.t
              val create : params -> t
              val get_params : t -> params
            end
          module Inducing :
            sig
              type t = Lacaml.D.mat
              val get_n_points : t -> int
              val calc_upper : Kernel.t -> t -> Lacaml.D.mat
            end
          module Input :
            sig
              type t = Lacaml.D.vec
              val eval : Kernel.t -> t -> Inducing.t -> Lacaml.D.vec
              val weighted_eval :
                Kernel.t -> t -> Inducing.t -> coeffs:Lacaml.D.vec -> float
              val eval_one : Kernel.t -> t -> float
            end
          module Inputs :
            sig
              type t = Lacaml.D.mat
              val create : Input.t array -> t
              val get_n_points : t -> int
              val choose_subset : t -> Gpr_utils.Int_vec.t -> t
              val create_inducing : Kernel.t -> t -> Inducing.t
              val create_default_kernel_params :
                t -> n_inducing:int -> Kernel.params
              val calc_upper : Kernel.t -> t -> Lacaml.D.mat
              val calc_diag : Kernel.t -> t -> Lacaml.D.vec
              val calc_cross :
                Kernel.t -> inputs:t -> inducing:Inducing.t -> Lacaml.D.mat
              val weighted_eval :
                Kernel.t ->
                inputs:t ->
                inducing:Inducing.t -> coeffs:Lacaml.D.vec -> Lacaml.D.vec
            end
        end
      module Hyper :
        sig
          type t = [ `Log_theta ]
          val get_all :
            Eval.Kernel.t -> Eval.Inducing.t -> Eval.Inputs.t -> t array
          val get_value :
            Eval.Kernel.t -> Eval.Inducing.t -> Eval.Inputs.t -> t -> float
          val set_values :
            Eval.Kernel.t ->
            Eval.Inducing.t ->
            Eval.Inputs.t ->
            t array ->
            Lacaml.D.vec -> Eval.Kernel.t * Eval.Inducing.t * Eval.Inputs.t
        end
      module Inducing :
        sig
          type upper
          val calc_shared_upper :
            Eval.Kernel.t -> Eval.Inducing.t -> Lacaml.D.mat * upper
          val calc_deriv_upper :
            upper -> Hyper.t -> Gpr_interfaces.symm_mat_deriv
        end
      module Inputs :
        sig
          type diag
          type cross
          val calc_shared_diag :
            Eval.Kernel.t -> Eval.Inputs.t -> Lacaml.D.vec * diag
          val calc_shared_cross :
            Eval.Kernel.t ->
            inputs:Eval.Inputs.t ->
            inducing:Eval.Inducing.t -> Lacaml.D.mat * cross
          val calc_deriv_diag : diag -> Hyper.t -> Gpr_interfaces.diag_deriv
          val calc_deriv_cross : cross -> Hyper.t -> Gpr_interfaces.mat_deriv
        end
    end
end