diff options
| author |  herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2000-05-31 11:43:21 +0000 |
|---|---|---|
| committer | herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2000-05-31 11:43:21 +0000 |
| commit | a6974254f3c46683d93ced625430d0fef26bebe5 (patch) | |
| tree | 48a2f915d6766a81c0ee74cd073fb45eb49ad373 /tactics | |
| parent | a87fc0236aa3dd9135ff75a890ba8f5c0a05a419 (diff) | |
Nettoyage de Generic;Suppression des DLAM en tête des listes de constructeurs
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@480 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'tactics')
| -rw-r--r-- | tactics/hipattern.ml | 7 |
1 files changed, 3 insertions, 4 deletions
diff --git a/tactics/hipattern.ml b/tactics/hipattern.ml index d31a71845..61d8c4fe7 100644 --- a/tactics/hipattern.ml +++ b/tactics/hipattern.ml @@ -153,7 +153,7 @@ let match_with_disjunction t = match kind_of_term hdapp with | IsMutInd ind -> let mispec = Global.lookup_mind_specif ind in - let constr_types = mis_lc_without_abstractions mispec in + let constr_types = mis_lc mispec in let only_one_arg c = ((nb_prod c) - (mis_nparams mispec)) = 1 in if (array_for_all only_one_arg constr_types) && @@ -180,8 +180,7 @@ let match_with_unit_type t = let (hdapp,args) = decomp_app t in match (kind_of_term hdapp) with | IsMutInd ind -> - let constr_types = - Global.mind_lc_without_abstractions ind in + let constr_types = Global.mind_lc ind in let nconstr = Global.mind_nconstr ind in let zero_args c = ((nb_prod c) - (Global.mind_nparams ind)) = 0 in if nconstr = 1 && (array_for_all zero_args constr_types) then @@ -204,7 +203,7 @@ let match_with_equation t = let (hdapp,args) = decomp_app t in match (kind_of_term hdapp) with | IsMutInd ind -> - let constr_types = Global.mind_lc_without_abstractions ind in + let constr_types = Global.mind_lc ind in let nconstr = Global.mind_nconstr ind in if nconstr = 1 && (is_matching (get_pat refl_rel_pat1) constr_types.(0) || |