Commit 0135f46c authored by Robbert Krebbers's avatar Robbert Krebbers

Eval hnf in iProof like in iPoseProof.

parent 5bd2042e
......@@ -45,9 +45,13 @@ Ltac iMatchGoal tac :=
Tactic Notation "iProof" :=
lazymatch goal with
| |- of_envs _ _ => fail "iProof: already in Iris proofmode"
| |- True _ => apply tac_adequate
| |- _ _ => apply uPred.wand_entails, tac_adequate
| |- _ _ => apply uPred.iff_equiv, tac_adequate
| |- ?P =>
match eval hnf in P with
| True _ => apply tac_adequate
| _ _ => apply uPred.wand_entails, tac_adequate
(* need to use the unfolded version of [⊣⊢] due to the hnf *)
| uPred_equiv' _ _ => apply uPred.iff_equiv, tac_adequate
end
end.
(** * Context manipulation *)
......
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