Commit 0c8e2c41 authored by Michael Sammler's avatar Michael Sammler
Browse files

fix

parent 6596ccd1
Pipeline #57793 passed with stage
in 11 minutes and 25 seconds
......@@ -308,11 +308,11 @@ Tactic Notation "li_let_bind" constr(T) tactic3(tac) :=
Ltac liUnfoldLetGoal :=
match goal with
| |- envs_entails _ ?P =>
let h := get_head P in
is_var P;
unfold LET_ID in P;
unfold P;
try clear P
let H := get_head P in
is_var H;
unfold LET_ID in H;
unfold H;
try clear H
(* lazymatch goal with *)
(* | |- envs_entails ?Δ ?P => *)
(* let h := get_head P in *)
......
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