diff options
| author | herbelin | 2001-09-14 19:09:08 +0000 |
|---|---|---|
| committer | herbelin | 2001-09-14 19:09:08 +0000 |
| commit | 88d6cdac738f2afa53c7af7853faf668c6a4ebc3 (patch) | |
| tree | c144ca3cc9dda720a889a4764f1fa37fd988990a | |
| parent | 818874e865d091a9ec5b3e65aa257dc77939e11b (diff) | |
Ajout syntaxe "Assert H:T."
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@1968 85f007b7-540e-0410-9357-904b9bb8a0f7
| -rw-r--r-- | parsing/g_tactic.ml4 | 5 | ||||
| -rw-r--r-- | tactics/tactics.ml | 2 |
2 files changed, 5 insertions, 2 deletions
diff --git a/parsing/g_tactic.ml4 b/parsing/g_tactic.ml4 index 98e3d6ead8..4132727e26 100644 --- a/parsing/g_tactic.ml4 +++ b/parsing/g_tactic.ml4 @@ -319,6 +319,11 @@ GEXTEND Gram <:ast< (DecomposeThese $c ($LIST $l)) >> | IDENT "Cut"; c = constrarg -> <:ast< (Cut $c) >> | IDENT "Assert"; c = constrarg -> <:ast< (TrueCut $c) >> + | IDENT "Assert"; c = constrarg; ":"; t = constrarg -> + let id = match c with + | Coqast.Node(_,"COMMAND",[c]) -> coerce_to_var c + | _ -> assert false in + <:ast< (TrueCut $t $id) >> | IDENT "Specialize"; n = pure_numarg; lcb = constrarg_binding_list -> <:ast< (Specialize $n ($LIST $lcb))>> | IDENT "Specialize"; lcb = constrarg_binding_list -> diff --git a/tactics/tactics.ml b/tactics/tactics.ml index 09879fe390..f168cb5cb0 100644 --- a/tactics/tactics.ml +++ b/tactics/tactics.ml @@ -604,10 +604,8 @@ let true_cut_anon c gl = let dyn_true_cut = function | [Command com] -> tactic_com_sort true_cut_anon com | [Constr c] -> true_cut_anon c -(* Pas trouvé de syntaxe pour cela | [Command com; Identifier id] -> tactic_com_sort (true_cut id) com | [Constr c; Identifier id] -> true_cut id c -*) | l -> bad_tactic_args "true_cut" l let cut c gl = |