diff options
| author |  herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2002-05-29 11:10:24 +0000 |
|---|---|---|
| committer | herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2002-05-29 11:10:24 +0000 |
| commit | 29c67f1d97221755415ace1e4317cb7af92e24f3 (patch) | |
| tree | 3aaa1283625e248b31339dbb76279629ae27f02e /contrib/ring/quote.ml | |
| parent | 5a5c8682bcf7041f5a240b565f68e37478414b81 (diff) | |
Nouveau modèle d'analyse syntaxique et d'interprétation des tactiques et commandes vernaculaires (cf dev/changements.txt pour plus de précisions)
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@2734 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'contrib/ring/quote.ml')
| -rw-r--r-- | contrib/ring/quote.ml | 14 |
1 files changed, 1 insertions, 13 deletions
diff --git a/contrib/ring/quote.ml b/contrib/ring/quote.ml index 669fd21c5..bcd8ee5f9 100644 --- a/contrib/ring/quote.ml +++ b/contrib/ring/quote.ml @@ -112,7 +112,7 @@ open Pattern open Tacmach open Tactics open Proof_trees -open Proof_type +open Tacexpr (*i*) (*s First, we need to access some Coq constants @@ -452,18 +452,6 @@ let quote f lid gl = | None -> Tactics.convert_concl (mkApp (f, [| p |])) gl | Some _ -> Tactics.convert_concl (mkApp (f, [| vm; p |])) gl -(*i*) -let dyn_quote = function - | [Identifier f] -> quote f [] - | Identifier f :: lid -> quote f - (List.map (function - | Identifier id -> id - | other -> bad_tactic_args "Quote" [other]) lid) - | l -> bad_tactic_args "Quote" l - -let h_quote = hide_tactic "Quote" dyn_quote -(*i*) - (*i Just testing ... |