T.Merkle
type path
type leaf = L.scalar
type root = L.scalar
val path_encoding : ((Plompiler.Anemoi128.P.scalar * bool) list, path, (L.scalar * bool) list) L.Encodings.encoding
val merkle_proof : path -> leaf L.repr -> root L.repr -> bool L.repr L.t