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