diff options
author | Jason Gross <jgross@mit.edu> | 2017-01-23 17:30:52 -0500 |
---|---|---|
committer | Jason Gross <jgross@mit.edu> | 2017-01-23 17:30:52 -0500 |
commit | 19797bd0eb8cc1b879562728da63255dafcde893 (patch) | |
tree | 1188f97f37f2d80a431534775ef711936836ad04 /src/Reflection | |
parent | 48672ac53a3157a8e7abe9e48b1977d4b62d8c8c (diff) |
Minor additions
Diffstat (limited to 'src/Reflection')
-rw-r--r-- | src/Reflection/ExprInversion.v | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/Reflection/ExprInversion.v b/src/Reflection/ExprInversion.v index 0cb35f4b7..6bf813bf7 100644 --- a/src/Reflection/ExprInversion.v +++ b/src/Reflection/ExprInversion.v @@ -140,12 +140,12 @@ Global Arguments invert_Return {_ _ _ _} _. Ltac invert_expr_subst_step := match goal with - | _ => progress subst | [ H : invert_Var ?e = Some _ |- _ ] => apply invert_Var_Some in H | [ H : invert_Op ?e = Some _ |- _ ] => apply invert_Op_Some in H | [ H : invert_LetIn ?e = Some _ |- _ ] => apply invert_LetIn_Some in H | [ H : invert_Pair ?e = Some _ |- _ ] => apply invert_Pair_Some in H | [ H : invert_Abs ?e = _ |- _ ] => apply invert_Abs_Some in H | [ H : invert_Return ?e = _ |- _ ] => apply invert_Return_Some in H + | _ => progress subst end. Ltac invert_expr_subst := repeat invert_expr_subst_step. |