actualize nat-store+set with ablock by morphism :data → ablock; [ ] → [ ]; .map → .map; .map → .map; ∈ → ∈; d → ablock; d0 → ablock0; d1 → ablock1; d2 → ablock2; dataf → dataf; elemdataf → elemdataf; [ ] → [ ] end actualize