diff options
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 669fd21c50..bcd8ee5f94 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 ... |