Commit 51b58582 authored by Michael Sammler's avatar Michael Sammler
Browse files

liUnfoldLetGoal also beneath bi_sep

parent f6062611
Pipeline #57811 passed with stage
in 11 minutes and 27 seconds
......@@ -308,8 +308,7 @@ Tactic Notation "li_let_bind" constr(T) tactic3(tac) :=
(* unfold_let_goal_tac lets users unfold custom definitions. *)
Ltac unfold_let_goal_tac H := idtac.
Ltac liUnfoldLetGoal :=
match goal with
| |- envs_entails _ ?P =>
let do_unfold P :=
let H := get_head P in
is_var H;
unfold LET_ID in H;
......@@ -318,6 +317,10 @@ Ltac liUnfoldLetGoal :=
performance since the goal is small at this point. *)
unfold H;
try clear H
in
lazymatch goal with
| |- envs_entails _ (?P _) => do_unfold P
| |- envs_entails _ ?P => do_unfold P
end.
Ltac liUnfoldLetsContaining H :=
......
Supports Markdown
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