diff options
| author | Pierre-Marie Pédrot | 2017-09-04 23:54:30 +0200 |
|---|---|---|
| committer | Pierre-Marie Pédrot | 2017-09-05 00:32:28 +0200 |
| commit | ada4c3aadb5c6b1870c2bf962ef9e1b07cc4bb05 (patch) | |
| tree | dbf570c8396d7c18671ade70c9c79e9e453b8ef7 /theories | |
| parent | ac3bb720d4ec04aa670845352df1d8b8885f865e (diff) | |
ML bindings of auto-related tactics.
Diffstat (limited to 'theories')
| -rw-r--r-- | theories/Std.v | 16 |
1 files changed, 16 insertions, 0 deletions
diff --git a/theories/Std.v b/theories/Std.v index 2fa2c34da6..b667258aa2 100644 --- a/theories/Std.v +++ b/theories/Std.v @@ -211,3 +211,19 @@ Ltac2 @ external autorewrite : bool -> (unit -> unit) option -> ident list -> cl Ltac2 @ external subst : ident list -> unit := "ltac2" "tac_subst". Ltac2 @ external subst_all : unit -> unit := "ltac2" "tac_substall". + +(** auto *) + +Ltac2 Type debug := [ Off | Info | Debug ]. + +Ltac2 Type strategy := [ BFS | DFS ]. + +Ltac2 @ external trivial : debug -> (unit -> constr) list -> ident list option -> unit := "ltac2" "tac_trivial". + +Ltac2 @ external auto : debug -> int option -> (unit -> constr) list -> ident list option -> unit := "ltac2" "tac_auto". + +Ltac2 @ external new_auto : debug -> int option -> (unit -> constr) list -> ident list option -> unit := "ltac2" "tac_newauto". + +Ltac2 @ external eauto : debug -> int option -> int option -> (unit -> constr) list -> ident list option -> unit := "ltac2" "tac_eauto". + +Ltac2 @ external typeclasses_eauto : bool -> strategy -> int option -> ident list -> unit := "ltac2" "tac_typeclasses_eauto". |