diff options
Diffstat (limited to 'plugins')
| -rw-r--r-- | plugins/ssr/ssrfwd.ml | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/plugins/ssr/ssrfwd.ml b/plugins/ssr/ssrfwd.ml index 570b5a8c61..491d6cfb33 100644 --- a/plugins/ssr/ssrfwd.ml +++ b/plugins/ssr/ssrfwd.ml @@ -360,6 +360,7 @@ let rec intro_lock names = Proofview.Goal.enter begin fun gl -> | Term.AtomicType _ -> let t = Reductionops.whd_all env sigma c in match EConstr.kind_of_type sigma t with + | Term.ProdType _ -> aux t | Term.AtomicType(hd, args) when Ssrcommon.is_ind_ref sigma hd (Coqlib.lib_ref "core.eq.type") && Array.length args = 3 && is_app_evar sigma args.(2) -> |