msgpack/ocaml/proof/ProofUtil.v
2011-04-03 17:11:53 +09:00

5 lines
153 B
Coq

Ltac rewrite_for x :=
match goal with
| [ H : x = _ |- _ ] => rewrite H in *; clear H
| [ H : _ = x |- _ ] => rewrite <- H in *; clear H
end.