valueToSC sym _ _ (Cryptol.TVSeq 16 Cryptol.TVBit) (IVal x) =
  do st <- liftIO (sawCoreState sym)
     liftIO (toSC sym st =<< W4.bvTrunc sym (W4.knownNat @16) x)
valueToSC sym _ _ (Cryptol.TVSeq 16 Cryptol.TVBit) (IVal x) =
  do st <- liftIO (sawCoreState sym)
     liftIO (toSC sym st =<< W4.bvTrunc sym (W4.knownNat @16) x)
valueToSC sym _ _ (Cryptol.TVSeq 16 Cryptol.TVBit) (IVal x) =
  do st <- liftIO (sawCoreState sym)
     liftIO (toSC sym st =<< W4.bvTrunc sym (W4.knownNat @16) x)