Fields (mina_block.Mina_block.Internal

val names : string list

val staged_ledger_diff : 
  ( [< `Read | `Set_and_create ], t, Staged_ledger_diff.t )
    Fieldslib.Field.t_with_perm

val prover_state : 
  ( [< `Read | `Set_and_create ], t, Consensus.Data.Prover_state.t )
    Fieldslib.Field.t_with_perm

val ledger_proof : 
  ( [< `Read | `Set_and_create ], t, Ledger_proof.t option )
    Fieldslib.Field.t_with_perm

val snark_transition : 
  ( [< `Read | `Set_and_create ], t, Mina_state.Snark_transition.Value.t )
    Fieldslib.Field.t_with_perm

val make_creator : 
  snark_transition:
    ( ( [< `Read | `Set_and_create ], t, Mina_state.Snark_transition.Value.t )
        Fieldslib.Field.t_with_perm ->
      'a ->
      ( 'b -> Mina_state.Snark_transition.Value.t ) * 'c ) ->
  ledger_proof:
    ( ( [< `Read | `Set_and_create ], t, Ledger_proof.t option )
        Fieldslib.Field.t_with_perm ->
      'd ->
      ( 'e -> Ledger_proof.t option ) * 'f ) ->
  prover_state:
    ( ( [< `Read | `Set_and_create ], t, Consensus.Data.Prover_state.t )
        Fieldslib.Field.t_with_perm ->
      'g ->
      ( 'h -> Consensus.Data.Prover_state.t ) * 'i ) ->
  staged_ledger_diff:
    ( ( [< `Read | `Set_and_create ], t, Staged_ledger_diff.t )
        Fieldslib.Field.t_with_perm ->
      'j ->
      ( 'k -> Staged_ledger_diff.t ) * 'l ) ->
  'm ->
  ( 'n -> t ) * 'o

val create : 
  snark_transition:Mina_state.Snark_transition.Value.t ->
  ledger_proof:Ledger_proof.t option ->
  prover_state:Consensus.Data.Prover_state.t ->
  staged_ledger_diff:Staged_ledger_diff.t ->
  t

val map : 
  snark_transition:
    ( ( [< `Read | `Set_and_create ], t, Mina_state.Snark_transition.Value.t )
        Fieldslib.Field.t_with_perm ->
      Mina_state.Snark_transition.Value.t ) ->
  ledger_proof:
    ( ( [< `Read | `Set_and_create ], t, Ledger_proof.t option )
        Fieldslib.Field.t_with_perm ->
      Ledger_proof.t option ) ->
  prover_state:
    ( ( [< `Read | `Set_and_create ], t, Consensus.Data.Prover_state.t )
        Fieldslib.Field.t_with_perm ->
      Consensus.Data.Prover_state.t ) ->
  staged_ledger_diff:
    ( ( [< `Read | `Set_and_create ], t, Staged_ledger_diff.t )
        Fieldslib.Field.t_with_perm ->
      Staged_ledger_diff.t ) ->
  t

val iter : 
  snark_transition:
    ( ( [< `Read | `Set_and_create ], t, Mina_state.Snark_transition.Value.t )
        Fieldslib.Field.t_with_perm ->
      unit ) ->
  ledger_proof:
    ( ( [< `Read | `Set_and_create ], t, Ledger_proof.t option )
        Fieldslib.Field.t_with_perm ->
      unit ) ->
  prover_state:
    ( ( [< `Read | `Set_and_create ], t, Consensus.Data.Prover_state.t )
        Fieldslib.Field.t_with_perm ->
      unit ) ->
  staged_ledger_diff:
    ( ( [< `Read | `Set_and_create ], t, Staged_ledger_diff.t )
        Fieldslib.Field.t_with_perm ->
      unit ) ->
  unit

val fold : 
  init:'a ->
  snark_transition:
    ( 'b ->
      ( [< `Read | `Set_and_create ], t, Mina_state.Snark_transition.Value.t )
        Fieldslib.Field.t_with_perm ->
      'c ) ->
  ledger_proof:
    ( 'd ->
      ( [< `Read | `Set_and_create ], t, Ledger_proof.t option )
        Fieldslib.Field.t_with_perm ->
      'e ) ->
  prover_state:
    ( 'f ->
      ( [< `Read | `Set_and_create ], t, Consensus.Data.Prover_state.t )
        Fieldslib.Field.t_with_perm ->
      'g ) ->
  staged_ledger_diff:
    ( 'h ->
      ( [< `Read | `Set_and_create ], t, Staged_ledger_diff.t )
        Fieldslib.Field.t_with_perm ->
      'i ) ->
  'j

val map_poly : 
  ( [< `Read | `Set_and_create ], t, 'a ) Fieldslib.Field.user ->
  'b list

val for_all : 
  snark_transition:
    ( ( [< `Read | `Set_and_create ], t, Mina_state.Snark_transition.Value.t )
        Fieldslib.Field.t_with_perm ->
      bool ) ->
  ledger_proof:
    ( ( [< `Read | `Set_and_create ], t, Ledger_proof.t option )
        Fieldslib.Field.t_with_perm ->
      bool ) ->
  prover_state:
    ( ( [< `Read | `Set_and_create ], t, Consensus.Data.Prover_state.t )
        Fieldslib.Field.t_with_perm ->
      bool ) ->
  staged_ledger_diff:
    ( ( [< `Read | `Set_and_create ], t, Staged_ledger_diff.t )
        Fieldslib.Field.t_with_perm ->
      bool ) ->
  bool

val exists : 
  snark_transition:
    ( ( [< `Read | `Set_and_create ], t, Mina_state.Snark_transition.Value.t )
        Fieldslib.Field.t_with_perm ->
      bool ) ->
  ledger_proof:
    ( ( [< `Read | `Set_and_create ], t, Ledger_proof.t option )
        Fieldslib.Field.t_with_perm ->
      bool ) ->
  prover_state:
    ( ( [< `Read | `Set_and_create ], t, Consensus.Data.Prover_state.t )
        Fieldslib.Field.t_with_perm ->
      bool ) ->
  staged_ledger_diff:
    ( ( [< `Read | `Set_and_create ], t, Staged_ledger_diff.t )
        Fieldslib.Field.t_with_perm ->
      bool ) ->
  bool

val to_list : 
  snark_transition:
    ( ( [< `Read | `Set_and_create ], t, Mina_state.Snark_transition.Value.t )
        Fieldslib.Field.t_with_perm ->
      'a ) ->
  ledger_proof:
    ( ( [< `Read | `Set_and_create ], t, Ledger_proof.t option )
        Fieldslib.Field.t_with_perm ->
      'b ) ->
  prover_state:
    ( ( [< `Read | `Set_and_create ], t, Consensus.Data.Prover_state.t )
        Fieldslib.Field.t_with_perm ->
      'c ) ->
  staged_ledger_diff:
    ( ( [< `Read | `Set_and_create ], t, Staged_ledger_diff.t )
        Fieldslib.Field.t_with_perm ->
      'd ) ->
  'e list

module Direct : sig ... end