Body.For_tests
val with_consensus_state : Value.t -> Consensus.Data.Consensus_state.Value.t -> Value.t