checkThenTrueElseFalse :: Expression a -> Int -> State CheckState ()
checkThenTrueElseFalse' :: SpanInfo -> String -> State CheckState ()