Generalize 7c4416b6 to remove head "value ;;" expressions after any wp_ tactic.

heap_lang/proofmode.v

@@ -148,7 +148,7 @@ Tactic Notation "wp_store" :=
       |let l := match goal with |- _ = Some (_, (?l ↦{_} _)%I) => l end in
        iAssumptionCore || fail "wp_store: cannot find" l "↦ ?"
       |env_cbv; reflexivity
-      |wp_finish; try wp_seq]
+      |wp_finish]
   | _ => fail "wp_store: not a 'wp'"
   end.
 

heap_lang/wp_tactics.v

@@ -22,8 +22,14 @@ Ltac wp_value_head :=
       match goal with |- _ ⊢ wp _ _ _ => simpl | _ => fail end)
   end.
 
+Ltac wp_seq_head :=
+  lazymatch goal with
+  | |- _ ⊢ wp ?E (Seq _ _) ?Q => etrans; [|eapply wp_seq; wp_done]; strip_later
+  end.
+
 Ltac wp_finish := intros_revert ltac:(
-  rewrite /= ?to_of_val; try strip_later; try wp_value_head).
+  rewrite /= ?to_of_val; try strip_later; try wp_value_head);
+  repeat wp_seq_head.
 
 Tactic Notation "wp_value" :=
   lazymatch goal with