blob: 1d097804a5d1ee1b7fcb02a800ac085c2b2da14d (
plain)
1
2
3
4
5
6
7
8
9
10
|
open Proof_type;;
open Tacmach;;
val dad_rule_names : unit -> string list;;
val start_dad : unit -> unit;;
val dad_tac : (Coqast.t -> 'a) -> tactic_arg list -> goal sigma ->
goal list sigma * validation;;
val add_dad_rule : string -> Coqast.t -> (int list) -> (int list) ->
int -> (int list) -> Coqast.t -> unit;;
|
