Direct (mina_state.Mina_state.Blockchain

val iter : 
  ( 'staged_ledger_hash,
    'snarked_ledger_hash,
    'local_state,
    'time,
    'body_reference )
    t ->
  staged_ledger_hash:
    ( ( ( 'staged_ledger_hash,
          'snarked_ledger_hash,
          'local_state,
          'time,
          'body_reference )
          t,
        'staged_ledger_hash )
        Fieldslib.Field.t ->
      ( 'staged_ledger_hash,
        'snarked_ledger_hash,
        'local_state,
        'time,
        'body_reference )
        t ->
      'staged_ledger_hash ->
      unit ) ->
  genesis_ledger_hash:
    ( ( ( 'staged_ledger_hash,
          'snarked_ledger_hash,
          'local_state,
          'time,
          'body_reference )
          t,
        'snarked_ledger_hash )
        Fieldslib.Field.t ->
      ( 'staged_ledger_hash,
        'snarked_ledger_hash,
        'local_state,
        'time,
        'body_reference )
        t ->
      'snarked_ledger_hash ->
      unit ) ->
  registers:
    ( ( ( 'staged_ledger_hash,
          'snarked_ledger_hash,
          'local_state,
          'time,
          'body_reference )
          t,
        ( 'snarked_ledger_hash, unit, 'local_state ) Registers.t )
        Fieldslib.Field.t ->
      ( 'staged_ledger_hash,
        'snarked_ledger_hash,
        'local_state,
        'time,
        'body_reference )
        t ->
      ( 'snarked_ledger_hash, unit, 'local_state ) Registers.t ->
      unit ) ->
  timestamp:
    ( ( ( 'staged_ledger_hash,
          'snarked_ledger_hash,
          'local_state,
          'time,
          'body_reference )
          t,
        'time )
        Fieldslib.Field.t ->
      ( 'staged_ledger_hash,
        'snarked_ledger_hash,
        'local_state,
        'time,
        'body_reference )
        t ->
      'time ->
      unit ) ->
  body_reference:
    ( ( ( 'staged_ledger_hash,
          'snarked_ledger_hash,
          'local_state,
          'time,
          'body_reference )
          t,
        'body_reference )
        Fieldslib.Field.t ->
      ( 'staged_ledger_hash,
        'snarked_ledger_hash,
        'local_state,
        'time,
        'body_reference )
        t ->
      'body_reference ->
      unit ) ->
  unit

val fold : 
  ( 'staged_ledger_hash,
    'snarked_ledger_hash,
    'local_state,
    'time,
    'body_reference )
    t ->
  init:'acc__0 ->
  staged_ledger_hash:
    ( 'acc__0 ->
      ( ( 'staged_ledger_hash,
          'snarked_ledger_hash,
          'local_state,
          'time,
          'body_reference )
          t,
        'staged_ledger_hash )
        Fieldslib.Field.t ->
      ( 'staged_ledger_hash,
        'snarked_ledger_hash,
        'local_state,
        'time,
        'body_reference )
        t ->
      'staged_ledger_hash ->
      'acc__1 ) ->
  genesis_ledger_hash:
    ( 'acc__1 ->
      ( ( 'staged_ledger_hash,
          'snarked_ledger_hash,
          'local_state,
          'time,
          'body_reference )
          t,
        'snarked_ledger_hash )
        Fieldslib.Field.t ->
      ( 'staged_ledger_hash,
        'snarked_ledger_hash,
        'local_state,
        'time,
        'body_reference )
        t ->
      'snarked_ledger_hash ->
      'acc__2 ) ->
  registers:
    ( 'acc__2 ->
      ( ( 'staged_ledger_hash,
          'snarked_ledger_hash,
          'local_state,
          'time,
          'body_reference )
          t,
        ( 'snarked_ledger_hash, unit, 'local_state ) Registers.t )
        Fieldslib.Field.t ->
      ( 'staged_ledger_hash,
        'snarked_ledger_hash,
        'local_state,
        'time,
        'body_reference )
        t ->
      ( 'snarked_ledger_hash, unit, 'local_state ) Registers.t ->
      'acc__3 ) ->
  timestamp:
    ( 'acc__3 ->
      ( ( 'staged_ledger_hash,
          'snarked_ledger_hash,
          'local_state,
          'time,
          'body_reference )
          t,
        'time )
        Fieldslib.Field.t ->
      ( 'staged_ledger_hash,
        'snarked_ledger_hash,
        'local_state,
        'time,
        'body_reference )
        t ->
      'time ->
      'acc__4 ) ->
  body_reference:
    ( 'acc__4 ->
      ( ( 'staged_ledger_hash,
          'snarked_ledger_hash,
          'local_state,
          'time,
          'body_reference )
          t,
        'body_reference )
        Fieldslib.Field.t ->
      ( 'staged_ledger_hash,
        'snarked_ledger_hash,
        'local_state,
        'time,
        'body_reference )
        t ->
      'body_reference ->
      'acc__5 ) ->
  'acc__5

val for_all : 
  ( 'staged_ledger_hash,
    'snarked_ledger_hash,
    'local_state,
    'time,
    'body_reference )
    t ->
  staged_ledger_hash:
    ( ( ( 'staged_ledger_hash,
          'snarked_ledger_hash,
          'local_state,
          'time,
          'body_reference )
          t,
        'staged_ledger_hash )
        Fieldslib.Field.t ->
      ( 'staged_ledger_hash,
        'snarked_ledger_hash,
        'local_state,
        'time,
        'body_reference )
        t ->
      'staged_ledger_hash ->
      bool ) ->
  genesis_ledger_hash:
    ( ( ( 'staged_ledger_hash,
          'snarked_ledger_hash,
          'local_state,
          'time,
          'body_reference )
          t,
        'snarked_ledger_hash )
        Fieldslib.Field.t ->
      ( 'staged_ledger_hash,
        'snarked_ledger_hash,
        'local_state,
        'time,
        'body_reference )
        t ->
      'snarked_ledger_hash ->
      bool ) ->
  registers:
    ( ( ( 'staged_ledger_hash,
          'snarked_ledger_hash,
          'local_state,
          'time,
          'body_reference )
          t,
        ( 'snarked_ledger_hash, unit, 'local_state ) Registers.t )
        Fieldslib.Field.t ->
      ( 'staged_ledger_hash,
        'snarked_ledger_hash,
        'local_state,
        'time,
        'body_reference )
        t ->
      ( 'snarked_ledger_hash, unit, 'local_state ) Registers.t ->
      bool ) ->
  timestamp:
    ( ( ( 'staged_ledger_hash,
          'snarked_ledger_hash,
          'local_state,
          'time,
          'body_reference )
          t,
        'time )
        Fieldslib.Field.t ->
      ( 'staged_ledger_hash,
        'snarked_ledger_hash,
        'local_state,
        'time,
        'body_reference )
        t ->
      'time ->
      bool ) ->
  body_reference:
    ( ( ( 'staged_ledger_hash,
          'snarked_ledger_hash,
          'local_state,
          'time,
          'body_reference )
          t,
        'body_reference )
        Fieldslib.Field.t ->
      ( 'staged_ledger_hash,
        'snarked_ledger_hash,
        'local_state,
        'time,
        'body_reference )
        t ->
      'body_reference ->
      bool ) ->
  bool

val exists : 
  ( 'staged_ledger_hash,
    'snarked_ledger_hash,
    'local_state,
    'time,
    'body_reference )
    t ->
  staged_ledger_hash:
    ( ( ( 'staged_ledger_hash,
          'snarked_ledger_hash,
          'local_state,
          'time,
          'body_reference )
          t,
        'staged_ledger_hash )
        Fieldslib.Field.t ->
      ( 'staged_ledger_hash,
        'snarked_ledger_hash,
        'local_state,
        'time,
        'body_reference )
        t ->
      'staged_ledger_hash ->
      bool ) ->
  genesis_ledger_hash:
    ( ( ( 'staged_ledger_hash,
          'snarked_ledger_hash,
          'local_state,
          'time,
          'body_reference )
          t,
        'snarked_ledger_hash )
        Fieldslib.Field.t ->
      ( 'staged_ledger_hash,
        'snarked_ledger_hash,
        'local_state,
        'time,
        'body_reference )
        t ->
      'snarked_ledger_hash ->
      bool ) ->
  registers:
    ( ( ( 'staged_ledger_hash,
          'snarked_ledger_hash,
          'local_state,
          'time,
          'body_reference )
          t,
        ( 'snarked_ledger_hash, unit, 'local_state ) Registers.t )
        Fieldslib.Field.t ->
      ( 'staged_ledger_hash,
        'snarked_ledger_hash,
        'local_state,
        'time,
        'body_reference )
        t ->
      ( 'snarked_ledger_hash, unit, 'local_state ) Registers.t ->
      bool ) ->
  timestamp:
    ( ( ( 'staged_ledger_hash,
          'snarked_ledger_hash,
          'local_state,
          'time,
          'body_reference )
          t,
        'time )
        Fieldslib.Field.t ->
      ( 'staged_ledger_hash,
        'snarked_ledger_hash,
        'local_state,
        'time,
        'body_reference )
        t ->
      'time ->
      bool ) ->
  body_reference:
    ( ( ( 'staged_ledger_hash,
          'snarked_ledger_hash,
          'local_state,
          'time,
          'body_reference )
          t,
        'body_reference )
        Fieldslib.Field.t ->
      ( 'staged_ledger_hash,
        'snarked_ledger_hash,
        'local_state,
        'time,
        'body_reference )
        t ->
      'body_reference ->
      bool ) ->
  bool

val to_list : 
  ( 'staged_ledger_hash,
    'snarked_ledger_hash,
    'local_state,
    'time,
    'body_reference )
    t ->
  staged_ledger_hash:
    ( ( ( 'staged_ledger_hash,
          'snarked_ledger_hash,
          'local_state,
          'time,
          'body_reference )
          t,
        'staged_ledger_hash )
        Fieldslib.Field.t ->
      ( 'staged_ledger_hash,
        'snarked_ledger_hash,
        'local_state,
        'time,
        'body_reference )
        t ->
      'staged_ledger_hash ->
      'elem__ ) ->
  genesis_ledger_hash:
    ( ( ( 'staged_ledger_hash,
          'snarked_ledger_hash,
          'local_state,
          'time,
          'body_reference )
          t,
        'snarked_ledger_hash )
        Fieldslib.Field.t ->
      ( 'staged_ledger_hash,
        'snarked_ledger_hash,
        'local_state,
        'time,
        'body_reference )
        t ->
      'snarked_ledger_hash ->
      'elem__ ) ->
  registers:
    ( ( ( 'staged_ledger_hash,
          'snarked_ledger_hash,
          'local_state,
          'time,
          'body_reference )
          t,
        ( 'snarked_ledger_hash, unit, 'local_state ) Registers.t )
        Fieldslib.Field.t ->
      ( 'staged_ledger_hash,
        'snarked_ledger_hash,
        'local_state,
        'time,
        'body_reference )
        t ->
      ( 'snarked_ledger_hash, unit, 'local_state ) Registers.t ->
      'elem__ ) ->
  timestamp:
    ( ( ( 'staged_ledger_hash,
          'snarked_ledger_hash,
          'local_state,
          'time,
          'body_reference )
          t,
        'time )
        Fieldslib.Field.t ->
      ( 'staged_ledger_hash,
        'snarked_ledger_hash,
        'local_state,
        'time,
        'body_reference )
        t ->
      'time ->
      'elem__ ) ->
  body_reference:
    ( ( ( 'staged_ledger_hash,
          'snarked_ledger_hash,
          'local_state,
          'time,
          'body_reference )
          t,
        'body_reference )
        Fieldslib.Field.t ->
      ( 'staged_ledger_hash,
        'snarked_ledger_hash,
        'local_state,
        'time,
        'body_reference )
        t ->
      'body_reference ->
      'elem__ ) ->
  'elem__ list

val map : 
  ( 'staged_ledger_hash,
    'snarked_ledger_hash,
    'local_state,
    'time,
    'body_reference )
    t ->
  staged_ledger_hash:
    ( ( ( 'staged_ledger_hash,
          'snarked_ledger_hash,
          'local_state,
          'time,
          'body_reference )
          t,
        'staged_ledger_hash )
        Fieldslib.Field.t ->
      ( 'staged_ledger_hash,
        'snarked_ledger_hash,
        'local_state,
        'time,
        'body_reference )
        t ->
      'staged_ledger_hash ->
      'staged_ledger_hash ) ->
  genesis_ledger_hash:
    ( ( ( 'staged_ledger_hash,
          'snarked_ledger_hash,
          'local_state,
          'time,
          'body_reference )
          t,
        'snarked_ledger_hash )
        Fieldslib.Field.t ->
      ( 'staged_ledger_hash,
        'snarked_ledger_hash,
        'local_state,
        'time,
        'body_reference )
        t ->
      'snarked_ledger_hash ->
      'snarked_ledger_hash ) ->
  registers:
    ( ( ( 'staged_ledger_hash,
          'snarked_ledger_hash,
          'local_state,
          'time,
          'body_reference )
          t,
        ( 'snarked_ledger_hash, unit, 'local_state ) Registers.t )
        Fieldslib.Field.t ->
      ( 'staged_ledger_hash,
        'snarked_ledger_hash,
        'local_state,
        'time,
        'body_reference )
        t ->
      ( 'snarked_ledger_hash, unit, 'local_state ) Registers.t ->
      ( 'snarked_ledger_hash, unit, 'local_state ) Registers.t ) ->
  timestamp:
    ( ( ( 'staged_ledger_hash,
          'snarked_ledger_hash,
          'local_state,
          'time,
          'body_reference )
          t,
        'time )
        Fieldslib.Field.t ->
      ( 'staged_ledger_hash,
        'snarked_ledger_hash,
        'local_state,
        'time,
        'body_reference )
        t ->
      'time ->
      'time ) ->
  body_reference:
    ( ( ( 'staged_ledger_hash,
          'snarked_ledger_hash,
          'local_state,
          'time,
          'body_reference )
          t,
        'body_reference )
        Fieldslib.Field.t ->
      ( 'staged_ledger_hash,
        'snarked_ledger_hash,
        'local_state,
        'time,
        'body_reference )
        t ->
      'body_reference ->
      'body_reference ) ->
  ( 'staged_ledger_hash,
    'snarked_ledger_hash,
    'local_state,
    'time,
    'body_reference )
    t

val set_all_mutable_fields : 
  ( 'staged_ledger_hash,
    'snarked_ledger_hash,
    'local_state,
    'time,
    'body_reference )
    t ->
  unit