Commit b624d134 authored by Robbert Krebbers's avatar Robbert Krebbers

Make proof of `least_fixpoint_unfold_2` more readable by including a `simple`.

parent 3f66477c
......@@ -45,7 +45,7 @@ Section least.
bi_least_fixpoint F x F (bi_least_fixpoint F) x.
Proof.
iIntros "HF". iApply ("HF" $! (CofeMor (F (bi_least_fixpoint F))) with "[#]").
iIntros "!#" (y) "Hy". iApply (bi_mono_pred with "[#]"); last done.
iIntros "!#" (y) "Hy /=". iApply (bi_mono_pred with "[#]"); last done.
iIntros "!#" (z) "?". by iApply least_fixpoint_unfold_2.
Qed.
......
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