val body_reference :
( ( 'staged_ledger_hash,
'snarked_ledger_hash,
'local_state,
'time,
'body_reference )
t,
'body_reference )
Fieldslib.Field.t
val timestamp :
( ( 'staged_ledger_hash,
'snarked_ledger_hash,
'local_state,
'time,
'body_reference )
t,
'time )
Fieldslib.Field.t
val registers :
( ( 'staged_ledger_hash,
'snarked_ledger_hash,
'local_state,
'time,
'body_reference )
t,
( 'snarked_ledger_hash, unit, 'local_state ) Registers.Stable.V1.t )
Fieldslib.Field.t
val genesis_ledger_hash :
( ( 'staged_ledger_hash,
'snarked_ledger_hash,
'local_state,
'time,
'body_reference )
t,
'snarked_ledger_hash )
Fieldslib.Field.t
val staged_ledger_hash :
( ( 'staged_ledger_hash,
'snarked_ledger_hash,
'local_state,
'time,
'body_reference )
t,
'staged_ledger_hash )
Fieldslib.Field.t
val fold :
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 ->
'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 ->
'acc__2 ) ->
registers:
( 'acc__2 ->
( ( 'staged_ledger_hash,
'snarked_ledger_hash,
'local_state,
'time,
'body_reference )
t,
( 'snarked_ledger_hash, unit, 'local_state ) Registers.Stable.V1.t )
Fieldslib.Field.t ->
'acc__3 ) ->
timestamp:
( 'acc__3 ->
( ( 'staged_ledger_hash,
'snarked_ledger_hash,
'local_state,
'time,
'body_reference )
t,
'time )
Fieldslib.Field.t ->
'acc__4 ) ->
body_reference:
( 'acc__4 ->
( ( 'staged_ledger_hash,
'snarked_ledger_hash,
'local_state,
'time,
'body_reference )
t,
'body_reference )
Fieldslib.Field.t ->
'acc__5 ) ->
'acc__5
val make_creator :
staged_ledger_hash:
( ( ( 'staged_ledger_hash,
'snarked_ledger_hash,
'local_state,
'time,
'body_reference )
t,
'staged_ledger_hash )
Fieldslib.Field.t ->
'acc__0 ->
( 'input__ -> 'staged_ledger_hash ) * 'acc__1 ) ->
genesis_ledger_hash:
( ( ( 'staged_ledger_hash,
'snarked_ledger_hash,
'local_state,
'time,
'body_reference )
t,
'snarked_ledger_hash )
Fieldslib.Field.t ->
'acc__1 ->
( 'input__ -> 'snarked_ledger_hash ) * 'acc__2 ) ->
registers:
( ( ( 'staged_ledger_hash,
'snarked_ledger_hash,
'local_state,
'time,
'body_reference )
t,
( 'snarked_ledger_hash, unit, 'local_state ) Registers.Stable.V1.t )
Fieldslib.Field.t ->
'acc__2 ->
( 'input__ ->
( 'snarked_ledger_hash, unit, 'local_state ) Registers.Stable.V1.t )
* 'acc__3 ) ->
timestamp:
( ( ( 'staged_ledger_hash,
'snarked_ledger_hash,
'local_state,
'time,
'body_reference )
t,
'time )
Fieldslib.Field.t ->
'acc__3 ->
( 'input__ -> 'time ) * 'acc__4 ) ->
body_reference:
( ( ( 'staged_ledger_hash,
'snarked_ledger_hash,
'local_state,
'time,
'body_reference )
t,
'body_reference )
Fieldslib.Field.t ->
'acc__4 ->
( 'input__ -> 'body_reference ) * 'acc__5 ) ->
'acc__0 ->
( 'input__ ->
( 'staged_ledger_hash,
'snarked_ledger_hash,
'local_state,
'time,
'body_reference )
t )
* 'acc__5
val create :
staged_ledger_hash:'staged_ledger_hash ->
genesis_ledger_hash:'snarked_ledger_hash ->
registers:( 'snarked_ledger_hash, unit, 'local_state ) Registers.Stable.V1.t ->
timestamp:'time ->
body_reference:'body_reference ->
( 'staged_ledger_hash,
'snarked_ledger_hash,
'local_state,
'time,
'body_reference )
t
val map :
staged_ledger_hash:
( ( ( 'staged_ledger_hash,
'snarked_ledger_hash,
'local_state,
'time,
'body_reference )
t,
'staged_ledger_hash )
Fieldslib.Field.t ->
'staged_ledger_hash ) ->
genesis_ledger_hash:
( ( ( 'staged_ledger_hash,
'snarked_ledger_hash,
'local_state,
'time,
'body_reference )
t,
'snarked_ledger_hash )
Fieldslib.Field.t ->
'snarked_ledger_hash ) ->
registers:
( ( ( 'staged_ledger_hash,
'snarked_ledger_hash,
'local_state,
'time,
'body_reference )
t,
( 'snarked_ledger_hash, unit, 'local_state ) Registers.Stable.V1.t )
Fieldslib.Field.t ->
( 'snarked_ledger_hash, unit, 'local_state ) Registers.Stable.V1.t ) ->
timestamp:
( ( ( 'staged_ledger_hash,
'snarked_ledger_hash,
'local_state,
'time,
'body_reference )
t,
'time )
Fieldslib.Field.t ->
'time ) ->
body_reference:
( ( ( 'staged_ledger_hash,
'snarked_ledger_hash,
'local_state,
'time,
'body_reference )
t,
'body_reference )
Fieldslib.Field.t ->
'body_reference ) ->
( 'staged_ledger_hash,
'snarked_ledger_hash,
'local_state,
'time,
'body_reference )
t
val iter :
staged_ledger_hash:
( ( ( 'staged_ledger_hash,
'snarked_ledger_hash,
'local_state,
'time,
'body_reference )
t,
'staged_ledger_hash )
Fieldslib.Field.t ->
unit ) ->
genesis_ledger_hash:
( ( ( 'staged_ledger_hash,
'snarked_ledger_hash,
'local_state,
'time,
'body_reference )
t,
'snarked_ledger_hash )
Fieldslib.Field.t ->
unit ) ->
registers:
( ( ( 'staged_ledger_hash,
'snarked_ledger_hash,
'local_state,
'time,
'body_reference )
t,
( 'snarked_ledger_hash, unit, 'local_state ) Registers.Stable.V1.t )
Fieldslib.Field.t ->
unit ) ->
timestamp:
( ( ( 'staged_ledger_hash,
'snarked_ledger_hash,
'local_state,
'time,
'body_reference )
t,
'time )
Fieldslib.Field.t ->
unit ) ->
body_reference:
( ( ( 'staged_ledger_hash,
'snarked_ledger_hash,
'local_state,
'time,
'body_reference )
t,
'body_reference )
Fieldslib.Field.t ->
unit ) ->
unit
val for_all :
staged_ledger_hash:
( ( ( 'staged_ledger_hash,
'snarked_ledger_hash,
'local_state,
'time,
'body_reference )
t,
'staged_ledger_hash )
Fieldslib.Field.t ->
bool ) ->
genesis_ledger_hash:
( ( ( 'staged_ledger_hash,
'snarked_ledger_hash,
'local_state,
'time,
'body_reference )
t,
'snarked_ledger_hash )
Fieldslib.Field.t ->
bool ) ->
registers:
( ( ( 'staged_ledger_hash,
'snarked_ledger_hash,
'local_state,
'time,
'body_reference )
t,
( 'snarked_ledger_hash, unit, 'local_state ) Registers.Stable.V1.t )
Fieldslib.Field.t ->
bool ) ->
timestamp:
( ( ( 'staged_ledger_hash,
'snarked_ledger_hash,
'local_state,
'time,
'body_reference )
t,
'time )
Fieldslib.Field.t ->
bool ) ->
body_reference:
( ( ( 'staged_ledger_hash,
'snarked_ledger_hash,
'local_state,
'time,
'body_reference )
t,
'body_reference )
Fieldslib.Field.t ->
bool ) ->
bool
val exists :
staged_ledger_hash:
( ( ( 'staged_ledger_hash,
'snarked_ledger_hash,
'local_state,
'time,
'body_reference )
t,
'staged_ledger_hash )
Fieldslib.Field.t ->
bool ) ->
genesis_ledger_hash:
( ( ( 'staged_ledger_hash,
'snarked_ledger_hash,
'local_state,
'time,
'body_reference )
t,
'snarked_ledger_hash )
Fieldslib.Field.t ->
bool ) ->
registers:
( ( ( 'staged_ledger_hash,
'snarked_ledger_hash,
'local_state,
'time,
'body_reference )
t,
( 'snarked_ledger_hash, unit, 'local_state ) Registers.Stable.V1.t )
Fieldslib.Field.t ->
bool ) ->
timestamp:
( ( ( 'staged_ledger_hash,
'snarked_ledger_hash,
'local_state,
'time,
'body_reference )
t,
'time )
Fieldslib.Field.t ->
bool ) ->
body_reference:
( ( ( 'staged_ledger_hash,
'snarked_ledger_hash,
'local_state,
'time,
'body_reference )
t,
'body_reference )
Fieldslib.Field.t ->
bool ) ->
bool
val to_list :
staged_ledger_hash:
( ( ( 'staged_ledger_hash,
'snarked_ledger_hash,
'local_state,
'time,
'body_reference )
t,
'staged_ledger_hash )
Fieldslib.Field.t ->
'elem__ ) ->
genesis_ledger_hash:
( ( ( 'staged_ledger_hash,
'snarked_ledger_hash,
'local_state,
'time,
'body_reference )
t,
'snarked_ledger_hash )
Fieldslib.Field.t ->
'elem__ ) ->
registers:
( ( ( 'staged_ledger_hash,
'snarked_ledger_hash,
'local_state,
'time,
'body_reference )
t,
( 'snarked_ledger_hash, unit, 'local_state ) Registers.Stable.V1.t )
Fieldslib.Field.t ->
'elem__ ) ->
timestamp:
( ( ( 'staged_ledger_hash,
'snarked_ledger_hash,
'local_state,
'time,
'body_reference )
t,
'time )
Fieldslib.Field.t ->
'elem__ ) ->
body_reference:
( ( ( 'staged_ledger_hash,
'snarked_ledger_hash,
'local_state,
'time,
'body_reference )
t,
'body_reference )
Fieldslib.Field.t ->
'elem__ ) ->
'elem__ list
val map_poly :
( [< `Read | `Set_and_create ],
( 'staged_ledger_hash,
'snarked_ledger_hash,
'local_state,
'time,
'body_reference )
t,
'x0 )
Fieldslib.Field.user ->
'x0 list