diff options
Diffstat (limited to 'pretyping/glob_term.ml')
-rw-r--r-- | pretyping/glob_term.ml | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/pretyping/glob_term.ml b/pretyping/glob_term.ml index 5922d38dc..616a85444 100644 --- a/pretyping/glob_term.ml +++ b/pretyping/glob_term.ml @@ -79,7 +79,7 @@ and fix_kind = | GCoFix of int and predicate_pattern = - name * (loc * inductive * int * name list) option + name * (loc * inductive * name list) option and tomatch_tuple = (glob_constr * predicate_pattern) @@ -92,7 +92,7 @@ and cases_clauses = cases_clause list let cases_predicate_names tml = List.flatten (List.map (function | (tm,(na,None)) -> [na] - | (tm,(na,Some (_,_,_,nal))) -> na::nal) tml) + | (tm,(na,Some (_,_,nal))) -> na::nal) tml) let mkGApp loc p t = match p with |