Module Merkle_tree.Free_hash
type 'a t =
| Hash_value of 'a |
| Hash_empty |
| Merge of 'a t * 'a t |
include Ppx_sexp_conv_lib.Sexpable.S1 with type 'a t := 'a t
val t_of_sexp : ( Sexplib0__.Sexp.t -> 'a ) -> Sexplib0__.Sexp.t -> 'a t
val sexp_of_t : ( 'a -> Sexplib0__.Sexp.t ) -> 'a t -> Sexplib0__.Sexp.t
val diff : 'a t -> 'a t -> bool list option
val run :
'a t ->
hash:( 'a option -> 'hash ) ->
merge:( 'hash -> 'hash -> 'hash ) ->
'hash