diff options
| -rw-r--r-- | src/Reflection/ExprInversion.v | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/src/Reflection/ExprInversion.v b/src/Reflection/ExprInversion.v index 29a5bc60a..8604a089d 100644 --- a/src/Reflection/ExprInversion.v +++ b/src/Reflection/ExprInversion.v @@ -149,7 +149,8 @@ Ltac invert_expr_subst_step := let H := fresh in remember (invert_Abs e) as f eqn:H; symmetry in H; - apply invert_Abs_Some in H + apply invert_Abs_Some in H; + subst e | [ H : invert_Abs ?e = _ |- _ ] => apply invert_Abs_Some in H | [ H : invert_Return ?e = _ |- _ ] => apply invert_Return_Some in H | _ => progress subst |