diff options
author | Enrico Tassi <Enrico.Tassi@inria.fr> | 2018-03-23 10:57:01 +0100 |
---|---|---|
committer | Enrico Tassi <Enrico.Tassi@inria.fr> | 2018-03-23 10:57:01 +0100 |
commit | 4e3819425445c3236f6aca77e95f2ee854cf4417 (patch) | |
tree | 777ce51e49e5293089902e0243a3b7b936d2036b | |
parent | ae72241615ab645dcc382123cdbbd5e9cff1f29d (diff) | |
parent | ef48bb4435d10b9c438cb1123bba902e1855d249 (diff) |
Merge PR #7028: Fix #7026: ssr: applying an overloaded lemma as a view takes too long.
-rw-r--r-- | plugins/ssr/ssrcommon.ml | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/plugins/ssr/ssrcommon.ml b/plugins/ssr/ssrcommon.ml index 19abf6780..d5118da4c 100644 --- a/plugins/ssr/ssrcommon.ml +++ b/plugins/ssr/ssrcommon.ml @@ -228,8 +228,9 @@ let splay_open_constr gl (sigma, c) = Reductionops.splay_prod env sigma t let isAppInd env sigma c = - try ignore(Tacred.reduce_to_atomic_ind env sigma c); true - with CErrors.UserError _ -> false + let c = Reductionops.clos_whd_flags CClosure.all env sigma c in + let c, _ = decompose_app_vect sigma c in + EConstr.isInd sigma c (** Generic argument-based globbing/typing utilities *) |