vvalue
checkProgram :: (HasUniApply uni, MonadError (NormCheckError tyname name uni fun ann) m)=> Program tyname name uni fun ann-> m ()