diff options
Diffstat (limited to 'contrib/interface/blast.ml')
-rw-r--r-- | contrib/interface/blast.ml | 6 |
1 files changed, 2 insertions, 4 deletions
diff --git a/contrib/interface/blast.ml b/contrib/interface/blast.ml index dcea487a9..ddedbb325 100644 --- a/contrib/interface/blast.ml +++ b/contrib/interface/blast.ml @@ -190,8 +190,7 @@ and e_my_find_search db_list local_db hdc concl = tclTHEN (unify_e_resolve (term,cl)) (e_trivial_fail_db db_list local_db) | Unfold_nth c -> unfold_in_concl [all_occurrences,c] - | Extern tacast -> Auto.conclPattern concl - (Option.get p) tacast + | Extern tacast -> Auto.conclPattern concl p tacast in (free_try tac,fmt_autotactic t)) (*i @@ -406,8 +405,7 @@ and my_find_search db_list local_db hdc concl = (unify_resolve st (term,cl)) (trivial_fail_db db_list local_db) | Unfold_nth c -> unfold_in_concl [all_occurrences,c] - | Extern tacast -> - conclPattern concl (Option.get p) tacast)) + | Extern tacast -> conclPattern concl p tacast)) tacl and trivial_resolve db_list local_db cl = |