fact: Definition movel := rright :: (fun s1 => rright (rright s1)) :: (fun s1 => rright (rright (rright s1))) :: rback :: (fun s1 => rback (rback s1)) :: (fun s1 => rback (rback (rback s1))) :: rdown:: (fun s1 => rdown (rdown s1)) :: (fun s1 => rdown (rdown (rdown s1))):: nil.
imports: ZArith List