fact: Definition enc_Instruction (ni: (nat * mm2_instr)) : Srs := match ni with | (p, mm2_inc_a) => [((sz, sl' p), (sl' (S p), sb))] | (p, mm2_inc_b) => [((sr' p, sz), (sb, sr' (S p)))] | (p, mm2_dec_a q) => [((sl' p, sm), (sl' (S p), sm)); ((sl' p, sb), (sz, sl' q))] | (p, mm2_dec_b q) => [((sm, sr' p), (sm, sr' (S p))); ((sb, sr' p), (sr' q, sz))] end.
imports: List Relation_Operators Operators_Properties PeanoNat Lia ssreflect ssrbool ssrfun