diff options
author | 2016-02-15 15:17:05 +0100 | |
---|---|---|
committer | 2016-02-15 15:31:14 +0100 | |
commit | 4ea9b3193eaced958bb277c0723fb54d661ff520 (patch) | |
tree | 674fe651612dc17f3bf99404fae02d58437ef5a1 /plugins/funind/indfun.ml | |
parent | 15b28f0ae1e31506f3fb153fc6e50bc861717eb9 (diff) |
More conversion functions in the new tactic API.
Diffstat (limited to 'plugins/funind/indfun.ml')
-rw-r--r-- | plugins/funind/indfun.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/plugins/funind/indfun.ml b/plugins/funind/indfun.ml index d1e109825..41fd0bd18 100644 --- a/plugins/funind/indfun.ml +++ b/plugins/funind/indfun.ml @@ -113,7 +113,7 @@ let functional_induction with_clean c princl pat = in Tacticals.tclTHEN (Tacticals.tclMAP (fun id -> Tacticals.tclTRY (Proofview.V82.of_tactic (Equality.subst_gen (do_rewrite_dependent ()) [id]))) idl ) - (Tactics.reduce flag Locusops.allHypsAndConcl) + (Proofview.V82.of_tactic (Tactics.reduce flag Locusops.allHypsAndConcl)) g else Tacticals.tclIDTAC g in |