Commit d8593274 authored by Michael Sammler's avatar Michael Sammler
Browse files

try old unfold

parent bbaaf408
Pipeline #57788 passed with stage
in 11 minutes and 37 seconds
...@@ -306,20 +306,29 @@ Tactic Notation "li_let_bind" constr(T) tactic3(tac) := ...@@ -306,20 +306,29 @@ Tactic Notation "li_let_bind" constr(T) tactic3(tac) :=
change_no_check G). change_no_check G).
Ltac liUnfoldLetGoal := Ltac liUnfoldLetGoal :=
lazymatch goal with match goal with
| |- envs_entails ?Δ ?P => | |- envs_entails _ ?P =>
let h := get_head P in let rec go P tac :=
is_var h; match P with
let u := eval unfold h in h in | ?Q ?R => go Q tac
lazymatch u with | _ => is_var P; tac P
| LET_ID ?G => end in
lazymatch P with go P ltac:(fun P => unfold LET_ID in P; unfold P; try clear P)
| context C [h] =>
let X := context C [G] in (* lazymatch goal with *)
change_no_check (envs_entails Δ X); (* | |- envs_entails ?Δ ?P => *)
try clear h (* let h := get_head P in *)
end (* is_var h; *)
end (* let u := eval unfold h in h in *)
(* lazymatch u with *)
(* | LET_ID ?G => *)
(* lazymatch P with *)
(* | context C [h] => *)
(* let X := context C [G] in *)
(* change_no_check (envs_entails Δ X); *)
(* try clear h *)
(* end *)
(* end *)
end. end.
Ltac liUnfoldLetsInContext := Ltac liUnfoldLetsInContext :=
......
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