tcDefaultInitExpr :: ProverK loc m => loc -> IsHavoc -> Type -> Maybe (Sizes GIdentifier (Typed loc)) -> Maybe (Expression Identifier loc) -> TcM m (Maybe (Expression GIdentifier (Typed loc)))
tcDefaultInitExpr l isHavoc ty szs (Just e) = withDef False $ do
    liftM Just $ tcExprTy ty e
tcDefaultInitExpr :: ProverK loc m => loc -> IsHavoc -> Type -> Maybe (Sizes GIdentifier (Typed loc)) -> Maybe (Expression Identifier loc) -> TcM m (Maybe (Expression GIdentifier (Typed loc)))
tcDefaultInitExpr l isHavoc ty szs (Just e) = withDef False $ do
    liftM Just $ tcExprTy ty e
tcDefaultInitExpr l isHavoc ty szs (Just e) = withDef False $ do
    liftM Just $ tcExprTy ty e