Library MetaCoq.Utils.MCTactics.Zeta1

Ltac zeta1 x :=
  lazymatch x with
  | let a := ?b in ?f ⇒ constr:(match b with a ⇒ f end)
  end.