diff options
author | 2015-09-25 14:19:25 +0200 | |
---|---|---|
committer | 2015-09-25 14:19:25 +0200 | |
commit | ccd23fa241ab11477b2fec48ba5262206a1134d5 (patch) | |
tree | d864a4ad99f869b03c2c08650029e03fa1400c32 /pretyping | |
parent | 8a031dc29abf1e16b2ee78322a7221b8b5c19a33 (diff) | |
parent | 8e25e107a8715728a7227934d7b11035863ee5f0 (diff) |
Merge branch 'v8.5'
Diffstat (limited to 'pretyping')
-rw-r--r-- | pretyping/detyping.ml | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/pretyping/detyping.ml b/pretyping/detyping.ml index 28fb8cbe3..8bd57290b 100644 --- a/pretyping/detyping.ml +++ b/pretyping/detyping.ml @@ -276,6 +276,7 @@ and align_tree nal isgoal (e,c as rhs) = match nal with match kind_of_term c with | Case (ci,p,c,cl) when eq_constr c (mkRel (List.index Name.equal na (fst (snd e)))) + && not (Int.equal (Array.length cl) 0) && (* don't contract if p dependent *) computable p (List.length ci.ci_pp_info.ind_tags) (* FIXME: can do better *) -> let clauses = build_tree na isgoal e ci cl in |