fact: Definition fs (i: nat) : nat := if i is S i then i*6 + a0 + b0 + b0 else (length P * 6) + a0 + b0 + b0.
imports: ZArith List PeanoNat Lia Relations.Relation_Operators Relations.Operators_Properties Undecidability.MinskyMachines.MM2 Undecidability.CounterMachines.Util.CM1_facts Undecidability.MinskyMachines.Util.MM2_facts ssreflect ssrbool ssrfun