liUnfoldLetGoal also beneath bi_sep

theories/lithium/interpreter.v

@@ -308,16 +308,19 @@ 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 H := get_head P in
-      is_var H;
-      unfold LET_ID in H;
-      unfold_let_goal_tac H;
-      (* This unfold inserts a cast but that is not too bad for
-      performance since the goal is small at this point. *)
-      unfold H;
-      try clear H
+  let do_unfold P :=
+    let H := get_head P in
+    is_var H;
+    unfold LET_ID in H;
+    unfold_let_goal_tac H;
+    (* This unfold inserts a cast but that is not too bad for
+       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 :=