fact: Definition fact_for63 (n : coq_type ml_int) : M (coq_type ml_int) := do v <- cnew ml_int 1%int63; do _ <- (do u <- Ret 1%int63; do v_1 <- Ret n; forloop63 u v_1 (fun i => do v_1 <- (do v_1 <- cget v; Ret (mul v_1 i)); cput v v_1)); cget v.
imports: ZArith mathcomp(all_ssreflect) infotheo(ssrZ) monad_model HB(structures) monae_lib hierarchy monad_lib typed_store_lib PrimInt63