fact: Definition omega (T : ml_type) (n : coq_type T) : M (coq_type T) := do r_1 <- cnew (ml_arrow T T) (fun x : coq_type T => Ret (x : coq_type T)); let delta (i : coq_type T) : M (coq_type T) := AppM (cget r_1) i in do _ <- cput r_1 delta; delta n.
imports: ZArith mathcomp(all_ssreflect) infotheo(ssrZ) monad_model HB(structures) monae_lib hierarchy monad_lib typed_store_lib PrimInt63 typed_store_model