12 auto callee = c->as<
App>();
13 auto f = callee->arg();
16 if constexpr (
id ==
fold::r) std::swap(acc,
vec);
20 for (
auto op :
tuple->ops())
21 acc = w.app(f, {acc, op});
23 for (
auto op :
tuple->ops() | std::ranges::views::reverse)
24 acc = w.app(f, {op, acc});
28 if (
auto pack =
vec->isa_imm<
Pack>()) w.WLOG(
"packs not yet implemented: {}", pack);
32 return w.app(f, {acc, l});
34 return w.app(f, {
l, acc});
43 auto callee = c->as<
App>();
44 auto p = callee->
arg();
48 for (
auto op :
tuple->ops())
53 if (
auto pack =
vec->isa_imm<
Pack>()) w.WLOG(
"packs not yet implemented: {}", pack);
59 auto& w =
vec->world();
63 for (
auto op :
tuple->ops()) {
64 auto [_, ins] = seen.emplace(op);
65 if (!ins)
return w.lit_ff();
67 return tuple->is_closed() ? w.lit_tt() :
nullptr;
70 if (
auto pack =
vec->isa_imm<
Pack>()) {
71 if (
auto l =
Lit::isa(pack->arity()))
return w.lit_ff();
74 if (
vec->isa<
Lit>())
return w.lit_tt();
80 if (
auto arr = type->isa<
Arr>()) {
81 if (arr->arity()->isa<
Bot>())
return nullptr;
84 auto& w = type->world();
85 auto callee = c->as<
App>();
86 auto [n, m] = callee->args<2>([](
auto def) {
return Lit::isa(def); });
89 if (!n || !m)
return nullptr;
90 if (n == 1 && m == 1)
return w.tuple();
92 if (
auto tup_vec =
vec->isa<
Tuple>()) {
93 if (
auto tup_is = is->isa<
Tuple>(); tup_is && tup_is->
is_closed()) {
95 auto set = absl::btree_set<nat_t>();
96 for (
auto opi : tup_is->ops())
99 for (
size_t i = 0, e = tup_vec->num_ops(); i != e; ++i)
100 if (!set.contains(i)) defs.emplace_back(tup_vec->op(i));
101 return w.tuple(defs);
106 for (
size_t i = 0, e = tup_vec->num_ops(); i != e; ++i)
107 if (i != lit_is) defs.emplace_back(tup_vec->op(i));
108 return w.tuple(defs);
112 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