enrich compose-domran , indexlist , DT-basic with functions PROG : indexlist → state × state → bool; SEM : indexlist → globalstate × globalstate → bool; axioms prog-empty : ⊦ PROG([])(st1, st2) ↔ st1 = st2; used for : s, ls; prog-cons : ⊦ PROG(i ' + il) = OP(i) ⊗ PROG(il); used for : s, ls; sem-def : ⊦ SEM(il) = (INIT ⊗ PROG(il)) ⊗ FIN; used for : s, ls; end enrich