diff options
| author | bertot | 2006-01-11 12:29:53 +0000 |
|---|---|---|
| committer | bertot | 2006-01-11 12:29:53 +0000 |
| commit | 95f57bbda1e7ed684568a0fd30d4b8e570a9b37f (patch) | |
| tree | e7041531d8a747da7c4b905efad7d6f40723a6b8 /contrib/interface/pbp.ml | |
| parent | aa3b44033ede838336b6adc08d0e0662552fa90d (diff) | |
removes several warnings in contrib/interface
Modifies the behavior of Recursive definition to produce goals instead of
established theorems
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@7843 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'contrib/interface/pbp.ml')
| -rw-r--r-- | contrib/interface/pbp.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/contrib/interface/pbp.ml b/contrib/interface/pbp.ml index f8328f21d2..bc789fd0dc 100644 --- a/contrib/interface/pbp.ml +++ b/contrib/interface/pbp.ml @@ -203,7 +203,7 @@ let (imply_elim1: pbp_rule) = function Some h, Prod(Anonymous, prem, body), 1::path, f -> let clear_names' = if clear_flag then h::clear_names else clear_names in let h' = next_global_ident hyp_radix avoid in - let str_h' = (string_of_id h') in + let _str_h' = (string_of_id h') in Some(PbpThens ([PbpLApply h], [chain_tactics [make_named_intro h'] (make_clears (h::clear_names)); |