diff options
| author |  herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2008-01-07 08:36:37 +0000 |
|---|---|---|
| committer | herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2008-01-07 08:36:37 +0000 |
| commit | 3d7ea6a03bc83fce4e2ebdabdcaf10e5afc26a78 (patch) | |
| tree | b4ee1f165f0c1d7d8cd2cc1e4b3d2e52aadc8e53 /contrib/interface | |
| parent | a8d50dd372fc9365d3f6f21551567f05937d93ef (diff) | |
Completion of 10427...
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@10429 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'contrib/interface')
| -rw-r--r-- | contrib/interface/xlate.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/contrib/interface/xlate.ml b/contrib/interface/xlate.ml index 05c227de0..5e82b85bc 100644 --- a/contrib/interface/xlate.ml +++ b/contrib/interface/xlate.ml @@ -334,7 +334,7 @@ and | a::l -> CT_match_pattern_ne_list(xlate_match_pattern a, List.map xlate_match_pattern l) and translate_one_equation = function - (_,[lp], a) -> CT_eqn (xlate_match_pattern_ne_list lp, xlate_formula a) + (_,[_,lp], a) -> CT_eqn (xlate_match_pattern_ne_list lp, xlate_formula a) | _ -> xlate_error "TODO: disjunctive multiple patterns" and xlate_binder_ne_list = function |