From d81db4a36501e6a5b5f1ba891c98409df742d0ce Mon Sep 17 00:00:00 2001 From: Arnaud Spiwack Date: Mon, 24 Feb 2014 17:17:14 +0100 Subject: Removed some trailing whitespaces. --- tactics/tacticMatching.ml | 4 ++-- 1 file 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 ; -- cgit v1.2.3