diff options
| author | herbelin | 2000-11-07 12:49:00 +0000 |
|---|---|---|
| committer | herbelin | 2000-11-07 12:49:00 +0000 |
| commit | 32747e53e9cfad90a30d07ebd7a328ad0a6e58d9 (patch) | |
| tree | 5b6163567e187cc1de98659d1d15257bf17fdb00 /tactics | |
| parent | 3d4a44bb4a30da00bc70072b36b70571168e6a8d (diff) | |
Nettoyage Names suite
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@818 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'tactics')
| -rw-r--r-- | tactics/tactics.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/tactics/tactics.ml b/tactics/tactics.ml index b15feeb098..1c2026420c 100644 --- a/tactics/tactics.ml +++ b/tactics/tactics.ml @@ -1041,7 +1041,7 @@ let induct_discharge indpath statuslists cname destopt avoid (_,t) = if n=1 then cname else (* To force renumbering if there is only one *) - make_ident (string_of_id cname) 1 + make_ident (string_of_id cname) (Some 1) in let hyprecname = id_of_string ("Hrec"^(string_of_id recvarname)) in let rec peel_tac c = match kind_of_term c with |