fact: Fixpoint coq_type63 (T : ml_type) : Type := match T with | ml_int => int | ml_bool => bool | ml_unit => unit | ml_arrow T1 T2 => coq_type63 T1 -> M (coq_type63 T2) | ml_ref T1 => loc T1 | ml_rlist T1 => rlist (coq_type63 T1) T1 end.
imports: ZArith mathcomp(all_ssreflect) infotheo(ssrZ) monad_model HB(structures) monae_lib hierarchy monad_lib typed_store_lib PrimInt63