diff options
| author | herbelin | 2009-12-12 20:46:07 +0000 |
|---|---|---|
| committer | herbelin | 2009-12-12 20:46:07 +0000 |
| commit | aba4b1924f562d861ab2cf7ec75c507f0efe0d1f (patch) | |
| tree | 67199755041372c7f3dc6f7757795d9c0932fe9a /plugins/funind/functional_principles_proofs.ml | |
| parent | c94207ce53c82652e2b5841da55cd5de5266445d (diff) | |
Updated compatibility for rewriting equality proofs that are dependent
- made the new "subst'" the default by renaming it "subst";
- renamed old "subst" into "simple subst";
- add option for non-rewriting of dependent proofs in general_rewrite and co
- kept use of dependent proofs in the "subst" call of "functional
induction", in spite it introduced incompatibilities (in Compcert).
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@12578 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'plugins/funind/functional_principles_proofs.ml')
| -rw-r--r-- | plugins/funind/functional_principles_proofs.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/plugins/funind/functional_principles_proofs.ml b/plugins/funind/functional_principles_proofs.ml index e8ec962b44..e2cad94495 100644 --- a/plugins/funind/functional_principles_proofs.ml +++ b/plugins/funind/functional_principles_proofs.ml @@ -1417,7 +1417,7 @@ let rec rewrite_eqs_in_eqs eqs = (fun id gl -> observe_tac (Format.sprintf "rewrite %s in %s " (string_of_id eq) (string_of_id id)) - (tclTRY (Equality.general_rewrite_in true all_occurrences id (mkVar eq) false)) + (tclTRY (Equality.general_rewrite_in true all_occurrences (* dep proofs also: *) true id (mkVar eq) false)) gl ) eqs |