diff options
| author | herbelin | 2008-06-18 21:21:47 +0000 |
|---|---|---|
| committer | herbelin | 2008-06-18 21:21:47 +0000 |
| commit | 8838528fb6fe72499ea37beeaf26d409ead90102 (patch) | |
| tree | 5da998ac8526f075d352d908fa8558c57f87d630 /tactics | |
| parent | aecc008e57ca056552c8bbb156d2b45b70575c1d (diff) | |
Propagation des révisions 11144 et 11136 de la 8.2 vers le trunk
(résolution entre autres des bugs 1882, 1883, 1884).
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@11145 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'tactics')
| -rw-r--r-- | tactics/tactics.ml | 5 |
1 files changed, 0 insertions, 5 deletions
diff --git a/tactics/tactics.ml b/tactics/tactics.ml index 4ec8ee0ae0..25e9209761 100644 --- a/tactics/tactics.ml +++ b/tactics/tactics.ml @@ -2385,12 +2385,7 @@ let induction_from_context_l isrec with_evars elim_info lid names gl = let induction_from_context isrec with_evars elim_info (hyp0,lbind) names gl = - (*test suivant sans doute inutile car refait par le letin_tac*) - if List.mem hyp0 (ids_of_named_context (Global.named_context())) then - errorlabstrm "induction" - (str "Cannot generalize a global variable"); let indsign,scheme = elim_info in - let indref = match scheme.indref with | None -> assert false | Some x -> x in let tmptyp0 = pf_get_hyp_typ gl hyp0 in let typ0 = pf_apply reduce_to_quantified_ref gl indref tmptyp0 in |