Used simplifier rules: put-empty: ⊦ ([])[a, d] = (a × d)';%lookup-one: ⊦ a ≠ b → (b × d)'[a] = ([])[a];