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

Support envs_lookup_delete in internal iAssumptionCore tactic.

parent 711bead3
Branches
No related tags found
No related merge requests found
Hide whitespace changes
Inline Side-by-side
theories/proofmode/tactics.v
+ 4
− 0
View file @ e2882b61
...@@ -122,6 +122,10 @@ Tactic Notation "iAssumptionCore" := ...@@ -122,6 +122,10 @@ Tactic Notation "iAssumptionCore" :=
first [is_evar i; fail 1 | env_cbv; reflexivity] first [is_evar i; fail 1 | env_cbv; reflexivity]
| |- envs_lookup ?i (Envs ?Γp ?Γs) = Some (_, ?P) => | |- envs_lookup ?i (Envs ?Γp ?Γs) = Some (_, ?P) =>
is_evar i; first [find Γp i P | find Γs i P]; env_cbv; reflexivity is_evar i; first [find Γp i P | find Γs i P]; env_cbv; reflexivity
| |- envs_lookup_delete ?i (Envs ?Γp ?Γs) = Some (_, ?P, _) =>
first [is_evar i; fail 1 | env_cbv; reflexivity]
| |- envs_lookup_delete ?i (Envs ?Γp ?Γs) = Some (_, ?P, _) =>
is_evar i; first [find Γp i P | find Γs i P]; env_cbv; reflexivity
end. end.
Tactic Notation "iAssumption" := Tactic Notation "iAssumption" :=
......
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Please register or to comment