Sapling.Next
val incr : Raw_context.t -> (Raw_context.t * id) Mavryk_protocol_environment_alpha.Error_monad.tzresult Mavryk_protocol_environment_alpha.Lwt.t
val init : Raw_context.t -> Raw_context.t Mavryk_protocol_environment_alpha.Error_monad.tzresult Mavryk_protocol_environment_alpha.Lwt.t