diff options
| author | herbelin | 2009-09-10 18:39:18 +0000 |
|---|---|---|
| committer | herbelin | 2009-09-10 18:39:18 +0000 |
| commit | e6ff6b0714a02a9d322360b66b4ae19423191345 (patch) | |
| tree | 2a69f5a64247839631ec13fd1928e32f9cb2af90 /plugins/interface/xlate.ml | |
| parent | f1500c486fb22a7a5279425b13f7f84d290cbdda (diff) | |
Added syntax "exists bindings, ..., bindings" for iterated "exists".
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@12316 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'plugins/interface/xlate.ml')
| -rw-r--r-- | plugins/interface/xlate.ml | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/plugins/interface/xlate.ml b/plugins/interface/xlate.ml index c27b10c63e..4d4eff56fb 100644 --- a/plugins/interface/xlate.ml +++ b/plugins/interface/xlate.ml @@ -996,8 +996,8 @@ and xlate_tac = | TacIntroMove _ -> xlate_error "TODO" | TacLeft (false,bindl) -> CT_left (xlate_bindings bindl) | TacRight (false,bindl) -> CT_right (xlate_bindings bindl) - | TacSplit (false,false,bindl) -> CT_split (xlate_bindings bindl) - | TacSplit (false,true,bindl) -> CT_exists (xlate_bindings bindl) + | TacSplit (false,false,[bindl]) -> CT_split (xlate_bindings bindl) + | TacSplit (false,true,[bindl]) -> CT_exists (xlate_bindings bindl) | TacSplit _ | TacRight _ | TacLeft _ -> xlate_error "TODO: esplit, eright, etc" | TacExtend (_,"replace", [c1; c2;cl;tac_opt]) -> |