let
make_expr_t e ty ~orig =
make_expr e ty ~loc:orig.expr_pr.ctt_loc