diff options
| author | Arnaud Spiwack | 2014-09-03 11:40:27 +0200 |
|---|---|---|
| committer | Arnaud Spiwack | 2014-09-04 10:25:54 +0200 |
| commit | b18b40878f071b6c7d67d1a2d031370f7a498d0b (patch) | |
| tree | 595398248a70dd2607c983c5dd3eb8913614b084 /tactics | |
| parent | ac2fdfb222083faa9c3893194e020bed38555ddb (diff) | |
Print [Variant] types with the keyword [Variant].
Involves changing the [mind_finite] field in the kernel from a bool to the trivalued type [Decl_kinds.recursivity_kind]. This is why so many files are (unfortunately) affected. It would not be very surprising if some bug was introduced.
Diffstat (limited to 'tactics')
| -rw-r--r-- | tactics/hipattern.ml4 | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/tactics/hipattern.ml4 b/tactics/hipattern.ml4 index 84fcd6dee1..fd871349c7 100644 --- a/tactics/hipattern.ml4 +++ b/tactics/hipattern.ml4 @@ -48,7 +48,7 @@ let match_with_non_recursive_type t = let (hdapp,args) = decompose_app t in (match kind_of_term hdapp with | Ind (ind,u) -> - if not (Global.lookup_mind (fst ind)).mind_finite then + if (Global.lookup_mind (fst ind)).mind_finite == Decl_kinds.CoFinite then Some (hdapp,args) else None |