Block_time.Unpackedtype value = tval typ : ( var, value ) Crypto_params.Tick.Typ.tval var_to_bits :
var ->
Crypto_params.Tick.Boolean.var Bitstring_lib.Bitstring.Lsb_first.tval var_of_bits :
Crypto_params.Tick.Boolean.var Bitstring_lib.Bitstring.Lsb_first.t ->
varval var_to_triples :
var ->
Crypto_params.Tick.Boolean.var Tuple_lib.Triple.t list