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/showproof.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/showproof.ml')
| -rw-r--r-- | plugins/interface/showproof.ml | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/plugins/interface/showproof.ml b/plugins/interface/showproof.ml index 2ab62763d4..aa11609ae7 100644 --- a/plugins/interface/showproof.ml +++ b/plugins/interface/showproof.ml @@ -1183,8 +1183,8 @@ let rec natural_ntree ig ntree = TacIntroPattern _ -> natural_intros ig lh g gs ltree | TacIntroMove _ -> natural_intros ig lh g gs ltree | TacFix (_,n) -> natural_fix ig lh g gs n ltree - | TacSplit (_,_,NoBindings) -> natural_split ig lh g gs ge [] ltree - | TacSplit(_,_,ImplicitBindings l) -> natural_split ig lh g gs ge (List.map snd l) ltree + | TacSplit (_,_,[NoBindings]) -> natural_split ig lh g gs ge [] ltree + | TacSplit(_,_,[ImplicitBindings l]) -> natural_split ig lh g gs ge (List.map snd l) ltree | TacGeneralize l -> natural_generalize ig lh g gs ge l ltree | TacRight _ -> natural_right ig lh g gs ltree | TacLeft _ -> natural_left ig lh g gs ltree |