ldLR0 :: Grammar -> S.State DocLR0 ()
buildLR0 (Grammar _g) =
  do actProduction 0 "invisible"
     -- actProductionNumbers "invisible"
     nextSlide
     actProductionSymbol 1 0 "alert"
     nextSlide
     actProduction 0 "visible"
     nextSlide
     return ()

r
buildLR0 :: Grammar -> S.State DocLR0 ()
buildLR0 (Grammar _g) =
  do actProduction 0 "invisible"
     -- actProductionNumbers "invisible"
     nextSlide
     actProductionSymbol 1 0 "alert"
     nextSlide
     actProduction 0 "visible"
     nextSlide
     return ()
buildLR0 (Grammar _g) =
  do actProduction 0 "invisible"
     -- actProductionNumbers "invisible"
     nextSlide
     actProductionSymbol 1 0 "alert"
     nextSlide
     actProduction 0 "visible"
     nextSlide
     return ()