proposition: Lemma aliftingE : alifting = (fun X => Join \o e (N X) \o phi op (N X)) :> (_ ~~> _).
proof: Proof. by rewrite /alifting/= /vcomp; unlock. Qed.
imports: mathcomp(all_ssreflect) imonae_lib HB(structures) ihierarchy imonad_lib ifail_lib istate_lib