Commit e76659e6 authored by Robbert Krebbers's avatar Robbert Krebbers

Tactic `iBiOfGoal` that gives the BI of the proof mode goal.

parent 4ae3b6c6
......@@ -52,6 +52,9 @@ Ltac iTypeOf H :=
let Δ := match goal with |- envs_entails ?Δ _ => Δ end in
pm_eval (envs_lookup H Δ).
Ltac iBiOfGoal :=
match goal with |- @envs_entails ?PROP _ _ => PROP end.
Tactic Notation "iMatchHyp" tactic1(tac) :=
match goal with
| |- context[ environments.Esnoc _ ?x ?P ] => tac x P
......
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