The node algebra of a magma-with-zero: lexical leaf ↦ ℓ, trace leaf ↦ τ of the token it
is the trace of, if any, bare binary node ↦ *, off-carrier arities ↦ 0.
- mergeAlgebra ℓ τ (Sum.inl (some tok)) x✝ = ℓ tok
- mergeAlgebra ℓ τ (Sum.inl none) [x_2, y] = x_2 * y
- mergeAlgebra ℓ τ (Sum.inl none) x✝ = 0
- mergeAlgebra ℓ τ (Sum.inr u) [] = τ u
- mergeAlgebra ℓ τ (Sum.inr val) x✝ = 0
Used by mergeAlgebra_perm, liftN, liftN_mk