diff options
| author | herbelin | 2007-09-30 19:02:14 +0000 |
|---|---|---|
| committer | herbelin | 2007-09-30 19:02:14 +0000 |
| commit | ef5551e4ca73a93c0820f03ac702ee96e5e7b431 (patch) | |
| tree | 570513e9aaf31ae7a6864a1dbc944aecec844124 /parsing | |
| parent | 83015147aac453effee4d5b1b6363b31c56edd84 (diff) | |
Ajout infos de débogage de "universe inconsistency" quand option Set
Printing Universes est active.
Ajout de l'option "using" à la tactique non documentée "auto decomp".
Ajout de la base "extcore" pour étendre "auto decomp" avec des
principes élémentaires tels que le dépliage de "iff".
Quelques extensions/raffinements dans ChoiceFacts et ClassicalFacts.
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@10156 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'parsing')
| -rw-r--r-- | parsing/g_tactic.ml4 | 6 | ||||
| -rw-r--r-- | parsing/pptactic.ml | 5 |
2 files changed, 7 insertions, 4 deletions
diff --git a/parsing/g_tactic.ml4 b/parsing/g_tactic.ml4 index a4f5a4f42a..3f7c8c3e8e 100644 --- a/parsing/g_tactic.ml4 +++ b/parsing/g_tactic.ml4 @@ -414,8 +414,10 @@ GEXTEND Gram | IDENT "dconcl" -> TacDestructConcl | IDENT "superauto"; l = autoargs -> TacSuperAuto l *) - | IDENT "auto"; n = OPT int_or_var; IDENT "decomp"; p = OPT natural -> - TacDAuto (n, p) + | IDENT "auto"; IDENT "decomp"; p = OPT natural; + lems = auto_using -> TacDAuto (None,p,lems) + | IDENT "auto"; n = OPT int_or_var; IDENT "decomp"; p = OPT natural; + lems = auto_using -> TacDAuto (n,p,lems) (* Context management *) | IDENT "clear"; "-"; l = LIST1 id_or_meta -> TacClear (true, l) diff --git a/parsing/pptactic.ml b/parsing/pptactic.ml index 52b2e5f647..c6c168d4ed 100644 --- a/parsing/pptactic.ml +++ b/parsing/pptactic.ml @@ -766,8 +766,9 @@ and pr_atom1 = function | TacAuto (n,lems,db) -> hov 0 (str "auto" ++ pr_opt (pr_or_var int) n ++ pr_auto_using pr_constr lems ++ pr_hintbases db) - | TacDAuto (n,p) -> - hov 1 (str "auto" ++ pr_opt (pr_or_var int) n ++ str "decomp" ++ pr_opt int p) + | TacDAuto (n,p,lems) -> + hov 1 (str "auto" ++ pr_opt (pr_or_var int) n ++ str "decomp" ++ + pr_opt int p ++ pr_auto_using pr_constr lems) (* Context management *) | TacClear (true,[]) as t -> pr_atom0 t |