fact: Definition rhd (T : ml_type) (def : coq_type N T) (param : loc (ml_rlist T)) : M (coq_type N T) := do v <- cget param; Ret (match v with Nil => def | Cons a _ => a end).
imports: ZArith mathcomp(all_ssreflect) infotheo(ssrZ) monad_model HB(structures) monae_lib hierarchy monad_lib typed_store_lib