fact: Definition enc_Config' : mm2_state -> list Symbol := fun '(p, (a, b)) => (repeat sz (1 + ab_ub-a)) ++ [sl] ++ (repeat sb a) ++ [sm] ++ (repeat sb b) ++ [sr' p] ++ (repeat sz (1 + ab_ub-b)).
imports: List Relation_Operators Operators_Properties PeanoNat Lia ssreflect ssrbool ssrfun