diff options
| author |  herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2006-09-22 23:09:37 +0000 |
|---|---|---|
| committer | herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2006-09-22 23:09:37 +0000 |
| commit | 7ed3805888f7bf974b1e984c8315982442da8627 (patch) | |
| tree | 31f7c3a6fb3b881d3be01e4c7b37d3298cf1f74d /interp | |
| parent | 11846c16e57f418c80acba3f5d764855ca096254 (diff) | |
Protection List.fold_left2 (cf bug #1224)
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@9162 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'interp')
| -rw-r--r-- | interp/topconstr.ml | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/interp/topconstr.ml b/interp/topconstr.ml index 57f2c6a89..06a8ec9d0 100644 --- a/interp/topconstr.ml +++ b/interp/topconstr.ml @@ -411,7 +411,8 @@ let rec match_ alp metas sigma a1 a2 = match (a1,a2) with | RLetIn (_,na1,t1,b1), ALetIn (na2,t2,b2) -> match_binders alp metas na1 na2 (match_ alp metas sigma t1 t2) b1 b2 | RCases (_,rtno1,tml1,eqnl1), ACases (rtno2,tml2,eqnl2) - when List.length tml1 = List.length tml2 -> + when List.length tml1 = List.length tml2 + & List.length eqnl1 = List.length eqnl2 -> let rtno1' = abstract_return_type_context_rawconstr tml1 rtno1 in let rtno2' = abstract_return_type_context_aconstr tml2 rtno2 in let sigma = option_fold_left2 (match_ alp metas) sigma rtno1' rtno2' in |