diff options
Diffstat (limited to 'src/tac2stdlib.ml')
| -rw-r--r-- | src/tac2stdlib.ml | 2 |
1 files changed, 1 insertions, 1 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 |