diff options
| author | Pierre-Marie Pédrot | 2017-09-05 01:29:21 +0200 |
|---|---|---|
| committer | Pierre-Marie Pédrot | 2017-09-05 01:29:47 +0200 |
| commit | 4a8399e62dd4bdf5876e714910dd2c7cb433dfda (patch) | |
| tree | 13b62ff5c9751f39daf7eb38f3ea21d20e47d961 /src | |
| parent | 9a3853fe872e200ed1b34319f6ff0f85a171a434 (diff) | |
Typeclasses_eauto strategy is now optional.
Diffstat (limited to 'src')
| -rw-r--r-- | src/tac2stdlib.ml | 2 | ||||
| -rw-r--r-- | src/tac2tactics.ml | 2 | ||||
| -rw-r--r-- | src/tac2tactics.mli | 2 |
3 files changed, 3 insertions, 3 deletions
diff --git a/src/tac2stdlib.ml b/src/tac2stdlib.ml index b64aac3559..a0eb0d60e5 100644 --- a/src/tac2stdlib.ml +++ b/src/tac2stdlib.ml @@ -666,7 +666,7 @@ let () = define_prim4 "tac_newauto" begin fun bt dbg n lems dbs -> end let () = define_prim3 "tac_typeclasses_eauto" begin fun bt str n dbs -> - let str = to_strategy str in + let str = Value.to_option to_strategy str in let n = Value.to_option Value.to_int n in let dbs = Value.to_option (fun l -> Value.to_list Value.to_ident l) dbs in Tac2tactics.typeclasses_eauto str n dbs diff --git a/src/tac2tactics.ml b/src/tac2tactics.ml index 6cf8f24f27..447f602f7a 100644 --- a/src/tac2tactics.ml +++ b/src/tac2tactics.ml @@ -251,4 +251,4 @@ let typeclasses_eauto strategy depth dbs = let dbs = List.map Id.to_string dbs in false, dbs in - Class_tactics.typeclasses_eauto ~only_classes ~strategy ~depth dbs + Class_tactics.typeclasses_eauto ~only_classes ?strategy ~depth dbs diff --git a/src/tac2tactics.mli b/src/tac2tactics.mli index e0cd77096b..78d421303a 100644 --- a/src/tac2tactics.mli +++ b/src/tac2tactics.mli @@ -97,5 +97,5 @@ val new_auto : Hints.debug -> int option -> constr tactic list -> val eauto : Hints.debug -> int option -> int option -> constr tactic list -> Id.t list option -> unit Proofview.tactic -val typeclasses_eauto : Class_tactics.search_strategy -> int option -> +val typeclasses_eauto : Class_tactics.search_strategy option -> int option -> Id.t list option -> unit Proofview.tactic |