fact: Definition minv m := match m with Right => Rightm1 | Right2 => Right2 | Rightm1 => Right | Back => Backm1 | Back2 => Back2 | Backm1 => Back | Down => Downm1 | Down2 => Down2 | Downm1 => Down end.
imports: ZArith List