Section BasicRules.
Variable this : nid.
Arguments bind_rule [W A B e1 e2 i].

Lemma step W A B (e1 : DT this W A) (e2 : A -> DT this W B) i (r : cont B) :
verify i e1 (fun y m => verify m (e2 y) r) ->
verify i (bind e1 e2) r.