diff options
author | Jason Gross <jgross@mit.edu> | 2017-01-23 17:42:15 -0500 |
---|---|---|
committer | Jason Gross <jgross@mit.edu> | 2017-01-23 17:42:15 -0500 |
commit | ea993f94b71e29e87073ffadf0c36218c19e6b43 (patch) | |
tree | b07f0864fa01b4ea0bcaf89069fdbbc76d1f9c58 | |
parent | 6012fe022be58cbd0b3bcc5a9461043b392e9291 (diff) |
Make invert_expr_subst not loop
-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 |