diff options
| author |  Hugo Herbelin <Hugo.Herbelin@inria.fr> | 2016-04-25 14:31:11 +0200 |
|---|---|---|
| committer | Hugo Herbelin <Hugo.Herbelin@inria.fr> | 2016-04-27 21:55:45 +0200 |
| commit | 5d9cb7ad4b3e4ccc77f77456bbb9969c418fcce2 (patch) | |
| tree | 2f941e85d5cef3eba857291ed5ccf47d1385ed28 /pretyping/cases.mli | |
| parent | 0fc6d2dcdb7d12e37d43cbf44fecaf2c0fddadcc (diff) | |
Fixing a "This clause is redundant" error when interpreting the "in"
clause of a "match" over an irrefutable pattern.
Diffstat (limited to 'pretyping/cases.mli')
| -rw-r--r-- | pretyping/cases.mli | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/pretyping/cases.mli b/pretyping/cases.mli index 257d1e578..d7fff8af4 100644 --- a/pretyping/cases.mli +++ b/pretyping/cases.mli @@ -32,6 +32,8 @@ val error_wrong_numarg_constructor_loc : Loc.t -> env -> constructor -> int -> ' val error_wrong_numarg_inductive_loc : Loc.t -> env -> inductive -> int -> 'a +val irrefutable : env -> cases_pattern -> bool + (** {6 Compilation primitive. } *) val compile_cases : |