diff options
| author | Hugo Herbelin | 2014-08-17 17:16:58 +0200 |
|---|---|---|
| committer | Hugo Herbelin | 2014-08-18 18:56:38 +0200 |
| commit | b6c3f54d04ce441ac68ffabfca69c18847707518 (patch) | |
| tree | 6921f4ecb293e06ecaa0f13ed7deaceeaf194d76 /plugins/funind | |
| parent | 287d6f88b78634561fff65d32eeb501f12440df8 (diff) | |
A reorganization of the "assert" tactics (hopefully uniform naming
scheme, redundancies, possibility of chaining a tactic knowing the
name of introduced hypothesis, new proof engine).
Diffstat (limited to 'plugins/funind')
| -rw-r--r-- | plugins/funind/functional_principles_proofs.ml | 2 | ||||
| -rw-r--r-- | plugins/funind/g_indfun.ml4 | 2 | ||||
| -rw-r--r-- | plugins/funind/recdef.ml | 4 |
3 files changed, 4 insertions, 4 deletions
diff --git a/plugins/funind/functional_principles_proofs.ml b/plugins/funind/functional_principles_proofs.ml index 7f0db547d3..aba93de479 100644 --- a/plugins/funind/functional_principles_proofs.ml +++ b/plugins/funind/functional_principles_proofs.ml @@ -448,7 +448,7 @@ let clean_hyp_with_heq ptes_infos eq_hyps hyp_id env sigma = in (* observe_tac "rec hyp " *) (tclTHENS - (Proofview.V82.of_tactic (assert_tac (Name rec_pte_id) t_x)) + (Proofview.V82.of_tactic (assert_before (Name rec_pte_id) t_x)) [ (* observe_tac "prove rec hyp" *) (prove_rec_hyp eq_hyps); (* observe_tac "prove rec hyp" *) diff --git a/plugins/funind/g_indfun.ml4 b/plugins/funind/g_indfun.ml4 index 5fa689f000..1d63fe01a9 100644 --- a/plugins/funind/g_indfun.ml4 +++ b/plugins/funind/g_indfun.ml4 @@ -324,7 +324,7 @@ let poseq_unsafe idunsafe cstr gl = tclTHEN (Proofview.V82.of_tactic (Tactics.letin_tac None (Name idunsafe) cstr None Locusops.allHypsAndConcl)) (tclTHENFIRST - (Proofview.V82.of_tactic (Tactics.assert_tac Anonymous (mkEq typ (mkVar idunsafe) cstr))) + (Proofview.V82.of_tactic (Tactics.assert_before Anonymous (mkEq typ (mkVar idunsafe) cstr))) (Proofview.V82.of_tactic Tactics.reflexivity)) gl diff --git a/plugins/funind/recdef.ml b/plugins/funind/recdef.ml index ff35c98124..8602f0a527 100644 --- a/plugins/funind/recdef.ml +++ b/plugins/funind/recdef.ml @@ -1059,7 +1059,7 @@ let termination_proof_header is_mes input_type ids args_id relation (tclTHENS (observe_tac (str "first assert") - (Proofview.V82.of_tactic (assert_tac + (Proofview.V82.of_tactic (assert_before (Name wf_rec_arg) (mkApp (delayed_force acc_rel, [|input_type;relation;mkVar rec_arg_id|]) @@ -1071,7 +1071,7 @@ let termination_proof_header is_mes input_type ids args_id relation tclTHENS (observe_tac (str "second assert") - (Proofview.V82.of_tactic (assert_tac + (Proofview.V82.of_tactic (assert_before (Name wf_thm) (mkApp (delayed_force well_founded,[|input_type;relation|])) )) |