diff options
| author | herbelin | 2009-03-17 21:07:50 +0000 |
|---|---|---|
| committer | herbelin | 2009-03-17 21:07:50 +0000 |
| commit | 52e74e66ea28cb6bcccb04dcd843036736d8c1bd (patch) | |
| tree | 1e8837835203f6207ba03610d35471cefd120361 /contrib | |
| parent | f848b8bf579ed8fa7613174388a8fbc9ab2f6344 (diff) | |
Uniformizing Tacticals, continued (allClauses -> allHypsAndConcl)
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@11990 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'contrib')
| -rw-r--r-- | contrib/funind/g_indfun.ml4 | 2 | ||||
| -rw-r--r-- | contrib/funind/indfun.ml | 2 |
2 files changed, 2 insertions, 2 deletions
diff --git a/contrib/funind/g_indfun.ml4 b/contrib/funind/g_indfun.ml4 index a79b46d96b..28fec2e981 100644 --- a/contrib/funind/g_indfun.ml4 +++ b/contrib/funind/g_indfun.ml4 @@ -356,7 +356,7 @@ let mkEq typ c1 c2 = let poseq_unsafe idunsafe cstr gl = let typ = Tacmach.pf_type_of gl cstr in tclTHEN - (Tactics.letin_tac None (Name idunsafe) cstr None allClauses) + (Tactics.letin_tac None (Name idunsafe) cstr None allHypsAndConcl) (tclTHENFIRST (Tactics.assert_tac Anonymous (mkEq typ (mkVar idunsafe) cstr)) Tactics.reflexivity) diff --git a/contrib/funind/indfun.ml b/contrib/funind/indfun.ml index a78746d293..348a17b11b 100644 --- a/contrib/funind/indfun.ml +++ b/contrib/funind/indfun.ml @@ -111,7 +111,7 @@ let functional_induction with_clean c princl pat = in Tacticals.tclTHEN (Tacticals.tclMAP (fun id -> Tacticals.tclTRY (Equality.subst [id])) idl ) - (Hiddentac.h_reduce flag Tacticals.allClauses) + (Hiddentac.h_reduce flag Tacticals.allHypsAndConcl) g else Tacticals.tclIDTAC g |