fact: Definition vec_norm {X Y: counter} (HXY : X <> Y) := ( fun v n m => @vec_change_comm nat _ v X Y n m HXY, fun v n m => @vec_change_idem nat _ v X n m, fun v n m => @vec_change_idem nat _ v Y n m, fun v n => @vec_change_neq nat _ v X Y n HXY, fun v n => @vec_change_neq nat _ v Y X n (nesym HXY), fun v n => @vec_change_eq nat _ v X X n erefl, fun v n => @vec_change_eq nat _ v Y Y n erefl, fun v => @vec_change_same nat _ v X, fun v => @vec_change_same nat _ v Y).
imports: Undecidability(MinskyMachines.MM MinskyMachines.MMA) Undecidability.Shared.Libs.DLW(Vec.pos Vec.vec Code.sss) PeanoNat List Lia Wf_nat ssreflect ssrbool ssrfun