11 auto callee = c->as<
App>();
12 auto f = callee->arg();
15 if constexpr (
id ==
fold::r) std::swap(acc,
vec);
19 for (
auto op :
tuple->ops()) acc = w.app(f, {acc, op});
21 for (
auto op :
tuple->ops() | std::ranges::views::reverse) acc = w.app(f, {op, acc});
25 if (
auto pack =
vec->isa_imm<
Pack>()) w.WLOG(
"packs not yet implemented: {}", pack);
29 return w.app(f, {acc, l});
31 return w.app(f, {
l, acc});
39 auto callee = c->as<
App>();
40 auto p = callee->
arg();
44 for (
auto op :
tuple->ops())
49 if (
auto pack =
vec->isa_imm<
Pack>()) w.WLOG(
"packs not yet implemented: {}", pack);
55 auto& w =
vec->world();
59 for (
auto op :
tuple->ops()) {
60 auto [_, ins] = seen.emplace(op);
61 if (!ins)
return w.lit_ff();
63 return tuple->is_closed() ? w.lit_tt() :
nullptr;
66 if (
auto pack =
vec->isa_imm<
Pack>()) {
67 if (
auto l =
Lit::isa(pack->shape()))
return w.lit_ff();
70 if (
vec->isa<
Lit>())
return w.lit_tt();
76 if (
auto arr = type->isa<
Arr>()) {
77 if (arr->shape()->isa<
Bot>())
return nullptr;
80 auto& w = type->world();
81 auto callee = c->as<
App>();
82 auto [n, m] = callee->args<2>([](
auto def) {
return Lit::isa(def); });
85 if (!n || !m)
return nullptr;
86 if (n == 1 && m == 1)
return w.tuple();
88 if (
auto tup_vec =
vec->isa<
Tuple>()) {
89 if (
auto tup_is = is->isa<
Tuple>(); tup_is && tup_is->
is_closed()) {
91 auto set = absl::btree_set<nat_t>();
92 for (
auto opi : tup_is->ops()) set.emplace(
Lit::as(opi));
94 for (
size_t i = 0, e = tup_vec->num_ops(); i != e; ++i)
95 if (!set.contains(i)) defs.emplace_back(tup_vec->op(i));
101 for (
size_t i = 0, e = tup_vec->num_ops(); i != e; ++i)
102 if (i != lit_is) defs.emplace_back(tup_vec->op(i));
103 return w.tuple(defs);
107 if (
auto tup_pack =
vec->isa_imm<
Pack>())
return w.pack(*n - *m, tup_pack->body());
A (possibly paramterized) Array.
auto projs(F f) const
Splits this Def via Def::projections into an Array (if A == std::dynamic_extent) or std::array (other...
bool is_closed() const
Has no free_vars()?
static std::optional< T > isa(const Def *def)
static T as(const Def *def)
A (possibly paramterized) Tuple.
Data constructor for a Sigma.
const Def * normalize_scan(const Def *, const Def *c, const Def *vec)
const Def * normalize_is_unique(const Def *, const Def *, const Def *vec)
const Def * normalize_diff(const Def *type, const Def *c, const Def *arg)
const Def * normalize_fold(const Def *, const Def *c, const Def *arg)
Vector< const Def * > DefVec
GIDSet< const Def * > DefSet
#define MIM_vec_NORMALIZER_IMPL