proposition: Lemma callccS_E A B f : @aLCallcc _ (fun k : stateT S M A -> r => f (fun x => (fun (_ : S) (_ : B * S -> r) => k (Ret x)) : stateT S M B)) = usual_callccS f.
proof: Proof. by rewrite /aLCallcc aliftingE. Qed.
imports: mathcomp(all_ssreflect) imonae_lib HB(structures) ihierarchy imonad_lib ifail_lib istate_lib itrace_lib imonad_transformer