fact: Definition localKT (f : Env -> Env) : T (codensityT M) ~~> T (codensityT M) := fun (X : UU0) t => Join (Lift T (codensityT M) (T (codensityT M) X) (fun Y k => local Y (f, k t))).
imports: mathcomp(all_ssreflect) HB(structures) imonae_lib ihierarchy imonad_lib imonad_transformer imonad_model