diff options
author | Jason Gross <jgross@mit.edu> | 2017-01-23 17:43:22 -0500 |
---|---|---|
committer | Jason Gross <jgross@mit.edu> | 2017-01-23 17:43:22 -0500 |
commit | 9f4e0d61abb3dd65943cc8242a4c7b0556d42757 (patch) | |
tree | 43a1a38fac224b31ae2da04644bbb11a3ee96711 | |
parent | ea993f94b71e29e87073ffadf0c36218c19e6b43 (diff) |
Preserve names in invert_expr_subst
-rw-r--r-- | src/Reflection/ExprInversion.v | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/src/Reflection/ExprInversion.v b/src/Reflection/ExprInversion.v index 8604a089d..1130570a9 100644 --- a/src/Reflection/ExprInversion.v +++ b/src/Reflection/ExprInversion.v @@ -147,10 +147,11 @@ Ltac invert_expr_subst_step := | [ e : expr _ _ (Arrow _ _) |- _ ] => let f := fresh e in let H := fresh in - remember (invert_Abs e) as f eqn:H; + rename e into f; + remember (invert_Abs f) as e eqn:H; symmetry in H; apply invert_Abs_Some in H; - subst e + subst f | [ H : invert_Abs ?e = _ |- _ ] => apply invert_Abs_Some in H | [ H : invert_Return ?e = _ |- _ ] => apply invert_Return_Some in H | _ => progress subst |