diff options
| author |  Maxime Dénès <mail@maximedenes.fr> | 2017-10-06 12:39:18 +0200 |
|---|---|---|
| committer | Maxime Dénès <mail@maximedenes.fr> | 2017-10-06 12:39:18 +0200 |
| commit | ef11a1240c14560e199527ae6d8a6eb893da1438 (patch) | |
| tree | fb2b2df5d56d97fafbf65a116c416dabca07808b | |
| parent | 3134ddd5dae8c9ab78a8aad181b2142f63907ecb (diff) | |
| parent | d24bab45123f4e4eb3918be55fb1a7dc54be2b3b (diff) | |
Merge PR #1121: Fixing BZ#5765 (an anomaly with 'pat in the parameters of an inductive definition)
| -rw-r--r-- | test-suite/bugs/closed/5765.v | 3 | ||||
| -rw-r--r-- | vernac/command.ml | 3 |
2 files changed, 5 insertions, 1 deletions
diff --git a/test-suite/bugs/closed/5765.v b/test-suite/bugs/closed/5765.v new file mode 100644 index 000000000..343ab4935 --- /dev/null +++ b/test-suite/bugs/closed/5765.v @@ -0,0 +1,3 @@ +(* 'pat binder not (yet?) allowed in parameters of inductive types *) + +Fail Inductive X '(a,b) := x. diff --git a/vernac/command.ml b/vernac/command.ml index 120f9590f..a1a87d54e 100644 --- a/vernac/command.ml +++ b/vernac/command.ml @@ -518,7 +518,8 @@ let check_param = function | CLocalDef (na, _, _) -> check_named na | CLocalAssum (nas, Default _, _) -> List.iter check_named nas | CLocalAssum (nas, Generalized _, _) -> () -| CLocalPattern _ -> assert false +| CLocalPattern (loc,_) -> + Loc.raise ?loc (Stream.Error "pattern with quote not allowed here.") let interp_mutual_inductive (paramsl,indl) notations cum poly prv finite = check_all_names_different indl; |