diff options
| author | Arnaud Spiwack | 2014-02-24 17:17:14 +0100 |
|---|---|---|
| committer | Arnaud Spiwack | 2014-02-24 17:17:14 +0100 |
| commit | d81db4a36501e6a5b5f1ba891c98409df742d0ce (patch) | |
| tree | bdc815e22c34107202c482dbf94486a4b0e49c0c | |
| parent | fba4a5db9769b3d31256d840923d76335adb64ba (diff) | |
Removed some trailing whitespaces.
| -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 ; |
