fact: Definition cycle (T : ml_type) (a b : coq_type N T) : M (loc (ml_rlist T)) := do r <- cnew (ml_rlist T) (Nil (coq_type N T) T); do l <- (do v <- cnew (ml_rlist T) (Cons (coq_type N T) T b r); Ret (Cons (coq_type N T) T a v)); do _ <- cput r l; Ret r.
imports: ZArith mathcomp(all_ssreflect) infotheo(ssrZ) monad_model HB(structures) monae_lib hierarchy monad_lib typed_store_lib