fact: Fixpoint is_int_list (l : list nat) (rl : rlist nat ml_int) : M bool := match l, rl with | [::], Nil => Ret true | (a :: t), (Cons b r) => if a != b then Ret false else do rl' <- cget r; is_int_list t rl' | _, _ => Ret false end.
imports: ZArith mathcomp(all_ssreflect) infotheo(ssrZ) monad_model HB(structures) monae_lib hierarchy monad_lib typed_store_lib