summaryrefslogtreecommitdiff
path: root/plugins/ssr/ssrtacticals.mli
blob: a5636ad0f0548dd4e2253669d3fb4a402c0ee0d2 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
(************************************************************************)
(*         *   The Coq Proof Assistant / The Coq Development Team       *)
(*  v      *   INRIA, CNRS and contributors - Copyright 1999-2018       *)
(* <O___,, *       (see CREDITS file for the list of authors)           *)
(*   \VV/  **************************************************************)
(*    //   *    This file is distributed under the terms of the         *)
(*         *     GNU Lesser General Public License Version 2.1          *)
(*         *     (see LICENSE file for the text of the license)         *)
(************************************************************************)

(* This file is (C) Copyright 2006-2015 Microsoft Corporation and Inria. *)

open Ltac_plugin
open Ssrmatching_plugin

val tclSEQAT :
  Tacinterp.interp_sign ->
  Tacinterp.Value.t ->
  Ssrast.ssrdir ->
  int Misctypes.or_var *
    (('a * Tacinterp.Value.t option list) *
       Tacinterp.Value.t option) ->
  Tacmach.tactic

val tclCLAUSES :
  unit Proofview.tactic ->
  (Ssrast.ssrhyps *
     ((Ssrast.ssrhyp_or_id * string) *
        Ssrmatching.cpattern option)
       option)
    list * Ssrast.ssrclseq ->
  unit Proofview.tactic

val hinttac :
           Tacinterp.interp_sign ->
           bool -> bool * Tacinterp.Value.t option list -> Ssrast.v82tac

val ssrdotac :
  Tacinterp.interp_sign ->
  ((int Misctypes.or_var * Ssrast.ssrmmod) *
     (bool * Tacinterp.Value.t option list)) *
    ((Ssrast.ssrhyps *
        ((Ssrast.ssrhyp_or_id * string) *
           Ssrmatching.cpattern option)
          option)
       list * Ssrast.ssrclseq) ->
  Goal.goal Evd.sigma -> Goal.goal list Evd.sigma