intuition.
dist_inline_first.
eapply det_eq_impl_dist_sem_eq; wftac.
unfold evalDet_equiv.
intuition.
inversion H; clear H; subst.
inversion H0; clear H0; subst.
simpl in *.
case_eq (shiftOut s (S n)); intuition.
rewrite H in H4.
destruct p.
inversion H4; clear H4; subst.
simpl in *.
inversion H5; clear H5; subst.
destruct s; simpl in *; try congruence.
case_eq (shiftOut s n); intuition;
rewrite H0 in H; try congruence.
destruct p.
inversion H; clear H; subst.
econstructor.
eapply evalDet_steps_trans.
eapply evalDet_steps_bind_done.
econstructor.
eauto.
simpl.
rewrite shiftOut_0.
econstructor.
eauto.
simpl.
econstructor.
eapply evalDet_steps_trans.
eapply evalDet_steps_bind_done.
econstructor.
eauto.
simpl.
econstructor.
eapply evalDet_steps_trans.
eapply evalDet_steps_bind_done.
econstructor.
eauto.
simpl.
rewrite H0.
econstructor.
eauto.
simpl.
econstructor.
econstructor.
eauto.
simpl.
econstructor.
rewrite H in H4.
inversion H4; clear H4; subst.
inversion H0; clear H0; subst.
simpl in *.
destruct s; simpl in *.
econstructor.
econstructor.
eauto.
simpl.
econstructor.
case_eq (shiftOut s n); intuition.
rewrite H in H4.
destruct p.
inversion H4; clear H4; subst.
simpl in *.
inversion H5; clear H5; subst.
rewrite H in H4.
econstructor.
econstructor.
eauto.
simpl.
rewrite shiftOut_0.
econstructor.
eauto.
simpl.
econstructor.
eauto.
simpl.
econstructor.
eauto.
simpl.
rewrite H.
econstructor.
inversion H; clear H; subst.
inversion H0; clear H0; subst.
simpl in *.
case_eq (shiftOut s 1); intuition;
rewrite H in H4.
destruct p.
inversion H4; clear H4; subst.
simpl in *.
inversion H5; clear H5; subst.
simpl in *.
inversion H4; clear H4; subst.
simpl in *.
case_eq (shiftOut b1 n); intuition;
rewrite H0 in H5.
destruct p.
inversion H5; clear H5; subst.
simpl in *.
inversion H6; clear H6; subst.
simpl in *.
inversion H5; clear H5; subst.
econstructor.
econstructor.
eauto.
simpl.
destruct s; simpl in *; try discriminate.
rewrite shiftOut_0 in H.
inversion H; clear H; subst.
rewrite H0.
econstructor.
eauto.
simpl.
econstructor.
inversion H5.
inversion H4.
inversion H0; clear H0; subst.
simpl in *.
destruct s.
simpl in *.
econstructor.
econstructor.
eauto.
simpl.
econstructor.
simpl in *.
rewrite shiftOut_0 in H4.
inversion H4; clear H4; subst.
simpl in *.
inversion H3; clear H3; subst.
simpl in *.
inversion H4; clear H4; subst.
simpl in *.
case_eq (shiftOut s n); intuition;
rewrite H in H3.
destruct p.
inversion H3; clear H3; subst.
simpl in *.
inversion H5; clear H5; subst.
simpl in *.
inversion H4.
econstructor.
econstructor.
eauto.
simpl.
rewrite H.
econstructor.
Qed.

(* Specifications: *)
Theorem OWP_HCP_PRG :
PRG_Advantage OWP_HCP_PRG_fun A <= (HCP_Advantage f b B).