diff options
| author | herbelin | 2000-12-25 23:45:50 +0000 |
|---|---|---|
| committer | herbelin | 2000-12-25 23:45:50 +0000 |
| commit | 79e2ca7374ef8d8dc22c29d1d98ff71c4ad50f69 (patch) | |
| tree | ea3f7549a6471b2af40fc77915b6219ab9ee97ba /parsing/pattern.ml | |
| parent | 0ed0a413920ee76733c58a1546a10bc6f3a52e3c (diff) | |
bug head_pattern_bound
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@1213 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'parsing/pattern.ml')
| -rw-r--r-- | parsing/pattern.ml | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/parsing/pattern.ml b/parsing/pattern.ml index 43e5d4877c..3dd339d466 100644 --- a/parsing/pattern.ml +++ b/parsing/pattern.ml @@ -59,8 +59,8 @@ let rec head_pattern_bound t = | PCase (p,c,br) -> head_pattern_bound c | PRef r -> label_of_ref r | PVar id -> VarNode id - | PRel _ | PMeta _ | PSoApp _ | PSort _ -> raise BoundPattern - | PBinder(BLambda,_,_,_) | PFix _ | PCoFix _ -> + | PRel _ | PMeta _ | PSoApp _ | PSort _ | PFix _ -> raise BoundPattern + | PBinder(BLambda,_,_,_) | PCoFix _ -> anomaly "head_pattern_bound: not a type" let head_of_constr_reference c = match kind_of_term c with |