diff options
| author |  Jason Gross <jgross@mit.edu> | 2017-04-05 02:51:16 -0400 |
|---|---|---|
| committer | Jason Gross <jgross@mit.edu> | 2017-04-05 02:51:16 -0400 |
| commit | 5562729887f61affeb12c5566f1b26eaf2727893 (patch) | |
| tree | a64bc73af3d70625680f5ee008bb3525b502794e /src/Util/Curry.v | |
| parent | fa5c6aed76360c188ac097259b774ba32129aecb (diff) | |
Add Tactics.ChangeInAll
Diffstat (limited to 'src/Util/Curry.v')
| -rw-r--r-- | src/Util/Curry.v | 10 |
1 files changed, 2 insertions, 8 deletions
diff --git a/src/Util/Curry.v b/src/Util/Curry.v index 8a34cb611..d1e3a7b94 100644 --- a/src/Util/Curry.v +++ b/src/Util/Curry.v @@ -1,14 +1,8 @@ +Require Import Crypto.Util.Tactics.ChangeInAll. + Definition curry2 {A B C} (f : A -> B -> C) (x : A * B) : C := let '(a, b) := x in f a b. -(** Work around "Cannot create self-referring hypothesis" coming from - [change x with y in *] *) -Local Ltac change_in_all from to := - change from with to; - repeat match goal with - | [ H : _ |- _ ] => progress change from with to in H - end. - Ltac change_with_curried f := cbv beta in f; (* work around https://coq.inria.fr/bugs/show_bug.cgi?id=5430 *) lazymatch type of f with |