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

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

parent 4ae3b6c6
No related branches found
No related tags found
No related merge requests found
Hide whitespace changes
Inline Side-by-side
theories/proofmode/ltac_tactics.v
+ 3
− 0
View file @ e76659e6
...@@ -52,6 +52,9 @@ Ltac iTypeOf H := ...@@ -52,6 +52,9 @@ Ltac iTypeOf H :=
let Δ := match goal with |- envs_entails ?Δ _ => Δ end in let Δ := match goal with |- envs_entails ?Δ _ => Δ end in
pm_eval (envs_lookup H Δ). pm_eval (envs_lookup H Δ).
Ltac iBiOfGoal :=
match goal with |- @envs_entails ?PROP _ _ => PROP end.
Tactic Notation "iMatchHyp" tactic1(tac) := Tactic Notation "iMatchHyp" tactic1(tac) :=
match goal with match goal with
| |- context[ environments.Esnoc _ ?x ?P ] => tac x P | |- context[ environments.Esnoc _ ?x ?P ] => tac x P
......
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