Commit cf68129f authored by Ralf Jung's avatar Ralf Jung
Browse files

update iApply prettification testcase to use something that actually still prettifies

parent 5c959e86
...@@ -557,11 +557,26 @@ Section wandM. ...@@ -557,11 +557,26 @@ Section wandM.
Qed. Qed.
End wandM. End wandM.
Definition big_op_singleton_def (P : nat PROP) (l : list nat) := Definition modal_if_def b (P : PROP) :=
([ list] n l, P n)%I. (?b P)%I.
Lemma test_iApply_big_op_singleton (P : nat PROP) : Lemma modal_if_lemma1 b P :
P 1 - big_op_singleton_def P [1]. False - ?b P.
Proof. iIntros "?". iApply big_sepL_singleton. iAssumption. Qed. Proof. iIntros "?". by iExFalso. Qed.
Lemma test_iApply_prettification1 (P : PROP) :
False - modal_if_def true P.
(* Make sure the goal is not prettified before [iApply] unifies. *)
iIntros "?". rewrite /modal_if_def. iApply modal_if_lemma1. iAssumption.
Lemma modal_if_lemma2 P :
False - ?false P.
Proof. iIntros "?". by iExFalso. Qed.
Lemma test_iApply_prettification2 (P : PROP) :
False - b, ?b P.
(* Make sure the conclusion of the lemma is not prettified too early. *)
iIntros "?". iExists _. iApply modal_if_lemma2. done.
End tests. End tests.
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