blob: 208a76aefb4109770556bd17747880bb575d4a3b (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
|
(************************************************************************)
(* v * The Coq Proof Assistant / The Coq Development Team *)
(* <O___,, * CNRS-Ecole Polytechnique-INRIA Futurs-Universite Paris Sud *)
(* \VV/ **************************************************************)
(* // * This file is distributed under the terms of the *)
(* * GNU Lesser General Public License Version 2.1 *)
(************************************************************************)
(* $Id: subtac.ml 12623 2010-01-04 17:50:38Z letouzey $ *)
open Proof_type
open Tacexpr
open Vernacexpr
val declare_tactic_option : string ->
(* put *) (locality_flag -> glob_tactic_expr -> unit) *
(* get *) (unit -> locality_flag * tactic) *
(* print *) (unit -> Pp.std_ppcmds)
|