diff options
| author |  herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2004-01-13 15:22:04 +0000 |
|---|---|---|
| committer | herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2004-01-13 15:22:04 +0000 |
| commit | 0ea28e6a440e39f9f9645aa55afbfa38a0560b27 (patch) | |
| tree | 0c211363f17f8b61de400d1cf65ffd88e33cbaea /toplevel/vernacentries.ml | |
| parent | 04d270a46e8c481e0b1f21904c6b25f0b7359fa0 (diff) | |
Reflet dans l'arbre de syntaxe de la difference syntaxique entre 'Variables a b:A' et 'Variables (a:A) (b:A)'
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@5198 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'toplevel/vernacentries.ml')
| -rw-r--r-- | toplevel/vernacentries.ml | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/toplevel/vernacentries.ml b/toplevel/vernacentries.ml index 58eb42b6d..91c23fb7a 100644 --- a/toplevel/vernacentries.ml +++ b/toplevel/vernacentries.ml @@ -297,8 +297,7 @@ let vernac_exact_proof c = save_named true let vernac_assumption kind l = - List.iter (fun (is_coe,((_,id),c)) -> - declare_assumption id is_coe kind [] c) l + List.iter (fun (is_coe,(idl,c)) -> declare_assumption idl is_coe kind [] c) l let vernac_inductive f indl = build_mutual indl f |