Commit 84d87469 authored by Robbert Krebbers's avatar Robbert Krebbers

Kill doption and do some clean up.

parent 166d10aa
This diff is collapsed.
......@@ -42,11 +42,11 @@ Section memcpy.
- assert (ls1 = []) as -> by (destruct ls1; naive_solver).
simplify_eq/=. rewrite Nat.add_0_r.
iApply a_while_spec'.
iNext. vcg_solver. iExists #false. iSplit.
iNext. vcg_solver. iIntros "??". iExists #false. iSplit.
{ iPureIntro. case_option_guard; last omega; simpl.
do 3 f_equal. rewrite /cloc_lt.
rewrite bool_decide_true // bool_decide_false //. omega. }
rewrite Qp_half_half. iIntros "? ?".
rewrite Qp_half_half.
vcg_continue. iIntros "Hpp Hqq". iRight. iSplit; first done.
iApply a_seq_spec. iModIntro. simplify_eq/=.
iFrame.
......@@ -57,12 +57,12 @@ Section memcpy.
rewrite {1}/(cloc_add p). etaprod p.
rewrite {1}/(cloc_add q). etaprod q.
iApply a_while_spec'.
iNext. vcg_solver. iExists #true. iSplit.
iNext. vcg_solver. iIntros "????". iExists #true. iSplit.
{ iPureIntro. repeat (case_option_guard; last omega; simpl).
repeat f_equal. rewrite /cloc_lt /=.
rewrite !bool_decide_true; auto. apply Z2Nat.inj_lt; eauto.
apply Nat2Z.inj_lt. omega. }
rewrite Qp_half_half. iIntros "? ? ? ?".
rewrite Qp_half_half.
vcg_continue. iIntros "Hqq Hpp Hw Hy". iLeft; iSplit; first done.
(* TODO: DF: vcgen doesnt do anything here *)
vcg_solver. iIntros "Hy Hw Hpp Hqq".
......
This diff is collapsed.
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment