immFamToImm :: ImmFamT it s -> Maybe (Imm it s)
immFamToImm ImmFam{..} = case immFamValue of
   Nothing -> Nothing
   Just v  -> Just (Imm immFamSize immFamSignExtended v immFamType)
immFamToImm :: ImmFamT it s -> Maybe (Imm it s)
immFamToImm ImmFam{..} = case immFamValue of
   Nothing -> Nothing
   Just v  -> Just (Imm immFamSize immFamSignExtended v immFamType)
immFamToImm ImmFam{..} = case immFamValue of
   Nothing -> Nothing
   Just v  -> Just (Imm immFamSize immFamSignExtended v immFamType)