(define rel.join_image (# x term (# y term (apply (apply f_rel.join_image x) y))))
(declare f_set.insert term)
(define set.insert (# x term (# y term (apply (apply f_set.insert x) y))))
+(declare f_set.map term)
+(define set.map (# x term (# y term (apply (apply f_set.map x) y))))
;; ---- Bags
(declare bag.empty (! s sort term))
d_cardSolver(new CardinalityExtension(d_env, state, im, d_treg)),
d_rels_enabled(false),
d_card_enabled(false),
+ d_higher_order_kinds_enabled(false),
d_cpacb(cpacb)
{
d_true = NodeManager::currentNM()->mkConst(true);
Assert(d_equalityEngine->consistent());
d_fullCheckIncomplete = false;
d_fullCheckIncompleteId = IncompleteId::UNKNOWN;
+ d_higher_order_kinds_enabled = false;
d_card_enabled = false;
d_rels_enabled = false;
// reset the state object