From 6012fe022be58cbd0b3bcc5a9461043b392e9291 Mon Sep 17 00:00:00 2001 From: Jason Gross Date: Mon, 23 Jan 2017 17:38:40 -0500 Subject: Fix invert_expr_subst --- src/Reflection/ExprInversion.v | 1 + 1 file changed, 1 insertion(+) (limited to 'src') 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 -- cgit v1.2.3