diff options
| author | herbelin | 2000-11-20 08:49:35 +0000 |
|---|---|---|
| committer | herbelin | 2000-11-20 08:49:35 +0000 |
| commit | 2607f689969425194b9732fc88b99fb70436acb6 (patch) | |
| tree | f5daba6efb174e96b8573b432a9580de6460b88f /tactics | |
| parent | d4a16b8b5bf14d8dc3e78710aa4c7d3d471cc1a4 (diff) | |
Utilisation de global_reference dans pattern
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@876 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'tactics')
| -rw-r--r-- | tactics/termdn.ml | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/tactics/termdn.ml b/tactics/termdn.ml index 481bd3ac40..4f3ea75221 100644 --- a/tactics/termdn.ml +++ b/tactics/termdn.ml @@ -35,9 +35,9 @@ let constr_pat_discr t = None else match decomp_pat t with - | PRef (RInd (ind_sp,_)), args -> Some(IndNode ind_sp,args) - | PRef (RConstruct (cstr_sp,_)), args -> Some(CstrNode cstr_sp,args) - | PRef (RVar id), args -> Some(VarNode id,args) + | PRef (IndRef sp), args -> Some(IndNode sp,args) + | PRef (ConstructRef sp), args -> Some(CstrNode sp,args) + | PRef (VarRef sp), args -> Some(VarNode (basename sp),args) | _ -> None let constr_val_discr t = @@ -46,6 +46,7 @@ let constr_val_discr t = (* IsConst _,_) -> Some(TERM c,l) *) | IsMutInd (ind_sp,_) -> Some(IndNode ind_sp,l) | IsMutConstruct (cstr_sp,_) -> Some(CstrNode cstr_sp,l) + (* Ici, comment distinguer SectionVarNode de VarNode ?? *) | IsVar id -> Some(VarNode id,l) | _ -> None |