Wrap (pickles.Pickles.Impls.Wrap)

module Impl : sig ... end

include module type of Impl

module R1CS_constraint_system : sig ... end

type field = Backend.Tock.Field.t

module Bigint : sig ... end

module Constraint : sig ... end

module Typ : sig ... end

module Boolean : sig ... end

module Field : sig ... end

module As_prover : sig ... end

module Proof_inputs : sig ... end

module Internal_Basic : sig ... end

module Bitstring_checked : sig ... end

module Handle : sig ... end

type response = Snarky_backendless.Request.response

val unhandled : response

type request = Snarky_backendless.Request.request =

| With : {

request : 'a Snarky_backendless.Request.t;

respond : 'a Snarky_backendless.Request.Response.t -> response;

} -> request

module Handler : sig ... end

val assert_ : ?label:string -> Constraint.t -> unit

val assert_all : ?label:string -> Constraint.t list -> unit

val assert_r1cs : ?label:string -> Field.t -> Field.t -> Field.t -> unit

val assert_square : ?label:string -> Field.t -> Field.t -> unit

val as_prover : ( unit -> unit ) As_prover.t -> unit

val next_auxiliary : unit -> int

val request_witness : 
  ( 'var, 'value ) Typ.t ->
  ( unit -> 'value Snarky_backendless.Request.t ) As_prover.t ->
  'var

val perform : ( unit -> unit Snarky_backendless.Request.t ) As_prover.t -> unit

val request : 
  ?such_that:( 'var -> unit ) ->
  ( 'var, 'value ) Typ.t ->
  'value Snarky_backendless.Request.t ->
  'var

val exists : 
  ?request:( unit -> 'value Snarky_backendless.Request.t ) As_prover.t ->
  ?compute:( unit -> 'value ) As_prover.t ->
  ( 'var, 'value ) Typ.t ->
  'var

val exists_handle : 
  ?request:( unit -> 'value Snarky_backendless.Request.t ) As_prover.t ->
  ?compute:( unit -> 'value ) As_prover.t ->
  ( 'var, 'value ) Typ.t ->
  ( 'var, 'value ) Handle.t

val handle : ( unit -> 'a ) -> Handler.t -> 'a

val handle_as_prover : 
  ( unit -> 'a ) ->
  ( unit -> Handler.t As_prover.t ) ->
  'a

val if_ : 
  Boolean.var ->
  typ:( 'var, 'a ) Typ.t ->
  then_:'var ->
  else_:'var ->
  'var

val with_label : string -> ( unit -> 'a ) -> 'a

val make_checked : ( unit -> 'a ) -> 'a Internal_Basic.Checked.t

val constraint_system : 
  input_typ:( 'input_var, 'input_value ) Typ.t ->
  return_typ:( 'a, 'b ) Typ.t ->
  ( 'input_var -> unit -> 'a ) ->
  R1CS_constraint_system.t

val generate_witness : 
  input_typ:( 'input_var, 'input_value ) Typ.t ->
  return_typ:( 'a, 'b ) Typ.t ->
  ( 'input_var -> unit -> 'a ) ->
  'input_value ->
  Proof_inputs.t

val generate_public_input : 
  ( 'input_var, 'input_value ) Typ.t ->
  'input_value ->
  Field.Constant.Vector.t

val generate_witness_conv : 
  f:( Proof_inputs.t -> 'r_value -> 'out ) ->
  input_typ:( 'input_var, 'input_value ) Typ.t ->
  return_typ:( 'r_var, 'r_value ) Typ.t ->
  ( 'input_var -> unit -> 'r_var ) ->
  'input_value ->
  'out

val run_unchecked : ( unit -> 'a ) -> 'a

val run_and_check : 
  ( unit -> ( unit -> 'a ) As_prover.t ) ->
  'a Core_kernel.Or_error.t

module Run_and_check_deferred (M : sig ... end) : sig ... end

val check : ( unit -> 'a ) -> unit Core_kernel.Or_error.t

val constraint_count : 
  ?weight:( Constraint.t -> int ) ->
  ?log:( ?start:bool -> string -> int -> unit ) ->
  ( unit -> 'a ) ->
  int

val set_constraint_logger : 
  ( ?at_label_boundary:([ `End | `Start ] * string) ->
    Constraint.t option ->
    unit ) ->
  unit

val clear_constraint_logger : unit -> unit

val in_prover : unit -> bool

val in_checked_computation : unit -> bool

val constant : ( 'var, 'value ) Typ.t -> 'value -> 'var

val run_checked : 'a Internal_Basic.Checked.t -> 'a

module Number : sig ... end

module Enumerable (M : sig ... end) : sig ... end

module Challenge : sig ... end

module Digest : sig ... end

module Wrap_field = Backend.Tock.Field

module Step_field = Backend.Tick.Field

module Verification_key = Backend.Tock.Verification_key

module Proving_key = Backend.Tock.Proving_key

module Keypair : sig ... end

module Other_field : sig ... end

val input : 
  unit ->
  ( ( Impl.Field.t,
      Impl.Field.t Composition_types.Scalar_challenge.t,
      Impl.Field.t Pickles_types.Shifted_value.Type1.t,
      ( ( Impl.Field.t Composition_types.Scalar_challenge.t
            Pickles_types.Hlist0.Id.t
            Pickles_types.Hlist0.Id.t,
          Impl.Field.t Pickles_types.Shifted_value.Type1.t
            Pickles_types.Hlist0.Id.t
            Pickles_types.Hlist0.Id.t )
          Composition_types.Wrap.Proof_state.Deferred_values.Plonk.In_circuit.Lookup.t,
        Impl.field Snarky_backendless.Cvar.t
          Snarky_backendless.Snark_intf.Boolean0.t )
        Pickles_types.Plonk_types.Opt.t,
      Impl.field Snarky_backendless.Cvar.t,
      Impl.field Snarky_backendless.Cvar.t,
      Impl.field Snarky_backendless.Cvar.t,
      ( Impl.field Snarky_backendless.Cvar.t
          Kimchi_backend_common.Scalar_challenge.t
          Composition_types.Bulletproof_challenge.t,
        Pickles_types.Nat.z Backend.Tick.Rounds.plus_n )
        Pickles_types.Vector.t
        Pickles_types.Hlist0.Id.t,
      Impl.field Snarky_backendless.Cvar.t )
      Composition_types.Wrap.Statement.In_circuit.t,
    ( Limb_vector.Challenge.Constant.t,
      Limb_vector.Challenge.Constant.t Composition_types.Scalar_challenge.t,
      Other_field.Constant.t Pickles_types.Shifted_value.Type1.t,
      ( Limb_vector.Challenge.Constant.t Composition_types.Scalar_challenge.t
          Pickles_types.Hlist0.Id.t,
        Other_field.Constant.t Pickles_types.Shifted_value.Type1.t
          Pickles_types.Hlist0.Id.t )
        Composition_types.Wrap.Proof_state.Deferred_values.Plonk.In_circuit.Lookup.t
        option,
      ( Limb_vector.Constant.Hex64.t, Composition_types.Digest.Limbs.n )
        Pickles_types.Vector.vec,
      ( Limb_vector.Constant.Hex64.t, Composition_types.Digest.Limbs.n )
        Pickles_types.Vector.vec,
      ( Limb_vector.Constant.Hex64.t, Composition_types.Digest.Limbs.n )
        Pickles_types.Vector.vec,
      ( Limb_vector.Challenge.Constant.t
          Kimchi_backend_common.Scalar_challenge.t
          Composition_types.Bulletproof_challenge.t,
        Pickles_types.Nat.z Backend.Tick.Rounds.plus_n )
        Pickles_types.Vector.t
        Pickles_types.Hlist0.Id.t,
      Composition_types.Branch_data.t )
      Composition_types.Wrap.Statement.In_circuit.t,
    Wrap_impl.field )
    Composition_types.Spec.ETyp.t