diff options
| author |  herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2002-12-09 08:40:00 +0000 |
|---|---|---|
| committer | herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2002-12-09 08:40:00 +0000 |
| commit | 18ffccadd1901e666ea3600263454446f52849d8 (patch) | |
| tree | e7c69b9c82ba2e17ee52e5ff29632c817a76f7b7 /tactics/refine.ml | |
| parent | cd4d18cf0de8e8077a9c141a3e825b7647f03f8e (diff) | |
Ajout Simpl et Change sur des sous-termes
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@3392 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'tactics/refine.ml')
| -rw-r--r-- | tactics/refine.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/tactics/refine.ml b/tactics/refine.ml index d1f380e49..1a360f9ba 100644 --- a/tactics/refine.ml +++ b/tactics/refine.ml @@ -284,7 +284,7 @@ let rec tcc_aux (TH (c,mm,sgp) as th) gl = let c = pf_concl gl in let newc = mkNamedLetIn id c1 t1 c in tclTHEN - (change_in_concl newc) + (change_in_concl None newc) (match sgp with | [None] -> introduction id | [Some th] -> tclTHEN (introduction id) (tcc_aux th) |