diff options
| -rw-r--r-- | tactics/tacticMatching.ml | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/tactics/tacticMatching.ml b/tactics/tacticMatching.ml index 8ac193fa58..e3a54c9bdc 100644 --- a/tactics/tacticMatching.ml +++ b/tactics/tacticMatching.ml @@ -169,8 +169,8 @@ module PatternMatching (E:StaticEnvironment) = struct let open IStream in concat_map begin fun { subst=substx; context=contextx; terms=termsx; lhs=lhsx } -> map_filter begin fun { subst=substf; context=contextf; terms=termsf; lhs=lhsf } -> - try - Some { + try + Some { subst = subst_prod substx substf ; context = context_subst_prod contextx contextf ; terms = term_subst_prod termsx termsf ; |