Mhash_sha.Sha1
type state
type t
= Sha1.t
val ctx : state -> Sha1.ctx
val algo : (state, t) Mhash.hash_algo