As_record (mina_base.Mina_base.Account_timing.As

type ('bool, 'slot, 'balance, 'amount) t = {

is_timed : 'bool;

initial_minimum_balance : 'balance;

cliff_time : 'slot;

cliff_amount : 'amount;

vesting_period : 'slot;

vesting_increment : 'amount;

}

val to_hlist : 
  ( 'bool, 'slot, 'balance, 'amount ) t ->
  ( unit, 'bool -> 'balance -> 'slot -> 'amount -> 'slot -> 'amount -> unit )
    H_list.t

val of_hlist : 
  ( unit, 'bool -> 'balance -> 'slot -> 'amount -> 'slot -> 'amount -> unit )
    H_list.t ->
  ( 'bool, 'slot, 'balance, 'amount ) t