fact: Definition m2f m := match m with Right => rright | Right2 => fun s1 : state => rright (rright s1) | Rightm1 => fun s1 : state => rright (rright (rright s1)) | Back => rback | Back2 => fun s1 : state => rback (rback s1) | Backm1 => fun s1 : state => rback (rback (rback s1)) | Down => rdown | Down2 => fun s1 : state => rdown (rdown s1) | Downm1 => fun s1 : state => rdown (rdown (rdown s1)) end.
imports: ZArith List