vvalue
genBlock :: (MinLEDGER_STS era, ApplyBlock TestBlockHeader era, ShelleyEraForecast era, HasTrace (EraRule"LEDGERS"
era) (GenEnv c era), EraGen era, PraosCrypto c, EraBlockHeader (BHeader c) era)=> GenEnv c era-> ChainState era-> Gen (Block (BHeader c) era)
Generate a valid block.