Skip to content
Snippets Groups Projects
Commit b624d134 authored by Robbert Krebbers's avatar Robbert Krebbers
Browse files

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

parent 3f66477c
No related branches found
No related tags found
No related merge requests found
Hide whitespace changes
Inline Side-by-side
theories/bi/lib/fixpoint.v
+ 1
− 1
View file @ b624d134
...@@ -45,7 +45,7 @@ Section least. ...@@ -45,7 +45,7 @@ Section least.
bi_least_fixpoint F x ⊢ F (bi_least_fixpoint F) x. bi_least_fixpoint F x ⊢ F (bi_least_fixpoint F) x.
Proof. Proof.
iIntros "HF". iApply ("HF" $! (CofeMor (F (bi_least_fixpoint F))) with "[#]"). 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. iIntros "!#" (z) "?". by iApply least_fixpoint_unfold_2.
Qed. Qed.
......
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