Section RndInAdaptive.
Variable A B C : Set.
Local Open Scope rat_scope.

Theorem orb_prob :
forall (A B : Set)(c : Comp A)(f : A -> Comp B) evt1 evt2 k1 k2,
Pr[x <-$ c; ret (evt1 x)] <= k1 ->
(forall a, In a (getSupport c) -> evt1 a = false -> Pr[y <-$ f a; ret (evt2 y)] <= k2) ->
Pr[x <-$ c; y <-$ f x; ret (evt1 x || evt2 y)] <= k1 + k2.