fact: Fixpoint rdrop {T} n (l : loc (ml_rlist T)) : M (loc (ml_rlist T)) := if n is n.+1 then rtl l >>= rdrop n else Ret l.
imports: ZArith mathcomp(all_ssreflect) infotheo(ssrZ) monad_model HB(structures) monae_lib hierarchy monad_lib typed_store_lib