fact: Fixpoint iappend (h : nat) (l1 l2 : coq_type N (ml_rlist ml_int)) : M (coq_type N (ml_rlist ml_int)) := if h is h.+1 then match l1 with | Nil => Ret l2 | Cons a l1' => do _ <- (do v <- (do v <- cget l1'; iappend h v l2); cput l1' v); Ret l1 end else Ret (@Nil nat ml_int).
imports: ZArith mathcomp(all_ssreflect) infotheo(ssrZ) monad_model HB(structures) monae_lib hierarchy monad_lib typed_store_lib