diff options
Diffstat (limited to 'plugins/funind')
| -rw-r--r-- | plugins/funind/functional_principles_proofs.ml | 2 | ||||
| -rw-r--r-- | plugins/funind/recdef.ml | 6 |
2 files changed, 4 insertions, 4 deletions
diff --git a/plugins/funind/functional_principles_proofs.ml b/plugins/funind/functional_principles_proofs.ml index 8c2fdb7eb5..3d74c5bc90 100644 --- a/plugins/funind/functional_principles_proofs.ml +++ b/plugins/funind/functional_principles_proofs.ml @@ -120,7 +120,7 @@ type body_info = constr dynamic_info let finish_proof dynamic_infos g = observe_tac "finish" - ( h_assumption) + (Proofview.V82.of_tactic h_assumption) g diff --git a/plugins/funind/recdef.ml b/plugins/funind/recdef.ml index 881d930fcc..64bf71ec60 100644 --- a/plugins/funind/recdef.ml +++ b/plugins/funind/recdef.ml @@ -517,7 +517,7 @@ let rec prove_lt hyple g = ( tclTHENLIST[ apply (delayed_force lt_S_n); - (observe_tac (str "assumption: " ++ Printer.pr_goal g) (h_assumption)) + (observe_tac (str "assumption: " ++ Printer.pr_goal g) (Proofview.V82.of_tactic h_assumption)) ]) ) end @@ -757,7 +757,7 @@ let terminate_app_rec (f,args) expr_info continuation_tac _ = tclTHENS (* proof of args < formal args *) (apply (Lazy.force expr_info.acc_inv)) [ - observe_tac (str "h_assumption") h_assumption; + observe_tac (str "h_assumption") (Proofview.V82.of_tactic h_assumption); tclTHENLIST [ tclTRY(list_rewrite true @@ -802,7 +802,7 @@ let rec prove_le g = (List.hd args,List.hd (List.tl args)) in tclFIRST[ - h_assumption; + Proofview.V82.of_tactic h_assumption; apply (delayed_force le_n); begin try |