diff options
author | Jason Gross <jgross@mit.edu> | 2017-01-23 17:38:40 -0500 |
---|---|---|
committer | Jason Gross <jgross@mit.edu> | 2017-01-23 17:38:40 -0500 |
commit | 6012fe022be58cbd0b3bcc5a9461043b392e9291 (patch) | |
tree | 8126d5b1f81b1427c7e9364d5c42fcb8c6e547cc | |
parent | 3f4200782e33e6ee3523b7e5a5787008a1e036ca (diff) |
Fix invert_expr_subst
-rw-r--r-- | src/Reflection/ExprInversion.v | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/src/Reflection/ExprInversion.v b/src/Reflection/ExprInversion.v index 9fc373a74..29a5bc60a 100644 --- a/src/Reflection/ExprInversion.v +++ b/src/Reflection/ExprInversion.v @@ -148,6 +148,7 @@ Ltac invert_expr_subst_step := => let f := fresh e in let H := fresh in remember (invert_Abs e) as f eqn:H; + symmetry in H; apply invert_Abs_Some in H | [ H : invert_Abs ?e = _ |- _ ] => apply invert_Abs_Some in H | [ H : invert_Return ?e = _ |- _ ] => apply invert_Return_Some in H |