fact: Definition Ms X : UU0 := ltac:( let t := constr:(M X) in let t := eval cbn in t in exact t).
imports: Param(Param) mathcomp(all_ssreflect) HB(structures) imonae_lib ihierarchy imonad_lib ifmt_lifting imonad_model