diff options
| author | herbelin | 2008-10-26 19:22:27 +0000 |
|---|---|---|
| committer | herbelin | 2008-10-26 19:22:27 +0000 |
| commit | bfc03c53882d7334e4fb327362c354397a8462ba (patch) | |
| tree | 7e092b31a5e28a38ab973bcc8325a30f7445af36 /contrib/funind | |
| parent | c52c9cb2655b600f19f37a4636ed4732639e69e7 (diff) | |
Fixes and refinements regarding occurrence selection:
- make the modifiers "value of" and "type of" for "set" working (it was not!),
- clear unselected hypotheses in the "in" clause of "induction/destruct" when
the destructed term is a variable (experimental),
- support for generalization of hypotheses in the induction hypotheses using
the "in" clause of "induction" (e.g. "induction n in m, H" will
generalize over m -- would it be better to have an explicit
"over"/"generalizing" clause ?).
Added clause "as" to "apply in".
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@11509 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'contrib/funind')
| -rw-r--r-- | contrib/funind/functional_principles_proofs.ml | 2 | ||||
| -rw-r--r-- | contrib/funind/recdef.ml | 2 |
2 files changed, 2 insertions, 2 deletions
diff --git a/contrib/funind/functional_principles_proofs.ml b/contrib/funind/functional_principles_proofs.ml index 971dada68f..6241eb1de4 100644 --- a/contrib/funind/functional_principles_proofs.ml +++ b/contrib/funind/functional_principles_proofs.ml @@ -1347,7 +1347,7 @@ let build_clause eqs = { Tacexpr.onhyps = Some (List.map - (fun id -> (Rawterm.all_occurrences_expr,id),Tacexpr.InHyp) + (fun id -> (Rawterm.all_occurrences_expr,id),InHyp) eqs ); Tacexpr.concl_occs = Rawterm.no_occurrences_expr diff --git a/contrib/funind/recdef.ml b/contrib/funind/recdef.ml index 8161e890dc..528c276c05 100644 --- a/contrib/funind/recdef.ml +++ b/contrib/funind/recdef.ml @@ -1160,7 +1160,7 @@ let rec introduce_all_values_eq cont_tac functional termine simpl_iter (onHyp heq2); unfold_in_hyp [((true,[1]), evaluable_of_global_reference (global_of_constr functional))] - ((all_occurrences_expr, heq2), Tacexpr.InHyp); + ((all_occurrences_expr, heq2), InHyp); tclTHENS (fun gls -> let t_eq = compute_renamed_type gls (mkVar heq2) in |