eraseTraces is the projection Π_{ρ,c}. It sends a tree whose root is a trace to 1 and
removes from any other tree the subtrees rooted at a trace.
- eraseTraces = aeval fun (T : UnorderedTree (α ⊕ β)) => (UnorderedTree.filterMap Sum.getLeft? T).elim 1 ofTree
Used by eraseTraces_ofTree, eraseTraces_comp_rename_inl, eraseTraces_comulCAlgHomN, contractUnary_eraseTraces_comulCAlgHomN